Grafik

Grafik 2000 — Eine Basic-Erweiterung, die es in sich hat

Diese 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.

Die Befehle sind, wie die Befehle des Basic V2, abkürzbar, vollkommen in den Interpreter integriert und werden selbstverständlich als Tokens 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 Bytes für seine Programme zur Verfügung. Auch Sprites benötigen keinen Basic-Speicherplatz.

v Die Erweiterung selbst arbeitet außerordentlich schnell, da zum Beispiel das Programm zum Errechnen einer Punktadresse weniger als 1/15000 Sekunde benötigt. So dauert beispielsweise das AusFILLen des leeren Bildschirmes weniger als 50 Sekunden! Auch die weiteren Befehle arbeiten ähnlich schnell.

Diese Erweiterung ist zudem sehr sicher, denn selbst grobe Fehleingaben führen nicht zum Systemabsturz und somit Programmverlust (POKEs ausgenommen).

Grundlagen

Grafik 2000 unterstützt die farbige HiRes-Grafik des C64. Diese Grafik ist aus 320 x 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ürje 8 x 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 x 8 Punkte-Kästchen nur zwei verschiedene Farben vorkommen können.

Befehlsbesprechung

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 Grafikbildschirm. Die Farbe bleibt 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$ an Gerät mit der Nummer dv ab. Die Parameter können entfallen.
Beispiel:
GASVE "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, ab.
Die Parameter sind analog zu GSAVE.
GLOAD a$,dv G’L
Mit GLOAD kann man die mit GSAVE abgespeicherte Grafik oder das mit CSAVE abgespeicherte 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 Punktx/y, das heißt, es wird eine 5 Punkte 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 mit dem 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:
ctrl/9 rvs on
ctrl/0 rvs off
ctrl/a Groß/Klein
ctrl/b Klein/Groß
Ohne Umschaltung wird mit dem Groß/Grafik-
Zeichensatz in Normalschrift gearbeitet.
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 abgespeichert 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 SUNE 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 gezeichnetem 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.

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 eigenen 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 den Zeichenbefehlen (ausgenommen ELLIPSE) kann man den Computer 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
Listing zum Programm Grafik 2000.
10 14,0:1:poke53280,0:1:1:1:
20 a$="grafik 2000"
30 fori=1tolen(a$)
40 i,0:ifi>6theni-1,0
50 1,3,3,8,0,i*26-15,60,mid$(a$,i,1)
60 next
70 :100:2::2:1
80 fori=5to319step5:i,100,4,4:next
85 0,95,319,105,0,35:1:1:1
90 13,0
100 1,1,1,0,8,108,140,"{CTRL-B}Produced 1984"
110 1,1,1,0,16,145,160,"{CTRL-B}by"
120 1,2,1,4,14,65,180,"{CTRL-B}Frank Brendel"
125 
130 poke198,0:wait198,1:poke198,0:32,110:poke53280,6:poke53281,6
140 print"{clr}{yel}bitte 'window'+return eingeben!{wht}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
0 rem    graph
10 1:1:1
20 :1:7,0
30 :poke53280,0
40 :
50 def fna(x)=cos(x)-cos(2*x)+cos(4*x)-cos(8*x)
60 mx=160:my=100
70 my:mx
80 fori=0tomystep20:mx,my-i:mx,my+i:next
90 fori=0tomxstep20:mx-i,my:mx+i,my:next
100 pa=0:ya=my-(20*fna(-mx/20))
110 forp=1to319
120 x=(p-mx)/20:y=fna(x)
130 yy=my-(y*20)
140 ifyy<0oryy>199then160
150 pa,ya,p,yy
160 pa=p:ya=yy
170 next
180 0,190:print"{home}"spc(255)spc(255)spc(255)"{down}{down}{down}{down}{down}   please press 'shift'!";
190 wait653,1:
10 poke53280,0:1::1
20 "bilda",8
30 
40 "bilda color",8
50 poke198,0:wait198,1:0
10 rem    farbstatistik
20 :1:14,0:poke53280,0
30 :
60 0:fori=199to0step-10:2,i:next
65 199:fori=29to319step30:i,198:next
70 fora=1to10:x=-6+30*a:a,0
100 y=180
120 h=rnd(1)*120
130 h=int(h*100+.5)/100
150 gosub10000:x,y-1:x,y-h-1
160 cx,cy,dx,dy
170 3,1,1,0,8,x-5,30-(h>=1)*8-(h>=10)*8-(h>=100)*8,h
180 next
9020 fori=0to20000:next:run
10000 ax=x+4:bx=x-12:cx=x+12:dx=x-4:ex=bx:fx=dx:gx=cx
10010 ey=y-4:fy=y+4:gy=fy:ay=ey-h:by=ay:cy=fy-h:dy=fy-h
10020 ax,ay,bx,by:ax,ay,cx,cy:bx,by,dx,dy:cx,cy,dx,dy
10030 bx,by,ex,ey:dx,dy,fx,fy:cx,cy,gx,gy:ex,ey,fx,fy
10040 gx,gy,fx,fy
10050 return
0 rem   tuerme
10 1:1:
20 :1:14,0:poke53280,0
60 forz= 5to1step-1:rem hinten => vorne
70 fors=15to0step-1:rem rechts => links
90 x=60+s*16-z*8
100 y=202-z*8
120 h=(z-1)*25+rnd(1)*58
150 gosub10000
180 next
190 next
210 0,0
9000 
9020 fori=0to10000:next:run
10000 ax=x+4:bx=x-12:cx=x+12:dx=x-4:ex=bx:fx=dx:gx=cx
10010 ey=y-4:fy=y+4:gy=fy:ay=ey-h:by=ay:cy=fy-h:dy=fy-h
10020 2:ax,ay,bx,by:ax,ay,cx,cy:bx,by,dx,dy:cx,cy,dx,dy
10030 1:bx,by,ex,ey:dx,dy,fx,fy:cx,cy,gx,gy:ex,ey,fx,fy
10040 gx,gy,fx,fy
10050 return
0 rem      tuerme ii
10 :1:poke53280,0
20 
30 1,0
40 1
50 forr=4to0step-1
60 forp=4to0step-1
70 x=26*p-r*10+100
80 y=-p*10-r*10+179
90 h=rnd(1)*89    :rem  max. 89
100 y=y-h
110 gosub10000
120 next:next
130 fori=0to41:i:next:
140 fori=223to319:i:next
150 50,199:160,0:180,0
160 
1000 fori=0to10000:next
1010 run
10000 2:x+ 8,y-10,x+18,y:x+ 8,y-10,x-18,y
10010 x-18,y,x- 8,y+10:x+18,y,x- 8,y+10
10020 1:x-18,y,x-18,y+h:x- 8,y+10,x- 8,y+h+10
10030 x+18,y,x+18,y+h
10040 x-18,y+h,x- 8,y+h+10:x+18,y+h,x- 8,y+h+10
10050 return
0 rem      gitter
10 :1:1,6:1::1
20 fori=0to200step10:i:next:319
30 fori=0to320step10:i:next:199
50 forx1=229to5step-50:x2=x1+42
60 fory1=29to140step50:y2=y1+42
80 fori=1tornd(1)*25:a=i-1
90 x1+a,y1-a,x2+a,y2-a,x1+i,y1-i
100 nexti,y1,x1
190 fori=0to10000:next:run
0 rem      kuchen
10 :1,6:1:1:1:
50 160,90,140,80
60 20,90,20,110:300,90,300,110
70 160,110,140,80,0,~/2,3/2*~,~/60
100 fori=1to10
110 a(i)=rnd(1)
120 next
150 fori=1to10:s=s+a(i):next
160 fa=2*~/s
175 w=0
180 fori=1to10
190 w=fa*a(i)+w
200 160,90,sin(w)*140+160,90-cos(w)*80
210 next
230 160,180
240 fori=0to10000:next:run
0 rem  schraffur i
10 1:1:1:
20 :1,0
30 1
40 200,80,100,40
50 150,100,80,90
60 2
70 
80 1
90 160,90
100 3
110 
120 fori=0to199step3:0,i,i*1.6,0:319,199-i,319-i*1.6,199:next
130 
140 1
150 1
160 fori=0to10000:next:0
0 rem     punktieren
10 1:1:1:
20 :1,0
30 1
40 200,80,100,40
50 150,100,80,90
60 2
70 
80 1
90 160,90
100 3
110 
120 fori=2to319step3:i:i+1:i:next
125 fori=2to199step3:i:i+1:i:next
130 
140 1
150 1
160 fori=0to10000:next:0
0 rem       schraffur ii
10 1:1:1:
20 :1,0
30 1
40 200,80,100,40
50 150,100,80,90
60 2
70 
80 1
90 160,90
100 3
110 
120 fori=2to319step5:i:next
125 fori=2to199step5:i:next
140 1
150 160,90
160 2
170 fori=0to10000:next:0
0 rem  ellipse-demo
10 1::1:1::1:1,0:poke53280,0
20 160,100,99,99,0,0,234,3.1
30 fori=0to5000:next
40 
50 160,100,99,99,-.34,0,260,2.1
60 fori=0to5000:next
70 
80 fork=0to~step~/11:160,100,99,50,k,0,2*~,~/30:next
90 fori=0to5000:next
100 
110 fork=0to2*~-.1step~/10:160,100,99,99,k,0,2*~+.1,2/3*~:next
120 fori=0to5000:next
130 0
0 rem    lines
10 1:1::1,0::1:poke53280,0
20 x=319:y=199
30 fori=0tox:0,0,i,y:x,y,x-i,0:next
40 40,158
50 fori=0to5000:next:
0 rem tasten :  a b   < >
10 1::1:1::1:14,6
20 "gesicht",8
30 poke650,128
40 0:20:0:23:0,0,0:
50 1
70 poke50168,120:poke50169,121
80 vi=53248
90 pokevi+2,40:pokevi+3,212:pokevi+16,2
100 pokevi+21,3
110 pokevi+23,2:pokevi+29,2
120 pokevi+39,1:pokevi+40,1
130 x=160:y=100:goto150
140 geta$:ifa$=""then140
150 ifa$="a"thenify>50theny=y-1
160 ifa$="z"thenify<229theny=y+1
170 ifa$=","thenifx>24thenx=x-1
180 ifa$="."thenifx<320thenx=x+1
190 1,x-24,y-50
200 pokevi,xand255:pokevi+16,x/256+2
210 pokevi+1,y
220 goto140
10 : 1
20 forx=0to~step~/10
100  160,100,90,50,x,0,6.5,.1
200 next
PDF Diesen Artikel als PDF herunterladen
Mastodon Diesen Artikel auf Mastodon teilen
← Vorheriger ArtikelNächster Artikel →