Auf der Suche nach der 64’er
Steuern Sie einen Roboter durch ein Labyrinth, in dem sehr viele Gefahren lauern. Das Besondere: Das Spielfeld (16 Bildschirmseiten) können Sie selbst erstellen.
Der Spieleautor über die Entstehungsgeschichte von »Roboservant«: »Ich hatte schon lange den Drang, ein Spiel für die 64’er zu schreiben. Natürlich handelt auch das Spiel davon, oder vielmehr von Chefredakteur Michael Pauly. So dachte ich mir, daß es nicht schlecht wäre, wenn er sich die 64’er selbst, mit Hilfe eines Roboters holen würde. Daraus ergab sich die Spielgeschichte«.
Man steuert mit dem Joystick einen Roboter (elektronischen Sklaven), der die Aufgabe hat, zum Chefredakteur zu gehen und sich seinen Auftrag zu holen. Der Auftrag: Die soeben gedruckte 64’er ist für den Chef zu besorgen. Eine gefährliche Aufgabe, wie sich schnell herausstellt. Viele Gefahren lauern und viele Abenteuer sind zu bestehen oder besser, zu überstehen.
Das Ziel des Spiels ist, möglichst schnell die neue Ausgabe beizubringen. Die schnellsten Zeiten werden in die High-Score-Liste aufgenommen.
Konstruieren Sie sich Ihren eigenen Level
Wird Ihnen das Spiel langweilig, erstellen Sie sich doch einfach ein neues Spielfeld. Sie können bis zu 16 Bildschirmseiten, der Länge nach, aneinanderreihen. Beim Spiel werden die verschiedenen Seiten über den Bildschirm gescrollt. Es wird also nicht plötzlich eine neue Bildschirmseite gezeigt, sondern langsam und stufenlos von links oder rechts ins Bild geschoben.
Tips zum Eintippen und zur Benutzung
Das Maschinenprogramm geben Sie am besten mit dem MSE ein. Beachten Sie dabei bitte, daß das Programm unbedingt den Namen »ROBOSERVANT« hat. Den Basic-Teil sollten Sie mit dem Checksummer aus dieser Ausgabe eingeben und unter dem Namen »BASIC« abspeichern. Der Basic-Teil wird nämlich vom Maschinenprogramm nachgeladen. Das Maschinenprogramm besitzt eine Basic-Zeile und kann deshalb mit LOAD"ROBOSERVANT",8 geladen und mit RUN gestartet werden. Auf dem Bildschirm erscheint dann die Meldung »Now Loading Part 2«.
Ist das Programm »BASIC« geladen, können Sie in einem Menü die folgenden Punkte auswählen:
1 PLAY — Das Programm kann gespielt werden. Schließen Sie dazu einen Joystick am Control-Port 2 an.
2 EDIT — Hier können Sie ein eigenes Spielfeld erstellen und speichern.
3 LOAD — Laden eines selbsterstellten Spielfeldes.
4 HIGHSCORES — Die Highscore-Liste wird gezeigt. Mit einem Tastendruck kommen Sie wieder ins Hauptmenü zurück. Sollten Sie besser als die Autoren spielen, werden Sie im Highscore verewigt. Dazu wird auf Diskette ein File namens »HS« angelegt.
5 END — Das Programm wird beendet.
Nun zur Tastenbelegung im Editmodus:
R — Zeichen auswählen, rückwärts
F — Zeichen auswählen, vorwärts
S — Zeichen setzen
L — Spielfeld löschen
A — Spielfeld SAVEn. Als Namen müssen Sie eine Zahl oder einen Buchstaben angeben.
X — Zurück zum Menü
Zum Editieren des Spielfeldes stehen verschiedene Zeichen bereit, die sich vom Aussehen und der Funktion unterscheiden. Die Zeichen und ihre Funktion sind in Tabelle 1 zusammengefaßt.
(Robert Brandl/Thomas Schmidt / hm)| Zeichen | Bedeutung |
 |
Backsteine: der Roboter kann auf diesen Zeichen stehen, gehen und hüpfen. = Springknopf: wenn man auf dieses Zeichen |
 |
kommt, springt er ein paar Zeichen hoch. Wenn man auf keinem Zeichen zum Stehen kommt, ist der Roboter nach dem Landen schrottreif. Man kann aber während des Springens den Joystick nach links oder rechts bewegen. Dadurch kann man ein Zeichen nach rechts oder links gehen. |
 |
Zauberstein: der Roboter kann solange auf diesem Zeichen stehen bis das Zeichen verschwindet. Wenn dann der Roboter mehr als zwei Zeichen tiefer fällt, geht er kaputt. |
 |
Fließband: der Roboter wird nach links oder rechts befördert. |
 |
Strauch: der Strauch ist für den Roboter nur dann gefährlich wenn er ihn mit den Ketten (dem unteren Teil des Roboters) berührt. |
 |
Faß: das Faß ist für Ketten und Kopf gefährlich. Es darf also nicht berührt werden. |
 |
Steinzapfen: die Zapfen dürfen ebenfalls nicht berührt werden. |
 |
Spiralleiter: der Roboter wird hinauftransportiert. |
 |
Sperrstein: der Stein wird dazu benutzt um dem Roboter den Weg nach links oder rechts zu versperren (z.B. als Endwand am rechten und linken Ende des Spielfelds). Man kann aber auch darauf stehen und laufen. |
| Maschinenroutinenbelegung | |
|---|---|
| $C800 | Musikprogramm mit Daten |
| $C000 | Scrollroutine und Bewegung der Sprites |
| $C180 | Löschroutine |
| $C1A0 | Saveroutine |
| $C2C6 | Interrupt, Zeichenbewegung und Musiksteuerung |
| $C400 | Hauptprogramm für das Spiel |
| Um das Programm zu starten, muß man den ersten Teil laden und mit RUN starten. Das Programm lädt den zweiten Teil automatisch nach. | |
PROGRAMM : ROBOSERVANT 0801 1CE5 ----------------------------------- 0801 : 10 08 34 0A 9E 32 30 36 0C 0809 : 36 20 20 20 20 17 00 00 16 0811 : 00 87 A2 BA BD 0D 07 48 C6 0819 : A0 DF B9 30 08 99 FF 00 6B 0821 : 88 D0 F7 A9 1F 87 24 BD 7F 0829 : 18 07 38 E7 24 4C 00 01 77 0831 : A8 85 02 A5 AE A6 AF 85 BB 0839 : 5A 86 5B BE 9E 01 CA 30 02 0841 : 67 BD 9F 01 85 59 CA BD 59 0849 : 9F 01 85 58 CA BD 9F 01 F0 0851 : 85 60 CA BD 9F 01 85 5F 47 0859 : 8E 9E 01 38 A5 59 E5 5B F1 0861 : 90 06 20 10 09 58 D0 37 03 0869 : 65 60 AA 18 A5 60 85 25 6A 0871 : A5 5F 85 24 65 58 90 01 09 0879 : E8 38 E5 5A B0 01 CA 85 8B 0881 : 22 86 23 B1 24 91 22 E6 0A 0889 : 24 D0 02 E6 25 E6 22 D0 26 0891 : 02 E6 23 A5 23 C5 59 D0 EB 0899 : EA A5 22 C5 58 D0 E4 A5 82 08A1 : 5F A6 60 A4 02 4C 07 01 A1 08A9 : 20 8E A6 EA EA EA EA EA 9F 08B1 : EA 68 20 88 01 6C 02 A0 A5 08B9 : C8 49 0B 48 2D 9D 01 AA 0B 08C1 : 29 06 C9 06 F0 01 78 68 EA 08C9 : 97 00 4C 00 30 37 30 38 61 08D1 : 09 86 03 7E 09 00 28 06 EB 08D9 : 0A 3F 29 45 0B 15 34 5A 55 08E1 : 0F 28 C1 82 10 71 C1 B3 C0 08E9 : 10 9A C1 CD 10 B8 C1 E5 0A 08F1 : 10 68 C3 4D 12 B6 C3 93 DD 08F9 : 12 3F C7 D2 15 13 CF 0C 38 0901 : 0C 0C 0C 0D 0D 0D 0D 0E 42 0909 : 0E 0E 0E 0F 0F 0F 0F 78 1A 0911 : A9 00 85 01 A5 58 D0 02 A0 0919 : C6 59 C6 58 A6 5A D0 02 CD 0921 : C6 5B C6 5A B1 5A 91 58 77 0929 : E4 5F D0 E8 A5 5B C5 60 1B 0931 : D0 E2 A9 07 85 01 60 78 90 0939 : A9 33 85 01 A9 00 85 5F 6D 0941 : A9 78 85 5A 85 58 A9 D0 36 0949 : 85 60 A9 27 85 59 A9 D7 C7 0951 : 85 5B 20 BF A3 A9 37 85 F3 0959 : 01 58 A2 08 A0 01 20 BA 38 0961 : FF A9 06 A2 7F A0 03 20 54 0969 : BD FF A9 00 20 D5 FF 86 4E 0971 : 2D 84 2E 4C 71 A8 42 41 DD 0979 : 53 49 43 2A 00 00 00 00 87 0981 : 00 00 00 00 00 00 00 00 82 0989 : 00 00 00 00 00 AA BE BE 57 0991 : BE BE BE BE AA AA BE BE AE 0999 : BE BE BE AA 00 00 00 28 0C 09A1 : 9E B6 B6 9E 28 AA 38 3F 53 09A9 : 3F 0C 0C 0C 0C 00 00 00 34 09B1 : 00 00 28 28 AA AA BF BF 3F 09B9 : AA FF FF AA 00 AA FF FF 0D 09C1 : AA BF BF AA 00 AA 66 99 B2 09C9 : 66 99 66 AA 00 02 AA 55 50 09D1 : 55 55 55 AA 00 80 AA 55 D5 09D9 : 55 55 55 AA 00 AA FF FF D9 09E1 : AA AA FF FF AA 00 00 08 9B 09E9 : 26 95 96 25 AA 00 00 28 1F 09F1 : 96 A6 56 58 AA AA BE BE F3 09F9 : AA FE FE AA 00 AA BF BF 0B 0A01 : AA BF BF AA 00 00 00 00 D0 0A09 : 00 00 00 00 00 00 00 00 0A 0A11 : 00 00 00 00 00 00 00 00 12 0A19 : 00 00 00 00 00 00 00 00 1A 0A21 : 00 0A 00 00 25 80 00 25 C7 0A29 : 80 00 0A 00 00 2D 80 00 97 0A31 : 2D 80 00 2D 80 00 0A 00 74 0A39 : 00 2A 80 00 9D E0 00 9D 8B 0A41 : E0 00 2A 80 7C 00 00 00 84 0A49 : 00 00 00 00 00 00 00 00 4A 0A51 : 00 00 00 00 00 00 00 00 52 0A59 : 00 00 00 00 00 00 00 00 5A 0A61 : 00 0A 00 00 25 80 00 25 07 0A69 : 80 00 0A 00 00 27 80 00 A7 0A71 : 27 80 00 27 80 00 0A 00 EE 0A79 : 00 2A 80 00 B7 60 00 B7 9C 0A81 : 60 00 2A 80 00 0F FF F0 D6 0A89 : 0F FF F0 0F FF F0 0E BB ED 0A91 : B0 0E FB F0 0E BA F0 0E FC 0A99 : BE F0 0D 55 70 0D AA 70 B8 0AA1 : 0D FA 70 0D AA 70 0D EF 2B 0AA9 : 70 0D AB 70 0D FA 70 0D 1D 0AB1 : AA 70 0D FA 70 0D AA 60 11 0AB9 : 0D A9 A0 0D 56 A0 0F FA 01 0AC1 : A0 0F FA A0 00 00 00 00 BC 0AC9 : 00 00 00 00 00 00 00 00 CA 0AD1 : 00 00 00 00 00 00 00 00 D2 0AD9 : 00 00 00 00 00 00 00 0A EE 0AE1 : 00 00 2A 00 A0 0B 00 A0 10 0AE9 : 3F 00 A0 0C 00 A4 3E 00 F0 0AF1 : A5 AE 00 AA 3E 00 20 FE A5 0AF9 : 00 20 EA 00 20 E2 00 AB 34 0B01 : E2 02 AA AA 00 00 00 00 E4 0B09 : 00 00 00 00 00 00 00 00 0A 0B11 : 00 00 00 00 00 00 00 00 12 0B19 : 00 00 00 00 00 00 00 0A 2E 0B21 : 00 00 2A 00 A0 0B 00 A0 50 0B29 : 3F 00 A0 0C 00 A4 BE 00 32 0B31 : A5 2E 00 AA 3E 00 20 FE A5 0B39 : 00 20 EA 00 20 E2 00 AB 74 0B41 : E2 02 AA AA A2 00 A0 00 D1 0B49 : A9 07 8D C1 02 8E C0 02 AD 0B51 : 8E C3 02 A9 01 8D C2 02 02 0B59 : 8E 20 D0 8E 21 D0 B9 78 6E 0B61 : 30 F0 0C 20 D2 FF C8 D0 02 0B69 : F5 EE 1C 30 4C 1A 30 A9 8C 0B71 : 00 85 02 A9 04 85 03 A9 B5 0B79 : D8 85 04 A9 3F 85 05 A0 C0 0B81 : 00 B1 02 18 69 80 91 04 C6 0B89 : C8 C0 28 D0 F4 E6 05 E6 3E 0B91 : 05 A5 02 18 69 28 90 02 0B 0B99 : E6 03 85 02 A5 04 18 69 50 0BA1 : A8 90 02 E6 05 85 04 E8 4D 0BA9 : E0 16 D0 D3 A0 00 B9 EA 0A 0BB1 : 33 F0 06 20 D2 FF C8 D0 D4 0BB9 : F5 4C 40 03 93 B1 AF AF 2A 0BC1 : AF AF B4 AF B4 AF B4 AF 66 0BC9 : AF AF AF AF AF AF AF AF C8 0BD1 : AF AF AF AF AF AF AF AF D0 0BD9 : AF AF AF AF AF AF AF AF D8 0BE1 : B1 AF AF AF B1 B1 AF AF 12 0BE9 : AF AF AF AF AF AF AF AF E8 0BF1 : AF AF AF AF AF AF AF AF F0 0BF9 : AF AF AF AF AF AF AF AF F8 0C01 : AF AF AF AF AF AF AF AF 00 0C09 : AF AF AF AF B1 B1 AF AF 38 0C11 : AF AF AF AF AF AF AF AF 10 0C19 : AF AF BC BC BD AF AF AF DE 0C21 : AF AF AF AF AF AF AF AF 20 0C29 : AF AF AF AF AF AF AF AF 28 0C31 : AF AF AF AF B1 B1 B6 B7 8C 0C39 : B6 B8 B8 B8 B6 B7 B6 B7 04 0C41 : B6 B7 B6 B7 B6 B7 BE AF FB 0C49 : AF AF AF AF BF B7 B6 B7 B6 0C51 : B6 B7 B6 B7 B6 B7 B6 B7 FB 0C59 : B1 BB BB BB B1 B1 AF AF 15 0C61 : AF B8 B8 B8 AF AF AF AF 48 0C69 : AF AF AF AF AF AF BF B7 B8 0C71 : B6 B7 B6 B7 BE AF AF AF 2F 0C79 : AF AF AF AF AF AF AF AF 78 0C81 : B1 BB BB BB B1 B1 BB BB 85 0C89 : BB B7 B7 B7 B7 B8 B8 B8 9A 0C91 : B8 B7 B7 BE AF AF AF AF 81 0C99 : AF AF AF AF AF AF AF AF 98 0CA1 : BC BD AF AF AF AF AF AF B4 0CA9 : B1 BB BB BB B1 B1 B4 B4 83 0CB1 : B4 AF AF AF AF AF AF AF B5 0CB9 : AF AF BF BA BA BA BA BA 69 0CC1 : BA BA BA BA BA BA BA BA C0 0CC9 : BA BA BA BA BC BD B8 B8 F4 0CD1 : B1 BB BB BB B1 B1 AF AF 8D 0CD9 : AF AF AF AF AF AF AF AF D8 0CE1 : AF AF AF AF AF AF AF AF E0 0CE9 : B3 B3 AF AF AF AF BC BD 3E 0CF1 : AF AF AF AF AF AF AF AF F0 0CF9 : B1 BB BB BB B1 B1 BC BD 05 0D01 : AF AF AF AF BF BE BF BE D8 0D09 : AF AF BF BE B0 BF BE BA D1 0D11 : B7 B7 B6 B6 B6 B6 BF BE C6 0D19 : B9 B9 B9 B9 B9 B7 B7 B7 FC 0D21 : B1 BB BB BB B1 B1 AF AF DD 0D29 : AF AF AF AF AF AF AF AF 28 0D31 : AF AF AF AF AF AF AF AF 30 0D39 : AF AF AF AF BB BB AF AF 59 0D41 : AF AF AF AF AF AF AF AF 40 0D49 : B1 BB BB BB B1 B1 AF AF 05 0D51 : B8 B0 B8 B0 B8 B0 B8 B0 FB 0D59 : BC BD B8 B8 B8 B0 B0 B0 6E 0D61 : B2 B2 B0 B0 B2 B2 B8 B8 C4 0D69 : B2 B2 B2 B2 B2 AF AF AF 3E 0D71 : B1 BB BB BB B1 B1 AF AF 2D 0D79 : AF AF AF AF AF AF AF AF 78 0D81 : AF AF AF AF AF AF AF AF 80 0D89 : AF AF AF AF AF AF AF AF 88 0D91 : AF AF AF AF AF B8 B8 B8 0F 0D99 : B1 BB BB BB B1 B1 B8 B8 8B 0DA1 : BF B6 B7 B7 B7 B6 B7 B6 1E 0DA9 : B6 B7 B6 B7 B6 B6 B6 B6 49 0DB1 : B7 B6 B7 B7 B6 B7 B7 B7 20 0DB9 : B6 B7 B6 B6 B7 B7 B6 BE 61 0DC1 : B1 BB BB BB B1 B1 B8 B8 B3 0DC9 : B1 AF AF AF AF AF AF AF CA 0DD1 : AF AF AF AF AF AF AF AF D0 0DD9 : AF AF AF AF AF AF AF AF D8 0DE1 : AF AF AF AF AF AF AF AF E0 0DE9 : B1 BB BB BB B1 B1 B8 B8 DB 0DF1 : B1 AF AF AF AF B8 B8 B8 71 0DF9 : B8 AF AF AF AF AF AF AF 01 0E01 : B0 B0 AF AF B3 AF AF AF C2 0E09 : AF AF AF AF AF AF AF AF 08 0E11 : B1 BB BB BB B1 B1 B8 B8 03 0E19 : B1 AF AF AF B8 B8 AF AF F3 0E21 : AF B8 AF BF B7 BE AF B0 A2 0E29 : B0 B0 AF B3 AF AF AF AF 2A 0E31 : AF AF AF AF AF AF AF AF 30 0E39 : B1 BB BB BB B1 B1 B8 B8 2B 0E41 : B1 AF AF AF B8 B8 AF AF 1B 0E49 : AF AF AF AF B1 AF AF B0 6A 0E51 : B0 B0 AF AF AF AF AF AF D2 0E59 : AF AF AF AF AF AF AF AF 58 0E61 : B1 BB BB BB B1 B1 B8 B8 53 0E69 : B1 AF AF AF B8 B8 B8 B8 79 0E71 : B8 B8 AF AF B1 AF B0 B0 24 0E79 : AF B0 AF AF AF BB BB BB A1 0E81 : BB AF AF B0 AF AF B8 AF D0 0E89 : B1 BB BB BB B1 B1 B8 B8 7B 0E91 : B1 AF AF AF B8 B8 AF AF 6B 0E99 : AF B8 AF AF B1 AF B0 B0 43 0EA1 : AF B0 AF AF AF BB AF AF 81 0EA9 : BB AF AF AF B0 B8 AF AF 0C 0EB1 : B1 BB BB BB B1 B1 B8 B8 A3 0EB9 : B1 AF AF AF B8 B8 AF AF 93 0EC1 : AF B8 AF AF B1 AF B0 B0 6B 0EC9 : B0 B0 B0 AF AF BB BB BB 33 0ED1 : BB AF AF AF B8 AF AF AF 6D 0ED9 : AF BB BB BB B1 B1 AF AF 93 0EE1 : AF AF AF B5 AF B8 B8 B8 1F 0EE9 : B8 AF AF AF B1 AF AF AF 11 0EF1 : B0 B0 AF AF B1 BB BC BD 42 0EF9 : BD B3 B3 AF B0 AF AF AF 19 0F01 : AF BB BB BB B1 B1 B7 B6 E9 0F09 : B7 B6 B7 B6 B7 B6 B7 B6 5D 0F11 : B7 B6 B7 B6 B7 B6 B7 B6 65 0F19 : B7 B6 B7 B6 B7 B6 B7 B6 6D 0F21 : B7 B6 B7 B6 B7 B6 B7 B6 75 0F29 : B7 B6 B7 B6 B1 00 93 9E A7 0F31 : 11 11 11 11 11 11 11 11 31 0F39 : 20 20 20 20 20 20 20 20 39 0F41 : 20 20 12 20 4E 4F 57 20 F7 0F49 : 4C 4F 41 44 49 4E 47 20 7A 0F51 : 50 41 52 54 20 32 20 92 9A 0F59 : 00 20 E4 C0 AD A7 02 C9 6E 0F61 : F7 F0 27 EE A7 02 4C CE D1 0F69 : C0 20 F5 C0 AD A7 02 C9 82 0F71 : F0 F0 06 CE A7 02 4C CE 8E 0F79 : C0 AD A2 02 18 69 01 B0 2B 0F81 : 1A 8D A2 02 20 B0 C0 4C 6E 0F89 : 5D C0 AD A2 02 38 E9 01 92 0F91 : 90 0F 8D A2 02 20 B0 C0 C6 0F99 : 4C 4E C0 EE A3 02 4C 28 E6 0FA1 : C0 CE A3 02 4C 39 C0 AD DE 0FA9 : 12 D0 C9 E5 D0 F9 A9 F0 B8 0FB1 : 8D A7 02 4C 69 C0 AD 12 93 0FB9 : D0 C9 E5 D0 F9 A9 F7 8D E9 0FC1 : A7 02 A0 00 A2 00 BD 00 B3 0FC9 : 40 9D 00 04 E8 E0 28 D0 30 0FD1 : F5 EE 6F C0 EE 6F C0 AD FA 0FD9 : 6E C0 18 69 A8 B0 1E 8D 7E 0FE1 : 6E C0 AD 71 C0 18 69 28 0C 0FE9 : B0 19 8D 71 C0 C8 C0 16 39 0FF1 : D0 D2 A9 04 8D 72 C0 A9 D8 0FF9 : 00 8D 71 C0 60 EE 6F C0 F1 1001 : 4C 86 C0 EE 72 C0 4C 91 20 1009 : C0 AD A2 02 8D 6E C0 AD 33 1011 : A3 02 8D 6F C0 60 AD A3 14 1019 : 02 CD C5 02 D0 08 AD C4 41 1021 : 02 CD A2 02 90 14 60 AD 79 1029 : F8 07 C9 A0 F0 06 A9 A0 52 1031 : 8D F8 07 60 A9 A1 8D F8 D8 1039 : 07 60 A2 1F 60 20 BD C0 7C 1041 : E0 1F D0 E2 20 06 C1 EE 58 1049 : 02 D0 EE 04 D0 60 20 BD FB 1051 : C0 E0 1F D0 D1 20 17 C1 61 1059 : CE 02 D0 CE 04 D0 60 AD DA 1061 : 02 D0 C9 FF F0 01 60 AD 32 1069 : 10 D0 09 06 8D 10 D0 60 42 1071 : AD 02 D0 C9 00 F0 01 60 D9 1079 : AD 10 D0 49 06 8D 10 D0 3A 1081 : 60 A9 0A A2 00 A0 00 99 C5 1089 : 00 D8 C8 C0 28 D0 F8 48 BD 1091 : AD 47 C1 18 69 28 B0 14 18 1099 : 8D 47 C1 68 E8 E0 16 D0 D7 10A1 : E4 A9 D8 8D 48 C1 A9 00 7B 10A9 : 8D 47 C1 60 EE 48 C1 4C 27 10B1 : 57 C1 A9 EF A2 00 A0 00 FE 10B9 : 99 00 3D C8 D0 FA EE 88 6C 10C1 : C1 E8 E0 42 D0 F0 A9 3F 30 10C9 : 8D 88 C1 60 A2 08 20 BA 77 10D1 : FF A9 01 A2 B7 A0 C1 20 01 10D9 : BD FF A9 FB A2 00 A0 78 1D 10E1 : 4C D8 FF 4E EE E2 02 AD CC 10E9 : E2 02 C9 04 F0 01 60 A2 9D 10F1 : 00 8E E2 02 AD FA 07 C9 94 10F9 : A3 F0 05 A9 A2 8D FA 07 1B 1101 : EE FA 07 18 0E C8 27 B0 56 1109 : 10 18 4E D0 27 B0 15 E8 F1 1111 : E0 02 D0 EF D0 ED 4C 4B 69 1119 : C2 AD C8 27 09 01 8D C8 29 1121 : 27 4C 25 C2 AD D0 27 09 20 1129 : 80 8D D0 27 4C 2B C2 AD 0D 1131 : C3 02 C9 02 F0 06 EE C3 2A 1139 : 02 4C B2 C2 A9 00 8D C3 BF 1141 : 02 AD C0 02 C9 01 F0 29 45 1149 : AE C1 02 BD C0 27 A8 A9 4B 1151 : 00 9D C0 27 AE C2 02 98 6F 1159 : 9D 7E 27 E0 08 F0 0A CE E9 1161 : C1 02 EE C2 02 4C B2 C2 0A 1169 : 60 A9 01 8D C0 02 4C B2 43 1171 : C2 AE C2 02 BD 7E 27 A8 39 1179 : A9 00 9D 7E 27 AE C1 02 4C 1181 : 98 9D C0 27 E0 06 F0 09 11 1189 : CE C2 02 EE C1 02 4C B2 D9 1191 : C2 A9 00 8D C0 02 A2 00 80 1199 : AC D8 27 BD D9 27 9D D8 32 11A1 : 27 E8 E0 07 D0 F5 8C DF 04 11A9 : 27 60 78 A9 EF 8D 14 03 15 11B1 : A9 C2 8D 15 03 A9 C3 8D 69 11B9 : E1 02 A9 04 8D E0 02 A9 C1 11C1 : 29 8D 12 D0 AD 11 D0 29 48 11C9 : 7F 8D 11 D0 A9 81 8D 1A 7E 11D1 : D0 58 60 AD 19 D0 8D 19 1C 11D9 : D0 30 0A AD 0D DC 58 20 53 11E1 : 45 C3 6C 60 03 6C E0 02 4A 11E9 : AD A7 02 8D 16 D0 EA A9 83 11F1 : 0E 8D 21 D0 A9 E2 8D 12 34 11F9 : D0 A9 1D 8D E0 02 4C 7E E3 1201 : EA A9 D0 8D 16 D0 AD FE 42 1209 : 02 8D 21 D0 A9 29 8D 12 72 1211 : D0 A9 04 8D E0 02 4C 7E B5 1219 : EA A9 31 8D 14 03 A9 EA AC 1221 : 8D 15 03 A9 F0 8D 1A D0 B4 1229 : 60 A5 06 C9 00 D0 1A AD 61 1231 : 84 03 C9 00 D0 0B A9 01 B7 1239 : 8D 84 03 20 03 C8 4C 00 75 1241 : C2 A9 00 8D 84 03 20 00 6A 1249 : C8 4C 00 C2 A9 00 8D 12 85 1251 : D4 8D 13 D4 A9 F0 8D 14 CC 1259 : D4 A0 32 A9 14 85 03 98 EA 1261 : AA A9 11 8D 12 D4 20 AC 77 1269 : C3 A9 21 8D 12 D4 20 AC 9C 1271 : C3 E6 03 A5 03 8D 0F D4 9F 1279 : CA E0 00 D0 E4 88 C0 00 63 1281 : D0 D9 A9 00 8D 0F D4 60 0E 1289 : 98 A0 00 C8 C0 DC D0 FB B9 1291 : A8 60 20 C7 C6 4C B8 C5 A8 1299 : 20 2C C7 AD D9 02 C9 00 4C 12A1 : F0 01 60 A9 00 8D D8 02 33 12A9 : 20 8A C6 AD 00 DC C9 6F 63 12B1 : F0 13 C9 67 F0 1B C9 6B 70 12B9 : F0 35 C9 77 F0 4F C9 7B 4D 12C1 : F0 51 4C 00 C4 20 0B C5 72 12C9 : 20 44 C6 20 2F C5 4C 00 13 12D1 : C4 20 0B C5 A2 04 8E D2 4B 12D9 : 02 20 87 C4 20 50 C6 C9 99 12E1 : 01 F0 09 AE D2 02 CA D0 7C 12E9 : ED 20 2F C5 4C 00 C4 20 83 12F1 : 0B C5 A2 04 8E D2 02 20 D0 12F9 : B6 C4 20 50 C6 C9 01 F0 C4 1301 : EB AE D2 02 CA D0 ED 20 63 1309 : 2F C5 4C 00 C4 20 87 C4 23 1311 : 4C 00 C4 20 B6 C4 4C 00 55 1319 : C4 20 04 C7 AD D6 02 C9 14 1321 : 01 F0 1F A9 08 8D D0 02 CC 1329 : 20 84 C5 E0 F1 F0 10 20 40 1331 : 10 C0 CE D0 02 20 B6 C6 F9 1339 : AD D0 02 C9 00 D0 F0 4C EB 1341 : 8A C6 A9 00 8D D6 02 60 F1 1349 : 20 04 C7 AD D6 02 C9 02 BB 1351 : F0 F0 A9 08 8D D0 02 20 CC 1359 : 9E C5 E0 F1 F0 E1 20 00 EF 1361 : C0 CE D0 02 20 B6 C6 AD 2B 1369 : D0 02 C9 00 D0 F0 4C 8A 88 1371 : C6 AD CE 02 8D 6A C6 AD A4 1379 : CD 02 38 E9 28 90 06 8D CD 1381 : 69 C6 4C 68 C6 CE 6A C6 88 1389 : 4C ED C4 AD CD 02 38 E9 54 1391 : 28 90 04 8D CD 02 60 CE C0 1399 : CE 02 4C 01 C5 20 0D C7 BD 13A1 : A9 00 8D D6 02 A2 08 8E FB 13A9 : D1 02 CE 01 D0 20 B6 C6 C6 13B1 : 20 B6 C6 AE D1 02 CA E0 CE 13B9 : 00 D0 EC 20 F9 C4 4C 8A 6C 13C1 : C6 20 0D C7 20 50 C6 C9 07 13C9 : 01 F0 19 A2 08 8E D1 02 1D 13D1 : 20 B6 C6 20 B6 C6 EE 01 61 13D9 : D0 AE D1 02 CA E0 00 D0 0A 13E1 : EC 20 5A C5 A9 00 8D D6 AB 13E9 : 02 4C 8A C6 20 6A C5 AD 54 13F1 : 69 C6 8D CD 02 AD 6A C6 9F 13F9 : 8D CE 02 60 AD CE 02 8D EE 1401 : 6A C6 AD CD 02 18 69 28 CA 1409 : B0 06 8D 69 C6 4C 68 C6 4B 1411 : EE 6A C6 4C 78 C5 AD CE 79 1419 : 02 8D 6A C6 AD CD 02 18 D7 1421 : 69 01 B0 06 8D 69 C6 4C D0 1429 : 68 C6 EE 6A C6 4C 92 C5 A2 1431 : AD CE 02 8D 6A C6 AD CD A7 1439 : 02 38 E9 01 90 06 8D 69 34 1441 : C6 4C 68 C6 CE 6A C6 4C 14 1449 : AC C5 20 50 C6 C9 01 F0 8B 1451 : 13 20 2F C5 EE D8 02 AD 12 1459 : D8 02 C9 02 D0 03 20 A4 D4 1461 : C6 4C B8 C5 AE D4 02 E0 8F 1469 : FA F0 12 E0 F9 F0 1C E0 D5 1471 : F8 F0 26 E0 F0 F0 39 20 43 1479 : 44 C6 4C 06 C4 A9 02 8D B1 1481 : D6 02 20 87 C4 20 8A C6 56 1489 : 4C 06 C4 A9 01 8D D6 02 1A 1491 : 20 B6 C4 20 8A C6 4C 06 5E 1499 : C4 AD C0 02 C9 01 D0 0D A6 14A1 : AD C1 02 C9 00 D0 06 20 C7 14A9 : 39 C5 4C B8 C5 4C 06 C4 4F 14B1 : AD C0 02 C9 00 D0 F6 AD 36 14B9 : C1 02 C9 06 D0 EF 20 39 2E 14C1 : C5 4C B8 C5 20 0B C5 4C 9D 14C9 : 06 C4 20 0B C5 20 0B C5 B0 14D1 : 20 0B C5 4C 06 C4 20 7B 70 14D9 : C6 E0 FB F0 E7 E0 F5 F0 6B 14E1 : E9 60 20 6A C5 8E D4 02 78 14E9 : A0 00 B9 39 C7 CD D4 02 61 14F1 : F0 07 C8 C0 06 D0 F3 A9 B9 14F9 : 01 60 AD 14 04 8D CF 02 08 1501 : A2 FF EC CF 02 F0 05 CA 29 1509 : E0 ED D0 F6 60 AD CD 02 A1 1511 : 8D 69 C6 AD CE 02 8D 6A C2 1519 : C6 4C 68 C6 AD 01 D0 C9 B2 1521 : 29 90 13 C9 C6 B0 0F 20 FF 1529 : 7B C6 8E D4 02 A0 02 20 B3 1531 : 58 C6 C9 01 F0 06 A9 01 67 1539 : 8D D9 02 60 20 DF C4 E0 15 1541 : F3 F0 F3 E0 F4 F0 EF 60 1C 1549 : 8A A2 00 A0 00 C8 C0 FE 80 1551 : D0 FB E8 E0 0A D0 F6 AA CD 1559 : 60 A9 00 8D 1E D0 AD 1E 9B 1561 : D0 C9 03 F0 05 C9 05 F0 89 1569 : 1A 60 AD DA 02 C9 00 F0 CA 1571 : 11 C9 02 F0 0D A9 05 8D 53 1579 : 15 D0 A9 02 8D DA 02 20 99 1581 : 70 C3 60 AD DA 02 C9 02 89 1589 : F0 06 A9 01 8D DA 02 60 7F 1591 : A9 02 8D D9 02 60 20 16 AA 1599 : C7 A9 21 8D 12 D4 60 20 B8 15A1 : 16 C7 A9 81 8D 12 D4 60 B3 15A9 : A9 00 8D 12 D4 8D 14 D4 AC 15B1 : 8D 0E D4 A9 02 8D 0F D4 22 15B9 : A9 1C 8D 13 D4 60 A2 17 3F 15C1 : A0 1F 20 0C E5 20 48 AF 5A 15C9 : 4C 9A AA EF F5 F3 FC FD FA 15D1 : F4 4C 6B C8 A9 0F 8D 18 59 15D9 : D4 A9 1A 8D 05 D4 A9 30 B8 15E1 : 8D 06 D4 A9 1A 8D 0C D4 C4 15E9 : A9 20 8D 0D D4 A9 00 8D 5D 15F1 : 17 D4 A9 73 85 F7 A9 C9 9D 15F9 : 85 F8 A9 A5 85 F9 A9 CA 7E 1601 : 85 FA A9 01 8D 40 03 8D 90 1609 : 41 03 A9 01 8D 41 03 A9 99 1611 : 00 8D 00 D4 8D 01 D4 8D C2 1619 : 07 D4 8D 08 D4 A9 40 8D A5 1621 : 3E 03 A9 20 8D 3F 03 A9 81 1629 : 02 8D 42 03 8D 43 03 A9 35 1631 : 02 8D 03 D4 A9 02 8D 02 3A 1639 : D4 4C C6 C8 A9 0F 8D 18 77 1641 : D4 A9 3A 8D 05 D4 A9 2D 22 1649 : 8D 06 D4 A9 19 8D 0C D4 1B 1651 : A9 20 8D 0D D4 A9 00 8D C5 1659 : 17 D4 A9 D7 85 F7 A9 CB 96 1661 : 85 F8 A9 5A 85 F9 A9 CD 82 1669 : 85 FA A9 01 8D 40 03 8D F8 1671 : 41 03 A9 01 8D 41 03 A9 01 1679 : 00 8D 00 D4 8D 01 D4 8D 2A 1681 : 07 D4 8D 08 D4 A9 40 8D 0D 1689 : 3E 03 A9 20 8D 3F 03 A9 E9 1691 : 02 8D 42 03 8D 43 03 A9 9D 1699 : D6 8D 60 03 A9 C8 8D 61 88 16A1 : 03 A9 0E 85 06 58 60 CE EF 16A9 : 43 03 D0 6A AD 42 03 8D 03 16B1 : 43 03 AD 40 03 C9 00 D0 09 16B9 : 29 AC 3E 03 8C 04 D4 A0 A6 16C1 : 00 B1 F7 8D 00 D4 20 48 01 16C9 : C9 B1 F7 8D 01 D4 20 48 E2 16D1 : C9 B1 F7 8D 40 03 F0 4F A1 16D9 : 20 48 C9 AC 3E 03 C8 8C 5D 16E1 : 04 D4 AD 41 03 C9 00 D0 03 16E9 : 27 AC 3F 03 8C 0B D4 A0 4C 16F1 : 00 B1 F9 8D 07 D4 20 4F 30 16F9 : C9 B1 F9 8D 08 D4 20 4F 11 1701 : C9 B1 F9 8D 41 03 20 4F 1E 1709 : C9 AC 3F 03 C8 8C 0B D4 1F 1711 : CE 40 03 CE 41 03 4C 31 5A 1719 : EA E6 F7 D0 02 E6 F8 60 8A 1721 : E6 F9 D0 02 E6 FA 60 A9 93 1729 : 00 85 06 A9 31 8D 60 03 AA 1731 : A9 EA 8D 61 03 AD 3E 03 7B 1739 : 8D 04 D4 AD 3F 03 8D 0B 0B 1741 : D4 4C 31 EA 63 38 04 45 78 1749 : 4B 04 63 38 04 45 4B 04 16 1751 : 63 38 20 C1 2C 10 3C 32 A9 1759 : 10 A2 25 30 63 38 04 45 9C 1761 : 4B 04 63 38 04 45 4B 04 2E 1769 : 63 38 20 C1 2C 10 3C 32 C1 1771 : 10 0F 43 30 63 38 04 45 72 1779 : 4B 04 63 38 04 45 4B 04 46 1781 : 63 38 20 C1 2C 10 3E 2A D1 1789 : 08 A2 25 08 87 21 30 63 36 1791 : 38 04 45 4B 04 63 38 04 CA 1799 : 45 4B 04 63 38 20 3C 32 CB 17A1 : 08 A2 25 08 A2 25 70 31 BC 17A9 : 1C 10 A2 25 08 63 38 08 A7 17B1 : C1 2C 10 0F 43 40 00 00 A5 17B9 : 10 31 1C 10 A2 25 08 63 A5 17C1 : 38 08 C1 2C 10 0F 43 40 FA 17C9 : 00 00 10 31 1C 10 A2 25 0B 17D1 : 08 63 38 08 C1 2C 10 0F 76 17D9 : 43 08 63 38 08 7D 54 08 CE 17E1 : 0F 43 08 79 64 40 C7 70 0B 17E9 : 40 83 59 04 7D 54 04 45 D7 17F1 : 4B 18 79 64 20 83 59 04 BF 17F9 : 7D 54 04 45 4B 18 79 64 6E 1801 : 20 83 59 04 7D 54 04 45 CF 1809 : 4B 08 79 64 08 45 4B 08 2B 1811 : 83 59 04 7D 54 04 45 4B 03 1819 : 08 79 64 08 45 4B 08 83 CE 1821 : 59 04 7D 54 04 45 4B 04 06 1829 : 83 59 04 7D 54 08 0F 43 52 1831 : 08 45 4B 04 0F 43 04 4B E1 1839 : 3F 08 0F 43 08 63 38 08 35 1841 : 4B 3F 04 63 38 04 3C 32 92 1849 : 04 4B 3F 04 63 38 08 C1 DF 1851 : 2C 08 3C 32 04 C1 2C 04 DE 1859 : 3E 2A 08 C1 2C 08 A2 25 BE 1861 : 08 87 21 40 86 23 38 A5 2B 1869 : 1F 04 86 23 04 A2 25 80 7B 1871 : 00 00 40 00 00 00 B4 04 5C 1879 : 18 B4 04 08 B4 04 10 B4 03 1881 : 04 10 47 06 18 47 06 08 04 1889 : 47 06 10 47 06 10 B4 04 7C 1891 : 18 B4 04 08 B4 04 10 B4 1B 1899 : 04 10 30 04 18 30 04 08 55 18A1 : 30 04 10 30 04 10 77 07 8A 18A9 : 18 77 07 08 77 07 10 77 1F 18B1 : 07 10 0C 07 18 0C 07 08 B2 18B9 : 0C 07 10 0C 07 10 77 07 AB 18C1 : 18 77 07 08 77 07 10 61 0A 18C9 : 08 10 B4 04 18 B4 04 08 CE 18D1 : B4 04 10 0C 07 10 B4 04 D9 18D9 : 18 B4 04 08 B4 04 10 00 F9 18E1 : 00 10 B4 04 10 00 00 10 B8 18E9 : 0C 07 10 00 00 10 0C 07 3C 18F1 : 10 00 00 10 0C 07 10 00 3D 18F9 : 00 10 77 07 10 00 00 10 E1 1901 : 98 05 10 00 00 10 98 05 0D 1909 : 10 00 00 10 98 05 10 00 0D 1911 : 00 10 B4 04 10 00 00 10 E8 1919 : 0C 07 10 00 00 10 61 08 C3 1921 : 18 61 08 08 61 08 10 E9 57 1929 : 07 10 0C 07 18 0C 07 08 2A 1931 : 0C 07 10 47 05 10 B4 04 5A 1939 : 10 00 00 10 47 06 10 00 30 1941 : 00 10 B4 04 10 00 00 10 18 1949 : 47 06 10 00 00 10 B4 04 F3 1951 : 10 47 06 10 B4 04 10 47 C3 1959 : 06 10 77 07 10 0C 07 10 C4 1961 : 47 06 10 98 05 10 47 05 BA 1969 : 10 B4 04 10 30 04 10 77 29 1971 : 07 10 A7 06 10 00 00 10 4C 1979 : A7 06 10 00 00 10 0C 07 E6 1981 : 10 00 00 10 0C 07 10 00 CD 1989 : 00 10 B4 04 18 B4 04 08 86 1991 : B4 04 10 0C 07 10 B4 04 99 1999 : 18 B4 04 08 B4 04 10 0C D1 19A1 : 07 10 00 00 40 00 00 00 B5 19A9 : 79 64 20 83 59 20 45 4B 0F 19B1 : 20 83 59 20 0F 43 08 BE 96 19B9 : 3B 38 00 00 10 3C 32 10 DC 19C1 : BE 3B 08 0F 43 18 45 4B A1 19C9 : 10 00 00 40 3C 32 08 3C CF 19D1 : 32 08 BE 3B 08 0F 43 10 45 19D9 : 45 4B 18 45 4B 08 0F 43 2A 19E1 : 08 45 4B 08 83 59 10 79 96 19E9 : 64 10 79 64 08 83 59 08 52 19F1 : 45 4B 08 79 64 10 83 59 95 19F9 : 10 0F 43 08 BE 3B 38 00 09 1A01 : 00 10 3C 32 08 3C 32 08 9A 1A09 : BE 3B 08 BE 3B 08 0F 43 F5 1A11 : 08 3C 32 18 00 00 38 3C 20 1A19 : 32 08 3C 32 08 3C 32 08 E0 1A21 : BE 3B 08 0F 43 10 45 4B C1 1A29 : 18 45 4B 08 0F 43 08 45 6D 1A31 : 4B 08 83 59 08 83 59 08 9E 1A39 : 79 64 18 83 59 08 45 4B DC 1A41 : 08 79 64 08 83 59 08 79 36 1A49 : 64 10 0F 43 08 BE 3B 38 B5 1A51 : 00 00 10 3C 32 08 BE 3B B2 1A59 : 10 0F 43 10 45 4B 10 00 B3 1A61 : 00 10 45 4B 20 0F 43 08 BC 1A69 : BE 3B 08 3C 32 08 BE 3B 23 1A71 : 10 BE 3B 08 0F 43 10 45 86 1A79 : 4B 10 00 00 10 45 4B 20 65 1A81 : 0F 43 08 BE 3B 08 00 00 00 1A89 : 08 83 59 08 79 64 08 79 78 1A91 : 64 18 79 64 20 83 59 20 B0 1A99 : 45 4B 20 83 59 20 0F 43 56 1AA1 : 08 BE 3B 38 00 00 18 83 46 1AA9 : 59 08 79 64 08 79 64 18 FF 1AB1 : 79 64 20 83 59 20 45 4B 17 1AB9 : 20 83 59 20 0F 43 08 BE 9E 1AC1 : 3B 38 00 00 10 3C 32 08 D4 1AC9 : BE 3B 10 BE 3B 08 0F 43 B7 1AD1 : 10 45 4B 10 00 00 10 45 24 1AD9 : 4B 20 0F 43 08 BE 3B 08 D4 1AE1 : 3C 32 08 BE 3B 10 BE 3B B6 1AE9 : 08 0F 43 10 BE 3B 08 BE AF 1AF1 : 3B 08 79 64 08 79 64 08 09 1AF9 : 79 64 08 79 64 18 79 64 8B 1B01 : 20 83 59 20 45 4B 20 83 73 1B09 : 59 20 0F 43 08 BE 3B 38 72 1B11 : 00 00 18 79 64 08 79 64 7C 1B19 : 08 79 64 18 79 64 50 00 F6 1B21 : 00 10 79 64 10 00 00 40 96 1B29 : 00 00 00 47 06 18 23 03 C6 1B31 : 08 47 06 18 23 03 08 77 BB 1B39 : 07 18 BB 03 08 77 07 18 24 1B41 : BB 03 08 FC 04 18 7D 02 1A 1B49 : 08 FC 04 18 7D 02 08 FC D5 1B51 : 04 18 7D 02 08 FC 04 18 AA 1B59 : 7D 02 08 47 06 18 23 03 76 1B61 : 08 47 06 18 23 03 08 47 8A 1B69 : 06 18 23 03 08 47 06 18 A8 1B71 : 23 03 08 47 06 18 23 03 B5 1B79 : 08 47 06 18 23 03 08 47 A2 1B81 : 06 18 23 03 08 47 06 18 C0 1B89 : 23 03 08 FC 04 18 7D 02 CA 1B91 : 08 FC 04 18 7D 02 08 FC 1D 1B99 : 04 18 7D 02 08 FC 04 18 F2 1BA1 : 7D 02 08 47 06 18 23 03 BE 1BA9 : 08 47 06 18 23 03 08 47 D2 1BB1 : 06 18 23 03 08 47 06 18 F0 1BB9 : 23 03 08 47 06 18 23 03 FD 1BC1 : 08 47 06 18 23 03 08 47 EA 1BC9 : 06 18 23 03 08 47 06 18 08 1BD1 : 23 03 08 FC 04 18 7D 02 12 1BD9 : 08 FC 04 18 7D 02 08 FC 65 1BE1 : 04 18 7D 02 08 FC 04 18 3A 1BE9 : 7D 02 08 47 06 18 23 03 06 1BF1 : 08 47 06 18 23 03 08 FC 86 1BF9 : 04 18 7D 02 08 FC 04 18 52 1C01 : 7D 02 08 47 06 18 23 03 1E 1C09 : 08 47 06 18 23 03 08 FC 9E 1C11 : 04 18 7D 02 08 FC 04 18 6A 1C19 : 7D 02 08 47 06 18 23 03 36 1C21 : 08 47 06 18 23 03 08 77 AB 1C29 : 07 18 BB 03 08 77 07 18 14 1C31 : BB 03 08 FC 04 18 7D 02 0A 1C39 : 08 FC 04 18 7D 02 08 FC C5 1C41 : 04 18 7D 02 08 FC 04 18 9A 1C49 : 7D 02 08 47 06 18 23 03 66 1C51 : 08 47 06 18 23 03 08 77 DB 1C59 : 07 18 BB 03 08 77 07 18 44 1C61 : BB 03 08 FC 04 18 7D 02 3A 1C69 : 08 FC 04 18 7D 02 08 FC F5 1C71 : 04 18 7D 02 08 FC 04 18 CA 1C79 : 7D 02 08 47 06 18 23 03 96 1C81 : 08 47 06 18 23 03 08 FC 16 1C89 : 04 18 7D 02 08 FC 04 18 E2 1C91 : 7D 02 08 FC 04 18 7D 02 AC 1C99 : 08 FC 04 18 7D 02 08 47 BA 1CA1 : 06 18 23 03 08 47 06 18 E0 1CA9 : 23 03 08 77 07 18 BB 03 65 1CB1 : 08 77 07 18 BB 03 08 FC 28 1CB9 : 04 18 7D 02 08 FC 04 18 12 1CC1 : 7D 02 08 FC 04 18 7D 02 DC 1CC9 : 08 FC 04 18 7D 02 08 47 EA 1CD1 : 06 18 23 03 08 47 06 18 10 1CD9 : 47 06 20 23 03 20 00 00 C1 1CE1 : 40 00 00 00 23
|
0 poke792,193:clr:gosub50000
1 rem *******************************
2 rem * (c) roboservant *
3 rem * *
4 rem *robert brandl thomas schmidt *
5 rem *kaiserstr. 4 buerkleinstr.15*
6 rem * *
7 rem *8510 fuerth 8510 fuerth *
8 rem *0911/717378 0911/717665 *
9 rem *******************************
10 d=49184:a=d+17:lo=16364:so=54272:fg=53280:da=2040:x=730:s=53248:sp=0
20 as=49152:ds=as+16:bn=16384:sysas+2051:gosub6000:gosub6100:poke56325,45
30 pokes+24,24:poke251,0:poke252,61:nn=56322
1000 sys49862:pokeso+24,15:pokeso+1,3:pokeso+5,135
2000 pokefg,0:pokefg+1,14:pokes+21,0:pokes+22,24:pokefg+2,8:pokefg+3,0
2005 poke766,0
2010 print"{clr}"chr$(142)chr$(8)spc(14)"{down}{blk}roboservant"
2020 print"{down}{down}{lred} {rvon}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}"
2030 print" {rvon}{CBM-U}{rvof} programmed by robert b. {rvon}{CBM-U}{rvof}
2040 print" {rvon}{CBM-A}{rvof} and thomas s. {rvon}{CBM-A}{rvof}
2080 print" {rvon}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}{CBM-A}{CBM-U}"
2120 print"{blk}{down}{down}{rght}1 = play game"
2130 print"{down}{rght}2 = edit modus"
2140 print"{down}{rght}3 = load"
2145 print"{down}{rght}4 = highscores"
2160 print"{down}{down}{down}"spc(15)"5 = end"
2200 poke198,0:wait198,1:geta$
2300 onval(a$)goto5000,4000,9000,9500,30000
2400 goto2200
4000 print"{clr}":gosub6150:fory=0to39:print"{CBM-T}";:next
4005 poke766,6:forad=56216to56255:pokead,10:next
4010 sysas+320:gosub6100:bu=255:bi=1044:po=16377:fl=7:gosub6000
4020 pokes,181:pokes+1,48:pokeda,160:goto4610:sysas+320
4100 pokenn,255
4105 geta$:ifa$=""then4105
4110 ifa$="r"then4650
4120 ifa$="f"then4600
4130 ifa$="l"then4700
4140 ifa$="{up}"then4800
4150 ifa$="{down}"then4850
4160 ifa$="s"then4900
4170 ifa$="{rght}"then4400
4180 ifa$="{left}"then4430
4200 ifa$="a"then15000
4220 ifa$="x"then2000
4300 goto4100
4400 pokenn,0:iffl=659then4100
4410 fl=fl+1:po=po-1
4415 fort=0to7:sysas:next
4420 goto4100
4430 pokenn,0:iffl=0then4100
4440 fl=fl-1:po=po+1
4445 fort=0to7:sysds:next
4450 goto4100
4600 bu=bu-1:ifbu=238thenbu=255
4610 forqw=1944to1983:pokeqw,bu:next:goto4105
4650 bu=bu+1:ifbu=256thenbu=239
4660 forqw=1944to1983:pokeqw,bu:next:goto4105
4700 sysas+384:goto4000
4800 bi=bi-40:ifbi<1044then4840
4810 po=po-680:pokes+1,peek(s+1)-8:goto4105
4840 bi=1044:goto4100
4850 bi=bi+40:ifbi>1884then4880
4860 po=po+680:pokes+1,peek(s+1)+8:goto4105
4880 bi=1884:goto4105
4900 pokebi,bu:pokepo,bu:goto4105
5000 ro=3:print"{lred}{clr}":gosub6100:gosub6000:gosub6150
5040 fory=0to39:print"{CBM-T}";:next
5060 print"{pur} robos: "rospc(10)"time: 000000"
5080 ti$="000000":pokex-1,0:pokex,0:sysas+320:sys50176:g$=ti$
5090 ifpeek(x-1)=1then5200
5100 gosub7000:printspc(11)"{blk}{rvon}mission completed{rvof}":fort=0to4000:next:goto50060
5200 fort=0to160:pokefg+1,2:next:gosub6150:ro=ro-1:printspc(12)"{pur}{down}"ro
5220 ifro=0then5950
5240 gosub6000:gosub6100:goto5080
5900 goto5900
5950 gosub7000:printspc(15)"{blk}{rvon}game over{rvof}":fort=0to3000:next:goto2000
6000 pokeda,160:pokeda+1,162:pokeda+2,163:poke717,100:poke718,4:poke729,0
6020 pokes+21,7:pokes+2,215:pokes+3,197:pokes+4,215:pokes+5,53
6040 pokes,181:pokes+1,53:pokes+16,0:poke708,211:poke709,63
6060 pokes+37,15:pokes+38,6:fort=0to3:pokes+39+t,0:next:pokes+28,7
6080 return
6100 poke674,228:poke675,63:sysd:return
6150 print"{home}{blu}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
7000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:return
9000 gosub10000:loada$,8,8
9500 gosub50240:printspc(12)"{down}{down}press any key":poke198,0:wait198,1:goto2000
10000 pokeso+24,0:sys49972:pokefg+1,14:a$="":input"{clr}{blk}{down}{down}{rght}nr.";a$
10010 ifa$=""thensys49862:pokeso+24,15:goto2000
10020 poke49591,asc(a$):return
15000 pokes+21,0:gosub10000:sys49568:sys49862:pokeso+24,15:goto2000
30000 sys64738
50000 open2,8,15:open1,8,2,"hs,p,r"
50010 input#2,n:close1:close2:ifn=0then50040
50020 fort=1to5:na$(t)="r.brandl & t.schmidt":sc$(t)="999999":next
50030 return
50040 open1,8,2,"hs,p,r":fort=1to5:input#1,na$(t):input#1,sc$(t):next:close1
50050 return
50060 sc$=g$:na$="":pokes+21,0
50070 fort=1to5:ifsc$<=sc$(t)then50090
50080 next:gosub50240:fort=0to3000:next:goto2000
50090 forj=5totstep-1:na$(j+1)=na$(j):sc$(j+1)=sc$(j):next:sc$(t)=sc$
50100 na$(t)="...................."
50110 gosub50240:print"{home}{down}{down}{down}{down} ";:form=1tot:print"{down}{down}";:next
50120 poke198,0:wait198,1:geta$
50130 ifa$=chr$(13)then50200
50140 ifa$=chr$(44)ora$=chr$(58)ora$=chr$(59)then50120
50150 ifa$=chr$(20)then50180
50160 ifa$<chr$(32)ora$>chr$(95)then50120
50165 iflen(na$)>19then50120
50170 na$=na$+a$:printa$;:goto50120
50180 iflen(na$)=<0then50120
50190 na$=left$(na$,len(na$)-1):print"{left}.{left}";:goto50120
50200 na$(t)=na$+right$(na$(t),len(na$(t))-len(na$))
50210 sys49972:pokeso+24,0:pokefg+1,14
50213 open1,8,15,"s:hs":close1
50215 open1,8,2,"hs,p,w":fort=1to5:print#1,na$(t):print#1,sc$(t):next:close1
50230 sys49862:pokeso+24,15:goto2000
50240 print"{clr}"spc(15)"{blk}{down}{down}top fives :
50260 printspc(14)"{CBM-T}{CBM-Y}{CBM-U}{CBM-Y}{CBM-T}{CBM-Y}{CBM-U}{CBM-Y}{CBM-T}{CBM-Y}{CBM-U}{CBM-Y}{CBM-T}{down}{down}
50270 forr=1to5:print" ";na$(r),sc$(r)chr$(13):next
50280 return
0 POKE 792,193:CLR :GOSUB 50000 1 REM ******************************* 2 REM * (C) ROBOSERVANT * 3 REM * * 4 REM *ROBERT BRANDL THOMAS SCHMIDT * 5 REM *KAISERSTR. 4 BUERKLEINSTR.15* 6 REM * * 7 REM *8510 FUERTH 8510 FUERTH * 8 REM *0911/717378 0911/717665 * 9 REM ******************************* 10 D=49184:A=D+17:LO=16364:SO=54272:FG=53280:DA=2040:X=730:S=53248:SP=0 20 AS=49152:DS=AS+16:BN=16384:SYS AS+2051:GOSUB 6000:GOSUB 6100:POKE 56325,45 30 POKE S+24,24:POKE 251,0:POKE 252,61:NN=56322 1000 SYS 49862:POKE SO+24,15:POKE SO+1,3:POKE SO+5,135 2000 POKE FG,0:POKE FG+1,14:POKE S+21,0:POKE S+22,24:POKE FG+2,8:POKE FG+3,0 2005 POKE 766,0 2010 PRINT"{CLR}"CHR$ (142)CHR$ (8)SPC( 14)"{DOWN,BLACK}ROBOSERVANT" 2020 PRINT"{2DOWN,LIG.RED,6SPACE,RVSON}AUAUAUAUAUAUAUAUAUAUAUAUAUA" 2030 PRINT"{6SPACE,RVSON}U{RVOFF,SPACE}PROGRAMMED BY ROBERT B.{SPACE,RVSON}U{RVOFF} 2040 PRINT"{6SPACE,RVSON}A{RVOFF,11SPACE}AND THOMAS S.{SPACE,RVSON}A{RVOFF} 2080 PRINT"{6SPACE,RVSON}UAUAUAUAUAUAUAUAUAUAUAUAUAU" 2120 PRINT"{BLACK,2DOWN,RIGHT}1 = PLAY GAME" 2130 PRINT"{DOWN,RIGHT}2 = EDIT MODUS" 2140 PRINT"{DOWN,RIGHT}3 = LOAD" 2145 PRINT"{DOWN,RIGHT}4 = HIGHSCORES" 2160 PRINT"{3DOWN}"SPC( 15)"5 = END" 2200 POKE 198,0:WAIT 198,1:GET A$ 2300 ON VAL (A$)GOTO 5000,4000,9000,9500,30000 2400 GOTO 2200 4000 PRINT"{CLR}":GOSUB 6150:FOR Y=0 TO39:PRINT"T";:NEXT 4005 POKE 766,6:FOR AD=56216 TO56255:POKE AD,10:NEXT 4010 SYS AS+320:GOSUB 6100:BU=255:BI=1044:PO=16377:FL=7:GOSUB 6000 4020 POKE S,181:POKE S+1,48:POKE DA,160:GOTO 4610:SYS AS+320 4100 POKE NN,255 4105 GET A$:IF A$="" THEN4105 4110 IF A$="R" THEN4650 4120 IF A$="F" THEN4600 4130 IF A$="L" THEN4700 4140 IF A$="{UP}" THEN4800 4150 IF A$="{DOWN}" THEN4850 4160 IF A$="S" THEN4900 4170 IF A$="{RIGHT}" THEN4400 4180 IF A$="{LEFT}" THEN4430 4200 IF A$="A" THEN15000 4220 IF A$="X" THEN2000 4300 GOTO 4100 4400 POKE NN,0:IF FL=659 THEN4100 4410 FL=FL+1:PO=PO-1 4415 FOR T=0 TO7:SYS AS:NEXT 4420 GOTO 4100 4430 POKE NN,0:IF FL=0 THEN4100 4440 FL=FL-1:PO=PO+1 4445 FOR T=0 TO7:SYS DS:NEXT 4450 GOTO 4100 4600 BU=BU-1:IF BU=238 THENBU=255 4610 FOR QW=1944 TO1983:POKE QW,BU:NEXT :GOTO 4105 4650 BU=BU+1:IF BU=256 THENBU=239 4660 FOR QW=1944 TO1983:POKE QW,BU:NEXT :GOTO 4105 4700 SYS AS+384:GOTO 4000 4800 BI=BI-40:IF BI<1044 THEN4840 4810 PO=PO-680:POKE S+1,PEEK (S+1)-8:GOTO 4105 4840 BI=1044:GOTO 4100 4850 BI=BI+40:IF BI>1884 THEN4880 4860 PO=PO+680:POKE S+1,PEEK (S+1)+8:GOTO 4105 4880 BI=1884:GOTO 4105 4900 POKE BI,BU:POKE PO,BU:GOTO 4105 5000 RO=3:PRINT"{LIG.RED,CLR}":GOSUB 6100:GOSUB 6000:GOSUB 6150 5040 FOR Y=0 TO39:PRINT"T";:NEXT 5060 PRINT"{PURPLE,5SPACE}ROBOS: "ROSPC( 10)"TIME: 000000" 5080 TI$="000000":POKE X-1,0:POKE X,0:SYS AS+320:SYS 50176:G$=TI$ 5090 IF PEEK (X-1)=1 THEN5200 5100 GOSUB 7000:PRINTSPC( 11)"{BLACK,RVSON}MISSION COMPLETED{RVOFF}":FOR T=0 TO4000:NEXT :GOTO 50060 5200 FOR T=0 TO160:POKE FG+1,2:NEXT :GOSUB 6150:RO=RO-1:PRINTSPC( 12)"{PURPLE,DOWN}"RO 5220 IF RO=0 THEN5950 5240 GOSUB 6000:GOSUB 6100:GOTO 5080 5900 GOTO 5900 5950 GOSUB 7000:PRINTSPC( 15)"{BLACK,RVSON}GAME OVER{RVOFF}":FOR T=0 TO3000:NEXT :GOTO 2000 6000 POKE DA,160:POKE DA+1,162:POKE DA+2,163:POKE 717,100:POKE 718,4:POKE 729,0 6020 POKE S+21,7:POKE S+2,215:POKE S+3,197:POKE S+4,215:POKE S+5,53 6040 POKE S,181:POKE S+1,53:POKE S+16,0:POKE 708,211:POKE 709,63 6060 POKE S+37,15:POKE S+38,6:FOR T=0 TO3:POKE S+39+T,0:NEXT :POKE S+28,7 6080 RETURN 6100 POKE 674,228:POKE 675,63:SYS D:RETURN 6150 PRINT"{HOME,BLUE,21DOWN}":RETURN 7000 PRINT"{HOME,9DOWN}";:RETURN 9000 GOSUB 10000:LOAD A$,8,8 9500 GOSUB 50240:PRINTSPC( 12)"{2DOWN}PRESS ANY KEY":POKE 198,0:WAIT 198,1:GOTO 2000 10000 POKE SO+24,0:SYS 49972:POKE FG+1,14:A$="":INPUT"{CLR,BLACK,2DOWN,RIGHT}NR.";A$ 10010 IF A$="" THENSYS 49862:POKE SO+24,15:GOTO 2000 10020 POKE 49591,ASC (A$):RETURN 15000 POKE S+21,0:GOSUB 10000:SYS 49568:SYS 49862:POKE SO+24,15:GOTO 2000 30000 SYS 64738 50000 OPEN 2,8,15:OPEN 1,8,2,"HS,P,R" 50010 INPUT#2,N:CLOSE 1:CLOSE 2:IF N=0 THEN50040 50020 FOR T=1 TO5:NA$(T)="R.BRANDL & T.SCHMIDT":SC$(T)="999999":NEXT 50030 RETURN 50040 OPEN 1,8,2,"HS,P,R":FOR T=1 TO5:INPUT#1,NA$(T):INPUT#1,SC$(T):NEXT :CLOSE 1 50050 RETURN 50060 SC$=G$:NA$="":POKE S+21,0 50070 FOR T=1 TO5:IF SC$<=SC$(T) THEN50090 50080 NEXT :GOSUB 50240:FOR T=0 TO3000:NEXT :GOTO 2000 50090 FOR J=5 TOTSTEP -1:NA$(J+1)=NA$(J):SC$(J+1)=SC$(J):NEXT :SC$(T)=SC$ 50100 NA$(T)="...................." 50110 GOSUB 50240:PRINT"{HOME,4DOWN,2SPACE}";:FOR M=1 TOT:PRINT"{2DOWN}";:NEXT 50120 POKE 198,0:WAIT 198,1:GET A$ 50130 IF A$=CHR$ (13) THEN50200 50140 IF A$=CHR$ (44)OR A$=CHR$ (58)OR A$=CHR$ (59) THEN50120 50150 IF A$=CHR$ (20) THEN50180 50160 IF A$<CHR$ (32)OR A$>CHR$ (95) THEN50120 50165 IF LEN (NA$)>19 THEN50120 50170 NA$=NA$+A$:PRINTA$;:GOTO 50120 50180 IF LEN (NA$)=<0 THEN50120 50190 NA$=LEFT$ (NA$,LEN (NA$)-1):PRINT"{LEFT}.{LEFT}";:GOTO 50120 50200 NA$(T)=NA$+RIGHT$ (NA$(T),LEN (NA$(T))-LEN (NA$)) 50210 SYS 49972:POKE SO+24,0:POKE FG+1,14 50213 OPEN 1,8,15,"S:HS":CLOSE 1 50215 OPEN 1,8,2,"HS,P,W":FOR T=1 TO5:PRINT#1,NA$(T):PRINT#1,SC$(T):NEXT :CLOSE 1 50230 SYS 49862:POKE SO+24,15:GOTO 2000 50240 PRINT"{CLR}"SPC( 15)"{BLACK,2DOWN}TOP FIVES : 50260 PRINTSPC( 14)"TYUYTYUYTYUYT{2DOWN} 50270 FOR R=1 TO5:PRINT"{2SPACE}";NA$(R),SC$(R)CHR$ (13):NEXT 50280 RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen