Extravagante Hardcopies
Auf den nächsten Seiten erwartet Sie eine Sinfonie für Drucker, geschrieben in Maschinensprache und aufgeführt auf Epson, VC 1520 und Melchers CP 80 X. Dabei handett es sich um fantastische Hardcopy-Programme mit höchster Auflösung.
Hardcopy-Routinen werden immer raffinierter! Während es bisher schon als Besonderheit galt, Graustufen zu erzeugen, berücksichtigt das Programm »Super-Hardcopy« auch Rasterzeilen-Interrupts und Sprites. Dabei werden die Farbwerte in bis zu neun Graustufen umgerechnet. Es ist für einen Epson RX-80 ausgelegt, läßt sich aber ohne weiteres an alle Drucker anpassen, die eine Auflösung von mindestens 1600 Punkten pro Druckzeile erreichen. Probleme mit verschiedenen Interfaces dürfte es keine geben, da sich bei »Super-Hardcopy« alle Drucker-Parameter einstellen lassen.
Nicht weniger komfortabel ist die Hardcopy für den Plotter VC 1520. Diese wurde für den Ascompiler (64’er, Ausgabe 1/86, Seite 58) geschrieben. Somit läßt sich eine farbige Hardcopy in etwa drei bis vier Stunden erzeugen Qe nach Anzahl der Farbwechsel), entgegen etwa dem 6fachen Zeitaufwand in der uncompilierten Version.
Zu guter Letzt sei noch der Melchers CP 80 X erwähnt. Sonst als »schwarzes Schaf« ausgeklammert (die Grafik-Auflösung ist anders als bei Epson-Druckern, nämlich 8x1280), ist er mit einer komfortablen Multi-Color-Hardcopy vertreten.
»Super-Hardcopy«
Geben Sie das Programm »SUPER-HARDCOPY« (aus Listing 1) mit dem MSE ein, und speichern Sie es. Beim erneuten Laden werden Sie feststellen, daß es sich um ein Basic-Programm handelt, das Sie mit dem MSE eingegeben haben. Das klingt zwar zunächst verwunderlich, bei näherem Hinsehen werden Sie jedoch feststellen, daß ein Basic-Listing hier wenig hilfreich gewesen wäre. Das Ende des Basic-Teiles muß exakt bei 5260 liegen, da alle Variablen und ein Maschinen-Programm direkt daran angehängt sind. Ein Zeichen zuviel oder zuwenig würde bedeuten, daß das fertige Programm nicht lauffähig sein kann. Also Ändern Sie das Programm auf keinen Fall! Nun können Sie das Programm mit RUN starten. Daraufhin befinden Sie sich im Eingabemenü, in dem alle Parameter angezeigt werden. Die Eingaben erfolgen über die rechte Cursortaste und werden mit RETURN übernommen. Die eingestellten Werte sind für einen FX 80 mit Görlitz-Interface vorgesehen.
Parameter verändern: Haben Sie keinen Epson-Drucker oder ein anderes Interface, so beantworten Sie die Frage »Parameter verändern« mit »ja«. Als nächstes geben Sie die Art des Interfaces ein. Zur Wahl steht ein paralleles Centronics-Interface oder der serielle Bus des C 64, entsprechend einem Hardware-Interface im oder am Drucker. Die Gerätenummer des Druckers wird normalerweise mit 4 belegt. Haben Sie kein Görlitz-Interface, müssen Sie bei »Sekundäradresse« die Adresse eingeben, die bei Ihrem Interface den Linearkanal öffnet oder Transparenzdruck auslöst. Bei einem parallelen Centronics-Interface können für Gerätenummer und Sekundäradresse beliebige Werte eingesetzt werden. Die nächste wichtige Eingabe ist die Startsequenz für den Drucker. Sie wird immer vor dem Ausdruck einer Grafik gesendet. In dieser Sequenz sollte der Drucker auf einen Zeilenabstand von 8 Punkten eingestellt werden. Sie können aber noch zusätzlich Befehle senden, zum Beispiel um den linken Rand zu setzen, um die Hardcopy in die Mitte zu rücken, etc. Alle Codes müssen Sie hexadezimal, durch ein Leerzeichen voneinander getrennt, eingeben. Als nächstes wird die Grafik-Sequenz eingegeben. Durch sie wird der Drucker angewiesen, 1600 Grafikbyte in vierfacher Punktdichte auszudrucken. Die Eingabe ist analog zur Startsequenz. Im Menüpunkt »Farbcodetabelle« können Sie zwischen 0 und 5 wählen. Hier wird festgelegt, welcher Farbe welcher Grauwert zugeordnet wird. Die Graustufen reichen von 0 (weiß) bis 9 (schwarz). Die Tabellen 0 (für hohe Auflösung) und 1 (geringere Auflösung) sind bereits definiert. Die anderen stehen Ihnen zur freien Verfügung. Ist die gewünschte Tabelle ausgesucht, kann diese nach einem RETURN abgeändert, oder nach einem SHIFT/RETURN übergangen werden.
Die eingegebenen Parameter können Sie nun auf Wunsch speichern. Falls dies nicht geschieht, ist »Super-Copy« nachdem der C 64 einem Reset durchgeführt hat, aktiv.
Es gibt nun drei Möglichkeiten, das Programm zu starten: SYS 49328, Betätigen der RESTORE-Taste oder Auslösen eines Resets (über einen Taster).
Im dritten Fall sind einige Besonderheiten zu beachten. Da bei einem Reset auch die CIAs zurückgesetzt werden, kann man nicht mehr feststellen in welchem Bereich der Video-Controller arbeitete. Deshalb müssen Sie zunächst mit Hilfe der Funktionstasten den richtigen Bereich suchen. Der Druckvorgang wird durch die RETURN-Taste ausgelöst.
Es besteht die Möglichkeit den Druckvorgang vorzeitig abzubrechen. Zum einen durch RUN/STOP, zum anderen durch CTRL + RUN/STOP. Letzteres hat den Vorteil, daß das unterbrochene Programm fortgesetzt wird, sofern der Druck nicht durch einen Reset ausgelöst wurde.
Zum Schluß sei noch gesagt, daß über eine Million Einzelpunkte (über 125 KByte) berechnet und übertragen werden müssen, und deshalb ein Ausdruck fast sechs Minuten dauert. Dies können Sie am besten an dem in Listing 2 abgedruckten Demo-Programm testen, das bereits fünf Rasterzeilen-Interrupts und ein Sprite enthält (siehe Bild 1).
Farb-Hardcopy für Plotter VC 1520
Da das Programm für den Ascompiler geschrieben ist, den aber wahrscheinlich noch nicht jeder hat, haben wir den Objektcode als MSE-Listing abgedruckt. Sie können daher wählen, ob Sie lieber das Basic-Programm (Listing 3) abtippen und anschließend compilieren, oder ob Sie gleich das MSE-Listing »HC1520 OBJ« (Listing 4) verwenden. Beim Compilieren liegt die empfohlene Startadresse bei $8000. Es ist nicht zu empfehlen, die Basic-Version zu starten, da eine Grafik etwa 18 Stunden in Anspruch nehmen würde. Das compilierte Programm starten Sie dann mit SYS (Startadresse), die in der abgedruckten Version bei 32768 ($8000) liegt.
Es werden insgesamt 32000 Punkte pro Grafik, einzeln und in der jeweiligen Farbe ausgedruckt. Dabei ist ein Punkt nicht durch ein einfaches Aufsetzten des jeweiligen Farbstiftes definiert. Jedem Punkt entspricht eine 3x4-Matrix, in der untereinander 6 Punkte durch kurze Linien verbunden werden. Das ist auch unbedingt nötig, da die Farbstifte am Ende einer Grafik sichtlich nachlassen. Die Matrix ist in Bild 2 dargestellt. Da der Ascompiler keine Befehle zur Datenübertragung über den seriellen Port zur Verfügung stellt, mußte dies in Form eines Plottertreibers von etwa 250 Byte Länge geschehen. In Ermangelung der Befehle READ und DATA beim Ascompiler, wird der Treiber mit einem Trick in den Bereich ab $9000 geschrieben. Mit dem PRINT-Befehl wird das Maschinenprogramm auf den Bildschirm gebracht. Es ist codiert mit den Buchstaben A bis P. Ein Byte wird durch jeweils 2 Buchstaben definiert. Das Programm liest die Information direkt vom Bildschirm und schreibt sie direkt in den Speicher ab $9000.
Zum Ausdruck benötigt »HC 1520« die Startadresse der Grafik. Folgende Startadressen sind möglich:
$2000, $4000, $6000, $A000, $E000
Damit ist es in der Lage auch Bilder von Simons Basic und anderen Erweiterungen zu plotten. Die Grafik wird immer von $2000 aus auf den Drucker gebracht. Bilder aus einem anderen Bereich werden dorthin verschoben.
In der Basic-Version können nur Bilder ab $2000 geplottet werden, da im Basic die Verschieberoutine nicht arbeitet. Das Programm gliedert sich wie folgt.
| 100 bis 930: | Hauptprogramm |
| 1000 bis 1350: | Unterprogramm Punkt plotten |
| 2000 bis 2390: | Unterprogramm Plottertreiber laden |
| 3000 bis 3160: | Unterprogramm Multicolor-Grafik in Plotterfarben auf den Bildschirm |
| 4000 bis 4390: | Unterprogramm Startadresse holen und eventuell Grafik in den Bereich ab $2000 kopieren |
Hardcopy für CP 80 X
Dieses Hardcopy-Programm ist eine geänderte Fassung der im Sonderheft 4 veröffentlichten Multi-Color-Hardcopy für den Epson RX/FX 80. Geben Sie »MULTICOLOR $9« (Listing 5) mit dem MSE ein und speichern Sie es. Das Programm belegt den Speicher ab $9000, kann aber mit dem SMON leicht verschoben werden. Wenn Sie es also nach $C000 bringen wollen, verschieben Sie es zunächst mit »W 9000 91A6 C000« und ändern dann mit »V C000 C1A6 9000 9000 91A6« alle absoluten Adressen. Der Aufruf der Routine erfolgt mit:
OPEN (Filenummer),4:SYS 36864,(Filenummer),(Seite),a,b,c,d: CLOSE 4
Für (Filenummer) setzen Sie eine 0 ein, wenn Sie den User-Port benutzen, ansonsten geben Sie eine 4 ein. Der Parameter (Seite) gibt die Lage des Grafikbildschirms an und errechnet sich aus der Nummer des Grafikbildschirms mal 32. Für eine Grafik, die bei $2000 liegt ist das 32 (Nummer 1), ab $4000 die 64 (Nummer 2) etc. Die Parameter a, b, c und d geben an, wie die Bitkombinationen den Helligkeitswerten von Weiß nach Schwarz zugeordnet werden. Dabei müssen a, b, c und d den Wert der Bitkombinationen annehmen, also 0 für »00«, 1 für »01«, 2 für »10«, 3 für »11«. Der AufrufSYS 36764,4,32,2,1,3,0 gibt demnach eine ab $2000 liegende Grafik auf Filenummer 4, und den Farben Weiß für »10«, Hellgrau für »01«, Dunkelgrau für »11« und Schwarz für »00« aus. Bild 3 enthält einen Ausdruck mit den Werten »32,0,1,2,3«
10 rem*********************************
11 rem* *
12 rem* super-hardcopy *
13 rem* *
14 rem* 1985 by christian stetter *
15 rem* *
16 rem* haydnstr.17 *
17 rem* *
18 rem* 8850 donauwoerth *
19 rem* *
20 rem*********************************
100 poke 53281,006
110 poke45,140:poke46,020
120 poke47,003:poke48,021
130 poke49,250:poke50,021
140 f$(0)=" schwarz :"
150 f$(1)=" weiss :"
160 f$(2)=" rot :"
170 f$(3)=" tuerkis :"
180 f$(4)=" violett :"
190 f$(5)=" gruen :"
200 f$(6)=" blau :"
210 f$(7)=" gelb :"
220 f$(8)=" orange :"
230 f$(9)=" braun :"
240 f$(10)=" hellrot :"
250 f$(11)=" grau 1 :"
260 f$(12)=" grau 2 :"
270 f$(13)=" hellgruen :"
280 f$(14)=" hellblau :"
290 f$(15)=" grau 3 :"
300 ae%=0:print"{clr}{lblu} *** super hardcopy ***"
310 print"{down} {left} 1985 by christian stetter"
320 gosub830:gosub860:gosub890:gosub900:gosub910:gosub920:gosub930:gosub970
330 print"{home}{wht}{down}{down}{down}";:gosub830
340 geta$:ifa$=""then340
350 ifa$=chr$(157)thenae%=1:print"{up}{up}";:gosub830
360 ifa$=chr$(29)thenae%=0:print"{up}{up}";:gosub830
370 ifa$<>chr$(13)then340
380 print"{up}{up}{lblu}";:gosub830:ifae%=0then 730
390 print"{wht}";:gosub860
400 geta$:ifa$=""then400
410 ifa$=chr$(157)thenin%=0:print"{up}{up}";:gosub860
420 ifa$=chr$(29)thenin%=1:print"{up}{up}";:gosub860
430 ifa$<>chr$(13)then400
440 print"{up}{up}{lblu}";:gosub860
450 print"{wht}";:gosub890:printtab(15)"{up}";:inputga%
460 print"{up}{lblu}";:gosub890
470 print"{wht}";:gosub900:printtab(15)"{up}";:inputsa%
480 print"{up}{lblu}";:gosub900
490 print"{wht}";:gosub910:printtab(15)"{up}";:inputst$:gosub1020
500 print"{up}{lblu}";:gosub910
510 print"{wht}";:gosub920:printtab(15)"{up}";:inputgr$:gosub1100
520 print"{up}{lblu}";:gosub920
530 print"{wht}";:gosub930:poke214,11:sys58732
540 geta$:ifa$=chr$(141)then print"{up}{lblu}":gosub930:goto730
550 ifa$=chr$(13)then 580
560 ifa$<"0" or a$>"5" then 540
570 ct%=val(a$):goto 530
580 print"{lblu}";:gosub930
590 poke214,14:sys58732
600 for i=0 to 7
610 print"{wht}";f$(i)f%(i,ct%);
620 poke213,19:input"{left}{left}{left}{left}";f%(i,ct%)
630 if f%(i,ct%)<0 or f%(i,ct%)>8 then printtab(15)"{up}";:goto620
640 print"{up}{lblu}";f$(i)f%(i,ct%)
650 nexti
660 poke214,14:sys58732
670 for i=8 to 15
680 printtab(23)"{wht}";f$(i);f%(i,ct%);
690 input"{left}{left}{left}{left}";f%(i,ct%)
700 if f%(i,ct%)<0 or f%(i,ct%)>8 then printtab(38)"{up}";:goto620
710 printtab(23)"{up}{lblu}";f$(i)f%(i,ct%)
720 nexti
730 poke214,22:sys58732
740 ae%=0:print"{wht}";:gosub970
750 geta$:ifa$=""then750
760 ifa$=chr$(157)thenae%=1:print"{up}{up}";:gosub970
770 ifa$=chr$(29)thenae%=0:print"{up}{up}";:gosub970
780 ifa$<>chr$(13)then750
790 print"{up}{up}{lblu}";:gosub970:ifae%=0then 820
800 poke45,011:poke46,033
810 print"{clr}{down}{down}{down}save"chr$(34)"@0:super-hardcopy"chr$(34)",8{home}":end
820 sys05714
830 print"{down}parameter aendern: ";
840 if ae%=0thenprint"ja/{rvon}nein{rvof}":return
850 print"{rvon}ja{rvof}/nein":return
860 print"{down}interface : ";
870 ifin%=0thenprint"{rvon}centronics{rvof}/seriell":return
880 print"centronics/{rvon}seriell{rvof}":return
890 print" geraetenummer :"ga%:return
900 print" sekundaeradr. :"sa%:return
910 print" start-sequenz :";:gosub980:return
920 print" grafik-sequenz:";:gosub990:return
930 print"{down}farbcodetabelle:"ct%"{lblu}{down}"
940 for i=0 to 7
950 printf$(i)f%(i,ct%)tab(23)f$(i+8)f%(i+8,ct%)
960 nexti:return
970 print"{down} speichern: ";:goto840
980 fori=0toas%:by=st%(i):gosub1000:print" "by$;:next:print:return
990 fori=0toag%:by=gr%(i):gosub1000:print" "by$;:next:print:return
1000 by%=by/16:by$=chr$(48+by%-(by%>9)*7):by%=byand15
1010 by$=by$+chr$(48+by%-(by%>9)*7):return
1020 st$=st$+" ":as%=-1:b$="":fori=1tolen(st$)
1030 a$=mid$(st$,i,1)
1040 ifa$=" "thengosub1070:goto1060
1050 b$=b$+a$:nexti
1060 as%=as%+1:st%(as%)=by:nexti:return
1070 b$=right$("00"+b$,2):by=0
1080 forj=1to2:b%=asc(b$):b%=b%-48+(b%>64)*7
1090 b$=mid$(b$,2):by=16*by+b%:next:return
1100 gr$=gr$+" ":ag%=-1:b$="":fori=1tolen(gr$)
1110 a$=mid$(gr$,i,1)
1120 ifa$=" "thengosub1070:goto1140
1130 b$=b$+a$:nexti
1140 ag%=ag%+1:gr%(ag%)=by:nexti:return
1 v=53248
5 poke53280,5
10 fori=24576to24665:reada:pokei,a:next
20 fori=832to 895:reada:pokei,a:next
30 sys6*4096
100 print"{clr}"
110 print"{rvon}{wht} weiss {rvof}"
120 print"{rvon}{yel} gelb {rvof}"
130 print"{rvon}{lgrn} hellgruen {rvof}"
140 print"{rvon}{cyn} tuerkis {rvof}"
150 print"{rvon}{gry3} grau 3 {rvof}"
160 print"{rvon}{lred} hellrot {rvof}"
170 print"{rvon}{grn} gruen {rvof}"
180 print"{rvon}{lblu} hellblau {rvof}"
190 print"{rvon}{gry2} grau 2 {rvof}"
200 print"{rvon}{orng} orange {rvof}"
210 print"{rvon}{pur} violett {rvof}"
220 print"{rvon}{red} rot {rvof}"
230 print"{rvon}{gry1} grau 1 {rvof}"
240 print"{rvon}{blu} blau {rvof}"
250 print"{rvon}{brn} braun {rvof}"
260 print"{rvon}{blk} schwarz {rvof}"
270 print"{home}{wht}"
300 printtab(12)"abcdefghijklmnopqrstuvwxyz":print
310 printtab(12)"ABCDEFGHIJKLMNOPQRSTUVWXYZ":print
320 printtab(12)"{CBM-A}{CBM-B}{CBM-C}{CBM-D}{CBM-E}{CBM-F}{CBM-G}{CBM-H}{CBM-I}{CBM-J}{CBM-K}{CBM-L}{CBM-M}{CBM-N}{CBM-O}{CBM-P}{CBM-Q}{CBM-R}{CBM-S}{CBM-T}{CBM-U}{CBM-V}{CBM-W}{CBM-X}{CBM-Y}{CBM-Z}":print
330 printtab(12)"das super-hardcopy-programm":print
340 printtab(12)"liefert eine orginalgetreue":print
350 printtab(12)"bildwiedergabe und berueck-":print
360 printtab(12)"sichtigt dabei auch sprites":print
370 printtab(12)"und rasterzeilen-interrupts":print
372 print:print:print:print
374 fori=1to3:print" {grn}{rvon} {rvof} {rvon} {rvof} ":next
376 print"{up}{up}{up}{up}{up}{up}{up}";
380 pokev+21,1:poke2040,13:pokev,180:pokev+1,225
390 pokev+39,0:pokev+23,0:pokev+29,1:pokev+28,0
400 print
410 print" press {rvon}restore{rvof} to print"
420 fori=60to160step.4:pokev,i:next:pokev+27,1
422 print"{up} press restore to print{up}"
425 fori=161to255step.4:pokev,i:next:pokev+27,0
430 print" press {rvon}restore{rvof} to print"
440 fori=255to161step-.4:pokev,i:next:pokev+27,1
442 print"{up} press restore to print{up}"
445 fori=160to60step-.4:pokev,i:next:pokev+27,0:goto410
1000 goto1000
2000 data120,169,40,141,20,3,169,96
2002 data141,21,3,169,0,141,18,208,173
2004 data17,208,41,127,141,17,208,169
2006 data129,141,26,208,169,0,141,33
2008 data208,169,4,133,2,88,96,173,25
2010 data208,141,25,208,48,7,173,13
2012 data220,88,76,49,234,166,2,189
2014 data80,96,141,18,208,189,85,96
2016 data141,33,208,202,16,2,162,4,134
2018 data2,76,129,234,0,210,170,130
2020 data90,0,7,14,4,2,1
10000 data255,255,255,0,0,0,103,57,119,148,165,36,132,165,36,103
10010 data57,38,20,49,36,148,41,36,100,37,39,0,0,0,255,255
10020 data255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10030 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10 rem ********************************
15 rem * *
20 rem * multicolor hireshardcopy *
25 rem * *
30 rem * fuer c= 1520 plotter *
35 rem * *
40 rem * ascompiler quellcode *
45 rem * *
50 rem * empfohlener speicherbereich *
55 rem * ab $ 8000 *
60 rem * *
65 rem * (c) karl-heinz timmerbeil *
70 rem * *
75 rem * 21.01.1986 *
80 rem * *
85 rem ********************************
90 rem
100 gosub 4000
105 gosub 2000
110 gosub 3000
120 sys 36864
130 sys 36881
140 let a = 8192
150 let b = 0
160 let c = 0
170 let f = 0
180 let d = 48 + f
190 poke 37031,d
200 let n = peek(37077)
210 poke 37066,n
220 let n = peek(37078)
230 poke 37067,n
240 let n = peek(37079)
250 poke 37068,n
260 sys 37039
270 sys 37025
280 let d = b * 8
290 let s = d + c
300 let l = 0
310 let y = a
320 let d = b * 320
330 let y = y + d
340 let d = 8 * l
350 let y = y + d
360 let y = y + c
370 let x = peek(y)
380 let r = 0
390 let i = 0
400 let v = x and 128
410 let w = x and 64
420 if v = 0 then 440
430 let r = 2
440 if w = 0 then 460
450 let r = r + 1
460 gosub 1000
470 let x = peek(y)
480 let r = 0
490 let i = 1
500 let v = x and 32
510 let w = x and 16
520 if v = 0 then 540
530 let r = 2
540 if w = 0 then 560
550 let r = r + 1
560 gosub 1000
570 let x = peek(y)
580 let r = 0
590 let i = 2
600 let v = x and 8
610 let w = x and 4
620 if v = 0 then 640
630 let r = 2
640 if w = 0 then 660
650 let r = r + 1
660 gosub 1000
670 let x = peek(y)
680 let r = 0
690 let i = 3
700 let v = x and 2
710 let w = x and 1
720 if v = 0 then 740
730 let r = 2
740 if w = 0 then 760
750 let r = r + 1
760 gosub 1000
770 let l = l + 1
780 if l < 40 then 310
790 let f = f + 1
800 if f < 4 then 180
810 let c = c + 1
820 if c < 8 then 170
830 let b = b + 1
840 if b < 25 then 160
850 sys 36894
860 sys 36900
870 poke 53265,27
880 poke 53270,200
890 poke 53272,21
900 poke 53280,245
910 poke 53281,247
920 print"{clr} fertig"
930 end
1000 if f = r then 1020
1010 return
1020 let o = s * 2
1030 let q = l * 4
1040 let q = q + i
1050 let q = q * 3
1060 if q = 0 then 1080
1070 let q = q - 2
1080 let m = q
1090 gosub 1200
1100 poke 37072,t
1110 poke 37073,u
1120 poke 37074,p
1130 let m = o
1140 gosub 1200
1150 poke 37077,t
1160 poke 37078,u
1170 poke 37079,p
1180 sys 36913
1190 return
1200 let h = 100
1210 gosub 1300
1220 let t = n
1230 let h = 10
1240 gosub 1300
1250 let u = n
1260 let h = 1
1270 gosub1300
1280 let p = n
1290 return
1300 let n = 48
1310 if m < h then 1350
1320 let m = m - h
1330 let n = n + 1
1340 goto 1310
1350 return
2000 print"{clr}"
2010 print",kj,aa,if,lh,kj,ab,kc,ag,ka,ab,ca,lk,pp,ca,ma,pp,ga,kj,aa,if,lh,kj"
2020 print",ac,kc,ag,ka,ac,em,ak,ja,kj,ab,ca,md,pp,ga,kj,ac,em,ca,ja,kc,ab,ca"
2030 print",mj,pp,kc,aa,ga,ca,cj,ja,ln,mo,ja,ca,nc,pp,oi,oa,ak,na,pf,kc,ab,ca"
2040 print",mj,pp,kj,ej,ca,nc,pp,ca,cj,ja,ln,oc,ja,ca,nc,pp,oi,oa,af,na,pf,ca"
2050 print",cj,ja,ln,nn,ja,ca,nc,pp,oi,oa,af,na,pf,ca,cj,ja,ln,ni,ja,ca,nc,pp"
2060 print",oi,oa,af,na,pf,ca,cj,ja,ln,oh,ja,ca,nc,pp,oi,oa,af,na,pf,ca,cj,ja"
2070 print",ln,ma,ja,ca,nc,pp,oi,oa,af,na,pf,ca,cj,ja,ln,oc,ja,ca,nc,pp,oi,oa"
2080 print",af,na,pf,ca,mm,pp,ga,kc,ac,ca,mj,pp,kj,da,ca,nc,pp,ca,mm,pp,ga,ca"
2090 print",cj,ja,ln,mf,ja,ca,nc,pp,oi,oa,ai,na,pf,em,jn,ja,ek,cm,dc,cm,dc,en"
2100 print",cm,da,cm,cn,da,da,da,pp,en,cm,da,da,da,cm,cn,da,da,da,ek,cm,da,cm"
2110 print",dc,ek,cm,dd,cm,dc,ek,cm,dd,cm,da,ek,cm,db,cm,da,aa"
2120 let m = 36864
2130 let n = 1064
2140 let r = 0
2150 let q = 0
2160 let o = peek(n)
2170 let r = r + 1
2180 if o = 44 then 2210
2190 let n = n + 1
2200 goto 2160
2210 let n = n + 1
2220 let o = peek(n)
2230 let o = o - 1
2240 let o = o * 16
2250 let n = n + 1
2260 let p = peek(n)
2270 let p = p - 1
2280 let o = o + p
2290 poke m , o
2300 let q = q + o
2310 let m = m + 1
2320 if m = 37101 then 2340
2330 goto 2160
2340 if r = 613 then 2360
2350 goto 2370
2360 if q = 29506 then 2390
2370 print"{clr}{down}eingabefehler in printzeilen 2010 - 2110"
2380 end
2390 return
3000 print"{clr}"
3010 let n = 1024
3020 poke n , 101
3030 let n = n + 1
3040 if n = 2024 then 3060
3050 goto 3020
3060 let n = 55296
3070 poke n , 2
3080 let n = n + 1
3090 if n = 56296 then 3110
3100 goto 3070
3110 poke 53280 , 1
3120 poke 53281 , 0
3130 poke 53265 , 187
3140 poke 53270 , 216
3150 poke 53272 , 29
3160 return
4000 print"{clr}"
4010 print"{down}{down}{rght}{rght}bitte startadresse des"
4020 print"{down}{rght}{rght}farbhiresbildes eingeben"
4030 print"{down}{rght}{rght}< 2 > = $ 2000 ( # 8192 )"
4040 print"{down}{rght}{rght}< 4 > = $ 4000 ( # 16384 )"
4050 print"{down}{rght}{rght}< 6 > = $ 6000 ( # 24576 )"
4060 print"{down}{rght}{rght}< a > = $ a000 ( # 40960 )"
4070 print"{down}{rght}{rght}< e > = $ e000 ( # 57344 )"
4080 poke 198,0
4090 let b = peek (198)
4100 if b = 0 then 4090
4110 let b = peek (631)
4120 poke198,0
4130 if b = 50 then 4190
4140 if b = 52 then 4200
4150 if b = 54 then 4220
4160 if b = 65 then 4240
4170 if b = 69 then 4260
4180 goto 4080
4190 return
4200 let b = 16384
4210 goto 4280
4220 let b = 24576
4230 goto 4280
4240 let b = 40960
4250 goto 4280
4260 let b = 57344
4270 goto 4280
4280 let a = 8192
4290 poke 56334,0
4300 poke 1,53
4310 let c = peek(b)
4320 poke a , c
4330 let a = a + 1
4340 let b = b + 1
4350 if a < 16384 then 4310
4360 poke 1,55
4370 poke56334,1
4380 return
PROGRAMM : HC1520.OBJ 8000 8F4A ----------------------------------- 8000 : 20 BB 89 20 B2 86 20 15 6E 8008 : 89 20 00 90 EA 20 11 90 C9 8010 : EA A9 00 8D 3C 03 A9 20 43 8018 : 8D 3D 03 A9 00 8D 3E 03 A5 8020 : A9 00 8D 3F 03 A9 00 8D AD 8028 : 40 03 A9 00 8D 41 03 A9 96 8030 : 00 8D 46 03 A9 00 8D 47 48 8038 : 03 AD 46 03 18 69 30 8D AD 8040 : 42 03 AD 47 03 69 00 8D EF 8048 : 43 03 AD 42 03 8D A7 90 1D 8050 : A9 00 8D 57 03 AD D5 90 5E 8058 : 8D 56 03 AD 56 03 8D CA D0 8060 : 90 A9 00 8D 57 03 AD D6 69 8068 : 90 8D 56 03 AD 56 03 8D 6A 8070 : CB 90 A9 00 8D 57 03 AD E9 8078 : D7 90 8D 56 03 AD 56 03 C2 8080 : 8D CC 90 20 AF 90 EA 20 07 8088 : A1 90 EA A2 08 A9 00 8D 69 8090 : FA 03 8D FB 03 A9 08 8D A7 8098 : F0 03 AD 3E 03 8D F5 03 B7 80A0 : AD 3F 03 8D F6 03 4E F0 02 80A8 : 03 90 13 18 AD FA 03 6D 55 80B0 : F5 03 8D FA 03 AD FB 03 7D 80B8 : 6D F6 03 8D FB 03 0E F5 0F 80C0 : 03 2E F6 03 CA D0 DF AD 06 80C8 : FA 03 8D 42 03 AD FB 03 83 80D0 : 8D 43 03 AD 42 03 18 6D ED 80D8 : 40 03 8D 60 03 AD 43 03 BA 80E0 : 6D 41 03 8D 61 03 A9 00 35 80E8 : 8D 52 03 A9 00 8D 53 03 54 80F0 : AD 3C 03 8D 6C 03 AD 3D 3E 80F8 : 03 8D 6D 03 AD 3F 03 D0 00 8100 : 47 A2 08 A9 00 8D FA 03 2E 8108 : 8D FB 03 AD 3E 03 8D F0 1D 8110 : 03 A9 40 8D F5 03 A9 01 CA 8118 : 8D F6 03 4E F0 03 90 13 3A 8120 : 18 AD FA 03 6D F5 03 8D DB 8128 : FA 03 AD FB 03 6D F6 03 0C 8130 : 8D FB 03 0E F5 03 2E F6 5C 8138 : 03 CA D0 DF AD FA 03 8D AA 8140 : 42 03 AD FB 03 8D 43 03 9E 8148 : AD 6C 03 18 6D 42 03 8D FF 8150 : 6C 03 AD 6D 03 6D 43 03 06 8158 : 8D 6D 03 A2 08 A9 00 8D 9A 8160 : FA 03 8D FB 03 A9 08 8D 77 8168 : F0 03 AD 52 03 8D F5 03 0A 8170 : AD 53 03 8D F6 03 4E F0 DC 8178 : 03 90 13 18 AD FA 03 6D 25 8180 : F5 03 8D FA 03 AD FB 03 4D 8188 : 6D F6 03 8D FB 03 0E F5 DF 8190 : 03 2E F6 03 CA D0 DF AD D6 8198 : FA 03 8D 42 03 AD FB 03 53 81A0 : 8D 43 03 AD 6C 03 18 6D 5F 81A8 : 42 03 8D 6C 03 AD 6D 03 B6 81B0 : 6D 43 03 8D 6D 03 AD 6C B0 81B8 : 03 18 6D 40 03 8D 6C 03 7F 81C0 : AD 6D 03 6D 41 03 8D 6D D0 81C8 : 03 AD 6C 03 85 FE AD 6D FF 81D0 : 03 85 FF A0 00 8C 6B 03 C2 81D8 : B1 FE 8D 6A 03 A9 00 8D 52 81E0 : 5E 03 A9 00 8D 5F 03 A9 5D 81E8 : 00 8D 4C 03 A9 00 8D 4D 8E 81F0 : 03 AD 6A 03 29 80 8D 66 5E 81F8 : 03 AD 6B 03 29 00 8D 67 A5 8200 : 03 AD 6A 03 29 40 8D 68 70 8208 : 03 AD 6B 03 29 00 8D 69 B9 8210 : 03 AD 67 03 C9 00 D0 0A 18 8218 : AD 66 03 C9 00 D0 03 4C 1E 8220 : 2C 82 A9 02 8D 5E 03 A9 63 8228 : 00 8D 5F 03 AD 69 03 C9 ED 8230 : 00 D0 0A AD 68 03 C9 00 96 8238 : D0 03 4C 4E 82 AD 5E 03 7C 8240 : 18 69 01 8D 5E 03 AD 5F 72 8248 : 03 69 00 8D 5F 03 20 B5 AC 8250 : 84 AD 6C 03 85 FE AD 6D 08 8258 : 03 85 FF A0 00 8C 6B 03 4A 8260 : B1 FE 8D 6A 03 A9 00 8D DA 8268 : 5E 03 A9 00 8D 5F 03 A9 E5 8270 : 01 8D 4C 03 A9 00 8D 4D 17 8278 : 03 AD 6A 03 29 20 8D 66 E3 8280 : 03 AD 6B 03 29 00 8D 67 2D 8288 : 03 AD 6A 03 29 10 8D 68 77 8290 : 03 AD 6B 03 29 00 8D 69 41 8298 : 03 AD 67 03 C9 00 D0 0A A0 82A0 : AD 66 03 C9 00 D0 03 4C A6 82A8 : B4 82 A9 02 8D 5E 03 A9 73 82B0 : 00 8D 5F 03 AD 69 03 C9 75 82B8 : 00 D0 0A AD 68 03 C9 00 1E 82C0 : D0 03 4C D6 82 AD 5E 03 15 82C8 : 18 69 01 8D 5E 03 AD 5F FA 82D0 : 03 69 00 8D 5F 03 20 B5 34 82D8 : 84 AD 6C 03 85 FE AD 6D 90 82E0 : 03 85 FF A0 00 8C 6B 03 D2 82E8 : B1 FE 8D 6A 03 A9 00 8D 62 82F0 : 5E 03 A9 00 8D 5F 03 A9 6D 82F8 : 02 8D 4C 03 A9 00 8D 4D A0 8300 : 03 AD 6A 03 29 08 8D 66 AB 8308 : 03 AD 6B 03 29 00 8D 67 B5 8310 : 03 AD 6A 03 29 04 8D 68 9F 8318 : 03 AD 6B 03 29 00 8D 69 C9 8320 : 03 AD 67 03 C9 00 D0 0A 28 8328 : AD 66 03 C9 00 D0 03 4C 2E 8330 : 3C 83 A9 02 8D 5E 03 A9 04 8338 : 00 8D 5F 03 AD 69 03 C9 FD 8340 : 00 D0 0A AD 68 03 C9 00 A6 8348 : D0 03 4C 5E 83 AD 5E 03 9E 8350 : 18 69 01 8D 5E 03 AD 5F 82 8358 : 03 69 00 8D 5F 03 20 B5 BC 8360 : 84 AD 6C 03 85 FE AD 6D 18 8368 : 03 85 FF A0 00 8C 6B 03 5A 8370 : B1 FE 8D 6A 03 A9 00 8D EA 8378 : 5E 03 A9 00 8D 5F 03 A9 F5 8380 : 03 8D 4C 03 A9 00 8D 4D 29 8388 : 03 AD 6A 03 29 02 8D 66 03 8390 : 03 AD 6B 03 29 00 8D 67 3D 8398 : 03 AD 6A 03 29 01 8D 68 0E 83A0 : 03 AD 6B 03 29 00 8D 69 51 83A8 : 03 AD 67 03 C9 00 D0 0A B0 83B0 : AD 66 03 C9 00 D0 03 4C B6 83B8 : C4 83 A9 02 8D 5E 03 A9 14 83C0 : 00 8D 5F 03 AD 69 03 C9 85 83C8 : 00 D0 0A AD 68 03 C9 00 2E 83D0 : D0 03 4C E6 83 AD 5E 03 37 83D8 : 18 69 01 8D 5E 03 AD 5F 0A 83E0 : 03 69 00 8D 5F 03 20 B5 44 83E8 : 84 AD 52 03 18 69 01 8D 24 83F0 : 52 03 AD 53 03 69 00 8D 30 83F8 : 53 03 AD 53 03 C9 00 F0 03 8400 : 04 B0 0C 90 07 AD 52 03 9F 8408 : C9 28 B0 03 4C F0 80 AD 1B 8410 : 46 03 18 69 01 8D 46 03 A7 8418 : AD 47 03 69 00 8D 47 03 E6 8420 : AD 47 03 C9 00 F0 04 B0 64 8428 : 0C 90 07 AD 46 03 C9 04 A0 8430 : B0 03 4C 39 80 AD 40 03 19 8438 : 18 69 01 8D 40 03 AD 41 4C 8440 : 03 69 00 8D 41 03 AD 41 0F 8448 : 03 C9 00 F0 04 B0 0C 90 65 8450 : 07 AD 40 03 C9 08 B0 03 44 8458 : 4C 2F 80 AD 3E 03 18 69 41 8460 : 01 8D 3E 03 AD 3F 03 69 CC 8468 : 00 8D 3F 03 AD 3F 03 C9 D4 8470 : 00 F0 04 B0 0C 90 07 AD BC 8478 : 3E 03 C9 19 B0 03 4C 25 6C 8480 : 80 20 1E 90 EA 20 24 90 0B 8488 : EA A9 1B 8D 11 D0 A9 C8 8F 8490 : 8D 16 D0 A9 15 8D 18 D0 51 8498 : A9 F5 8D 20 D0 A9 F7 8D F8 84A0 : 21 D0 A9 65 A0 8B 20 1E 63 84A8 : AB EA A9 0D 20 D2 FF EA 43 84B0 : A2 80 6C 00 03 AD 47 03 6E 84B8 : CD 5F 03 D0 0B AD 46 03 4D 84C0 : CD 5E 03 D0 03 4C C9 84 5A 84C8 : 60 A2 08 A9 00 8D FA 03 0F 84D0 : 8D FB 03 A9 02 8D F0 03 A7 84D8 : AD 60 03 8D F5 03 AD 61 19 84E0 : 03 8D F6 03 4E F0 03 90 61 84E8 : 13 18 AD FA 03 6D F5 03 4B 84F0 : 8D FA 03 AD FB 03 6D F6 EC 84F8 : 03 8D FB 03 0E F5 03 2E 1A 8500 : F6 03 CA D0 DF AD FA 03 A2 8508 : 8D 58 03 AD FB 03 8D 59 F9 8510 : 03 A2 08 A9 00 8D FA 03 FA 8518 : 8D FB 03 A9 04 8D F0 03 0F 8520 : AD 52 03 8D F5 03 AD 53 3E 8528 : 03 8D F6 03 4E F0 03 90 A9 8530 : 13 18 AD FA 03 6D F5 03 93 8538 : 8D FA 03 AD FB 03 6D F6 34 8540 : 03 8D FB 03 0E F5 03 2E 62 8548 : F6 03 CA D0 DF AD FA 03 EA 8550 : 8D 5C 03 AD FB 03 8D 5D 4B 8558 : 03 AD 5C 03 18 6D 4C 03 CD 8560 : 8D 5C 03 AD 5D 03 6D 4D D0 8568 : 03 8D 5D 03 A2 08 A9 00 FB 8570 : 8D FA 03 8D FB 03 A9 03 71 8578 : 8D F0 03 AD 5C 03 8D F5 F4 8580 : 03 AD 5D 03 8D F6 03 4E 4B 8588 : F0 03 90 13 18 AD FA 03 61 8590 : 6D F5 03 8D FA 03 AD FB E1 8598 : 03 6D F6 03 8D FB 03 0E 51 85A0 : F5 03 2E F6 03 CA D0 DF 0B 85A8 : AD FA 03 8D 5C 03 AD FB D1 85B0 : 03 8D 5D 03 AD 5D 03 C9 97 85B8 : 00 D0 0A AD 5C 03 C9 00 5E 85C0 : D0 03 4C D6 85 AD 5C 03 3D 85C8 : 38 E9 02 8D 5C 03 AD 5D 76 85D0 : 03 E9 00 8D 5D 03 AD 5C D7 85D8 : 03 8D 54 03 AD 5D 03 8D 04 85E0 : 55 03 20 1D 86 AD 62 03 C8 85E8 : 8D D0 90 AD 64 03 8D D1 EF 85F0 : 90 AD 5A 03 8D D2 90 AD 5B 85F8 : 58 03 8D 54 03 AD 59 03 C9 8600 : 8D 55 03 20 1D 86 AD 62 7E 8608 : 03 8D D5 90 AD 64 03 8D 7E 8610 : D6 90 AD 5A 03 8D D7 90 02 8618 : 20 31 90 EA 60 A9 64 8D 52 8620 : 4A 03 A9 00 8D 4B 03 20 D6 8628 : 69 86 AD 56 03 8D 62 03 37 8630 : AD 57 03 8D 63 03 A9 0A 04 8638 : 8D 4A 03 A9 00 8D 4B 03 80 8640 : 20 69 86 AD 56 03 8D 64 E9 8648 : 03 AD 57 03 8D 65 03 A9 BB 8650 : 01 8D 4A 03 A9 00 8D 4B 72 8658 : 03 20 69 86 AD 56 03 8D 4B 8660 : 5A 03 AD 57 03 8D 5B 03 A2 8668 : 60 A9 30 8D 56 03 A9 00 7F 8670 : 8D 57 03 AD 55 03 CD 4B 5B 8678 : 03 F0 04 B0 0D 90 08 AD DB 8680 : 54 03 CD 4A 03 B0 03 4C 6D 8688 : B1 86 AD 54 03 38 ED 4A B0 8690 : 03 8D 54 03 AD 55 03 ED 3D 8698 : 4B 03 8D 55 03 AD 56 03 70 86A0 : 18 69 01 8D 56 03 AD 57 42 86A8 : 03 69 00 8D 57 03 4C 73 B7 86B0 : 86 60 A9 6E A0 8B 20 1E C2 86B8 : AB EA A9 0D 20 D2 FF EA 53 86C0 : A9 70 A0 8B 20 1E AB EA B2 86C8 : A9 0D 20 D2 FF EA A9 B3 C0 86D0 : A0 8B 20 1E AB EA A9 0D D4 86D8 : 20 D2 FF EA A9 F6 A0 8B AA 86E0 : 20 1E AB EA A9 0D 20 D2 81 86E8 : FF EA A9 39 A0 8C 20 1E 19 86F0 : AB EA A9 0D 20 D2 FF EA 8B 86F8 : A9 7C A0 8C 20 1E AB EA 10 8700 : A9 0D 20 D2 FF EA A9 BF 10 8708 : A0 8C 20 1E AB EA A9 0D 8D 8710 : 20 D2 FF EA A9 02 A0 8D 3F 8718 : 20 1E AB EA A9 0D 20 D2 B9 8720 : FF EA A9 45 A0 8D 20 1E DB 8728 : AB EA A9 0D 20 D2 FF EA C3 8730 : A9 88 A0 8D 20 1E AB EA 6F 8738 : A9 0D 20 D2 FF EA A9 CB 60 8740 : A0 8D 20 1E AB EA A9 0D 45 8748 : 20 D2 FF EA A9 0E A0 8E D9 8750 : 20 1E AB EA A9 0D 20 D2 F1 8758 : FF EA A9 00 8D 54 03 A9 12 8760 : 90 8D 55 03 A9 28 8D 56 2B 8768 : 03 A9 04 8D 57 03 A9 00 27 8770 : 8D 5E 03 A9 00 8D 5F 03 12 8778 : A9 00 8D 5C 03 A9 00 8D A9 8780 : 5D 03 AD 56 03 85 FE AD 49 8788 : 57 03 85 FF A0 00 8C 59 B1 8790 : 03 B1 FE 8D 58 03 AD 5E EE 8798 : 03 18 69 01 8D 5E 03 AD 55 87A0 : 5F 03 69 00 8D 5F 03 AD 16 87A8 : 59 03 C9 00 D0 0A AD 58 BA 87B0 : 03 C9 2C D0 03 4C CC 87 92 87B8 : AD 56 03 18 69 01 8D 56 D6 87C0 : 03 AD 57 03 69 00 8D 57 4C 87C8 : 03 4C 82 87 AD 56 03 18 4D 87D0 : 69 01 8D 56 03 AD 57 03 E9 87D8 : 69 00 8D 57 03 AD 56 03 8D 87E0 : 85 FE AD 57 03 85 FF A0 D8 87E8 : 00 8C 59 03 B1 FE 8D 58 DF 87F0 : 03 AD 58 03 38 E9 01 8D 32 87F8 : 58 03 AD 59 03 E9 00 8D 03 8800 : 59 03 A2 08 A9 00 8D FA 4B 8808 : 03 8D FB 03 A9 10 8D F0 64 8810 : 03 AD 58 03 8D F5 03 AD 50 8818 : 59 03 8D F6 03 4E F0 03 A1 8820 : 90 13 18 AD FA 03 6D F5 5F 8828 : 03 8D FA 03 AD FB 03 6D B2 8830 : F6 03 8D FB 03 0E F5 03 09 8838 : 2E F6 03 CA D0 DF AD FA B4 8840 : 03 8D 58 03 AD FB 03 8D 62 8848 : 59 03 AD 56 03 18 69 01 F2 8850 : 8D 56 03 AD 57 03 69 00 B2 8858 : 8D 57 03 AD 56 03 85 FE 99 8860 : AD 57 03 85 FF A0 00 8C 48 8868 : 5B 03 B1 FE 8D 5A 03 AD A4 8870 : 5A 03 38 E9 01 8D 5A 03 83 8878 : AD 5B 03 E9 00 8D 5B 03 B1 8880 : AD 58 03 18 6D 5A 03 8D EE 8888 : 58 03 AD 59 03 6D 5B 03 07 8890 : 8D 59 03 AE 54 03 AD 55 1F 8898 : 03 86 FE 85 FF A0 00 AD AF 88A0 : 58 03 91 FE AD 5C 03 18 B8 88A8 : 6D 58 03 8D 5C 03 AD 5D 03 88B0 : 03 6D 59 03 8D 5D 03 AD 4C 88B8 : 54 03 18 69 01 8D 54 03 95 88C0 : AD 55 03 69 00 8D 55 03 CE 88C8 : AD 55 03 C9 90 D0 0A AD 2D 88D0 : 54 03 C9 ED D0 03 4C DC E6 88D8 : 88 4C 82 87 AD 5F 03 C9 8D 88E0 : 02 D0 0A AD 5E 03 C9 65 73 88E8 : D0 03 4C F0 88 4C 01 89 6D 88F0 : AD 5D 03 C9 73 D0 0A AD 87 88F8 : 5C 03 C9 42 D0 03 4C 14 0F 8900 : 89 A9 42 A0 8E 20 1E AB BC 8908 : EA A9 0D 20 D2 FF EA A2 2C 8910 : 80 6C 00 03 60 A9 6D A0 71 8918 : 8E 20 1E AB EA A9 0D 20 24 8920 : D2 FF EA A9 00 8D 56 03 AD 8928 : A9 04 8D 57 03 A0 00 AD B2 8930 : 56 03 AE 57 03 85 FE 86 04 8938 : FF A9 65 91 FE AD 56 03 54 8940 : 18 69 01 8D 56 03 AD 57 E2 8948 : 03 69 00 8D 57 03 AD 57 A5 8950 : 03 C9 07 D0 0A AD 56 03 81 8958 : C9 E8 D0 03 4C 62 89 4C C0 8960 : 2D 89 A9 00 8D 56 03 A9 A7 8968 : D8 8D 57 03 A0 00 AD 56 AB 8970 : 03 AE 57 03 85 FE 86 FF 6B 8978 : A9 02 91 FE AD 56 03 18 30 8980 : 69 01 8D 56 03 AD 57 03 99 8988 : 69 00 8D 57 03 AD 57 03 41 8990 : C9 DB D0 0A AD 56 03 C9 E9 8998 : E8 D0 03 4C A1 89 4C 6C A3 89A0 : 89 A9 01 8D 20 D0 A9 00 1F 89A8 : 8D 21 D0 A9 BB 8D 11 D0 3D 89B0 : A9 D8 8D 16 D0 A9 1D 8D D5 89B8 : 18 D0 60 A9 6F A0 8E 20 FC 89C0 : 1E AB EA A9 0D 20 D2 FF C1 89C8 : EA A9 71 A0 8E 20 1E AB B1 89D0 : EA A9 0D 20 D2 FF EA A9 02 89D8 : 8C A0 8E 20 1E AB EA A9 9A 89E0 : 0D 20 D2 FF EA A9 A8 A0 92 89E8 : 8E 20 1E AB EA A9 0D 20 F4 89F0 : D2 FF EA A9 C8 A0 8E 20 BE 89F8 : 1E AB EA A9 0D 20 D2 FF F9 8A00 : EA A9 E8 A0 8E 20 1E AB C7 8A08 : EA A9 0D 20 D2 FF EA A9 3A 8A10 : 08 A0 8F 20 1E AB EA A9 8E 8A18 : 0D 20 D2 FF EA A9 28 A0 C8 8A20 : 8F 20 1E AB EA A9 0D 20 2D 8A28 : D2 FF EA A9 00 8D C6 00 71 8A30 : A9 00 8D 3F 03 AD C6 00 DD 8A38 : 8D 3E 03 AD 3F 03 C9 00 8E 8A40 : D0 0A AD 3E 03 C9 00 D0 69 8A48 : 03 4C 30 8A A9 00 8D 3F 1E 8A50 : 03 AD 77 02 8D 3E 03 A9 72 8A58 : 00 8D C6 00 AD 3F 03 C9 45 8A60 : 00 D0 0A AD 3E 03 C9 32 88 8A68 : D0 03 4C B4 8A AD 3F 03 7D 8A70 : C9 00 D0 0A AD 3E 03 C9 1B 8A78 : 34 D0 03 4C B5 8A AD 3F 44 8A80 : 03 C9 00 D0 0A AD 3E 03 8F 8A88 : C9 36 D0 03 4C C2 8A AD 61 8A90 : 3F 03 C9 00 D0 0A AD 3E 54 8A98 : 03 C9 41 D0 03 4C CF 8A D1 8AA0 : AD 3F 03 C9 00 D0 0A AD F1 8AA8 : 3E 03 C9 45 D0 03 4C DC 93 8AB0 : 8A 4C 2B 8A 60 A9 00 8D EB 8AB8 : 3E 03 A9 40 8D 3F 03 4C 62 8AC0 : E9 8A A9 00 8D 3E 03 A9 83 8AC8 : 60 8D 3F 03 4C E9 8A A9 B1 8AD0 : 00 8D 3E 03 A9 A0 8D 3F DB 8AD8 : 03 4C E9 8A A9 00 8D 3E 1A 8AE0 : 03 A9 E0 8D 3F 03 4C E9 B3 8AE8 : 8A A9 00 8D 3C 03 A9 20 BB 8AF0 : 8D 3D 03 A9 00 8D 0E DC 70 8AF8 : A9 35 8D 01 00 AD 3E 03 2C 8B00 : 85 FE AD 3F 03 85 FF A0 F5 8B08 : 00 8C 41 03 B1 FE 8D 40 C9 8B10 : 03 AE 3C 03 AD 3D 03 86 B8 8B18 : FE 85 FF A0 00 AD 40 03 61 8B20 : 91 FE AD 3C 03 18 69 01 BC 8B28 : 8D 3C 03 AD 3D 03 69 00 DB 8B30 : 8D 3D 03 AD 3E 03 18 69 02 8B38 : 01 8D 3E 03 AD 3F 03 69 A4 8B40 : 00 8D 3F 03 AD 3D 03 C9 9B 8B48 : 40 F0 04 B0 0C 90 07 AD D4 8B50 : 3C 03 C9 00 B0 03 4C FD D1 8B58 : 8A A9 37 8D 01 00 A9 01 EF 8B60 : 8D 0E DC 60 60 93 20 46 E7 8B68 : 45 52 54 49 47 00 93 00 D7 8B70 : 2C 4B 4A 2C 41 41 2C 49 BB 8B78 : 46 2C 4C 48 2C 4B 4A 2C 8F 8B80 : 41 42 2C 4B 43 2C 41 47 80 8B88 : 2C 4B 41 2C 41 42 2C 43 8D 8B90 : 41 2C 4C 4B 2C 50 50 2C 43 8B98 : 43 41 2C 4D 41 2C 50 50 88 8BA0 : 2C 47 41 2C 4B 4A 2C 41 80 8BA8 : 41 2C 49 46 2C 4C 48 2C B9 8BB0 : 4B 4A 00 2C 41 43 2C 4B 1B 8BB8 : 43 2C 41 47 2C 4B 41 2C C5 8BC0 : 41 43 2C 45 4D 2C 41 4B 28 8BC8 : 2C 4A 41 2C 4B 4A 2C 41 29 8BD0 : 42 2C 43 41 2C 4D 44 2C B8 8BD8 : 50 50 2C 47 41 2C 4B 4A 7C 8BE0 : 2C 41 43 2C 45 4D 2C 43 F9 8BE8 : 41 2C 4A 41 2C 4B 43 2C 7D 8BF0 : 41 42 2C 43 41 00 2C 4D 25 8BF8 : 4A 2C 50 50 2C 4B 43 2C F9 8C00 : 41 41 2C 47 41 2C 43 41 DB 8C08 : 2C 43 4A 2C 4A 41 2C 4C E6 8C10 : 4E 2C 4D 4F 2C 4A 41 2C 24 8C18 : 43 41 2C 4E 43 2C 50 50 48 8C20 : 2C 4F 49 2C 4F 41 2C 41 FE 8C28 : 4B 2C 4E 41 2C 50 46 2C FC 8C30 : 4B 43 2C 41 42 2C 43 41 65 8C38 : 00 2C 4D 4A 2C 50 50 2C CA 8C40 : 4B 4A 2C 45 4A 2C 43 41 FA 8C48 : 2C 4E 43 2C 50 50 2C 43 B0 8C50 : 41 2C 43 4A 2C 4A 41 2C 34 8C58 : 4C 4E 2C 4F 43 2C 4A 41 02 8C60 : 2C 43 41 2C 4E 43 2C 50 54 8C68 : 50 2C 4F 49 2C 4F 41 2C 66 8C70 : 41 46 2C 4E 41 2C 50 46 EC 8C78 : 2C 43 41 00 2C 43 4A 2C F5 8C80 : 4A 41 2C 4C 4E 2C 4E 4E 1C 8C88 : 2C 4A 41 2C 43 41 2C 4E 3B 8C90 : 43 2C 50 50 2C 4F 49 2C C2 8C98 : 4F 41 2C 41 46 2C 4E 41 3D 8CA0 : 2C 50 46 2C 43 41 2C 43 81 8CA8 : 4A 2C 4A 41 2C 4C 4E 2C 7A 8CB0 : 4E 49 2C 4A 41 2C 43 41 FC 8CB8 : 2C 4E 43 2C 50 50 00 2C 42 8CC0 : 4F 49 2C 4F 41 2C 41 46 B0 8CC8 : 2C 4E 41 2C 50 46 2C 43 60 8CD0 : 41 2C 43 4A 2C 4A 41 2C B4 8CD8 : 4C 4E 2C 4F 48 2C 4A 41 D2 8CE0 : 2C 43 41 2C 4E 43 2C 50 D4 8CE8 : 50 2C 4F 49 2C 4F 41 2C E6 8CF0 : 41 46 2C 4E 41 2C 50 46 6C 8CF8 : 2C 43 41 2C 43 4A 2C 4A 68 8D00 : 41 00 2C 4C 4E 2C 4D 41 D4 8D08 : 2C 4A 41 2C 43 41 2C 4E BB 8D10 : 43 2C 50 50 2C 4F 49 2C 42 8D18 : 4F 41 2C 41 46 2C 4E 41 BD 8D20 : 2C 50 46 2C 43 41 2C 43 01 8D28 : 4A 2C 4A 41 2C 4C 4E 2C FA 8D30 : 4F 43 2C 4A 41 2C 43 41 7A 8D38 : 2C 4E 43 2C 50 50 2C 4F B9 8D40 : 49 2C 4F 41 00 2C 41 46 8E 8D48 : 2C 4E 41 2C 50 46 2C 43 E0 8D50 : 41 2C 4D 4D 2C 50 50 2C 83 8D58 : 47 41 2C 4B 43 2C 41 43 D5 8D60 : 2C 43 41 2C 4D 4A 2C 50 7C 8D68 : 50 2C 4B 4A 2C 44 41 2C 2D 8D70 : 43 41 2C 4E 43 2C 50 50 A0 8D78 : 2C 43 41 2C 4D 4D 2C 50 AC 8D80 : 50 2C 47 41 2C 43 41 00 C2 8D88 : 2C 43 4A 2C 4A 41 2C 4C 66 8D90 : 4E 2C 4D 46 2C 4A 41 2C 83 8D98 : 43 41 2C 4E 43 2C 50 50 C8 8DA0 : 2C 4F 49 2C 4F 41 2C 41 7E 8DA8 : 49 2C 4E 41 2C 50 46 2C 7A 8DB0 : 45 4D 2C 4A 4E 2C 4A 41 E2 8DB8 : 2C 45 4B 2C 43 4D 2C 44 B7 8DC0 : 43 2C 43 4D 2C 44 43 2C DE 8DC8 : 45 4E 00 2C 43 4D 2C 44 92 8DD0 : 41 2C 43 4D 2C 43 4E 2C 10 8DD8 : 44 41 2C 44 41 2C 44 41 5A 8DE0 : 2C 50 50 2C 45 4E 2C 43 CC 8DE8 : 4D 2C 44 41 2C 44 41 2C C7 8DF0 : 44 41 2C 43 4D 2C 43 4E 28 8DF8 : 2C 44 41 2C 44 41 2C 44 A4 8E00 : 41 2C 45 4B 2C 43 4D 2C 7D 8E08 : 44 41 2C 43 4D 00 2C 44 6E 8E10 : 43 2C 45 4B 2C 43 4D 2C 8F 8E18 : 44 44 2C 43 4D 2C 44 43 C0 8E20 : 2C 45 4B 2C 43 4D 2C 44 1F 8E28 : 44 2C 43 4D 2C 44 41 2C 3F 8E30 : 45 4B 2C 43 4D 2C 44 42 5A 8E38 : 2C 43 4D 2C 44 41 2C 41 60 8E40 : 41 00 93 11 45 49 4E 47 EF 8E48 : 41 42 45 46 45 48 4C 45 17 8E50 : 52 20 49 4E 20 50 52 49 2F 8E58 : 4E 54 5A 45 49 4C 45 4E B8 8E60 : 20 32 30 31 30 20 2D 20 C5 8E68 : 32 31 31 30 00 93 00 93 49 8E70 : 00 11 11 1D 1D 42 49 54 93 8E78 : 54 45 20 53 54 41 52 54 23 8E80 : 41 44 52 45 53 53 45 20 46 8E88 : 44 45 53 00 11 1D 1D 46 3F 8E90 : 41 52 42 48 49 52 45 53 77 8E98 : 42 49 4C 44 45 53 20 45 14 8EA0 : 49 4E 47 45 42 45 4E 00 12 8EA8 : 11 1D 1D 3C 20 32 20 3E A7 8EB0 : 20 20 3D 20 24 20 32 30 A0 8EB8 : 30 30 20 20 28 20 23 20 5D 8EC0 : 20 38 31 39 32 20 29 00 39 8EC8 : 11 1D 1D 3C 20 34 20 3E D7 8ED0 : 20 20 3D 20 24 20 34 30 C8 8ED8 : 30 30 20 20 28 20 23 20 7D 8EE0 : 31 36 33 38 34 20 29 00 E9 8EE8 : 11 1D 1D 3C 20 36 20 3E 07 8EF0 : 20 20 3D 20 24 20 36 30 F0 8EF8 : 30 30 20 20 28 20 23 20 9D 8F00 : 32 34 35 37 36 20 29 00 8A 8F08 : 11 1D 1D 3C 20 41 20 3E 80 8F10 : 20 20 3D 20 24 20 41 30 3C 8F18 : 30 30 20 20 28 20 23 20 BD 8F20 : 34 30 39 36 30 20 29 00 2A 8F28 : 11 1D 1D 3C 20 45 20 3E C0 8F30 : 20 20 3D 20 24 20 45 30 6C 8F38 : 30 30 20 20 28 20 23 20 DD 8F40 : 35 37 33 34 34 20 29 00 4D 8F48 : 00 FF 22
PROGRAMM : MULTICOLOR $9 9000 91A7 ----------------------------------- 9000 : 20 FD AE 20 9E B7 86 02 94 9008 : F0 05 20 C9 FF D0 00 20 83 9010 : FD AE 20 9E B7 86 15 A9 98 9018 : 00 85 14 20 FD AE 20 9E F7 9020 : B7 86 57 20 FD AE 20 9E 07 9028 : B7 86 58 20 FD AE 20 9E 4F 9030 : B7 86 59 20 FD AE 20 9E 98 9038 : B7 86 5A A9 FF 8D 03 DD 32 9040 : AD 02 DD 09 04 8D 02 DD F7 9048 : A0 01 B9 72 91 20 4F 91 A0 9050 : 88 10 F7 A9 00 85 62 A9 1C 9058 : 00 85 63 20 E4 FF F0 03 10 9060 : 4C 3B 91 A0 03 B9 6E 91 9D 9068 : 20 4F 91 88 10 F7 A9 00 0D 9070 : 85 61 A5 14 A4 15 85 22 DF 9078 : 84 23 A4 63 A2 00 78 A9 83 9080 : 35 85 01 B1 22 95 64 C8 E0 9088 : E8 E0 04 D0 F6 A9 37 85 A0 9090 : 01 58 A9 03 85 60 A2 03 74 9098 : B5 64 A4 60 F0 06 4A 4A B1 90A0 : 88 4C 9C 90 18 29 03 95 89 90A8 : 5B CA 10 EC A0 00 A2 03 A5 90B0 : A9 00 85 5F A9 03 85 68 40 90B8 : B5 5B C5 57 D0 06 B9 76 88 90C0 : 91 18 90 17 C5 58 D0 06 D3 90C8 : B9 82 91 18 90 0D C5 59 65 90D0 : D0 06 B9 8E 91 18 90 03 06 90D8 : B9 9A 91 25 68 05 5F 85 1F 90E0 : 5F 18 26 68 18 26 68 18 67 90E8 : CA 10 CD 20 4F 91 C8 C0 58 90F0 : 08 D0 BB A6 60 CA 86 60 5B 90F8 : 10 9C 18 A5 22 69 08 85 AA 9100 : 22 A5 23 69 00 85 23 A6 F1 9108 : 61 E8 86 61 E0 28 F0 03 C4 9110 : 4C 7A 90 A6 63 E8 E8 E8 85 9118 : E8 86 63 E0 08 F0 03 4C E5 9120 : 5B 90 18 A5 14 69 40 85 17 9128 : 14 A5 15 69 01 85 15 A6 5F 9130 : 62 E8 86 62 E0 19 F0 03 95 9138 : 4C 57 90 A0 01 B9 74 91 3B 9140 : 20 4F 91 88 10 F7 20 CC 58 9148 : FF A5 02 20 C3 FF 60 A6 A9 9150 : 02 F0 03 4C D2 FF 8D 01 7A 9158 : DD A9 10 2C 0D DD F0 FB 0F 9160 : AD 00 DD 09 04 8D 00 DD 0E 9168 : 29 FB 8D 00 DD 60 05 00 E7 9170 : 4C 1B 31 1B 40 1B 00 00 D6 9178 : 00 00 00 00 00 00 00 00 79 9180 : 00 00 AA 00 55 00 AA 00 2B 9188 : 55 00 AA 00 55 00 AA 00 88 9190 : 00 00 55 00 00 00 AA 00 90 9198 : 00 00 AA 55 AA 55 AA 55 98 91A0 : AA 55 AA 55 AA 55 00 50
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen