Hires-3 – eine Super-Grafikerweiterung zum Grafikkurs
Diese Erweiterung bietet wesentlich mehr als ein einfaches Hilfsprogramm. Sie stellt einen umfangreichen Befehlskatalog für die Erzeugung von Grafiken zur Verfügung. Und sie liefert außerdem etliche Programmierhilfen.
Es hat ein bißchen gedauert, doch nun will ich mein Versprechen einlösen: Dornröschen ihre Behäbigkeit mit einem grafikunterstützenden Maschinenprogramm zu nehmen. Zuvor noch zwei erfreuliche und eine weniger gute Nachricht: Leider ist das Grafik-Hilfsprogramm so lang, daß es Ihnen in zwei Teilen vorgelegt werden muß. Dann die beiden frohen Botschaften: Sie bekommen etwas viel besseres als nur eine kleine Grafikhilfe und die Grafikserie wird fortgesetzt.
Viele Briefe zeigten uns, daß Sie noch mehr wissen möchten. Zu speziellen Grafikthemen soll daher in lockerer Reihenfolge weiterhin Dornröschen aufgeputzt werden. Wenn sie also spezielle Grafikwünsche haben, dann schreiben Sie. Der C 64 kann viel mehr als Sie vielleicht glauben! Was Apple kann — behaupte ich mal ganz frech — das kann unser Computer auch — nur viel preiswerter.
Wieso bekommen Sie etwas viel besseres als ursprünglich vorgesehen? Das zunächst vorgesehene Grafik-Hilfsprogramm ist Ende 1983 fertiggestellt worden und hieß Hires-1. Es war der Auslöser für diese Serie. Ich hatte es entwickelt, um meine eigenen Grafikbedürfnisse (Punkte setzen, Linien ziehen etc.) auf schnelle Art mit SYS-Aufrufen zu erfüllen. Die Entwicklung blieb aber nicht stehen. Hires-2 holte sich bereits alle nötigen Werte zum Zeichnen mit den USR-Kommandos und die SYS-Befehle wurden überflüssig. Was Sie jetzt bekommen, das ist Hires-3. Aufrufe der einzelnen Routinen (es sind über 40) erfolgen mit neu geschaffenen Basic-Befehlsworten, die sowohl im Direktmodus als auch in Programmen verwendet werden. Kenner werden feststellen, daß Hires-3 sozusagen organisch gewachsen ist, wie es halt vielen großen Programmprojekten ergeht, die immer weiter verbessert werden: Nebenbei bemerkt: Momentan arbeite ich an Hires-4.
Hires-3 wurde mit dem Gedanken entworfen, das Schreiben von Grafikprogrammen einfacher zu gestalten. Deswegen sind nicht nur ausgesprochene Grafikbefehle dabei, sondern auch OLD, MERGE, RENUMBER, AUTONUMBER, PAUSE, UHR etc. Die Grafik-Unterstützung ist für alle Anwendungsbereiche gedacht, wobei der Schwerpunkt allerdings weniger auf »Spielen« und »künstlerische Anwendungen« liegt. Deswegen sind keine Joystick-, keine Lightpen- und keine Sprite-Befehle enthalten. Schließlich spielte es noch eine große Rolle, daß viel Speicherplatz für Basic-Programme und Daten frei bleiben sollte, ebenso wie der für Maschinensprache interessante Bereich von $C000 bis $D000.
Deswegen liegt das Programm Hires-3 ab $8000 (dez.32768) bis $89B5 (dez.35253) und von $9000 (dez.36864) bis $9DCB (dez.40395). Es fängt also dort an, wo auch Module ihren Platz haben. Der Bildschirm für hochauflösende Grafik liegt von $8000 (dez.35840) bis $8FFF (dez.36863), der für den Normalbetrieb bleibt an der gewohnte Stelle (1024…). Die 8 000 Byte lange Bit-Map kommt uns nicht mehr in die Quere: Sie ist unter dem Basic-ROM versteckt. Wir haben also trotz 44 neuer Befehle und Funktionen und einer stets präsenten hochauflösenden Grafik auf einem zweiten Bildschirm immer noch 30 KByte RAM für Basic frei und zusätzlich auch noch den Bereich $C000 bis $D000 für Maschinenprogramme.
Hires-3 wird mit dem MSE eingegeben (Seite 68). Nach der Eingabe des Programms empfiehlt es sich, das Ganze erstmal auf einem Massenspeicher (Kassette oder Diskette) sicher abzulegen.
Bevor Sie ein neues Basic-Programm schreiben, sichern Sie bitte noch HIRES-3 durch die in den vergangenen Grafik-Folgen vorgestellten Schutz-POKEs:
POKE52,128:POKE56,128
Mit SYS36864 starten Sie Hires-3. Außer der READY-Meldung werden Sie erstmal nichts Neues sehen. Sie haben nämlich nichts anderes getan, als den Funktionstasten Befehle zuzuteilen. Deshalb fangen wir jetzt mit der Erklärung der Befehle an und zwar mit eben diesen Funktionstasten: Vorsicht! Nicht alles gleich ausprobieren! Sehen Sie vorher noch in der Tabelle 1 nach, welche Befehle erst in der nächsten Folge von Hires-3 eingebaut werden.
| — F2 | RENUMBER |
| — | DUMP |
| — | UHR |
Wenn Sie die vorher benutzen, stürzt das Programm wahrscheinlich ab. Es erfolgt dann ein Programmsprung ins Leere — und das wollen wir unserem Computer doch nicht zumuten!
1. Hilfsfunktionen
1.1 Funktionstastenbelegung
Genau genommen schaltet man durch SYS 36864 nur die Belegung der Funktionstasten ein. Ausschalten erfolgt durch gleichzeitiges Drücken der RUN/STOP- und der RESTORE-Tasten. Nun zur Belegung im einzelnen:
F1 RUN
Startet ein im Basic-Speicher stehendes Programm sofort.
F2 RENUMBER-Befehl
Auf dem Bildschirm erscheint SYS33256. Man schreibt nun:
SYS33256,Abz,Nbz,Sch.
Dabei bedeuten:
- Abz = erste alte Basic-Zeile, von der an neu numeriert werden soll.
- Nbz = erste neue Basic-Zeilennummer
- Sch = Schrittweite
Dieser Befehl numeriert auch alle GOTO, GOSUB, IF..THEN…, RUN… etc. neu.
Beispiel:
SYS33256,1,10,5 numeriert ein Programm ab der alten Zeilennummer 1, welche nun 10 heißt, in 5er-Schritten neu durch.
F3 Aktivieren der neuen Basic-Befehle
Auf dem Bildschirm erscheint SYS37498 und READY. Jetzt sind alle neuen Basic-Befehlsworte verfügbar. Verwendet man eines der neuen Befehlsworte vorher, erzeugt das einen SYNTAX ERROR. Das Abschalten der neuen Befehle geschieht mittels »AUS«.
F4 OLD-Befehl
Auf dem Bildschirm erscheint SYS37227 und ein durch NEW oder einem RESET gelöschtes Basic-Programm wird wieder gelistet und funktionsfähig (vorausgesetzt, daß es nicht durch Überschreiben zerstört wurde). Störungen können auftreten, wenn noch kein Basic-Programm im Speicher enthalten ist. Nach der Verwendung dieses Befehls sollte überprüft werden, ob durch das vorangegangene Löschen die Schutz-POKEs 52 und 56 verändert worden sind.
F5 AUTONUMBER-Befehl
Auf dem Bildschirm erscheint SYS37018 und eine Zeilennummer. Diese Funktion setzt automatisch nach jedem RETURN eine neue Zeilennummer, die sich an die letzte im Programm vorhandene anschließt. Im Normalfall wird dabei in 10er-Schritten gearbeitet, eine andere Schrittweite wird durch POKE37169,Sch erzeugt (dabei ist Sch die Schrittweite). Die AUTONUMBER-Funktion wird durch Drücken von RETURN direkt nach einer Zeilennummer abgeschaltet.
F6 MERGE-Befehl
SYS37306 erscheint auf dem Bildschirm und die Information: »***MERGE***, BEREIT ZUM KOPPELN! READY.« Das Basic-Programm läßt sich allerdings nicht Listen oder Starten. Denn die Zeiger sind nun auf das Ende des Programms gestellt. Der Computer wartet auf das Laden des anzuhängenden Programms, was durch eine normale Ladeoperation stattfindet. Man drückt nun erneut F6 und auf dem Bildschirm erscheint: SYS37306 und der Text: »***MERGE*** PROGRAMME GEKOPPELT! READY«. Wenn man nun listet, zeigt es sich, daß beide Programme aneinandergehängt sind. Man sollte darauf achten, daß das anzuhängende Programm höhere Zeilennummern aufweist als das erste, denn sonst kommt es bei GOTO oder GOSUB-Sprüngen zu Fehlern.
F7 Startet Maschinenprogramme,
die bei $C000 (dezimal 49152) liegen. Auf dem Bildschirm erscheint SYS49152.
F8 Startet Maschinenprogramme,
die bei $7000 (dez. 28672) liegen. Auf dem Bildschirm erscheint SYS 28672.
Achtung! Diese beiden Tasten sollte man nur betätigen, wenn an den Ansprungadressen auch wirklich ein Programm startet, denn sonst stürzt der Computer unter Umständen ab. Sehr praktisch sind diese beiden Funktionstasten, wenn an den Startadressen andere Sprachen verfügbar sind, zum Beispiel bei $C000 ein Maschinensprache-Monitor liegt oder ähnliches. Auch zum schnellen Starten von unfertigen Assembler-Programmen, die an einer der beiden Stellen anfangen. Für solche Tests sind F7 und F8 gut einzusetzen.
1.2 Hilfsfunktionen als neue Basic-Befehle
Das sind fünf Befehle: PAU, DEEK, AUS, DUMP und UHR
Aus: Schaltet die Befehlserweitungen aus. Das beschleunigt den Ablauf eines Basic-Programms. Der Interpreter muß nun nicht mehr den Umweg über die hier vorgestellten Befehlserweiterungen laufen. Der Zeitunterschied ist allerdings minimal und nur bei zeitkritischen Abläufen interessant.
DEEK: Ist eine modifizierte PEEK-Funktion, die das RAM unter den ROM-Bausteinen ausliest und in Speicherstelle 2 ablegt.
Syntax: DEEK, Speicherstelle
Beispiel:
DEEK, 53272:PRINTPEEK(2)
ergibt 255, den Inhalt des RAM unter dem ROM, wogegen PRINTPEEK(53272) den ROM-Inhalt 21 ergibt.
PAU: Pausen-Befehl. PAU,10 erzeugt eine Pause von 10 Sekunden.
DUMP: Gibt alle definierten Variablen mit ihren aktuellen Werten aus. Arrays werden nicht berücksichtigt.
UHR: Zeigt in der rechten oberen Bildschirmecke eine Uhr an.
Stellen: UHR, »hhmmss«, Zeichenfarbe
Ausschalten: UHR
Wieder einschalten: UHR
Vor der Verwendung des Hochauflösungs-Modus sollte die UHR ausgeschaltet werden, ebenso vor dem Aufruf des Hardcopy-Befehls.
2. Grafik-Befehle
2.1 Einrichten der Grafik
HFL,Zf,Hf: Der Befehl richtet den Hochauflösungs-Grafikmodus ein, setzt die Zeichenfarbe (Zf) und die Hintergrundfarbe (Hf) und löscht ein eventuell vorhandenes Hochauflösungsbild aus. Dabei liegt der Bildschirm von $8000 bis $8FE7 (dezimal 35840 bis 36839) und die Bit-Map unter dem Basic-ROM ($A000-$C000).
HAN: Schaltet nur den Hochauflösungs-Modus an.
FAR,Zf,Hf: Setzt nur die Farben im Hochauflösungsbild.
LOE: Löscht nur das Hochauflösungsbild.
HOF: Schaltet des Hochauflösungsbild aus und richtet den Normalmodus wieder ein.
2.2 Zeichnen im Bildschirmsystem
(dabei x von 0 bis 319, y von 0 bis 199). Erinnern Sie sich bitte an das Bildschirmkoordinatensystem. Alle x- und y-Koordinaten, die unter 2.2 und 2.3benutzt werden, beziehen sich auf dieses System (Bild 1).
PKT,x,y: Zeichnet an der durch x und y angegebenen Stelle des Bildschirmes einen Punkt. Die Bedeutung der Bezeichnungen folgen aus Bild 2. Wegen der Eigenart des Bildschirmsystems ist darauf zu achten, daß x und y nie kleiner als 0, x nie größer als 319 und y nie größer als 199 werden. Koordinaten-Eingaben, die größer als 319 (beziehungsweise 199) sind, führen lediglich dazu, daß kein Punkt gezeichnet wird. Eingaben kleiner als Null ergeben einen SYNTAX ERROR.
LIN,xa,ya,xb,yb
Zeichnet eine Linie vom Punkt A mit den Koordinaten xa, ya bis zum Punkt B mit den Koordinaten xb, yb (siehe Bild 3). Die Richtung der Linie ist beliebig. Die Bemerkung zur Größe der Koordinaten gilt hier entsprechend.
REC,xa,ya,xb,yb
Zeichnet ein Rechteck, das durch den linken oberen Punkt A(xa,ya) und den rechten unteren Punkt B(xb,yb) gekennzeichnet ist (siehe Bild 4). Für die Koordinatengrenzwerte gilt dasselbe wie beim Befehl PKT.
BLO,xa,ya,xb,yb
Füllt ein Rechteck der angegebenen Maße (siehe REC für die Bezeichnungen) mit der Zeichenfarbe aus.
CIR,xm,ym,rx,ry,w
Zeichnet eine Ellipse oder einen Kreis (Sonderfall der Ellipse mit rx = ry) mit den folgenden Merkmalen: xm,ym = Koordinaten des Mittelpunktes M, rx,ry = Halbmesser in x- beziehungsweise y-Richtung.
w = Zeichenwinkel (Bogenmaß). Zur Erläuterung der einzelnen Bezeichnungen dient Bild 5. Außer negativen xm und ym-Koordinaten sind alle Eingaben zulässig.
2.3 Löschen im Bildschirmsystem
LPK,x,y: Löscht den angegebenen Punkt x,y
LLN,xa,ya,xb,yb: Löscht die Linie von xaya bis xb,yb
LRE,xa,ya,xb,yb: Löscht das Rechteck (Bezeichnungen wie bei REC)
LBK,xa,ya,xb,yb: Löscht das ausgefüllte Rechteck.
LKR,xm,ym,rx,ry,w: Löscht die Ellipse (Bezeichnungen wie bei CIR)
LRA,xm,ym,rx,ry,w: Löscht den Ellipsenradius
3. Abspeichern/Laden von Hochauflösungsbildern
HIS, “Name"gn,sa
SAVEn des Hochauflösungsbildes mit »Name« auf dem Gerät mit der Gerätenummer gn. Es gelten die gleichen Regeln wie beim normalen SAVE-Vorgang.HIL, "Name”,gn,sa
Laden eines Hochauflösungsbildes vom Speichermedium mit der Gerätenummer gn. Es gelten die gleichen Regeln wie für den normalen Ladevorgang.
Diese neuen Befehle sollen für diese Folge ausreichen. In der nächsten Ausgabe werden die anderen Befehle beschrieben, die HIRES-3 von allen mir bekannten Grafik-Software-Paketen unterscheidet.
Zur Praxis: Bedenken Sie bitte beim Ausprobieren dieser neuen Befehle, daß Sie alle auch im Direktmodus verwenden können. Das ist — gerade beim Testen — mitunter ganz bequem. Allerdings sind die Befehlsworte auf dem Hochauflösungsbildschirm nur als farbige Quadrate zu erkennen (Warum? Siehe vorangegangene Grafik-Folgen). Wenn Sie mal das Gefühl haben, Sie hätten sich beim Eintippen eines Befehls vergaloppiert, dann löschen Sie auch im Hochauflösungs-Modus den Bildschirm einfach mit SHIFT/CLR-HOME. Sie werden dann immer noch das Hochauflösungsbild sehen (die Bit-Map wird ja nur durch LOE gelöscht). Mit dem FAR-Befehl bringen Sie wieder neue Farbe ins Bild. Sollte ein Programm im Hochauflösungs-Modus auf einen Fehler laufen und aussteigen, dann kommen Sie mit HOF leicht wieder in den Normalmodus zurück.
Außer Hires-3 ist dieser Folge auch noch ein kleines Programm angefügt, mit dem Sie alle bisher vorgestellten Grafik-Befehle auf ihre Funktionsfähigkeit testen können. Nun noch ein Wort an die Spezialisten: In der nächsten Folge wird eine Aufstellung aller benötigten Zeropage-Plätze und der verwendeten Sub-Routinen erscheinen. Zur Selbstkritik: Einige Befehle fehlen, nämlich etwa zum Ausfüllen von umrandeten Flächen, dann eine Möglichkeit, Texte ins Hochauflösungsbild zu schreiben und anderes. Außerdem ist in puncto Geschwindigkeit noch lange nicht das Optimum erreicht… aber irgend etwas muß für Hires-4 auch noch zu tun bleiben.
(Heimo Ponnath/gk)PROGRAMM : HIRES3.1.ASS $90 9000 9DCB ----------------------------------- 9000 : A9 0B A0 90 8D 8F 02 8C DF 9008 : 90 02 60 A2 06 E4 CB F0 9E 9010 : 08 CA E0 02 D0 F7 4C 48 84 9018 : EB E4 C5 F0 F9 86 C5 AD 4B 9020 : 8D 02 C9 01 D0 04 E8 E8 E3 9028 : E8 E8 D8 A9 00 E0 03 F0 E5 9030 : 08 18 69 09 CA E0 03 D0 21 9038 : F8 AA A0 00 C8 BD 51 90 8E 9040 : 99 76 02 C9 0D F0 05 E8 0C 9048 : C0 09 30 F0 84 C6 4C 42 EB 9050 : EB 53 59 53 34 39 31 35 E2 9058 : 32 0D 52 55 4E 0D 00 00 9D 9060 : 00 00 00 53 59 53 33 37 36 9068 : 34 39 38 0D 53 59 53 33 9C 9070 : 37 30 31 38 0D 53 59 53 8A 9078 : 32 38 36 37 32 0D 53 59 C6 9080 : 53 33 33 32 35 36 00 53 2C 9088 : 59 53 33 37 32 32 37 0D EA 9090 : 53 59 53 33 37 33 30 36 05 9098 : 0D FF A9 00 8D A4 90 8D 6B 90A0 : A5 90 F0 04 DC 05 AD 11 19 90A8 : A6 2D 8E A6 90 A6 2E 8E 71 90B0 : A7 90 A9 BC 8D 02 03 A9 E9 90B8 : 90 8D 03 03 A6 2D EC A6 05 90C0 : 90 D0 14 A6 2E EC A7 90 9C 90C8 : D0 0D AE A4 90 D0 05 AE 60 90D0 : A5 90 F0 03 4C 5D 91 A6 9D 90D8 : 2D 8E A6 90 A6 2E 8E A7 6D 90E0 : 90 A6 2D CA CA E4 2B D0 8A 90E8 : 06 A6 2E E4 2C F0 3D A6 F6 90F0 : 2B 86 FB 86 14 A6 2C 86 62 90F8 : FC 86 15 A0 00 B1 FB D0 B0 9100 : 14 C8 B1 FB D0 0F C8 B1 70 9108 : 14 8D A4 90 C8 B1 14 8D A3 9110 : A5 90 4C 2C 91 A5 FB 85 D7 9118 : 14 A5 FC 85 15 A0 00 B1 A8 9120 : FB AA C8 B1 FB 86 FB 85 C7 9128 : FC 4C FB 90 AD A4 90 18 CE 9130 : 69 0A 8D A4 90 AD A5 90 C4 9138 : 69 00 8D A5 90 AE A4 90 EC 9140 : 20 CD BD A9 20 20 D2 FF 3A 9148 : A0 00 B1 D1 99 77 02 E6 BA 9150 : C6 C8 C4 D3 D0 F4 A9 00 81 9158 : 85 D3 4C 83 A4 A9 83 8D 0B 9160 : 02 03 A9 A4 8D 03 03 4C 78 9168 : 83 A4 00 A5 2B 18 69 04 13 9170 : 85 FD A5 2C 69 00 85 FE 8D 9178 : A0 00 B1 FD F0 08 C8 C0 38 9180 : 58 D0 F7 4C 08 AF C8 98 1A 9188 : A0 00 18 65 FD 91 2B 85 FF 9190 : FD 90 02 E6 FE A5 FE C8 DD 9198 : 91 2B 88 B1 FD AA C8 B1 D3 91A0 : FD F0 07 85 FE 86 FD 38 14 91A8 : B0 F0 A5 FD 18 69 02 85 D9 91B0 : 2D A5 FE 20 55 A6 4C 9C 68 91B8 : A6 00 A9 FF 85 02 A5 2B 1E 91C0 : C9 01 D0 0D 85 FB A5 2C 07 91C8 : C9 08 D0 05 85 FC 38 B0 ED 91D0 : 16 A5 FB 85 2B A5 FC 85 47 91D8 : 2C A2 00 BD 45 92 F0 06 C6 91E0 : 20 16 E7 E8 D0 F5 60 18 91 91E8 : A0 00 B1 2B D0 0C C8 B1 4E 91F0 : 2B D0 07 C8 B1 2B D0 02 1A 91F8 : 85 02 E6 2B D0 02 E6 2C AE 9200 : A5 02 D0 E4 A2 00 BD 12 BC 9208 : 92 F0 06 20 16 E7 E8 D0 7E 9210 : F5 60 0D 0D 20 20 20 20 DE 9218 : 20 2A 2A 2A 2A 20 4D 45 81 9220 : 52 47 45 20 2A 2A 2A 2A 5C 9228 : 2A 0D 42 45 52 45 49 54 2F 9230 : 20 5A 55 4D 20 4B 4F 50 B7 9238 : 50 45 4C 4E 21 0D 00 00 82 9240 : 00 00 00 00 00 0D 0D 20 1D 9248 : 20 20 20 20 2A 2A 2A 2A 75 9250 : 20 4D 45 52 47 45 20 2A 26 9258 : 2A 2A 2A 2A 0D 50 52 4F A2 9260 : 47 52 41 4D 4D 45 20 47 D8 9268 : 45 4B 4F 50 50 45 4C 54 3A 9270 : 21 0D 00 00 00 00 00 00 18 9278 : 00 00 A9 92 8D 08 03 A9 AD 9280 : 92 8D 09 03 60 A9 E4 8D 7E 9288 : 08 03 A9 A7 8D 09 03 60 5F 9290 : 28 5F 20 73 00 90 1E C9 6F 9298 : 60 B0 1A C9 41 90 15 8D 18 92A0 : 91 92 A2 00 8E 90 92 A0 1C 92A8 : 00 EE 90 92 BD 40 93 D0 63 92B0 : 07 AD 91 92 38 4C E7 A7 19 92B8 : D1 7A D0 28 C8 E8 BD 40 4B 92C0 : 93 D0 F5 18 98 65 7A 85 E5 92C8 : 7A 90 02 E6 7B AD 90 92 74 92D0 : 0A AA BD EE 92 8D DF 92 B7 92D8 : BD EF 92 8D E0 92 20 BC 80 92E0 : 94 4C AE A7 E8 BD 40 93 DF 92E8 : D0 FA E8 4C A7 92 E7 A7 F7 92F0 : B0 94 B3 94 B6 94 B9 94 8A 92F8 : BC 94 74 9A E7 93 BF 94 B2 9300 : C2 94 C5 94 C8 94 CB 94 9A 9308 : CE 94 D1 94 D4 94 D7 94 A2 9310 : DA 94 DD 94 E0 94 E3 94 AA 9318 : E6 94 E9 94 EC 94 EF 94 B2 9320 : F2 94 F5 94 F8 94 FB 94 B9 9328 : FE 94 01 95 04 95 07 95 98 9330 : 0A 95 0D 95 85 92 DA 83 5A 9338 : 9D 84 B8 85 4F 87 E7 A7 16 9340 : 48 46 4C 00 48 41 4E 00 86 9348 : 46 41 52 00 4C 4F 45 00 18 9350 : 48 4F 46 00 50 41 55 00 36 9358 : 44 45 45 4B 00 50 4B 54 52 9360 : 00 4C 49 4E 00 52 45 43 D1 9368 : 00 42 4C 4F 00 43 49 52 6A 9370 : 00 52 41 44 00 48 49 53 80 9378 : 00 48 49 4C 00 4C 50 4B B2 9380 : 00 4C 4C 4E 00 4C 52 45 B9 9388 : 00 4C 42 4B 00 4C 4B 52 DD 9390 : 00 4C 52 41 00 54 52 53 06 9398 : 00 54 50 4B 00 54 4C 4E B0 93A0 : 00 54 52 45 00 54 42 4B 4A 93A8 : 00 54 4B 52 00 54 52 41 5E 93B0 : 00 4C 54 50 00 4C 54 4C 42 93B8 : 00 4C 54 52 00 4C 54 42 76 93C0 : 00 4C 54 4B 00 4C 54 56 C5 93C8 : 00 41 55 53 00 44 55 4D 3B 93D0 : 50 00 55 48 52 00 46 55 68 93D8 : 4E 4B 54 00 4C 46 55 4E CA 93E0 : 4B 00 00 00 00 00 00 A5 77 93E8 : 15 48 A5 14 48 20 FD AE E8 93F0 : 20 8A AD 20 F7 B7 A5 01 9A 93F8 : 48 29 FC 78 85 01 A0 00 06 9400 : B1 14 A8 68 85 01 58 68 85 9408 : 85 14 68 85 15 84 02 60 A0 9410 : A9 00 85 57 85 58 A0 08 B3 9418 : 18 26 5B 90 0D 18 A5 57 03 9420 : 65 59 85 57 A5 58 65 5A E5 9428 : 85 58 88 F0 06 26 57 26 55 9430 : 58 90 E6 60 A2 00 86 8E F7 9438 : 86 8F A0 10 06 57 26 58 14 9440 : 26 8E 26 8F 38 A5 8E E5 E0 9448 : 59 AA A5 8F E5 5A 90 06 D1 9450 : 86 8E 85 8F E6 57 88 D0 5D 9458 : E3 A5 57 85 5C A5 58 85 F4 9460 : 5D 60 85 36 49 24 92 87 25 9468 : 04 AA AA AB 83 E0 00 00 21 9470 : 00 81 40 00 00 00 00 00 41 9478 : 05 81 C0 00 00 00 86 3C 01 9480 : 00 00 00 83 49 88 2B 74 5F 9488 : 7B 2E 4C 41 5D 83 49 0F 8B 9490 : DA A1 33 01 75 34 01 6A FA 9498 : 01 00 FF 0B B8 00 0C 01 B8 94A0 : 00 01 3E 01 C6 A0 00 35 AC 94A8 : 00 88 47 00 00 00 00 00 BE 94B0 : 4C 87 95 4C 5D 95 4C 22 A7 94B8 : 95 4C 46 95 4C 72 95 4C FF 94C0 : 90 95 4C 1C 96 4C D2 97 F8 94C8 : 4C 88 98 4C FA 98 4C E8 7F 94D0 : 99 4C C4 9A 4C E8 9A 4C 23 94D8 : F7 9A 4C FF 9A 4C 07 9B 8F 94E0 : 4C 0F 9B 4C 17 9B 4C 1F E2 94E8 : 9B 4C 27 9B 4C A6 9B 4C E8 94F0 : 0B 9C 4C EB 9C 4C 00 80 07 94F8 : 4C E0 80 4C 4C 81 4C B8 D1 9500 : 81 4C C0 81 4C C8 81 4C B1 9508 : D0 81 4C D8 81 4C E0 81 C8 9510 : 4C AC 94 4C AC 94 4C AC 5B 9518 : 94 4C AC 94 4C AC 94 4C A5 9520 : AC 94 20 9B B7 8A 0A 0A 9E 9528 : 0A 0A 85 02 20 9B B7 8A AC 9530 : 05 02 A0 00 99 00 8C 99 5D 9538 : FA 8C 99 F4 8D 99 EE 8E FC 9540 : C8 C0 FA D0 EF 60 A9 A0 2B 9548 : 85 FE A9 00 85 FD A8 91 C5 9550 : FD C8 D0 FB E6 FE A4 FE 5C 9558 : C0 C0 D0 F2 60 A9 95 8D CF 9560 : 00 DD A9 38 8D 18 D0 A9 F0 9568 : 8C 8D 88 02 A9 3B 8D 11 EA 9570 : D0 60 A9 04 8D 88 02 A9 D4 9578 : 15 8D 18 D0 A9 97 8D 00 01 9580 : DD A9 1B 8D 11 D0 60 20 04 9588 : 22 95 20 46 95 4C 5D 95 A2 9590 : A9 00 8D A8 94 20 FD AE 51 9598 : 20 EB B7 EA EA EA EA 18 DB 95A0 : E0 C8 B0 6B A5 15 F0 0A 59 95A8 : C9 01 D0 63 A5 14 C9 40 35 95B0 : B0 5D A5 14 29 07 A8 38 D9 95B8 : A9 00 6A 88 10 FC 4D A8 7C 95C0 : 94 48 A5 14 29 F8 85 14 FD 95C8 : 8A 29 07 18 65 14 85 14 E1 95D0 : A5 15 69 A0 85 15 8A 29 EC 95D8 : F8 85 59 A9 00 85 5A A9 07 95E0 : 28 85 5B 20 10 94 18 A5 F7 95E8 : 14 65 57 85 14 A5 15 65 C3 95F0 : 58 85 15 68 A0 00 85 02 81 95F8 : A5 01 48 29 FE 78 85 01 21 9600 : A5 02 2C A8 94 30 0C 11 E4 9608 : 14 91 14 68 85 01 58 EA 8F 9610 : EA EA 60 31 14 91 14 68 9D 9618 : 85 01 58 60 A9 00 8D A8 62 9620 : 94 20 FD AE 20 EB B7 8E 77 9628 : 94 94 A5 14 8D 92 94 A5 FD 9630 : 15 8D 93 94 20 FD AE 20 70 9638 : EB B7 8E 97 94 A6 14 8E 81 9640 : 95 94 A5 15 8D 96 94 AE 69 9648 : 95 94 AD 96 94 CD 93 94 95 9650 : 30 0B F0 02 B0 2B EC 92 BF 9658 : 94 F0 6A B0 24 AD 92 94 38 9660 : AE 95 94 8D 95 94 8E 92 0D 9668 : 94 AD 93 94 AE 96 94 8D 57 9670 : 96 94 8E 93 94 AD 94 94 99 9678 : AE 97 94 8D 97 94 8E 94 4A 9680 : 94 38 AD 95 94 ED 92 94 7A 9688 : 8D 98 94 AD 96 94 ED 93 29 9690 : 94 8D 99 94 A2 00 8E 9A 7D 9698 : 94 38 AD 97 94 ED 94 94 DB 96A0 : F0 4F EE 9A 94 8D 9B 94 94 96A8 : B0 0B 49 FF 69 01 CA 8E 17 96B0 : 9A 94 8D 9B 94 AD 99 94 B1 96B8 : D0 62 AD 98 94 CD 9B 94 87 96C0 : B0 5A 4C 7D 97 AD 97 94 CE 96C8 : CD 94 94 B0 09 AE 94 94 9C 96D0 : 8E 97 94 8D 94 94 AE 94 D2 96D8 : 94 8A 48 AD 92 94 85 14 85 96E0 : AD 93 94 85 15 20 9B 95 19 96E8 : 68 AA E8 EC 97 94 90 E9 B1 96F0 : 60 AD 92 94 85 14 AD 93 35 96F8 : 94 85 15 AE 97 94 20 9B 40 9700 : 95 EE 92 94 D0 03 EE 93 4B 9708 : 94 AD 96 94 CD 93 94 90 98 9710 : 0A D0 DE AD 95 94 CD 92 4A 9718 : 94 B0 D6 60 A9 00 8D 9C D0 9720 : 94 8D 9D 94 18 AD 9C 94 FF 9728 : 85 59 6D 92 94 85 14 AD 29 9730 : 9D 94 85 5A 6D 93 94 85 95 9738 : 15 AD 9B 94 85 5B 20 10 71 9740 : 94 AD 98 94 85 59 AD 99 70 9748 : 94 85 5A 20 34 94 AD 94 01 9750 : 94 2C 9A 94 30 05 18 65 8A 9758 : 5C 90 03 38 E5 5C AA 20 F0 9760 : 9B 95 EE 9C 94 D0 03 EE CF 9768 : 9D 94 AD 99 94 CD 9D 94 45 9770 : 90 0A D0 B0 AD 98 94 CD DD 9778 : 9C 94 B0 A8 60 A9 00 8D 0E 9780 : 9E 94 85 5B AD 94 94 2C 5F 9788 : 9A 94 30 06 18 6D 9E 94 CA 9790 : 90 04 38 ED 9E 94 48 AD F9 9798 : 98 94 85 59 AD 99 94 85 0C 97A0 : 5A 20 10 94 AD 9B 94 85 B6 97A8 : 59 A9 00 85 5A 20 34 94 27 97B0 : 18 A5 5C 6D 92 94 85 14 6C 97B8 : A5 5D 6D 93 94 85 15 68 74 97C0 : AA 20 9B 95 EE 9E 94 AD A5 97C8 : 9E 94 CD 9B 94 F0 B3 90 58 97D0 : B1 60 A9 00 8D A8 94 20 CC 97D8 : FD AE 20 EB B7 8E A1 94 51 97E0 : A5 14 8D 9F 94 A5 15 8D CC 97E8 : A0 94 20 FD AE 20 EB B7 A5 97F0 : 8E A4 94 A6 14 8E A2 94 34 97F8 : A5 15 8D A3 94 AD 9F 94 5E 9800 : 8D 92 94 AD A0 94 8D 93 BD 9808 : 94 AD A1 94 8D 94 94 8D 59 9810 : 97 94 AD A2 94 8D 95 94 E6 9818 : AD A3 94 8D 96 94 20 47 8B 9820 : 96 AD A2 94 8D 92 94 8D A3 9828 : 95 94 AD A3 94 8D 93 94 14 9830 : 8D 96 94 AD A1 94 8D 94 01 9838 : 94 AD A4 94 8D 97 94 20 87 9840 : 47 96 AD 9F 94 8D 92 94 5B 9848 : AD A0 94 8D 93 94 AD A4 FA 9850 : 94 8D 94 94 8D 97 94 AD A6 9858 : A2 94 8D 95 94 AD A3 94 C9 9860 : 8D 96 94 20 47 96 AD 9F 81 9868 : 94 8D 92 94 8D 95 94 AD 2D 9870 : A0 94 8D 93 94 8D 96 94 69 9878 : AD A4 94 8D 94 94 AD A1 36 9880 : 94 8D 97 94 20 47 96 60 AB 9888 : A9 00 8D A8 94 20 FD AE 49 9890 : 20 EB B7 8E A1 94 A5 14 E3 9898 : 8D 9F 94 A5 15 8D A0 94 38 98A0 : 20 FD AE 20 EB B7 8E A4 6E 98A8 : 94 A6 14 8E A2 94 A5 15 F6 98B0 : 8D A3 94 AD A4 94 CD A1 53 98B8 : 94 B0 09 AE A1 94 8E A4 FF 98C0 : 94 8D A1 94 AE A1 94 8E 7D 98C8 : 9E 94 AD 9F 94 8D 92 94 39 98D0 : AD A0 94 8D 93 94 AD 9E 76 98D8 : 94 8D 94 94 8D 97 94 AD 2E 98E0 : A2 94 8D 95 94 AD A3 94 51 98E8 : 8D 96 94 20 47 96 EE 9E 0C 98F0 : 94 AC A4 94 CC 9E 94 B0 0B 98F8 : D1 60 A9 00 8D A8 94 20 14 9900 : FD AE 20 EB B7 8E A7 94 92 9908 : A5 14 8D A5 94 A5 15 8D B5 9910 : A6 94 20 FD AE 20 8A AD 3A 9918 : A0 94 A2 79 20 D4 BB 20 B2 9920 : FD AE 20 8A AD A0 94 A2 45 9928 : 7E 20 D4 BB A9 79 A0 94 75 9930 : 20 50 B8 20 2B BC 30 0A 18 9938 : A9 79 A0 94 20 A2 BB 4C F7 9940 : 49 99 A9 7E A0 94 20 A2 04 9948 : BB A9 BC A0 B9 20 0F BB 6B 9950 : A2 88 A0 94 20 D4 BB A9 DC 9958 : 20 8D 84 94 A9 00 8D 83 CA 9960 : 94 8D 85 94 8D 86 94 8D 29 9968 : 87 94 20 FD AE 20 8A AD 73 9970 : A0 94 A2 8D 20 D4 BB A9 9F 9978 : 83 A0 94 20 A2 BB 20 6B D4 9980 : E2 A9 79 A0 94 20 28 BA 0A 9988 : A9 11 A0 BF 20 67 B8 20 3A 9990 : 9B BC 18 A5 65 6D A5 94 C6 9998 : 85 14 A5 64 6D A6 94 85 87 99A0 : 15 A9 83 A0 94 20 A2 BB CB 99A8 : 20 64 E2 A9 7E A0 94 20 68 99B0 : 28 BA A9 11 A0 BF 20 67 19 99B8 : B8 20 9B BC 18 A5 65 6D 1E 99C0 : A7 94 AA 20 9B 95 A9 83 74 99C8 : A0 94 20 A2 BB A9 88 A0 7B 99D0 : 94 20 67 B8 A2 83 A0 94 57 99D8 : 20 D4 BB A9 8D A0 94 20 F7 99E0 : 50 B8 20 2B BC 10 90 60 49 99E8 : A9 00 8D A8 94 20 FD AE A9 99F0 : 20 EB B7 8E 94 94 A5 14 72 99F8 : 8D 92 94 A5 15 8D 93 94 DD 9A00 : 20 FD AE 20 8A AD A0 94 90 9A08 : A2 79 20 D4 BB 20 FD AE 1C 9A10 : 20 8A AD A0 94 A2 7E 20 8D 9A18 : D4 BB 20 FD AE 20 8A AD 03 9A20 : A0 94 A2 8D 20 D4 BB 20 3C 9A28 : 6B E2 A9 79 A0 94 20 28 1D 9A30 : BA A9 11 A0 BF 20 67 B8 23 9A38 : 20 9B BC 18 A5 65 6D 92 B8 9A40 : 94 8D 95 94 A5 64 6D 93 ED 9A48 : 94 8D 96 94 A9 8D A0 94 8E 9A50 : 20 A2 BB 20 64 E2 A9 7E B5 9A58 : A0 94 20 28 BA A9 11 A0 CE 9A60 : BF 20 67 B8 20 9B BC 18 22 9A68 : A5 65 6D 94 94 8D 97 94 EB 9A70 : 20 47 96 60 AD 0E DD 09 BA 9A78 : 80 8D 0E DD AD 0F DD 29 1B 9A80 : 7F 8D 0F DD A2 03 A9 00 2E 9A88 : 9D 08 DD CA 10 FA 20 9B 8B 9A90 : B7 A9 00 8D 77 94 F8 E0 8F 9A98 : 00 F0 0F CA 18 69 01 C9 92 9AA0 : 60 90 F4 EE 77 94 A9 00 26 9AA8 : F0 ED 8D 78 94 D8 20 ED 6E 9AB0 : F6 F0 10 AD 0A DD CD 77 8E 9AB8 : 94 90 F3 AD 09 DD CD 78 EE 9AC0 : 94 90 EB 60 20 FD AE 20 90 9AC8 : D4 E1 A2 00 A0 C0 A9 00 EC 9AD0 : 85 FD A9 A0 85 FE A5 01 BB 9AD8 : 48 29 FE 78 85 01 A9 FD 86 9AE0 : 20 D8 FF 68 85 01 58 60 FC 9AE8 : 20 FD AE 20 D4 E1 A9 61 7C 9AF0 : 85 B9 A9 00 4C D5 FF A9 83 9AF8 : FF 8D A8 94 4C 95 95 A9 96 9B00 : FF 8D A8 94 4C 21 96 A9 FE 9B08 : FF 8D A8 94 4C D7 97 A9 C0 9B10 : FF 8D A8 94 4C 8D 98 A9 79 9B18 : FF 8D A8 94 4C FF 98 A9 15 9B20 : FF 8D A8 94 4C ED 99 A9 90 9B28 : 01 A0 3F 20 91 B3 A2 62 53 9B30 : A0 94 20 D4 BB 20 FD AE CF 9B38 : 20 8A AD A2 6C A0 94 20 BB 9B40 : D4 BB 20 FD AE 20 8A AD 2B 9B48 : 20 0C BC A9 6C A0 94 20 31 9B50 : A2 BB 20 53 B8 A9 62 A0 E6 9B58 : 94 20 0F BB A2 62 A0 94 20 9B60 : 20 D4 BB A0 C7 20 A2 B3 5D 9B68 : A2 67 A0 94 20 D4 BB 20 50 9B70 : FD AE 20 8A AD A2 79 A0 35 9B78 : 94 20 D4 BB 20 FD AE 20 B6 9B80 : 8A AD A2 71 A0 94 20 D4 90 9B88 : BB A9 79 A0 94 20 A2 BB D6 9B90 : A9 71 A0 94 20 50 B8 A9 67 9B98 : 67 A0 94 20 0F BB A2 67 A1 9BA0 : A0 94 20 D4 BB 60 A9 00 92 9BA8 : 8D A8 94 20 FD AE 20 8A 9D 9BB0 : AD A9 6C A0 94 20 5B BC 92 9BB8 : C9 FF F0 47 20 0C BC A9 4F 9BC0 : 6C A0 94 20 A2 BB 20 53 D5 9BC8 : B8 A9 62 A0 94 20 28 BA 62 9BD0 : 20 9B BC A5 65 85 14 A5 C0 9BD8 : 64 85 15 20 FD AE 20 8A 33 9BE0 : AD A9 71 A0 94 20 5B BC 03 9BE8 : C9 01 F0 1D A9 71 A0 94 E3 9BF0 : 20 50 B8 A9 67 A0 94 20 AA 9BF8 : 28 BA 20 9B BC A5 65 AA DD 9C00 : 4C A0 95 20 FD AE 20 8A F1 9C08 : AD 60 FF A9 00 8D A8 94 53 9C10 : 20 FD AE 20 8A AD A9 6C 74 9C18 : A0 94 20 5B BC C9 FF D0 32 9C20 : 0B A9 00 8D 92 94 8D 93 DD 9C28 : 94 4C 4D 9C 20 0C BC A9 72 9C30 : 6C A0 94 20 A2 BB 20 53 45 9C38 : B8 A9 62 A0 94 20 28 BA D2 9C40 : 20 9B BC A5 65 8D 92 94 48 9C48 : A5 64 8D 93 94 20 FD AE 95 9C50 : 20 8A AD A9 71 A0 94 20 05 9C58 : 5B BC C9 01 D0 08 A9 00 98 9C60 : 8D 94 94 4C 7C 9C A9 71 1C 9C68 : A0 94 20 50 B8 A9 67 A0 1C 9C70 : 94 20 28 BA 20 9B BC A5 93 9C78 : 65 8D 94 94 20 FD AE 20 48 9C80 : 8A AD A9 6C A0 94 20 5B BF 9C88 : BC C9 FF D0 0B A9 00 8D 5C 9C90 : 95 94 8D 96 94 4C B9 9C 71 9C98 : 20 0C BC A9 6C A0 94 20 81 9CA0 : A2 BB 20 53 B8 A9 62 A0 36 9CA8 : 94 20 28 BA 20 9B BC A5 CB 9CB0 : 65 8D 95 94 A5 64 8D 96 B5 9CB8 : 94 20 FD AE 20 8A AD A9 12 9CC0 : 71 A0 94 20 5B BC C9 01 6F 9CC8 : D0 08 A9 00 8D 97 94 4C 87 9CD0 : E8 9C A9 71 A0 94 20 50 6F 9CD8 : B8 A9 67 A0 94 20 28 BA B3 9CE0 : 20 9B BC A5 65 8D 97 94 FC 9CE8 : 4C 47 96 A9 00 8D A8 94 EB 9CF0 : 20 FD AE 20 8A AD A9 6C 54 9CF8 : A0 94 20 5B BC C9 FF D0 12 9D00 : 0B A9 00 8D 9F 94 8D A0 A8 9D08 : 94 4C 2D 9D 20 0C BC A9 6A 9D10 : 6C A0 94 20 A2 BB 20 53 25 9D18 : B8 A9 62 A0 94 20 28 BA B2 9D20 : 20 9B BC A5 65 8D 9F 94 5C 9D28 : A5 64 8D A0 94 20 FD AE 16 9D30 : 20 8A AD A9 71 A0 94 20 E5 9D38 : 5B BC C9 01 D0 08 A9 00 78 9D40 : 8D A1 94 4C 5C 9D A9 71 89 9D48 : A0 94 20 50 B8 A9 67 A0 FC 9D50 : 94 20 28 BA 20 9B BC A5 73 9D58 : 65 8D A1 94 20 FD AE 20 6C 9D60 : 8A AD A9 6C A0 94 20 5B 9F 9D68 : BC C9 FF D0 0B A9 00 8D 3C 9D70 : A2 94 8D A3 94 4C 99 9D 81 9D78 : 20 0C BC A9 6C A0 94 20 61 9D80 : A2 BB 20 53 B8 A9 62 A0 16 9D88 : 94 20 28 BA 20 9B BC A5 AB 9D90 : 65 8D A2 94 A5 64 8D A3 F2 9D98 : 94 20 FD AE 20 8A AD A9 F2 9DA0 : 71 A0 94 20 5B BC C9 01 4F 9DA8 : D0 08 A9 00 8D A4 94 4C D0 9DB0 : C8 9D A9 71 A0 94 20 50 AF 9DB8 : B8 A9 67 A0 94 20 28 BA 93 9DC0 : 20 9B BC A5 65 8D A4 94 10 9DC8 : 4C FD 97 D0
1 rem ********************************* 2 rem * * 3 rem * grafik - demo * 4 rem * zum * 5 rem * testen des ersten teils von * 6 rem * * 7 rem * h i r e s - 3 * 8 rem * * 9 rem *auch von mir(h.ponnath hh 1984)* 10 rem********************************* 20 poke52,128:poke56,128:sys37498:rem einschalten der neuen basic-befehle 25 rem ---------- der lin-befehl ------- 30 deffna(x)=(y2-y1)*(x-x1)/(x2-x1)+y1:deffnb(z)=(y4-y3)*(z-x3)/(x4-x3)+y3 35 deffnc(i)=x1+i*(x2-x1)/10:deffnd(i)=x3+i*(x4-x3)/10 40 deffne(i)=x4-i*(x4-x3)/10 45 x1=10:x2=100:x3=190:x4=310:y1=10:y2=170:y3=195:y4=15 50 hfl,1,6 55 fori=0to10step.5:x=fnc(i):z=fnd(i):lin,x,fna(x),z,fnb(z):next 60 lin,x1,y1,x2,y2:lin,x3,y3,x4,y4 65 pau,5 70 hof:printchr$(147)"das war der lin-befehl":print:print"pau,hfl u. hof funktionieren auch 75 pau,5 80 rem ----------- der rec-befehl ------ 85 loe:han 90 deffnz(x)=-3.39098e-3*x^2+1.053668*x+8.9497:x1=200:y1=198:x2=310:y2=5 95 x3=2:x4=309:e=60 100 fori=0toe:xu=x2-i*(x2-x1)/e:yu=fna(xu):xo=x4-i*(x4-x3)/e:yo=fnz(xo) 105 rec,xo,yo,xu,yu:nexti:pau,3 110 far,6,1:pau,2:far,0,7:pau,1:far,2,8:pau,1:loe:pau,1:hof:print 115 print"das waren die befehle rec,far und loe":pau,5 120 rem -- pkt,blo,cir,lbk und lre ----- 125 han:blo,40,100,160,150:blo,180,100,200,150:blo,200,120,250,150 130 blo,240,100,250,120:lbk,44,102,68,120:lbk,72,102,98,120:lbk,102,102,128,120 135 lbk,132,102,156,120:lbk,182,102,198,148:lre,44,122,68,148 140 lre,132,122,156,148:lin,160,145,180,145:cir,45,155,5,5,2*~ 145 cir,55,155,5,5,2*~:cir,155,155,5,5,2*~:cir,145,155,5,5,2*~ 150 cir,185,155,5,5,2*~:cir,195,155,5,5,2*~:cir,245,155,5,5,2*~ 155 lin,0,160,319,160:lin,0,163,319,163 160 fork=1to10:forj=1to235 165 v=int(rnd(1)*20)+235-j:w=int(rnd(1)*100-j/3):ifw>0andv>0then:pkt,v,w:next 170 nextk:pau,5:hof 175 print:print"dieser zug fuhr mit:pkt,blo,cir,lbk,lre":pau,5 180 rem ------ rad und lra ------------- 185 hfl,0,6:forl=0to3*~step~/30:rad,160,100,int(10*l),int(10*l),l 190 nextl:pau,4:forl=0to3*~step~/15:lra,160,100,int(7*l),int(7*l),l:nextl 195 pau,4:hof:print:print"sowohl rad als auch lra funktionieren":pau,4 200 rem ------ lpk,lln,lkr ------------- 205 poke53280,0 210 hfl,6,14:blo,20,10,300,190:x(1)=60:x(2)=120:x(3)=170:x(4)=200:x(5)=201 215 x(6)=240:x(7)=260:y(1)=65:y(2)=42:y(3)=70:y(4)=100:y(5)=135:y(6)=150 220 y(7)=117:fori=1to7:lkr,x(i),y(i),2,2,2*~:lkr,x(i),y(i),1,1,2*~:nexti 225 fori=2to7:lln,x(i-1),y(i-1),x(i),y(i):nexti:lln,x(7),y(7),x(4),y(4) 230 fori=0to500:v=int(rnd(1)*280)+20:w=int(rnd(1)*180)+10:lpk,v,w:nexti:pau,3 235 poke53280,14:hof:print:print"der grosse wagen wurde gebildet mit" 240 print"den befehlen:lln,lpk und lkr":print:print:poke646,1:print"alles o.k!" 245 poke646,14:end
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen