Grafik 2000 – eine Basic-Erweiterung, die es in sich hat
Diese sehr schnelle Befehlserweiterung für den C 64 stellt Ihnen 41 neue Basic-Befehle und zwei neue Funktionen zur komfortablen Handhabung der mehrfarbigen HiRes-Grafik zur Verfügung.
Nachdruck aus 64'er Sonderheft 4/85, S. 76.
Die Befehle sind, wie die Befehle des Basic V2, abkürzbar, vollkommen in den Interpreter integriert und werden selbstverständlich als Token gespeichert. Selbst nach »THEN« ist kein Doppelpunkt notwendig.
Da die zwei unabhängigen Grafikschirme und das Programm selbst außerhalb des Basic-Speichers liegen, stehen dem Benutzer weiterhin 38911 Byte für seine Programme zur Verfügung. Auch Sprites benötigen keinen Basic-Speicherplatz.
Grafik 2000 (Listing 1) unterstützt die farbige HiRes-Grafik des C 64. Diese Grafik ist aus 320 * 200 einzeln ansprechbaren Punkten aufgebaut. Dabei befindet sich der Punkt mit den Koordinaten 0/0 in der linken oberen und der Punkt mit den Koordinaten 319/199 in der rechten unteren Ecke des Bildschirmes.
Die Farbinformation für je 8 * 8 Punkte liegt im sogenannten Video-RAM. Hier steht in den oberen vier Bits die Farbe für einen gesetzten, in den unteren vier Bits die Farbe für einen gelöschten Punkt. Für den Anwender bedeutet dies, daß in einem 8 * 8-Punkte-Kästchen nur zwei verschiedene Farben vorkommen können.
Anmerkung: Hinter dem Befehlsnamen steht die jeweilige Abkürzung, wobei »'« bedeutet, daß der folgende Buchstabe geSHIFTet eingegeben werden muß.
CLEAR CL'E
Löscht den gesamten Grafikbildschirm. Die Farbe bleibt dabei unverändert.
MODE n M'O
Wenn n=1 ist, wird der Grafikmodus eingeschaltet; ist n=0, wird auf den Textbildschirm geschaltet. Dabei wird der Groß/Grafik-Modus eingeschaltet.
COLOR p,h CO'L
Setzt die Farben im Video-RAM. Dabei steht p für die Punktfarbe und h für die Hintergrundfarbe. Es können Werte von 0 bis 15 für die Farben stehen.
CHANGE CH'A
CHANGE wechselt zwischen den beiden Grafikschirmen, indem die jeweiligen Punkte ausgetauscht werden.
INVERS IN'V
Invertiert die sichtbare Grafik. Das Video-RAM bleibt unverändert.
COMB n CO'M
COMB führt eine logische Verknüpfung zwischen den beiden Grafikseiten aus. Das Ergebnis wird in die sichtbare Grafik geschrieben. Die Verknüpfungsart ist mit n wählbar:
| n=1: | logisch OR |
| n=2: | logisch AND |
| n=3: | logisch EXOR |
GSAVE a$,dv G'S
GSAVE speichert die verdeckte Grafik mit dem Namen a$ am Gerät mit der Nummer dv ab. Die Parameter können entfallen. Beispiel:
| GSAVE "BILD 1",8 | Speichert die Grafik BILD 1 auf Diskette |
| GSAVE | Speichert die Grafik ohne Namen auf Kassette ab. |
CSAVE a$,dv C'S
Speichert das Video-RAM, die Farbe der Grafik.
Die Parameter sind analog zu GSAVE.
GLOAD a$,dv G'L
Mit GLOAD kann man die mit GSAVE gespeicherte Grafik oder das mit CSAVE gespeicherte Video-RAM laden. Da dieser Befehl keine Basic-Zeiger verändert, eignet er sich auch zum Laden von Maschinenprogrammen, auch im Direktmodus.
SPOINT x,y SP'O
Setzt einen Punkt an die Stelle x/y in der Grafik.
CPOINT x,y C'P
Löscht den Punkt x/y.
IPOINT x,y PS'C
Invertiert den Punkt x/y
PSCLINE x,y PS'C
Setzt den Punkt x/y und löscht ab diesem Punkt eine Linie nach unten bis zum Grafikrand. Der Befehl ist besonders für 3D-Grafiken geeignet.
HMARK x,y H'M
Setzt eine waagrechte »Markierung« an den Punkt x/y, das heißt, es wird eine fünf Punkt lange Linie gezeichnet, deren Mittelpunkt der Punkt x/y ist.
VMARK x,y V'M
Analog HMARK, jedoch wird eine senkrechte Markierung gezeichnet.
HLINE y H'L
Zeichnet eine durchgehende Horizontale an y.
VLINE x V'L
Zeichnet eine durchgehende Vertikale an x.
Mit den letzten vier Befehlen ist es möglich, schnell und einfach Koordinatensysteme zu zeichnen.
SLINE x0,y0,x1,y1 S'L
Zeichnet eine Linie von x0/y0 nach x1/y1. Die Richtung beziehungsweise Länge ist beliebig.
CLINE x0,y0,x1,y1 CL'I
Wie SLINE, die Linie wird jedoch gelöscht.
ILINE x0,y0,x1,y1 I'L
Wie SLINE, die Linie wird jedoch invertiert.
SCIRCLE x,y,a,b S'C
Zeichnet eine Ellipse mit dem Mittelpunkt x/y und den Radien a und b.
CCIRCLE x,y,a,b C'C
Wie SCIRCLE, die Ellipse wird jedoch gelöscht.
ICIRCLE x,y,a,b I'C
Wie SCIRCLE, die Ellipse wird jedoch invertiert.
SELLIPSE x,y,a,b,dw,sw,ew,s S'E
Zeichnet einen Ellipsenbogen mit dem Mittelpunkt x/y und den Radien a und b.
Die weiteren Parameter bedeuten:
| dw | Drehwinkel der Hauptachse einer Ellipse um den Mittelpunkt. Die Ellipse wird mit dw im Uhrzeigersinn um den Mittelpunkt x/y gedreht. |
| sw, ew | sw und ew geben den Start- und Endwinkel des Ellipsenbogens an. |
| s | gibt den Schrittwinkel an, mit dem die einzelnen Bogenpunkte errechnet werden. |
Der Befehl errechnet einzelne Punkte des Ellipsenbogens, die mit einer Linie verbunden werden. Die Winkel müssen im Bogenmaß angegeben werden. Die Drehungen werden im Uhrzeigersinn ausgeführt.
CELLIPSE x,y,a,b,dw,sw,ew,s C'E
Wie SELLIPSE, der Bogen wird jedoch gelöscht.
IELLIPSE x,y,a,b,dw,sw,ew,s I'E
Wie SELLIPSE, der Bogen wird jedoch invertiert.
STEXT r,b,h,v,a,x,y,a$ STE'X
Schreibt einen Text in den Grafikschirm.
Die einzelnen Parameter bedeuten:
| r | Schreibrichtung r = 1 von links nach rechts r = 2 von rechts nach links r = 3 von unten nach oben r = 4 von oben nach unten Die Schrift ist, der Richtung entsprechend, gekippt. |
||||||||
| b | Breite eines einzelnen Zeichens; von 1 (normal) bis 25 möglich. | ||||||||
| h | Höhe eines Zeichens (von 1 bis 25). | ||||||||
| v | Verschiebung (Kursivschrift) v gibt die Verschiebung eines Zeichens von seiner Spitze zum Fuß an. v kann Werte von 0 (normal) bis zum achtfachen (45 Grad Schräge) der Höhe h annehmen. |
||||||||
| a | Abstand der Zeichen. a kann Werte von 0 bis 199 annehmen. Für Normalschrift ist a=8. | ||||||||
| x und y | Geben die Startkoordinaten an. | ||||||||
| x/y | ist die linke obere Ecke des ersten Zeichens eines Strings. | ||||||||
| a$ | String- oder numerischer Ausdruck, der gezeichnet werden soll. Im String kann zwischen den Zeichensätzen umgeschaltet werden:
|
||||||||
| Hinweis: | Wenn ein String außerhalb des Bildschirmes und mit großen Buchstaben gezeichnet wird, kann es vorkommen, daß der Computer bis zu zwei Minuten lang keine Meldung ausgibt. Er ist nicht abgestürzt, sondern fährt anschließend mit der Programmausführung fort. |
CTEXT r,b,h,v,a,x,y,a$ C'T
Wie STEXT, der Text wird jedoch gelöscht.
ITEXT r,b,h,v,a,x,y,a$ I'T
Wie STEXT, jedoch wird der Text invertiert.
FILL x,y F'I
Malt ein durch Linien oder den Bildschirmrand begrenztes Feld beliebiger Form aus.
x/y geben die Startkoordinaten an.
DUPLICATE x0,y0,x1,y1,x,y D'U
Kopiert einen Grafikausschnitt.
Dabei geben x0/y0 und x1/y1 die Eckpunkte (links oben/rechts unten) eines Rechtecks an, das nun so kopiert wird, daß x/y die Koordinaten der linken oberen Ecke der Kopie angeben.
Der Ausschnitt wird so kopiert, daß die Kopie exakt dem Original entspricht. Das Original kann also überschrieben werden.
SCROLL r,x0,y0,x1,y1 SC'R
Rolliert einen Grafikausschnitt um einen Punkt.
Der Ausschnitt wird mit x0/y0 und x1/y1 analog zu DUPLICATE definiert.
r bestimmt die Richtung des Rollierens:
| r1 = | nach rechts |
| r2 = | nach links |
| r3 = | nach oben |
| r4 = | nach unten |
WINDOW y0,y1 W'I
WINDOW ermöglicht die gleichzeitige Anzeige von Text und Grafik. Die beiden Übergangszeilen dazu sind frei wählbar. Die Parameter geben die erste (y0) und letzte (y1) Zeile im Grafikmodus an. Der restliche Bildschirm wird im Textmodus ausgegeben. In den Grenzzeilen sollten keine Textzeichen stehen; der VIC kann diese unter Umständen nicht von der Grafik unterscheiden und unsinnige Zeichen anzeigen.
WINDOW hat Vorrang vor MODE n.
WINDOW y0,y1 wird durch WINDOW ohne Parameter abgeschaltet. Der Groß/Grafik-Textmodus wird eingeschaltet.
LOWCOL x,y,p,h LO'W
Mit LOWCOL kann man gezielt ein Byte des Video-RAMs ändern.
x/y geben die Koordinaten des entsprechenden Grafikpunktes an, p die Punkt- und h die Hintergrundfarbe.
SPRITE n,x,y SP'R
Mit Sprite kann man die Form eines Sprites anhand der Grafik definieren.
n gibt die Nummer des Sprites an (0-7) und x/y die Koordinaten der linken oberen Ecke eines Grafikausschnittes, nach dem die Spriteform gebildet wird (siehe auch DUPLICATE). Diese Form wird jedoch nicht einem Sprite zugeordnet; die Nummer n zeigt vielmehr die Blocknummer an, in den die Spriteform abgelegt wird. Dies sind die Blöcke 120 (n=0) bis 127 (n=7).
Die Blockzeiger liegen in den Adressen 50168 bis 50175 und müssen mit POKE gesetzt werden.
Hinweis: Die Spriteformen gelten nur im Grafikmodus. Im Textmodus gelten die gewohnten Regeln zum Arbeiten mit Sprites von Basic aus.
Das bedeutet, daß man mit WINDOW »gemischte« Sprites erzeugen und zwischen den zwei Definitionssätzen umschalten kann.
SSAVE n,n$,dv S'S
Speichert einen Spriteblock mit dem Namen n$ auf dv ab. Zur Nummer n (0-7) siehe auch SPRITE.
SLOAD n,n$,dv SL'O
Lädt den Spriteblock n. Die Nummer, unter der der Block gespeichert wurde, ist irrelevant. Siehe auch SPRITE und GLOAD.
Grafik 2000 besitzt vier weitere Befehle, die die meisten übrigen Befehle verändern und diese somit auf 140 verschiedene Funktionen erweitern.
PSCREEN n PSC'R
| n = 2 | Alle Befehle, die die Grafik verändern, wirken nicht mehr auf die sichtbare, sondern auf die unsichtbare, zweite Grafik. (CLEAR,COMBI,HLINE,INVERS,TEXT,LINE, CIRCLE,FILL, etc.) |
| n = 1 | Die Befehle wirken wieder auf die sichtbare Grafik. |
TSCREEN n T'S
| n = 2 | Die Befehle SPRITE, SCROLL und DUPLICATE sowie die Funktionen TEST und CTEST testen nicht in der sichtbaren, sondern in der unsichtbaren Grafik. Man kann also mit DUPLICATE Ausschnitte der einen in die andere Grafik übertragen. |
| n = 1 | schaltet zurück in die sichtbare Grafik. |
COLPLOT p,h COL'P
COLPLOT ermöglicht das mehrfarbige Zeichnen in der HiRes-Grafik.
Parameter:
| p | Punktfarbe (0-15) |
| h | Hintergrundfarbe (0-15) |
COLPLOT p,h bewirkt, daß die Befehle
| SPOINT | SLINE | SCIRCLE | SELLIPSE |
| STEXT | FILL | SCROLL | DUPLICATE |
von nun an das Video-RAM mit der Punktfarbe p setzen. Jeder gesetzte Punkt erhält also die Farbe p; die Farbe der nicht gesetzten Punkte bleibt erhalten.
COLPLOT bewirkt außerdem, daß die Befehle
| CPOINT | CLINE | CCIRCLE | CELLIPSE |
| CTEXT | SCROLL | DUPLICATE |
das Video-RAM mit der Hintergrundfarbe setzen. Jeder gelöschte Punkt erhält die Farbe h; die Farbe der gesetzten Punkte wird nicht verändert.
Die Befehle SCROLL und DUPLICATE setzen sowohl Hintergrund- als auch Punktfarbe, je nachdem, ob ein Punkt gesetzt oder gelöscht wird.
Die Option kann mit COLPLOT ohne Parameter abgeschaltet werden.
PLOT n P'L
n = 2
Die Befehle
| SPOINT | SLINE | SCIRCLE | SELLIPSE |
| STEXT | SCROLL | DUPLICATE |
arbeiten nicht mehr mit der normalen Punkt-Setzroutine, sondern mit der PSCLINE-Routine.
Es wird also unter jedem gezeichneten Punkt eine Linie bis zum Bildschirmrand gelöscht.
Es lassen sich auf einfachste Weise effektvolle 3D-Bilder auf den Bildschirm zaubern.
Dieser Befehl arbeitet unabhängig von COLPLOT.
Es wird nur die Farbe des gezeichneten Punktes gesetzt; die Löschlinie verändert keinesfalls das Video-RAM.
| n = 1 | Schaltet wieder die normale Punktsetzroutine ein. |
| Hinweis: | Die invertierten Befehle werden weder von COLPLOT noch von PLOT beeinflußt. |
Testfunktionen
var = TEST (x,y) T'E
Weist der Variablen var den Wert 1 zu, wenn der Punkt x/y gesetzt ist, ansonsten den Wert 0.
var = CTEST (x,y) CTE'S
Weist der Variablen var die sichtbare Farbe des Punktes x/y zu (0 bis 15).
Siehe auch TSCREEN.
Damit Sie sehen, was in dem Programm »Grafik 2000« steckt, folgen zwei Demo-Listings. Listing 2 demonstriert die Vielfalt der Schriftarten, die durch Variation einiger, weniger Parameter entsteht. Die so erzeugten Schrifttypen lassen sich natürlich in jede Grafik einblenden (Bild 1). Mit nur wenigen Befehlen können Sie die schönsten Bilder konstruieren. Listing 3 zeigt die Anwendung des »ILINE«-Befehls. Die dazugehörige Hardcopy zeigt Bild 2. Übrigens, in Grafik 2000 ist keine Hardcopyroutine integriert. Dafür wurde im 64'er, Ausgabe 5/86 das Programm »Super Print« veröffentlicht, das ganz hervorragend mit Grafik 2000 zusammenarbeitet und zwar auf jedem 8-Nadel-Drucker, der über ESC-Sequenzen »CHR$(27)« angesteuert wird.
Sonstiges
Grafik 2000 stellt dem Benutzer eine verbesserte SQR-Routine zur Verfügung. Sie wurde bereits in den Interpreter eingebunden.
Wenn eine Basic-Fehlermeldung ausgegeben wird, schaltet Grafik 2000 den Textmodus ein, und der Befehl WINDOW wird abgeschaltet.
Grafik 2000 verfügt über eine eigene NMI/BREAK-Routine.
Diese schaltet den Textmodus ein, den Befehl WINDOW ab und setzt Rahmen/Hintergrund- und Schriftfarben.
Diese Farbe kann man durch POKE selbst bestimmen:
POKE 51071,Hintergrundfarbe
POKE 51079,Schriftfarbe
Die Farben werden bereits beim Drücken der RESTORE-Taste ohne die RUN/STOP-Taste gesetzt.
Das Programm wird hierbei nicht unterbrochen.
Während der Computer Befehle ausführt (ausgenommen ELLIPSE), kann man ihn durch nichts in seiner Arbeit stören.
Auch RUN/STOP-RESTORE ist erst nach dem Ausführen eines solchen Befehls möglich.
(Frank-Rüdiger Brendel/ah)PROGRAMM : GRAFIK 2000 0801 2298 ----------------------------------- 0801 : 30 08 C1 07 9E 20 32 30 9B 0809 : 39 38 0D 0D 0D 0D 05 47 1F 0811 : 52 41 46 49 4B 20 32 30 9D 0819 : 30 30 20 42 59 20 46 52 06 0821 : 41 4E 4B 20 42 52 45 4E C9 0829 : 44 45 4C 0D 0D 0D 00 00 FE 0831 : 00 78 A9 34 85 01 A0 1F 7F 0839 : B9 34 0C 99 14 03 88 10 DE 0841 : F7 A9 16 8D 00 03 A9 C7 92 0849 : 8D 01 03 A0 07 B9 97 08 D8 0851 : 99 04 03 88 10 F7 C8 A9 F5 0859 : C4 85 15 84 14 A9 08 85 6F 0861 : FE A9 A0 85 FD A2 1A B1 CD 0869 : FD 91 14 88 D0 F9 E6 FE BB 0871 : E6 15 CA D0 F2 A9 37 85 13 0879 : 01 20 ED C7 20 24 C9 20 89 0881 : ED C7 20 86 C7 20 22 E4 FB 0889 : A0 E0 B9 2D 07 20 D2 FF 6A 0891 : C8 D0 F7 4C 9D E3 00 C4 CB 0899 : 1A C5 BB C4 99 C6 00 A6 3A 08A1 : 7A A0 04 84 0F BD 00 02 E0 08A9 : 10 07 C9 FF F0 3E E8 D0 F5 08B1 : F4 C9 20 F0 37 85 08 C9 03 08B9 : 22 F0 56 24 0F 70 2D C9 2A 08C1 : 3F D0 04 A9 99 D0 25 C9 E7 08C9 : 30 90 04 C9 3C 90 1D 84 41 08D1 : 71 A0 00 84 0B 88 86 7A 27 08D9 : CA C8 E8 BD 00 02 38 F9 DE 08E1 : 9E A0 F0 F5 C9 80 D0 30 0E 08E9 : 05 0B A4 71 E8 C8 99 FB FE 08F1 : 01 B9 FB 01 F0 57 38 E9 6C 08F9 : 3A F0 04 C9 49 D0 02 85 14 0901 : 0F 38 E9 55 D0 9F 85 08 81 0909 : BD 00 02 F0 DF C5 08 F0 93 0911 : DB C8 99 FB 01 E8 D0 F0 B3 0919 : A6 7A E6 0B C8 B9 9D A0 29 0921 : 10 FA B9 9E A0 D0 B4 A0 95 0929 : FF CA C8 E8 BD 00 02 38 31 0931 : F9 A2 C5 F0 F5 C9 80 F0 9C 0939 : AF A6 7A E6 0B C8 B9 A1 D8 0941 : C5 10 FA B9 A2 C5 D0 E4 69 0949 : BD 00 02 10 9D 99 FD 01 2A 0951 : C6 7B A9 FF 85 7A 60 4C 85 0959 : A5 A9 20 73 00 20 C4 C4 E7 0961 : 4C AE A7 F0 F0 E9 80 90 8E 0969 : EE C9 23 B0 11 C9 0B F0 88 0971 : 27 0A A8 B9 0D A0 48 B9 69 0979 : 0C A0 48 4C 73 00 C9 4C 68 0981 : 90 13 C9 75 B0 0F E9 4B 7E 0989 : 0A A8 B9 51 C5 48 B9 50 A6 0991 : C5 48 4C 73 00 4C 0E A8 E8 0999 : 20 73 00 20 9E AD 20 79 42 09A1 : 00 C9 89 F0 05 A9 A7 20 83 09A9 : FF AE A5 61 D0 03 4C 3B 62 09B1 : A9 20 79 00 B0 AD 4C A0 B4 09B9 : A8 C9 CC B0 05 29 FF 4C C1 09C1 : 1A A7 C9 FF D0 03 4C F3 5F 09C9 : A6 24 0F 30 F9 38 E9 CB EC 09D1 : AA 84 49 A0 FF CA F0 08 4E 09D9 : C8 B9 A2 C5 10 FA 30 F5 65 09E1 : C8 B9 A2 C5 10 03 4C EF 11 09E9 : A6 20 47 AB 4C 41 C5 EC A6 09F1 : C7 1B C8 78 C8 3D C8 40 A1 09F9 : C8 43 C8 53 C8 5F C8 6C 83 0A01 : C8 CB C8 BC C8 ED C8 14 C0 0A09 : C9 23 C9 29 C9 3A C9 85 9C 0A11 : C9 88 C9 8B C9 7F CA 82 CB 0A19 : CA 85 CA 0F CB 12 CB 15 E1 0A21 : CB 83 CB 86 CB 89 CB 28 FA 0A29 : CE 5D C9 3E CE 70 CE 04 94 0A31 : CA CB CE 45 CA 41 CF 5C EC 0A39 : CF 6A CF E2 CF 7C CF BD 29 0A41 : CF 43 4C 45 41 D2 43 4F C4 0A49 : 4C 4F D2 4D 4F 44 C5 49 5C 0A51 : 50 4F 49 4E D4 43 50 4F AC 0A59 : 49 4E D4 53 50 4F 49 4E AA 0A61 : D4 50 53 43 4C 49 4E C5 6E 0A69 : 48 4C 49 4E C5 56 4C 49 C6 0A71 : 4E C5 48 4D 41 52 CB 56 E0 0A79 : 4D 41 52 CB 47 53 41 56 36 0A81 : C5 47 4C 4F 41 C4 43 48 BF 0A89 : 41 4E 47 C5 43 4F 4D C2 E5 0A91 : 4C 4F 57 43 4F CC 49 4C DC 0A99 : 49 4E C5 43 4C 49 4E C5 B7 0AA1 : 53 4C 49 4E C5 49 54 45 B9 0AA9 : 58 D4 43 54 45 58 D4 53 D8 0AB1 : 54 45 58 D4 49 43 49 52 D1 0AB9 : 43 4C C5 43 43 49 52 43 4A 0AC1 : 4C C5 53 43 49 52 43 4C FA 0AC9 : C5 49 45 4C 4C 49 50 53 05 0AD1 : C5 43 45 4C 4C 49 50 53 0A 0AD9 : C5 53 45 4C 4C 49 50 53 1A 0AE1 : C5 46 49 4C CC 49 4E 56 A2 0AE9 : 45 52 D3 53 43 52 4F 4C 53 0AF1 : CC 44 55 50 4C 49 43 41 DD 0AF9 : 54 C5 43 4F 4C 50 4C 4F 02 0B01 : D4 57 49 4E 44 4F D7 50 5C 0B09 : 4C 4F D4 54 53 43 52 45 E0 0B11 : 45 CE 50 53 43 52 45 45 A2 0B19 : CE 43 53 41 56 C5 53 50 07 0B21 : 52 49 54 C5 53 53 41 56 67 0B29 : C5 53 4C 4F 41 C4 54 45 AB 0B31 : 53 D4 43 54 45 53 D4 00 8C 0B39 : A9 00 85 0D 20 73 00 08 93 0B41 : C9 BA D0 0D 28 20 73 00 8E 0B49 : 20 F1 AE 20 93 CD 4C 8D 05 0B51 : AD C9 F5 F0 08 C9 F6 F0 0B 0B59 : 0B 28 4C 8D AE 28 20 EC C4 0B61 : C6 4C A2 B3 28 20 EC C6 31 0B69 : A2 0F 98 F0 02 A2 F0 86 DD 0B71 : 02 A5 FE 38 E9 E0 20 D2 D8 0B79 : C7 A0 00 B1 FD 25 02 C9 6B 0B81 : 10 90 04 4A 4A 4A 4A A8 95 0B89 : 4C A2 B3 20 73 00 20 FA C5 0B91 : AE A9 B2 48 A9 47 48 20 00 0B99 : 26 C7 68 68 86 02 20 F7 B3 0BA1 : AE 20 E1 C7 20 F2 CF 85 B4 0BA9 : 02 A0 00 B1 FD 25 02 F0 25 0BB1 : 01 C8 4C E7 C7 8A 30 0A CC 0BB9 : 86 02 20 CE CE A6 02 4C E5 0BC1 : 3A A4 4C 74 A4 20 EB B7 59 0BC9 : E0 C8 B0 0F A5 15 C9 01 47 0BD1 : 90 08 D0 07 A5 14 C9 40 1D 0BD9 : B0 01 60 68 68 60 A9 33 C6 0BE1 : 85 01 B1 6A 85 FC A9 34 F0 0BE9 : 85 01 60 48 8A 48 98 48 EE 0BF1 : A9 7F 8D 0D DD AC 0D DD 92 0BF9 : 10 03 4C 72 FE 20 BC F6 BE 0C01 : 20 E1 FF D0 1A A0 1F B9 C2 0C09 : 94 C7 99 14 03 88 10 F7 0E 0C11 : 20 A3 FD 20 18 E5 20 86 C4 0C19 : C7 20 CE CE 6C 02 A0 20 17 0C21 : 86 C7 4C 72 FE A9 06 8D 5D 0C29 : 20 D0 8D 21 D0 A9 01 8D B2 0C31 : 86 02 60 31 EA 66 C7 4C 90 0C39 : C7 4A F3 91 F2 0E F2 50 60 0C41 : F2 33 F3 57 F1 CA F1 ED CE 0C49 : F6 3E F1 2F F3 66 FE A5 7A 0C51 : F4 ED F5 A9 FC 8D FA FF 16 0C59 : 8D FA BF A9 FF 8D FB FF E5 0C61 : 8D FB BF A9 40 8D FC FF 75 0C69 : 8D FC BF 60 A5 FE 38 E9 77 0C71 : E0 4A 66 FD 4A 66 FD 4A 34 0C79 : 66 FD 18 69 C0 85 FE 60 06 0C81 : 78 A9 34 85 01 60 A9 37 B4 0C89 : 85 01 58 60 A9 E0 85 FE 67 0C91 : A9 00 85 FD A8 A2 20 91 9F 0C99 : FD C8 D0 FB E6 FE CA D0 E1 0CA1 : F6 4C B4 C7 20 9E B7 8A CE 0CA9 : C9 10 B0 75 0A 0A 0A 0A 82 0CB1 : 85 02 20 F1 B7 8A C9 10 95 0CB9 : B0 67 60 20 05 C8 05 02 E8 0CC1 : A2 C0 86 FE A0 00 84 FD 5D 0CC9 : A2 03 91 FD C8 D0 FB E6 E2 0CD1 : FE CA D0 F6 A2 E8 9D FF 2F 0CD9 : C2 CA D0 FA 60 A9 C0 2C 42 0CE1 : A9 80 2C A9 00 85 09 20 9B 0CE9 : 26 C7 20 E1 C7 20 4F D0 93 0CF1 : 4C E7 C7 20 26 C7 20 E1 0C 0CF9 : C7 20 A7 D0 4C E7 C7 20 38 0D01 : 9E B7 E0 C8 B0 F6 20 E1 D3 0D09 : C7 4C 94 D1 20 8A AD 20 A3 0D11 : F7 B7 20 E1 C7 4C CA D1 D6 0D19 : 20 9E B7 E0 01 90 21 F0 8D 0D21 : 03 4C 48 B2 78 AD 18 D0 AA 0D29 : 8D A3 C8 A9 0B A0 3B A2 D7 0D31 : 94 8D 18 D0 8C 11 D0 8E 5E 0D39 : 00 DD A9 60 A2 78 D0 14 F8 0D41 : 78 A9 15 A0 1B A2 97 8D 27 0D49 : 18 D0 8C 11 D0 8E 00 DD 4C 0D51 : A9 78 A2 60 8D 85 C8 8E 30 0D59 : A1 C8 58 60 20 26 C7 CA 68 0D61 : CA E0 C8 B0 97 20 E1 C7 75 0D69 : 4C FE D1 20 26 C7 A5 14 0C 0D71 : 38 E9 02 85 14 A5 15 E9 66 0D79 : 00 85 15 C9 01 90 08 D0 11 0D81 : 24 A5 14 C9 40 B0 D4 20 D3 0D89 : E1 C7 4C 47 D2 20 B4 C7 DA 0D91 : 20 09 C9 78 A2 36 86 01 AF 0D99 : A2 A0 86 FE A2 00 86 FD 4D 0DA1 : A0 C0 20 D8 FF 4C E7 C7 56 0DA9 : 20 D4 E1 A5 B9 09 01 85 53 0DB1 : B9 A9 FD 60 20 D4 E1 A9 4E 0DB9 : 01 85 B9 A9 00 20 9E F4 86 0DC1 : 4C B4 C7 20 E1 C7 4C EE C9 0DC9 : DC 20 9E B7 CA E0 03 90 35 0DD1 : 03 4C 48 B2 20 E1 C7 4C 2B 0DD9 : 1F DD 20 26 C7 86 08 20 C5 0DE1 : FD AE 20 05 C8 05 02 85 A6 0DE9 : 92 20 E1 C7 A6 08 20 11 4A 0DF1 : D0 20 CD C7 A0 00 A5 92 03 0DF9 : 91 FD 4C E7 C7 20 B4 C7 79 0E01 : 20 E1 C7 20 0B DD CA B1 36 0E09 : FD 49 FF 91 FD C8 D0 F7 36 0E11 : E6 FE CA D0 F2 A0 41 B9 F0 0E19 : FF FE 49 FF 99 FF FE 88 90 0E21 : D0 F5 4C E7 C7 A9 C0 2C 21 0E29 : A9 80 2C A9 00 85 09 20 E3 0E31 : 26 C7 86 02 20 E1 C7 A5 98 0E39 : 14 8D EE DD A5 15 8D EF A4 0E41 : DD 20 79 00 D0 1E AD F6 2F 0E49 : DD 85 02 8E F0 DD 8E F6 61 0E51 : DD A2 01 BD F4 DD 95 14 34 0E59 : BD EE DD 9D F4 DD CA 10 42 0E61 : F2 4C E9 C9 20 E7 C7 20 CD 0E69 : FD AE 20 26 C7 20 E1 C7 1F 0E71 : 8E F0 DD 8E F6 DD A2 01 AB 0E79 : B5 14 BC EE DD 9D EE DD 87 0E81 : 9D F4 DD 94 14 CA 10 F0 5C 0E89 : AE F0 DD 20 73 D2 4C E7 F9 0E91 : C7 20 9E B7 CA 8A 30 78 BA 0E99 : C9 04 B0 74 20 E1 C7 8A 64 0EA1 : 6A 6A 6A 60 D0 15 20 E1 E1 0EA9 : C7 A9 49 8D 5A D0 A9 FF 1C 0EB1 : 8D 5B D0 A2 0A A0 4C A9 9E 0EB9 : 60 D0 1E 20 05 C8 20 E1 E8 0EC1 : C7 8E 4B D0 A5 02 8D 73 44 0EC9 : D0 A9 50 8D 5A D0 A9 E1 CA 0ED1 : 8D 5B D0 A2 0F A0 20 A9 5E 0ED9 : EA 8D 66 DA 8E 57 D0 8C 7F 0EE1 : 79 D0 4C E7 C7 20 9E B7 3A 0EE9 : E0 01 F0 0F E0 02 D0 20 09 0EF1 : 20 E1 C7 A2 2C A0 30 A9 24 0EF9 : 48 D0 09 20 E1 C7 A2 20 17 0F01 : A0 A0 A9 00 8E 4F D0 8C 1B 0F09 : 52 D0 8D 53 D0 4C E7 C7 30 0F11 : 4C 48 B2 20 F1 B7 8A 38 A9 0F19 : F0 F6 C9 1A B0 F2 60 A9 B1 0F21 : C0 2C A9 80 2C A9 00 85 8D 0F29 : 09 20 F2 C9 20 6B D1 20 1D 0F31 : E7 C7 20 74 CA 85 92 20 F6 0F39 : 74 CA 85 93 20 F1 B7 A5 A2 0F41 : 93 0A 0A 0A C5 65 90 C8 F9 0F49 : 86 AE 20 F1 B7 E0 C9 B0 78 0F51 : BF 86 9C 20 FD AE 20 26 A1 0F59 : C7 86 02 A9 D0 85 FB A9 96 0F61 : 00 85 A4 85 A5 85 11 20 09 0F69 : FD AE 20 9E AD 24 0D 30 2A 0F71 : 06 20 DD BD 20 87 B4 20 08 0F79 : A6 B6 48 A5 9C 4A 85 9E B1 0F81 : A2 00 A9 A0 38 E5 9E E8 A1 0F89 : F0 08 C9 01 B0 F7 8A 69 D8 0F91 : 0B AA CA 86 9E 68 C5 9E F6 0F99 : B0 01 AA A0 00 E8 20 E1 14 0FA1 : C7 CA F0 08 B1 22 20 0E D3 0FA9 : D5 C8 D0 F5 4C E7 C7 A9 4C 0FB1 : C0 2C A9 80 2C A9 00 85 1D 0FB9 : 09 20 26 C7 86 AE A5 15 F3 0FC1 : 85 93 A5 14 85 92 20 FD 65 0FC9 : AE 20 EB B7 A5 15 D0 DC 79 0FD1 : A5 14 85 5A 86 5B 18 65 9B 0FD9 : 92 AA A5 93 69 00 C9 01 5C 0FE1 : 90 06 D0 C8 E0 40 B0 C4 1E 0FE9 : A5 92 38 E5 5A A5 93 E9 97 0FF1 : 00 90 B9 A5 AE AA 18 65 C8 0FF9 : 5B B0 B1 C9 C8 B0 AD 8A 30 1001 : 38 E5 5B 90 A7 20 E1 C7 A7 1009 : 4C 0F D7 20 D4 BB 20 FD 7E 1011 : AE 20 8A AD A5 61 60 20 4F 1019 : 6F CB F0 04 C9 8C 90 F6 5C 1021 : 4C 48 B2 A9 C0 2C A9 80 88 1029 : 2C A9 00 85 09 20 72 CB CE 1031 : 20 7D CB 20 9B BC A5 65 08 1039 : 8D 25 CE A5 64 8D 26 CE AA 1041 : 20 6F CB 20 7D CB 20 9B FE 1049 : BC A5 65 8D 27 CE A5 64 2B 1051 : 8D 28 CE 20 78 CB A2 EF FA 1059 : A0 CD 20 D4 BB 20 78 CB B9 1061 : A2 F4 A0 CD 20 6C CB A2 39 1069 : 03 A0 CE 20 6C CB A2 0D 3E 1071 : A0 CE 20 6C CB A2 F9 A0 09 1079 : CD 20 6C CB F0 A2 A2 FE 97 1081 : A0 CD 20 D4 BB A9 03 A0 01 1089 : CE 20 A2 BB 20 6B E2 A2 B6 1091 : 08 A0 CE 20 D4 BB A9 03 79 1099 : A0 CE 20 A2 BB 20 64 E2 11 10A1 : A2 03 A0 CE 20 D4 BB 20 9F 10A9 : 9B CC A5 AE 8D 23 CE A5 62 10B1 : AF 8D 24 CE A5 92 8D 21 71 10B9 : CE A5 93 8D 22 CE 20 9B 41 10C1 : CC 20 E1 C7 A5 AF D0 48 BA 10C9 : A5 AE C9 C8 B0 42 8D F0 86 10D1 : DD AA A4 92 A5 93 C9 01 9F 10D9 : 90 06 D0 34 C0 40 B0 30 58 10E1 : 8C EE DD 8D EF DD AD 24 FA 10E9 : CE D0 25 AD 23 CE C9 C8 80 10F1 : B0 1E 85 02 AC 21 CE AD BC 10F9 : 22 CE C9 01 90 06 D0 10 B1 1101 : C0 40 B0 0C 84 14 85 15 B8 1109 : 20 73 D2 A6 02 20 4F D0 6C 1111 : 20 E7 C7 A9 0D A0 CE 20 9D 1119 : A2 BB A9 FE A0 CD 20 67 AB 1121 : B8 A2 0D A0 CE 20 D4 BB 3A 1129 : 20 1B BC A9 F9 A0 CD 20 57 1131 : 5B BC AA CA F0 03 4C 0B 5D 1139 : CC 60 A9 0D A0 CE 20 A2 88 1141 : BB 20 6B E2 A2 12 A0 CE 1E 1149 : 20 D4 BB A9 0D A0 CE 20 49 1151 : A2 BB 20 64 E2 A5 61 D0 E8 1159 : 1D A2 1C A0 CE 20 D4 BB 9B 1161 : A9 EF A0 CD 20 A2 BB AD 45 1169 : 13 CE 85 66 A2 17 A0 CE 14 1171 : 20 D4 BB 4C 3B CD 20 2B 6D 1179 : BC 85 0A A9 12 A0 CE 20 51 1181 : 0F BB A2 12 A0 CE 20 D4 03 1189 : BB 20 DC CD 20 E9 CD A5 19 1191 : 61 20 2B BA 20 CA BB A9 BF 1199 : EF A0 CD 20 A2 BB 20 E9 AC 11A1 : CD A5 61 20 2B BA A9 57 7B 11A9 : A0 00 20 67 B8 20 93 CD B5 11B1 : A9 BC A0 B9 20 0F BB A9 D4 11B9 : EF A0 CD 20 28 BA 20 DC 02 11C1 : CD A5 0A 85 66 A2 1C A0 C1 11C9 : CE 20 D4 BB A9 12 A0 CE 9F 11D1 : 20 28 BA A2 17 A0 CE 20 FA 11D9 : D4 BB 20 CF CD 20 CA BB 0D 11E1 : 20 E2 CD 20 D6 CD A9 57 1B 11E9 : A0 00 20 67 B8 20 49 B8 A1 11F1 : 20 9B BC 18 A5 65 6D 25 96 11F9 : CE 85 92 A5 64 6D 26 CE CB 1201 : 85 93 A9 17 A0 CE 20 A2 E3 1209 : BB 20 D6 CD 20 CA BB 20 CB 1211 : E2 CD 20 CF CD A9 57 A0 A5 1219 : 00 20 50 B8 20 49 B8 20 C4 1221 : 9B BC 18 A5 65 6D 27 CE D1 1229 : 85 AE A5 64 6D 28 CE 85 5A 1231 : AF 60 20 2B BC F0 FA 10 DD 1239 : 03 4C 48 B2 20 CA BB A5 5D 1241 : 61 38 E9 81 08 4A 18 69 6F 1249 : 01 28 90 02 69 7F 85 61 2E 1251 : A9 04 85 67 20 C7 BB A9 CD 1259 : 57 A0 00 20 0F BB A9 5C 33 1261 : A0 00 20 67 B8 C6 61 C6 CB 1269 : 67 D0 E9 A5 61 60 A9 03 2D 1271 : A0 CE 4C 28 BA A9 08 A0 EB 1279 : CE D0 F7 A9 F4 A0 CD D0 0F 1281 : F1 A9 1C A0 CE 4C A2 BB B3 1289 : 20 0C BC 86 6F 60 00 00 A9 1291 : 00 00 00 00 00 00 00 00 92 1299 : 00 00 00 00 00 00 00 00 9A 12A1 : 00 00 00 00 00 00 00 00 A2 12A9 : 00 00 00 00 00 00 00 00 AA 12B1 : 00 00 00 00 00 00 00 00 B2 12B9 : 00 00 00 00 00 00 00 00 BA 12C1 : 00 00 00 00 00 00 00 00 C2 12C9 : 20 26 C7 86 63 A5 14 85 7E 12D1 : 61 A5 15 85 62 20 E1 C7 39 12D9 : 20 84 D8 4C E7 C7 20 F2 1E 12E1 : C9 10 02 49 40 85 09 20 F1 12E9 : 0B D1 20 FD AE 20 26 C7 B9 12F1 : 86 9C A5 14 85 92 A5 15 5F 12F9 : 85 93 20 FD AE 20 26 C7 24 1301 : 86 FB A5 14 85 A4 A5 15 AF 1309 : 85 A5 20 E1 C7 4C A2 DA C4 1311 : 20 26 C7 86 9C A5 14 85 59 1319 : A4 A5 15 85 A5 20 FD AE 37 1321 : 20 26 C7 86 FB A5 14 85 5F 1329 : 92 A5 15 85 93 20 FD AE 13 1331 : 20 26 C7 86 63 A5 14 85 E6 1339 : 61 A5 15 85 62 20 E1 C7 A1 1341 : 4C 4D DB AD 19 D0 8D 19 61 1349 : D0 30 07 AD 0D DC 58 4C 5B 1351 : 31 EA AD 12 D0 C9 FF B0 62 1359 : 0B 20 85 C8 A9 FF 8D 12 E4 1361 : D0 4C 81 EA 20 A1 C8 A9 9A 1369 : FF D0 F3 D0 0D 78 A9 31 85 1371 : A0 EA A2 00 20 2D CF 4C 72 1379 : A1 C8 20 9E B7 8A C9 C8 E3 1381 : 90 03 4C 48 B2 8D 15 CF 3A 1389 : 20 F1 B7 8A C9 C8 B0 F2 6C 1391 : 78 CD 15 CF B0 06 A2 A1 38 1399 : A0 85 D0 0B AE 15 CF 8D 7F 13A1 : 15 CF 8A A2 85 A0 A1 8E 96 13A9 : BB CE 8C C6 CE 18 69 31 7D 13B1 : 8D C9 CE A9 FF 69 33 8D 3F 13B9 : BE CE 8D B7 CE 8D 12 D0 7C 13C1 : 2E 11 D0 4E 11 D0 A2 81 9B 13C9 : A9 A4 A0 CE 8C 15 03 8D 5F 13D1 : 14 03 8E 1A D0 58 60 20 DF 13D9 : 9E B7 E0 08 B0 A4 4C FD E9 13E1 : AE 20 9E B7 CA E0 01 F0 D7 13E9 : 05 B0 97 A2 E0 2C A2 A0 BC 13F1 : 20 E1 C7 8E 0E D0 8E D6 15 13F9 : C6 4C E7 C7 20 9E B7 CA 44 1401 : E0 02 B0 E5 20 E1 C7 4C 94 1409 : 65 DC 20 09 C9 A2 00 86 C4 1411 : FD A2 C0 86 FE A2 E9 A0 4E 1419 : C3 4C D8 FF 20 38 CF 20 7C 1421 : A9 CF 20 09 C9 20 E1 C7 90 1429 : A0 3F B1 FD 99 40 BF 88 40 1431 : 10 F8 A2 80 A0 BF A9 40 A5 1439 : 85 FD 84 FE A9 36 85 01 22 1441 : A9 FD 20 D8 FF 4C E7 C7 9D 1449 : A0 DE A9 00 E8 CA F0 08 7B 1451 : 18 69 40 90 F8 C8 B0 F5 C4 1459 : 85 FD 84 FE 60 20 38 CF 65 1461 : 86 FB 20 D4 E1 A9 01 85 02 1469 : B9 A9 00 20 9E F4 20 E1 D1 1471 : C7 A6 FB 20 A9 CF A0 3F A8 1479 : B9 40 BF 91 FD 88 10 F8 CB 1481 : 30 C3 20 38 CF 20 A9 CF E6 1489 : 20 26 C7 20 E1 C7 4C 95 6B 1491 : DC 8A 29 07 85 FD 8A 29 A2 1499 : F8 4A 4A A8 B9 4D DD 85 E6 14A1 : FE A5 14 29 F8 65 FD 79 42 14A9 : 4C DD 85 FD A9 E0 D0 1D 24 14B1 : 8A 29 07 85 FD 8A 29 F8 0D 14B9 : 4A 4A A8 B9 4D DD 85 FE 61 14C1 : A5 14 29 F8 65 FD 79 4C 9E 14C9 : DD 85 FD A9 E0 65 15 65 76 14D1 : FE 85 FE A5 14 29 07 AA 02 14D9 : BD 7E DD 60 49 FF 31 FD AE 14E1 : 91 FD 20 CD C7 B1 FD 29 87 14E9 : F0 09 0F 91 FD 60 20 11 D9 14F1 : D0 A0 00 24 09 10 0A 70 B0 14F9 : 05 49 FF 31 FD 2C 51 FD 4B 1501 : 2C 11 FD 91 FD 60 11 FD 8A 1509 : 91 FD 20 CD C7 B1 FD 29 AF 1511 : 0F 09 F0 91 FD 60 86 02 14 1519 : 4C A7 D0 A5 02 29 F8 4A 03 1521 : 4A A8 A5 15 4A A5 14 6A C2 1529 : 4A 4A 18 79 92 DD 85 FD F8 1531 : B9 93 DD 69 C0 85 FE A0 CE 1539 : 00 F0 D2 24 09 10 D7 20 9B 1541 : 11 D0 A0 00 F0 AD 8A 4A 1E 1549 : 4A 4A 48 0A A8 B9 4D DD 55 1551 : 85 FE A5 14 29 F8 79 4C 1A 1559 : DD 85 FD 8A 29 07 A8 20 77 1561 : 2C D0 AA 11 FD 91 FD 8A 3C 1569 : 49 FF AA 8A C8 C0 08 B0 C2 1571 : 06 31 FD 91 FD 90 F4 68 CA 1579 : 69 00 C9 19 B0 97 48 A5 AC 1581 : FD 69 40 85 FD A5 FE 69 CF 1589 : 01 85 FE A0 FF D0 DC 2A 6F 1591 : B0 0C 30 05 A2 40 A0 3B 19 1599 : 60 A2 47 A0 49 60 30 05 93 15A1 : A2 50 A0 40 60 A2 57 A0 55 15A9 : 4E 60 A5 09 29 80 20 F0 AB 15B1 : D0 6A 8C C5 DA 09 40 20 C9 15B9 : F0 D0 6A 8C D4 DA 49 80 88 15C1 : 20 F0 D0 6A 8E CE DA 8C BF 15C9 : F8 DA 29 80 20 F0 D0 8E 73 15D1 : D1 DA 8C E4 DA A5 09 20 0E 15D9 : F0 D0 8E F2 DA 8E 05 DB 21 15E1 : 6A 49 40 20 F0 D0 8E F5 C0 15E9 : DA 8E FD DA 4C E7 C7 2A 5C 15F1 : B0 0C 30 05 A2 60 A0 47 92 15F9 : 60 A2 6A A0 40 60 30 05 2B 1601 : A2 80 A0 50 60 A2 76 A0 4C 1609 : 57 60 20 50 D1 6A 8E 86 5A 1611 : D5 8C E4 D5 8E 3E D6 49 E9 1619 : 40 20 50 D1 6A 8E 21 D6 05 1621 : 8C 11 D6 49 80 10 02 49 38 1629 : 40 20 50 D1 8C 24 D6 8E 2A 1631 : 35 D6 60 8A 29 F8 4A 4A 53 1639 : A8 B9 4C DD 85 FD 8A 29 51 1641 : 07 65 FD 85 FD B9 4D DD C9 1649 : 69 E0 85 FE A0 00 A9 FF 14 1651 : 91 FD 98 69 08 A8 90 F6 2A 1659 : E6 FE A0 38 A9 FF 91 FD CA 1661 : 98 E9 08 A8 B0 F6 4C E7 C9 1669 : C7 A5 14 AA 29 F8 85 FD CA 1671 : A5 15 18 69 E0 85 FE 8A 1F 1679 : 20 36 D0 AA A9 19 85 09 C9 1681 : A0 07 8A 11 FD 91 FD 88 DF 1689 : 10 F8 A5 FD 18 69 40 85 17 1691 : FD A5 FE 69 01 85 FE C6 13 1699 : 09 D0 E5 F0 C9 8A 4A 4A 50 16A1 : 4A 48 0A A8 B9 4D DD 85 2F 16A9 : FE A5 14 29 F8 79 4C DD EC 16B1 : 85 FD 8A 29 07 A8 20 2C 8B 16B9 : D0 85 09 A2 05 A5 09 11 A6 16C1 : FD 91 FD CA F0 1D C8 C0 FC 16C9 : 08 D0 F2 68 69 00 C9 19 F3 16D1 : B0 94 48 A5 FD 69 40 85 C9 16D9 : FD A5 FE 69 01 85 FE A0 0F 16E1 : 00 F0 DA 68 90 29 A5 15 30 16E9 : 6A A5 14 6A 4A 4A 85 09 97 16F1 : 20 11 D0 A0 00 BD 86 DD A6 16F9 : 11 FD 91 FD E0 04 90 0F BB 1701 : A4 09 C0 27 B0 09 BD 8A 9E 1709 : DD A0 08 11 FD 91 FD 4C 58 1711 : E7 C7 E4 02 90 5A AD EF C8 1719 : DD C5 15 90 09 D0 2C AD 53 1721 : EE DD C5 14 B0 25 20 B3 0E 1729 : D3 AD F2 DD D0 11 CC F1 F8 1731 : DD 90 0C 20 F5 D3 A9 D3 AA 1739 : 48 A9 96 48 4C BF D4 20 5B 1741 : E5 D3 A9 D3 48 A9 A6 48 F2 1749 : 4C 7F D4 20 B3 D3 AD F2 04 1751 : DD D0 11 CC F1 DD 90 0C DD 1759 : 20 F5 D3 A9 D3 48 A9 30 24 1761 : 48 4C 3D D4 20 E5 D3 A9 8D 1769 : D3 48 A9 40 48 4C 7F D4 61 1771 : AD EF DD C5 15 90 09 D0 E1 1779 : 2C AD EE DD C5 14 B0 25 FD 1781 : 20 B3 D3 AD F2 DD D0 11 A9 1789 : CC F1 DD 90 0C 20 F5 D3 18 1791 : A9 D3 48 A9 52 48 4C BF 83 1799 : D4 20 E5 D3 A9 D3 48 A9 1F 17A1 : 62 48 4C 03 D5 20 B3 D3 70 17A9 : AD F2 DD D0 11 CC F1 DD 5C 17B1 : 90 0C 20 F5 D3 A9 D3 48 78 17B9 : A9 74 48 4C 3D D4 20 E5 FF 17C1 : D3 A9 D3 48 A9 84 48 4C DF 17C9 : 03 D5 20 0A D4 20 22 D4 81 17D1 : D0 07 AD F3 DD C5 5E B0 F5 17D9 : F1 60 20 45 D4 20 63 D4 31 17E1 : 90 F8 D0 07 AD F1 DD C5 70 17E9 : 5E B0 EF 60 20 8A D4 20 91 17F1 : A2 D4 D0 07 AD F3 DD C5 90 17F9 : 5E B0 F1 60 20 C7 D4 20 0C 1801 : E7 D4 90 F8 D0 07 AD F1 75 1809 : DD C5 5E B0 EF 60 20 8A 0E 1811 : D4 20 22 D4 D0 07 AD F3 FC 1819 : DD C5 5E B0 F1 60 20 45 B4 1821 : D4 20 E7 D4 90 F8 D0 07 BC 1829 : AD F1 DD C5 5E B0 EF 60 EB 1831 : 20 0A D4 20 A2 D4 D0 07 B2 1839 : AD F3 DD C5 5E B0 F1 60 04 1841 : 20 C7 D4 20 63 D4 90 F8 8F 1849 : D0 07 AD F1 DD C5 5E B0 2D 1851 : EF 60 8A 38 E5 02 B0 04 53 1859 : 49 FF 69 01 8D F3 DD A8 5E 1861 : A5 14 38 ED EE DD 8D F1 D4 1869 : DD A5 15 ED EF DD B0 10 ED 1871 : AA AD F1 DD 49 FF 69 01 66 1879 : 8D F1 DD 8A 49 FF 69 00 02 1881 : 8D F2 DD 60 20 01 D4 AD C3 1889 : F2 DD 4A 85 5D AD F1 DD 74 1891 : 6A 85 5C 60 20 01 D4 85 49 1899 : 5D AD F3 DD 4A 85 5C 60 88 18A1 : A9 01 85 5E A9 00 85 5F 67 18A9 : 60 E6 02 E6 5E D0 02 E6 1C 18B1 : 5F A5 5C 18 6D F1 DD 85 E6 18B9 : 5C A5 5D 6D F2 DD 85 5D DC 18C1 : 60 D0 07 AD F3 DD C5 5C FF 18C9 : B0 12 A5 5C 38 ED F3 DD F6 18D1 : 85 5C B0 02 C6 5D E6 14 0C 18D9 : D0 02 E6 15 A6 02 20 4F A0 18E1 : D0 A5 5F 60 E6 14 D0 02 BE 18E9 : E6 15 E6 5E D0 02 E6 5F 57 18F1 : A5 5C 18 6D F3 DD 85 5C 75 18F9 : A5 5D 69 00 85 5D CD F2 08 1901 : DD 60 90 1A D0 07 AD F1 56 1909 : DD C5 5C B0 11 A5 5C 38 16 1911 : ED F1 DD 85 5C A5 5D ED 63 1919 : F2 DD 85 5D E6 02 A6 02 24 1921 : 20 4F D0 A5 5F CD F2 DD BD 1929 : 60 C6 02 E6 5E D0 02 E6 8C 1931 : 5F A5 5C 18 6D F1 DD 85 66 1939 : 5C A5 5D 6D F2 DD 85 5D 5C 1941 : 60 D0 07 AD F3 DD C5 5C 7F 1949 : B0 14 A5 5C 38 ED F3 DD 77 1951 : 85 5C B0 02 C6 5D A5 14 87 1959 : D0 02 C6 15 C6 14 A6 02 2A 1961 : 20 4F D0 A5 5F 60 A5 14 C9 1969 : D0 02 C6 15 C6 14 E6 5E F4 1971 : D0 02 E6 5F A5 5C 18 6D 60 1979 : F3 DD 85 5C A5 5D 69 00 33 1981 : 85 5D CD F2 DD 60 90 1A DE 1989 : D0 07 AD F1 DD C5 5C B0 65 1991 : 11 A5 5C 38 ED F1 DD 85 84 1999 : 5C A5 5D ED F2 DD 85 5D CC 19A1 : C6 02 A6 02 20 4F D0 A5 5D 19A9 : 5F CD F2 DD 60 C9 12 D0 A5 19B1 : 0E 66 A4 24 A5 30 03 A9 DB 19B9 : D4 2C A9 DC 85 FB 60 C9 F6 19C1 : 92 D0 0E 46 A4 24 A5 30 6A 19C9 : 03 A9 D0 2C A9 D8 85 FB CA 19D1 : 60 C9 01 D0 08 46 A5 24 02 19D9 : A4 10 EE 30 DA C9 02 D0 ED 19E1 : 08 66 A5 24 A4 10 E5 30 CD 19E9 : D1 C9 FF F0 2D 29 FF 48 69 19F1 : 10 17 0A 10 0F 0A 10 07 A1 19F9 : 68 09 40 29 7F D0 1D 68 DF 1A01 : 29 5F D0 18 0A 30 F1 68 CC 1A09 : 60 0A 10 09 0A 30 F0 68 4A 1A11 : 29 1F 4C 7D D5 0A 10 EF 5A 1A19 : 68 2C A9 5E 85 6B 8A 48 3C 1A21 : 98 48 A5 AE 20 60 D6 A9 D0 1A29 : 00 85 AF A5 6B 0A 0A 0A D0 1A31 : 85 6A A5 6B 4A 4A 4A 4A 77 1A39 : 4A 18 65 FB 85 6B A9 00 C2 1A41 : A8 85 5F 85 5D 85 5E A5 FB 1A49 : 93 0A 0A 2A 85 61 6A 85 C1 1A51 : 5C 20 3F C7 A5 93 85 9E D0 1A59 : A9 80 85 6D E6 5E D0 02 FA 1A61 : E6 5F A5 5C 18 65 AE 85 5E 1A69 : 5C A5 5D 69 00 85 5D D0 60 1A71 : 06 A5 61 C5 5C B0 0E A5 2A 1A79 : 5C 38 E5 61 85 5C B0 02 99 1A81 : C6 5D 20 47 D6 A5 92 85 D7 1A89 : 57 A5 6D 25 FC F0 20 A5 D6 1A91 : 15 C9 01 90 08 D0 18 A5 90 1A99 : 14 C9 40 B0 12 A5 11 D0 EC 1AA1 : 0E A5 02 AA C9 C8 B0 07 0B 1AA9 : 98 48 20 4F D0 68 A8 20 8B 1AB1 : 40 D6 C6 57 D0 D3 46 6D 98 1AB9 : 90 CB A5 92 0A 0A 0A 20 44 1AC1 : 6A D6 20 50 D6 C6 9E D0 68 1AC9 : 8F C8 C0 08 90 83 A5 93 D0 1AD1 : 0A 0A 0A 20 80 D6 68 A8 19 1AD9 : 68 AA A5 9C 4C 60 D6 E6 84 1AE1 : 14 D0 02 E6 15 60 A5 14 CE 1AE9 : D0 02 C6 15 C6 14 60 E6 6B 1AF1 : 02 D0 02 E6 11 60 A5 02 67 1AF9 : D0 02 C6 11 C6 02 60 18 CC 1B01 : 65 14 85 14 90 02 E6 15 33 1B09 : 60 49 FF 38 65 14 85 14 4A 1B11 : B0 02 C6 15 60 18 65 02 77 1B19 : 85 02 90 02 E6 11 60 49 0F 1B21 : FF 38 65 02 85 02 B0 02 05 1B29 : C6 11 60 A9 00 85 60 85 7E 1B31 : 61 85 62 85 63 85 64 A9 E5 1B39 : 80 85 FB 20 AD D6 A9 00 B7 1B41 : 85 FB 85 64 20 AD D6 A9 D0 1B49 : 00 85 68 60 38 26 64 B0 DA 1B51 : FA 24 FB 30 03 A5 5C 2C 89 1B59 : A5 5D 25 64 F0 EF A5 5E 65 1B61 : 85 66 A5 5F 85 67 A9 00 A9 1B69 : 85 68 66 67 66 66 A5 64 A2 1B71 : 26 66 26 67 26 68 6A 90 B1 1B79 : F7 18 24 FB 30 1B A5 60 38 1B81 : 65 66 85 60 A5 61 65 67 50 1B89 : 85 61 A5 62 65 68 85 62 E9 1B91 : A5 63 69 00 85 63 4C AE 44 1B99 : D6 A5 61 65 66 85 61 A5 AA 1BA1 : 62 65 67 85 62 A5 63 65 EC 1BA9 : 68 85 63 4C AE D6 A9 00 7E 1BB1 : 85 6C 85 6D 85 0A A5 5B 71 1BB9 : 85 6E A5 6C 85 69 A5 6D 81 1BC1 : 85 6A A5 6E 85 6B A5 0A 11 1BC9 : 20 5B D8 A5 5A 20 6C D8 8C 1BD1 : 85 6C A9 00 65 63 85 6D 59 1BD9 : A9 14 38 E5 0A 20 5B D8 18 1BE1 : A5 5B 20 6C D8 85 6E 20 7D 1BE9 : D5 D7 20 1C D8 20 F1 D7 3B 1BF1 : 20 31 D8 20 73 D2 20 E3 FA 1BF9 : D7 20 1C D8 20 01 D8 20 B0 1C01 : 31 D8 20 73 D2 20 D5 D7 4A 1C09 : 20 11 D8 20 F1 D7 20 27 99 1C11 : D8 20 73 D2 20 E3 D7 20 F1 1C19 : 11 D8 20 01 D8 20 27 D8 9B 1C21 : 20 73 D2 A4 0A C8 84 0A 51 1C29 : C0 15 90 8E A5 92 85 14 97 1C31 : A5 93 85 15 A5 AE 38 E5 20 1C39 : 5B 85 02 AA 20 4F D0 A5 38 1C41 : AE 18 65 5B 85 02 AA 20 13 1C49 : 4F D0 A5 AE 85 02 AA 18 83 1C51 : A5 92 65 5A 85 14 A5 93 9B 1C59 : 69 00 85 15 20 4F D0 A6 D3 1C61 : 02 A5 92 38 E5 5A 85 14 51 1C69 : A5 93 E9 00 85 15 20 4F 72 1C71 : D0 4C E7 C7 A5 92 18 65 74 1C79 : 69 85 14 A5 93 65 6A 85 78 1C81 : 15 60 A5 92 38 E5 69 85 E5 1C89 : 14 A5 93 E5 6A 85 15 60 F9 1C91 : A5 92 18 65 6C 8D EE DD DD 1C99 : A5 93 65 6D 8D EF DD 60 9F 1CA1 : A5 92 38 E5 6C 8D EE DD 05 1CA9 : A5 93 E5 6D 8D EF DD 60 CF 1CB1 : A5 AE 18 65 6B 85 02 AA A0 1CB9 : 4C 4F D0 A5 AE 38 E5 6B B1 1CC1 : 85 02 AA 4C 4F D0 A5 AE EB 1CC9 : 18 65 6E 8D F0 DD AA 60 4A 1CD1 : A5 AE 38 E5 6E 8D F0 DD 6B 1CD9 : AA 60 A6 FB 86 02 60 A5 22 1CE1 : A4 85 14 A5 A5 85 15 60 9D 1CE9 : A6 02 E4 FB 60 A5 15 C5 5C 1CF1 : A5 90 06 D0 04 A5 14 C5 C3 1CF9 : A4 60 0A AA BD C4 DD 85 2A 1D01 : 5C BD C5 DD 85 5D A9 00 53 1D09 : 85 5F 60 85 5E 20 8C D6 CD 1D11 : 26 61 26 62 26 63 18 A9 EF 1D19 : 00 24 61 10 01 38 65 62 B2 1D21 : 85 6E 60 20 2A DA D0 F4 A0 1D29 : 84 09 A9 40 85 66 A9 90 F8 1D31 : 85 69 A9 E0 85 5C A0 BF 2E 1D39 : 20 FF D9 20 39 DA A6 63 9F 1D41 : E0 C7 F0 0F E8 86 02 20 2E 1D49 : 2A DA D0 07 A6 02 86 63 51 1D51 : 4C A1 D8 20 7A DA 84 A4 82 1D59 : 20 92 DA 84 A5 20 92 DA 65 1D61 : A5 A5 D0 04 98 D0 58 2C 57 1D69 : 84 A5 20 7A DA A5 A4 D0 26 1D71 : 06 98 F0 05 4C 78 D9 84 99 1D79 : A4 20 57 DA 20 6A DA D0 C1 1D81 : 05 C6 63 4C BE D8 A5 A5 E0 1D89 : D0 17 A5 A4 F0 05 20 47 29 1D91 : DA D0 A8 20 4E DA 20 D2 E3 1D99 : D9 20 47 DA 20 47 DA D0 F9 1DA1 : 9A A5 A4 D0 06 20 4E DA A1 1DA9 : 4C 9C D8 20 16 DA 20 BA AC 1DB1 : D9 20 39 DA 20 42 DA 20 04 1DB9 : 2A DA D0 EF 4C 9C D8 A5 DB 1DC1 : 63 85 92 A5 A4 D0 28 20 F2 1DC9 : 7A DA F0 12 20 4E DA E6 DC 1DD1 : 63 20 D2 D9 20 47 DA C6 69 1DD9 : 63 20 92 DA D0 18 A5 92 D6 1DE1 : 85 63 20 D2 D9 20 47 DA EC 1DE9 : E6 63 4C 9C D8 C6 63 20 B9 1DF1 : 7A DA D0 E5 F0 E8 20 6A 75 1DF9 : DA F0 F2 A5 63 85 93 A5 B9 1E01 : 92 85 63 20 57 DA A5 63 DC 1E09 : C5 93 F0 05 C6 63 4C 64 F6 1E11 : D9 A5 92 85 63 D0 CE A5 55 1E19 : 63 85 92 A5 A5 D0 0F A5 00 1E21 : 92 85 63 20 D2 D9 20 4E 6C 1E29 : DA 4C 49 D9 C6 63 20 92 E4 1E31 : DA F0 EC 20 7A DA F0 E7 D4 1E39 : 20 6A DA F0 EF A5 63 85 28 1E41 : 93 A5 92 85 63 20 57 DA 46 1E49 : A5 63 C5 93 F0 05 C6 63 9D 1E51 : 4C A6 D9 A5 92 85 63 D0 A0 1E59 : CD A4 6B B1 66 85 63 B1 0D 1E61 : 69 85 61 A4 5E B1 5C A0 A0 1E69 : 00 25 0A F0 01 C8 84 62 CA 1E71 : 60 A4 6B A5 63 91 66 A5 5A 1E79 : 61 91 69 A4 5E B1 5C 85 82 1E81 : 02 A5 0A A6 62 F0 04 05 75 1E89 : 02 D0 04 49 FF 25 02 91 72 1E91 : 5C A5 6B 18 69 01 85 6B 29 1E99 : C9 50 D0 0C A0 FF A9 00 F1 1EA1 : 85 6B 84 67 84 6A 84 5D 52 1EA9 : 4A 4A 4A 85 5E A5 6B 20 5D 1EB1 : 36 D0 85 0A 60 A5 6B 38 43 1EB9 : E9 01 85 6B B0 EA A9 4E 97 1EC1 : A0 BF C4 67 D0 DA 68 68 B5 1EC9 : 60 20 11 D0 85 08 A0 00 B3 1ED1 : B1 FD 25 08 F0 01 C8 60 C6 1ED9 : A5 61 85 14 A5 62 85 15 C0 1EE1 : 60 A6 63 86 02 60 E6 61 BF 1EE9 : D0 02 E6 62 60 A5 61 D0 1B 1EF1 : 02 C6 62 C6 61 60 20 39 D4 1EF9 : DA 20 42 DA 20 11 D0 A0 DE 1F01 : 00 11 FD 91 FD 60 4C 6B 26 1F09 : D0 A6 63 F0 09 CA 86 02 28 1F11 : 20 39 DA 4C 2A DA A0 01 0C 1F19 : 60 A6 62 D0 04 A4 61 F0 4C 1F21 : F5 A4 61 D0 01 CA 88 86 70 1F29 : 15 84 14 20 42 DA 4C 2A 0A 1F31 : DA A4 61 A6 62 F0 04 C0 CA 1F39 : 3F F0 DB C8 D0 E9 E8 D0 A2 1F41 : E6 E4 9C 90 34 A5 92 85 98 1F49 : 14 A5 93 85 15 20 4E D8 03 1F51 : F0 02 B0 25 24 09 70 05 69 1F59 : 10 06 20 41 DB 20 30 DB D4 1F61 : 20 41 DB 20 3B D8 20 30 78 1F69 : DB 20 41 DB 20 57 D6 20 78 1F71 : 50 D6 20 49 D8 F0 05 90 A8 1F79 : 03 4C E7 C7 20 30 DB 20 C8 1F81 : 41 DB 20 40 D8 20 30 DB C7 1F89 : 20 41 DB 20 1B DB 85 0A FF 1F91 : 20 40 D6 20 47 D6 20 4E D3 1F99 : D8 F0 13 20 47 D6 20 1B 94 1FA1 : DB 85 09 20 40 D6 A6 02 DF 1FA9 : 20 4F D0 4C F4 DA A5 0A FF 1FB1 : 85 09 A6 02 20 4F D0 4C FD 1FB9 : D0 DA A6 02 20 F2 CF 85 C4 1FC1 : 08 A0 00 B1 FD 25 08 F0 5B 1FC9 : 03 A9 00 2C A9 80 60 A6 94 1FD1 : 92 A4 93 A5 A4 85 92 A5 5B 1FD9 : A5 85 93 86 A4 84 A5 60 BC 1FE1 : A6 9C A5 FB 85 9C 86 FB 0D 1FE9 : 60 4C E7 C7 38 A5 92 E5 29 1FF1 : A4 AA A5 93 E5 A5 A8 90 15 1FF9 : F0 18 8A 65 61 85 57 AA 3A 2001 : 98 65 62 85 58 C9 01 90 8E 2009 : 06 D0 DE E0 40 B0 DA 38 B0 2011 : A5 FB E5 9C 90 D3 18 65 94 2019 : 63 85 59 B0 CC C9 C8 B0 4B 2021 : C8 A5 62 C5 A5 90 31 D0 52 2029 : 06 A5 61 C5 A4 90 29 20 C7 2031 : 30 DB A6 61 A4 62 A5 57 C7 2039 : 85 61 A5 58 85 62 86 57 17 2041 : 84 58 A9 55 8D 01 DC A9 AE 2049 : 5C 8D 07 DC A9 47 8D 04 DC 2051 : DC A9 4E 8D 0A DC D0 14 3A 2059 : A9 55 8D 07 DC A9 5C 8D 99 2061 : 01 DC A9 47 8D 0A DC A9 14 2069 : 4E 8D 04 DC A5 63 C5 9C E0 2071 : 90 12 A9 E6 8D 2C DC 8D 1A 2079 : 2E DC A9 C6 8D 30 DC 8D 41 2081 : 32 DC D0 1B 20 41 DB A6 82 2089 : 63 A5 59 85 63 86 59 A9 E9 2091 : E6 8D 30 DC 8D 32 DC A9 17 2099 : C6 8D 2C DC 8D 2E DC 20 CA 20A1 : 55 DC 20 47 DA 20 5C DC 2F 20A9 : 20 4E DA A5 92 C5 A4 D0 E7 20B1 : 06 A5 93 C5 A5 F0 09 20 6E 20B9 : 24 DC 4C 06 DC 20 24 DC 38 20C1 : 4C E7 C7 A5 59 85 63 A5 42 20C9 : FB 85 5A E6 5A E6 63 C6 F2 20D1 : 5A C6 63 A5 5A C5 9C F0 44 20D9 : 06 20 40 DC 4C 30 DC 20 95 20E1 : 40 D8 A6 5A 86 02 20 1B B1 20E9 : DB 85 09 20 39 DA 20 42 3D 20F1 : DA 4C 4F D0 E6 A4 D0 02 BA 20F9 : E6 A5 60 A5 A4 D0 02 C6 E5 2101 : A5 C6 A4 60 E0 01 F0 08 28 2109 : A2 A0 A0 E0 A9 FE D0 06 21 2111 : A2 E0 A0 A0 A9 BE 8C EE 00 2119 : C7 8E 17 DD 8C 1B DD 8D DD 2121 : 7A C9 8D 7F C9 8C 2D D0 2A 2129 : 8C AA D1 8C D5 D1 8C D1 D2 2131 : C7 4C E7 C7 86 02 E0 B4 76 2139 : B0 F7 A5 15 C9 01 90 08 E8 2141 : D0 EF A5 14 C9 29 B0 E9 71 2149 : A5 FD 85 69 A5 FE 85 6A B9 2151 : A2 00 86 09 86 FC 20 D0 29 2159 : DC 20 D0 DC 20 D0 DC A9 64 2161 : 18 20 6A D6 E6 02 A6 FC 12 2169 : E8 E0 15 90 E7 B0 C2 A2 6D 2171 : 00 86 FB 20 1B DB 49 FF 6D 2179 : 0A A4 09 B1 69 2A 91 69 4F 2181 : 20 40 D6 A6 FB E8 E0 08 E6 2189 : 90 E7 E6 09 60 20 0B DD D7 2191 : 86 09 B1 FD AA B1 14 91 73 2199 : FD 8A 91 14 C8 D0 F3 E6 73 21A1 : 15 E6 FE C6 09 D0 EB 4C 21 21A9 : E7 C7 20 B4 C7 A2 20 A0 66 21B1 : 00 84 FD 84 14 A9 A0 85 1F 21B9 : 15 A9 E0 85 FE 60 BD 49 08 21C1 : DD 8D 2E DD 8D 40 DD 20 3F 21C9 : 0B DD CA B1 14 11 FD 91 90 21D1 : FD C8 D0 F7 E6 15 E6 FE 16 21D9 : CA D0 F0 A0 40 B1 14 11 5F 21E1 : FD 91 FD 88 10 F7 30 BF 38 21E9 : 11 31 51 00 00 40 01 80 EE 21F1 : 02 C0 03 00 05 40 06 80 80 21F9 : 07 C0 08 00 0A 40 0B 80 32 2201 : 0C C0 0D 00 0F 40 10 80 E5 2209 : 11 C0 12 00 14 40 15 80 98 2211 : 16 C0 17 00 19 40 1A 80 4A 2219 : 1B C0 1C 00 1E 80 40 20 C3 2221 : 10 08 04 02 01 F8 7C 3E BD 2229 : 1F 0F 07 03 01 80 C0 E0 CB 2231 : F0 00 00 28 00 50 00 78 9A 2239 : 00 A0 00 C8 00 F0 00 18 5A 2241 : 01 40 01 68 01 90 01 B8 BA 2249 : 01 E0 01 08 02 30 02 58 56 2251 : 02 80 02 A8 02 D0 02 F8 CA 2259 : 02 20 03 48 03 70 03 98 26 2261 : 03 C0 03 00 00 0B 0A 06 12 2269 : 14 E2 1D 8E 27 FC 30 1C 5B 2271 : 3A E1 42 3D 4B 21 53 82 E4 2279 : 5A 55 61 8E 67 23 6D 0D 07 2281 : 72 42 76 BC 79 77 7C 6D 6A 2289 : 7E 9B 7F 00 80 00 00 00 BD 2291 : 00 00 00 00 00 00 00 C9
10 COLOR14,0:MODE1:POKE53280,0:PLOT1:PSCREEN1:TSCREEN1:CLEAR
20 A$="GRAFIK 2000"
30 FORI=1TOLEN(A$)
40 COLPLOTI,0:IFI>6THENCOLPLOTI-1,0
50 STEXT1,3,3,8,0,I*26-15,60,MID$(A$,I,1)
60 NEXT
70 COLPLOT:HLINE100:PSCREEN2:CLEAR:TSCREEN2:COMB1
80 FORI=5TO319STEP5:SCIRCLEI,100,4,4:NEXT
85 DUPLICATE0,95,319,105,0,35:PSCREEN1:TSCREEN1:COMB1
90 COLPLOT13,0
91 STEXT3,1,1,0,7, 0,190,"{CTRL-B}GRAFIK 2000"
92 STEXT4,1,1,0,7,310,110,"{CTRL-B}GRAFIK 2000"
93 STEXT2,2,3,0 ,15,260,20 ,"{CTRL-B}SCHRIFT-DEMO"
100 STEXT1,1,4,0,8,80 ,120,"{CTRL-B}EINE GRAFIKERWEITERUNG"
110 STEXT1,1,1,0,16,130,160,"{CTRL-B}DIE"
120 STEXT1,2,1,4,14,20,180,"{CTRL-B}IHRESGLEICHEN SUCHT"
125 COLPLOT
130 POKE198,0:WAIT198,1:POKE198,0:WINDOW32,110:POKE53280,6:POKE53281,6
140 PRINT"{CLR}{YELLOW}BITTE 'WINDOW'+RETURN EINGEBEN!{WHITE}{14DOWN}"
READY.
0 REM LINES 10 PLOT1:PSCREEN1:COLPLOT:COLOR1,0:CLEAR:MODE1:POKE53280,0 20 X=319:Y=199 30 FORI=0TOX:ILINE0,0,I,Y:ILINEX,Y,X-I,0:NEXT 40 WINDOW40,158 50 FORI=0TO5000:NEXT:WINDOW READY.
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen