Giga-CAD angepaßt

Nun können Sie die fantastischen Giga-CAD-Grafiken auch auf Ihrem Plotter VC 1520 oder auf dem Okimate 20 ausgeben.

Das Programm »G.H.1520« dient als Steuerprogramm für die Plotter-Hardcopy-Routine »Copy 1520« (veröffentlicht im 64'er-Sonderheft 4/85). Es ermöglicht den Ausdruck von Giga-CAD-Bildern in 1- bis 10facher Auflösung. Hierzu muß man nur noch die Bilddiskette einlegen, »G.H.1520« starten und den Namen und Auflösung des gewünschten Bildes eingeben. Weiterhin kann man die Farbe des Ausdrucks auswählen. Das Programm lädt dann selbständig die einzelnen Bilder und druckt diese aus. Bei 4- beziehungsweise 10facher Auflösung braucht man dann nur noch die zwei Papierstreifen des 1520-Plotters zusammenkleben.

Bedienungsanleitung:

Zuerst muß man das Programm »G.H.1520« (Listing 1) eintippen und zusammen mit der Hardcopy-Routine »Copy 1520« (Listing 2) auf einer Diskette speichern. Wenn man nun die Hardcopy-Routine benützen möchte, lädt man das Programm bei eingeschaltetem Plotter und startet mit RUN. Es lädt dann selbständig »COPY 1520«. Ist dies geschehen, fragt das Programm nach dem Namen des Bildes. Hier gibt man bei Bildern mit einfacher Auflösung den Namen, der im Directory steht, ein, bei Bildern in höherer Auflösung läßt man das »HV« beziehungsweise »HZ« vor dem Namen und die Zahl am Ende des Namens weg.

Beispiel:	Directoryname	Bildname
1fach	»PI.TEST1«	»PI.TEST1«
4fach	»HY.TEST1 1«	»TEST1«
10fach	»HZ.TEST2 9«	»TEST2«

Als nächstes fragt das Programm die gewünschte Farbe der Hardcopy (0-3; entsprechend Plotter-Anleitung) ab. Hier braucht man nur die entsprechende Zahl einzutippen. Als letztes muß man die Auflösung des Bildes eingeben. Spätestens jetzt sollte man die Bilddiskette eingelegt haben, da das Programm anfängt, die Bilder zu laden und auszudrucken.

(Th. Hendorfer/og)

100 a=a+1
110 if a=1 then load "copy 1520",8,1
200 if a=3 then 400
250 open3,6,3:print#3,1:close3
300 print"{clr}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}giga-cad hardcopy"
310 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}==================="
320 print"{down}{rght}{rght}druckertyp: 1520 plotter"
330 print"{down}{rght}{rght}hardcopy routine : 'copy 1520'"
340 print"{rght}{rght}                    aus 64'er sh. 4/85"
350 input"{down}{down}{rght}{rght}name der graphik  : ";n$
360 input"{down}{rght}{rght}farbe der graphik (0-3): ";c
370 print"{down}{down}{rght}{rght}aufloesung :           1 = normal"
380 print"{down}{rght}{rght}                       4 = vierfach"
390 print"{down}{rght}{rght}                      10 = zehnfach"
391 input"{down}{rght}{rght}welche aufloesung :   1{left}{left}{left}";d: b=-1
392 ifd<>1andd<>4andd<>10thengoto391
393 ifd=4thenn$="hv."+n$
394 ifd=10thenn$="hz."+n$
395 print"{clr}"
400 if d=4 or d=10 then 500
420 if a=2 then gosub 780
430 gosub 700
440 gosub 750
450 goto  800
500 if a=2 then b=b+2 : gosub 790
510 gosub 700
520 a=2
530 if b=d or b=d-1 then gosub 750
540 if b=d then goto 800
550 if b=d-1 then b=0
560 goto 500
700 poke 3399,32: poke 3392,0: poke 1000,0:poke 1001,3andc
710 print"{down}{rght}{rght}printing : ";n$:poke780,1:sys 3328
720 open1,6,1:print#1,"m",0,-180:close1
730 open1,6:print#1,"":close1:return
750 open1,6:print#1,"":print#1,"":print#1,"":close1:return
780 print"{down}{rght}{rght}loading  : ";n$:load n$,8,1
790 print"{down}{rght}{rght}loading  : ";n$+str$(b):load n$+str$(b),8,1
800 input"{down}{rght}{rght}nochmal (j/n)? :   n{left}{left}{left}";ea$
810 ifea$="j"thena=1:goto100
820 end

Listing 1. »G.H.1520«. Bitte mit dem Checksummer eingeben.

PROGRAMM : COPY 1520      0D00 103B
-----------------------------------
0D00 : A2 00 8E 0E DC 78 86 B7   23
0D08 : E8 86 B8 86 B9 A2 06 86   08
0D10 : BA 20 C0 FF A2 02 86 B8   D0
0D18 : 86 B9 A2 00 86 B7 A2 06   E0
0D20 : 86 BA 20 C0 FF A2 00 8E   56
0D28 : 40 03 8E 41 03 8E 43 03   6D
0D30 : 8E 46 03 8E 47 03 8E 48   CB
0D38 : 03 8E 49 03 8E 4C 03 A2   D2
0D40 : 00 86 F7 8E 94 0E A2 E0   59
0D48 : 86 F8 8E 98 0E A2 01 8E   18
0D50 : 4B 03 A2 D0 8E A3 0D 8E   37
0D58 : D7 0D A2 02 20 C9 FF AD   4A
0D60 : E9 03 18 69 30 20 D2 FF   4D
0D68 : A9 0D 20 D2 FF 20 CC FF   2E
0D70 : A9 34 85 01 A0 00 B1 F7   76
0D78 : A2 37 86 01 48 18 A5 F7   43
0D80 : 69 08 90 02 E6 F8 85 F7   8E
0D88 : AD E8 03 F0 38 68 A2 00   DA
0D90 : 8E 4A 03 0A 2E 4A 03 0A   9B
0D98 : 2E 4A 03 48 AA AE 4A 03   04
0DA0 : EC 4B 03 D0 03 20 00 0F   5C
0DA8 : EE 49 03 EE 41 03 D0 03   4F
0DB0 : EE 40 03 EE 41 03 D0 03   D2
0DB8 : EE 40 03 AD 49 03 C9 04   19
0DC0 : D0 CB 4C EE 0D 68 A2 00   05
0DC8 : 8E 4A 03 18 0A 2E 4A 03   80
0DD0 : 48 AD 4A 03 CD 4B 03 D0   C7
0DD8 : 03 20 00 0F EE 49 03 EE   F0
0DE0 : 41 03 D0 03 EE 40 03 AD   90
0DE8 : 49 03 C9 08 D0 D7 A2 00   7D
0DF0 : 8E 49 03 68 EE 48 03 AD   89
0DF8 : 48 03 C9 28 B0 03 4C 70   6E
0E00 : 0D AD 4C 03 F0 03 20 00   FF
0E08 : 0F EE 43 03 AD 4E 03 8D   34
0E10 : 41 03 AD 4D 03 8D 40 03   8B
0E18 : 20 00 0F A2 00 8E 48 03   EC
0E20 : 8E 40 03 8E 41 03 8E 4C   60
0E28 : 03 A9 D0 8D A3 0D 8D D7   6E
0E30 : 0D C6 F8 A5 F7 38 E9 3F   FA
0E38 : B0 02 C6 F8 85 F7 EE 47   1C
0E40 : 03 AD 47 03 C9 08 F0 03   F3
0E48 : 4C 70 0D A2 00 8E 47 03   FC
0E50 : E6 F8 A5 F7 18 69 38 90   E9
0E58 : 02 E6 F8 85 F7 EE 46 03   D2
0E60 : AD 46 03 C9 19 F0 03 4C   E8
0E68 : 70 0D 20 CC FF AD E8 03   17
0E70 : D0 03 4C F6 0E EE 4B 03   3F
0E78 : AD 4B 03 C9 04 F0 77 A2   B0
0E80 : 00 8E 46 03 8E 43 03 8E   E6
0E88 : 40 03 8E 41 03 8E 4D 03   F5
0E90 : 8E 4E 03 A2 00 86 F7 A2   B4
0E98 : E0 86 F8 A2 01 20 C9 FF   86
0EA0 : A2 00 8A 48 BD E7 0E 20   82
0EA8 : D2 FF 68 AA E8 E0 09 D0   45
0EB0 : F1 A2 01 20 C9 FF A2 00   5E
0EB8 : 8A 48 BD F0 0E 20 D2 FF   21
0EC0 : 68 AA E8 E0 06 D0 F1 A2   C7
0EC8 : 02 20 C9 FF AD 4B 03 38   FE
0ED0 : E9 01 A8 B9 E9 03 18 69   85
0ED8 : 30 20 D2 FF A9 0D 20 D2   F6
0EE0 : FF 20 CC FF 4C 70 0D 4D   39
0EE8 : 2C 30 2C 2D 32 30 31 0D   61
0EF0 : 4D 2C 30 2C 30 0D 20 2F   2F
0EF8 : F3 A9 01 8D 0E DC 58 60   9C
0F00 : AD 40 03 48 AD 41 03 48   19
0F08 : AD 43 03 48 A2 00 8E 43   0C
0F10 : 03 8E 44 03 8E 45 03 C9   7F
0F18 : 64 90 08 E9 64 EE 43 03   D4
0F20 : 4C 17 0F C9 0A 90 08 E9   0E
0F28 : 0A EE 44 03 4C 23 0F C9   C9
0F30 : 01 90 08 E9 01 EE 45 03   5B
0F38 : 4C 2F 0F AD 41 03 AE 40   FD
0F40 : 03 F0 11 A2 02 8E 40 03   F0
0F48 : A2 05 8E 41 03 E8 8E 42   6F
0F50 : 03 4C 5F 0F A2 00 8E 40   18
0F58 : 03 8E 41 03 8E 42 03 C9   EE
0F60 : 64 90 08 EE 40 03 E9 64   79
0F68 : 4C 5F 0F C9 0A 90 08 EE   84
0F70 : 41 03 E9 0A 4C 6B 0F C9   DE
0F78 : 01 90 08 EE 42 03 E9 01   87
0F80 : 4C 77 0F AD 41 03 18 69   61
0F88 : 08 8D 41 03 AD 42 03 C9   94
0F90 : 0A 90 08 E9 0A 8D 42 03   3E
0F98 : EE 41 03 AD 41 03 C9 0A   05
0FA0 : 90 0B E9 0A 8D 41 03 EE   3E
0FA8 : 40 03 4C 9B 0F A2 01 20   3B
0FB0 : C9 FF AD 4C 03 F0 08 A9   99
0FB8 : 44 20 D2 FF 4C C4 0F A9   3B
0FC0 : 4D 20 D2 FF A9 2C 20 D2   F4
0FC8 : FF AD 40 03 18 69 30 20   DC
0FD0 : D2 FF AD 41 03 18 69 30   2C
0FD8 : 20 D2 FF AD 42 03 18 69   86
0FE0 : 30 20 D2 FF A9 2C 20 D2   F7
0FE8 : FF A9 2D 20 D2 FF AD 43   76
0FF0 : 03 18 69 30 20 D2 FF AD   54
0FF8 : 44 03 18 69 30 20 D2 FF   40
1000 : AD 45 03 18 69 30 20 D2   52
1008 : FF A9 0D 20 D2 FF 68 8D   0D
1010 : 43 03 68 8D 41 03 68 8D   8A
1018 : 40 03 AD A3 0D 49 20 8D   70
1020 : A3 0D 8D D7 0D AD 4C 03   1E
1028 : 49 01 8D 4C 03 AD 41 03   87
1030 : 8D 4E 03 AD 40 03 8D 4D   48
1038 : 03 60 34                  C4

Listing 2. »Copy 1520«. Bitte mit dem MSE eingeben (Seite 78).

Okimate 20: Geben Sie Listing 3, »GC Hardcopy«, mit dem Checksummer und Listing 4 »Q9« mit dem MSE ein. Beim Start wird Q9 vom Basic-Programm »GC Hardcopy« nachgeladen. Wählen Sie zunächst die Auflösung (4- oder 10fach) und geben Sie dann den Namen des zu druckenden Bildes ein. Nach dem Laden startet der Ausdruck.

(D. Ulshöfer/og)

0 ifl=0then let l=1:load"q9",8,1
1 clr:gosub100:open4,4,0:print#4,chr$(10)chr$(13)chr$(13);
2 close4
3 a$=c$
4 poke56576,0:poke53265,59:poke53272,56
5 poke53281,15:poke53280,15
20 sys 49155,160,"h?."+a$+" 1"
21 sys 49155,224,"h?."+a$+" 2"
22 sys 49152
30 sys 49155,160,"h?."+a$+" 3"
31 sys 49155,224,"h?."+a$+" 4"
32 sys 49152:ifbb=4then goto 70
40 sys 49155,160,"hz."+a$+" 5"
41 sys 49155,224,"hz."+a$+" 6"
42 sys 49152
50 sys 49155,160,"hz."+a$+" 7"
51 sys 49155,224,"hz."+a$+" 8"
52 sys 49152
60 sys 49155,160,"hz."+a$+" 9"
61 sys 49155,224,"hz."+a$+" 10"
62 sys 49152
70 poke53265,27:poke53272,21:poke56576,3
80 goto 1
100 poke53280,0:poke53281,0
101 print"{red}{clr}{CBM-A}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-S}";
102 print"{red}B{rvon}{lgrn} hardcopy von giga-cad auf okimate 20 {rvof}{red}B";
103 print"{red}{CBM-Z}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-X}"
110 print"{down}{red}{CBM-A}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-S}";
120 print"B{grn}{rvon}  1 - 4fach        {blu}  2 - 10fach       {rvof}{red}B";
130 print"{CBM-Z}CCCCCCC{CBM-R}CCCCCCCCCCCCCCCCCCCCCCC{CBM-R}CCCCCC{CBM-X}";
135 print"        B{yel}{rvon} bitte taste druecken !{red}{rvof}B       ";
140 print"        {CBM-Z}CCCCCCCCCCCCCCCCCCCCCCC{CBM-X}       ";
150 poke198,0
155 geta$:ifa$<>"1"anda$<>"2"then155
160 ifa$="1"thenbb=4
165 ifa$="2"thenbb=10
170 rem
200 print"{down}{down}"
210 print"{red}{CBM-A}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-S}";
220 print"B{orng}{rvon}        bitte filenamen eingeben      {rvof}{red}B";
230 print"{CBM-Z}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC{CBM-X}"
240 print"{red}             {CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}             ";
250 print"             B            B{red}"
260 print"{red}             {CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}             {brn}";
270 c=0:c$="":l=18
290 poke198,0
300 geta$:ifa$=""then300
305 ifa$>="0"anda$<="z"then350
310 ifa$=chr$(20)then360
320 ifa$="{clr}"thenc=0:c$="":print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:goto390
330 ifa$=chr$(13)then400
350 ifc=12then290
355 c=c+1:c$=c$+a$:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
356 fort=0toc:print"{rght}";:nextt:printa$;:goto290
360 ifc=0then290
365 c=c-1:c$=left$(c$,len(c$)-1):poke1024+l*40+c+14,32:goto290
390 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}            ";:goto290
400 return

Listing 3. »GC Hardcopy«. Beachten Sie bitte die Eingabehinweise auf Seite 78

PROGRAMM : Q9             C000 C338
-----------------------------------
C000 : 4C BE C0 4C C5 C2 00 00   D7
C008 : 00 00 00 00 00 00 00 00   09
C010 : 00 00 E0 00 00 00 00 00   49
C018 : 00 00 00 00 00 00 00 00   19
C020 : 00 00 00 00 00 00 00 00   21
C028 : 00 00 00 00 00 00 00 00   29
C030 : 00 00 00 00 00 00 40 01   34
C038 : 80 02 C0 03 00 05 40 06   7F
C040 : 80 07 C0 08 00 0A 40 0B   DC
C048 : 80 0C C0 0D 00 0F 40 10   3A
C050 : 80 11 C0 12 00 14 40 15   97
C058 : 80 16 C0 17 00 19 40 1A   F4
C060 : 80 1B C0 1C 00 1E 00 00   12
C068 : 28 00 50 00 78 00 A0 00   AF
C070 : C8 00 F0 00 18 01 40 01   01
C078 : 68 01 90 01 B8 01 E0 01   BE
C080 : 08 02 30 02 58 02 80 02   71
C088 : A8 02 D0 02 F8 02 20 03   CC
C090 : 48 03 70 03 98 03 C0 03   81
C098 : 80 40 20 10 08 04 02 01   ED
C0A0 : 00 00 C9 03 F0 03 4C D2   71
C0A8 : FF 20 D2 FF A9 03 4C D2   F5
C0B0 : FF A9 00 8D 1C C0 A9 07   B2
C0B8 : 8D 94 C2 4C A6 C1 A9 04   F1
C0C0 : A2 04 A0 00 20 BA FF A9   B8
C0C8 : 17 8D 94 C2 A9 00 20 BD   BA
C0D0 : FF 20 C0 FF A2 04 20 C9   6E
C0D8 : FF A9 1B 20 D2 FF A9 52   EF
C0E0 : 20 D2 FF A9 1C 20 D2 FF   AC
C0E8 : A9 00 8D 0D C0 8D 0E C0   C9
C0F0 : 8D 32 C0 EA A9 1B 20 D2   BD
C0F8 : FF A9 10 20 D2 FF A9 00   A8
C100 : 20 D2 FF A9 91 20 D2 FF   24
C108 : A9 00 8D 08 C0 A9 03 20   BB
C110 : D2 FF A9 00 8D 09 C0 8D   8B
C118 : 0A C0 20 95 C2 A9 00 8D   D2
C120 : 32 C0 AD 0A C0 8D 19 C0   BD
C128 : AD 09 C0 8D 18 C0 AD 0D   94
C130 : C0 8D 1E C0 A9 00 8D 20   68
C138 : C0 AD 1E C0 18 6D 20 C0   5D
C140 : 8D 1A C0 AD 1A C0 38 C9   DC
C148 : C8 90 03 4C B1 C0 AD 1A   AF
C150 : C0 29 F8 4A 4A A8 B9 34   65
C158 : C0 85 FA C8 B9 34 C0 18   23
C160 : 6D 12 C0 85 FB AD 1A C0   CE
C168 : 29 07 18 65 FA 85 FA A5   DB
C170 : FB 69 00 85 FB AD 18 C0   E0
C178 : 29 F8 18 65 FA 85 FA A5   E3
C180 : FB 6D 19 C0 85 FB A0 00   4B
C188 : A2 34 78 86 01 B1 FA A2   02
C190 : 37 86 01 58 8D 1C C0 AD   6E
C198 : 18 C0 29 07 A8 AD 1C C0   25
C1A0 : 39 98 C0 8D 1C C0 20 2F   AE
C1A8 : C2 EE 20 C0 AD 20 C0 C9   74
C1B0 : 18 F0 03 4C 39 C1 AD 09   F5
C1B8 : C0 18 69 01 8D 09 C0 AD   7E
C1C0 : 0A C0 69 00 8D 0A C0 C9   44
C1C8 : 01 F0 03 4C 22 C1 AD 09   85
C1D0 : C0 C9 40 F0 03 4C 22 C1   42
C1D8 : EE 08 C0 AD 08 C0 C9 02   62
C1E0 : F0 03 4C 12 C1 A9 03 20   5D
C1E8 : D2 FF A9 02 20 D2 FF A9   50
C1F0 : 1B 20 D2 FF A9 0A 20 D2   E1
C1F8 : FF AD 94 C2 20 D2 FF 20   24
C200 : D2 FF AD 0D C0 18 69 18   81
C208 : 8D 0D C0 AD 0E C0 69 00   8E
C210 : 8D 0E C0 C9 00 F0 03 4C   3A
C218 : F3 C0 AD 0D C0 38 C9 C8   FF
C220 : B0 03 4C F3 C0 EA 20 CC   61
C228 : FF A9 04 20 C3 FF 60 AC   18
C230 : 20 C0 D0 03 20 51 C2 A9   30
C238 : 01 8D 32 C0 A2 00 AD 1C   BE
C240 : C0 C9 00 F0 02 A2 01 8A   51
C248 : 29 01 AC 20 C0 99 36 C3   5A
C250 : 60 AD 32 C0 D0 01 60 A9   15
C258 : 00 8D 0F C0 AD 0F C0 A8   A2
C260 : B9 36 C3 8D 20 D0 A8 B9   75
C268 : 92 C2 18 2A 6E 2A C0 6E   BF
C270 : 29 C0 6E 28 C0 EE 0F C0   DB
C278 : AD 0F C0 C9 18 D0 DD AD   F1
C280 : 28 C0 20 A2 C0 AD 29 C0   04
C288 : 20 A2 C0 AD 2A C0 20 A2   4E
C290 : C0 60 00 FF 17 78 A2 34   A9
C298 : 86 01 A0 00 84 FA 84 FC   F3
C2A0 : A9 E0 85 FB A9 A0 85 FD   4C
C2A8 : B1 FA 48 B1 FC 91 FA 68   38
C2B0 : 91 FC C8 D0 F3 E6 FB E6   40
C2B8 : FD A5 FB C9 00 D0 E9 A2   33
C2C0 : 37 86 01 58 60 20 1B C3   81
C2C8 : 20 F1 B7 8E 1A C3 20 FD   DD
C2D0 : AE 20 9E AD 20 A3 B6 48   76
C2D8 : A9 01 A2 08 A0 00 20 BA   AB
C2E0 : FF 68 A6 22 A4 23 20 BD   61
C2E8 : FF 20 C0 FF A2 01 20 C6   68
C2F0 : FF 20 CF FF 20 CF FF A2   B9
C2F8 : 00 A0 00 84 FA AD 1A C3   E6
C300 : 85 FB 20 CF FF 91 FA C8   8F
C308 : D0 F8 E6 FB E8 E0 20 D0   45
C310 : F1 20 CC FF A9 01 20 C3   EF
C318 : FF 60 00 A9 00 85 FA A9   E8
C320 : CC 85 FB A9 0F A0 00 A2   1E
C328 : 00 91 FA C8 D0 FB E6 FB   49
C330 : E8 E0 04 D0 F4 60 00 00   F6

Listing 4. »Q9« wird von GC Hardcopy nachgeladen. Bitte mit dem MSE eingeben