Hardcopy von HI-EDDI auf dem Plotter VC 1520

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

50 ifa<2thena=a+2:load"hi-exe",8,1
60 ifa=3then150
70 ifa=4then650
100 input"{clr}betriebsart";c:poke780,c:poke56,13:clr:w$="123456":sys3328
110 ifpeek(8073)and64thena=3:load"menue",8,1
150 sys3337:a=peek(8064)
160 ona+1gosub200,250,300,290,400,600,290,290,500,510,300:goto150
200 open3,8,0,"$0":get#3,c$,c$
210 get#3,c$,c$,l$,h$:ifc$=""thenclose3:wait198,1:return
220 print256*asc(h$+chr$(0))+asc(l$+chr$(0));:sys3334:goto210
250 print"{clr}{down}sequenz:":print"{down}  "w$:input"{home}{down}{down}{down}";w$:iflen(w$)<2then250
290 return
300 poke8115,8:print"{clr}{down}g=grafikbild":ifpeek(8073)>127thenprint"f=farbbild"
310 print"s=sprite":print"z=zeichensatz":print"{down} -->";
320 getc$:ifc$<>"g"andc$<>"f"andc$<>"s"andc$<>"z"then320
330 printc$:poke780,asc(c$):h$=w$:input"{down}filename";w$:sys3331:w$=h$:h$=""
340 open1,8,15,h$:input#1,a,h$:printa;h$:ifa>0thenwait198,1
350 close1:return
400 poke631,34:poke198,1:h$="":input"{clr}{down}";h$:goto340
500 a=8075:goto520
510 a=8079
520 d=peek(8074):c=peek(a+d):print"{clr}{down}f"2*d+1:print"schrittweite :"c,
530 inputc:ifc<1orc>160then530
540 pokea+d,c:return
600 ifa=5thena=4:load"copy 1520",8,1
650 input"{clr}bildnummer";d:c=(dand7)
660 input"farbe (0-3)";b$:poke1000,0:poke1001,val(b$)
670 fori=0to6
680 ifpeek(8086+i)=dthenletz=(i+1)*8192
690 nexti
700 x=int(z/256):poke3399,x:poke3392,z-x*256
710 poke780,c:sys3328
720 print"overlay";:gosub800:ifc$="j"then630
730 print"nahtlos";:gosub800:ifc$="n"thenleta=1:goto50
740 open1,6,1:print#1,"m",0,-180:close1
750 open1,6,0:print#1," ":close1:goto650
800 print" ? (j/n)";
810 getc$:ifc$<>"j"andc$<>"n"then810
820 printc$:return