Gold-Fieber
Sammeln Sie Goldklumpen! Die lukrative Tätigkeit wird allerdings durch viele Gefahren sehr erschwert.
»Stone Rescue«, so der Name des Spiels, handelt von dem nie aufgebenden Goldsucher Freddy Stone. Freddy durchwühlt unterirdische Gänge und Räume nach Goldklumpen. Er ist dermaßen goldgierig, daß er einen Raum erst dann wieder verläßt, wenn er den letzten Rest des gelben Metalls »eingesackt« hat. Selbst Gefahren wie bissige Giftschlangen, Pilze mit tödlicher Wirkung, magische Fallen und spitze Dornen, dämpfen Freddy’s Goldgier nicht im mindesten.
Hat Freddy alle Nuggets eingesteckt, krabbelt er tiefer in die Höhle. Er steigt dazu über eine Leiter in eine tiefer liegende Etage. Innerhalb eines Höhlenraums kann sich Freddy auch an Lianen nach oben oder unten hangeln.
Tödlich sind die Höhlenwände, wenn Freddy dagegenspringt. Ebenso verträgt Freddy keinen Sturz über vier Meter Höhe. Wie soll er auch! Sollte Freddy einen Raum nicht mehr lebend verlassen, werden alle Goldklumpen, wie durch eine magische Hand, wieder am ursprünglichen Ort plaziert. In diesem Fall vertreten Freddy seine beiden Zwillingsbrüder, die auch vom Goldfieber gepackt werden.
Helfen Sie dem Goldsucher Freddy!
Führen Sie Freddy durch das unterirdische Reich und zeigen Sie ihm, wo die Goldklumpen liegen. Schließen Sie dazu einen Joystick an den Control-Port 1 an. Haben Sie sich durch die zehn Bilder »geschlagen«, können Sie Ihre eigenen Höhlen konstruieren. Mit dem Spielgenerator von »Stone Rescue« sind bis zu 89 Bilder möglich.
Tips zur Eingabe und zur Bedienung
»Stone Rescue« besteht aus drei Programmen: zwei Maschinenroutinen und einem Basic-Hauptprogramm. Der »Bildgenerator« wird nur ein einziges Mal zur Erzeugung von zehn Bildern benötigt. Er enthält die zehn Bilder in stark komprimierter Form.
Das Hauptprogramm lädt die Maschinenroutinen von Diskette und steuert den Spielverlauf. Es druckt das Titelbild, übergibt Parameter an die Maschinenprogramme und übernimmt die beiden Funktionen »Play« (spielen) und »Generate« (Spielfeld generieren).
Das Maschinenprogramm »STONE 1« ist das Herzstück des Programms. Es erfüllt folgende Aufgaben: Joystickabfrage, Kollisionsüberprüfung, Scoreangabe, Sound, Animation der Schlangen und Veränderung der Grafikzeichen, Veränderung des Zeichensatzes, Bildgenerator und Laden von Bildern.
Das Programm »STONE 2« enthält die Daten der zwölf Multicolor-Sprites der Männchen und für die beiden Schlangen-Sprites. Benennen Sie bitte beide Maschinenprogramme mit dem angegebenen Namen. Die Maschinenroutinen werden nämlich vom Basic-Programm nachgeladen.
Der »Bildgenerator« dient nur zum Erstellen der ersten zehn Grafikbilder. Laden Sie dazu »STONE 1« und »STONE2« absolut von Diskette (,8,1) und geben nach jedem Ladevorgang NEW ein. Danach können Sie den »Bildgenerator« laden und mit RUN starten. Nach etwa 25 Minuten sind die ersten zehn Level generiert und Sie können »STONE RESCUE 1« laden und starten. Das Spiel beginnt.
Wenn Sie »Stone Rescue« zum erstenmal eingeben und starten, halten Sie bitte die untenstehende Reihenfolge ein.
- »STONE RESCUE 1« abtippen und speichern
- NEW eingeben
- »STONE 1« mit dem MSE eintippen und speichern
- NEW
- »STONE 2« wieder eingeben (MSE) und speichern
- NEW
- LOAD"STONE 1",8,1
- NEW
- LOAD"STONE2",8,1
- NEW
- LOAD"BILDGENERATOR",8
- RUN (Bilder werden auf Diskette erzeugt)
- LOAD"STONE RESCUE 1",8
- RUN (Spiel und Generator werden gestartet)
Haben Sie diese Prozedur einmal hinter sich gebracht, müssen Sie nur noch LOAD"STONE RESCUE 1",8 und danach RUN eingeben. Alles andere geschieht dann automatisch.
Nun zum interessantesten Teil von »Stone Rescue«, dem Bildgenerator. Im Hauptprogramm müssen Sie dazu, bei der Frage »Play or Generate«, »G« eingeben und den Joystick, wie beim Spiel, am Control-Port 1 anschließen. Sie sehen dann das Spielfeld. Mit dem Joystick fahren Sie den Cursor nun an die Stelle, an der Sie mit Ihrer Konstruktion beginnen möchten. Zum Setzen eines Zeichens drücken Sie einfach den Feuerknopf, zur Auswahl eines Zeichens die F1- (vorwärts im Zeichensatz) oder die F3-Taste (rückwärts). Das Zeichen wird rechts unten am Bildschirm und an der Cursorstelle dargestellt. Zum Abspeichern eines Bildes auf Diskette drücken Sie F4. Mit der Plus- oder Minus-Taste wird die gewünschte Bildnummer eingestellt. Mit RETURN wird mit dem Speichern begonnen. Sollte die Nummer schon vorhanden sein, fragt das Programm, ob der alte Level überschrieben werden soll. Das Laden funktioniert ähnlich dem Speichern eines Levels, nur müssen Sie F6 drücken. Sollte ein Bild nicht vorhanden sein, wird die Fehlermeldung der Diskettenstation angezeigt.
Hüten Sie sich vor der F2-Taste, mit der ein Bild endgültig gelöscht wird.
Mit F5 (schneller) und F7 (langsamer) können Sie die Cursorgeschwindigkeit regulieren.
Mit »@« wird das Programm abgebrochen. Es kann mit RUN wieder gestartet werden.
(Dirk Schlote, Matthias Strecker / hm)| F1, F3 | Zeichenwahl |
| F2 | Bild löschen |
| F4 | Bild von Diskette laden |
| F5, F7 | Geschwindigkeit der Cursorbewegung |
| F6 | Bild auf Diskette speichern |
| @ | Zurück zu Basic |
| +, – | Bildnummer erhöhen oder erniedrigen |
PROGRAMM : STONE 1 C000 CFC7 ----------------------------------- C000 : 78 A9 31 85 01 A9 00 85 B2 C008 : 62 85 64 A9 D0 85 63 A9 95 C010 : 30 85 65 A2 10 A0 00 B1 1A C018 : 62 91 64 C8 D0 F9 E6 63 B4 C020 : E6 65 CA D0 F2 A9 37 85 EA C028 : 01 58 AD 18 D0 29 F0 09 F0 C030 : 0C 8D 18 D0 78 A9 00 AA 4D C038 : A8 A9 54 85 8B A9 C0 85 8F C040 : 8C A9 08 85 8D A9 32 85 4E C048 : 8E B1 8B 91 8D C8 C0 70 C7 C050 : D0 F7 58 60 00 00 00 06 4A C058 : 24 4E EF FF FF EF 3A 24 50 C060 : 06 00 00 00 3C 7E FF 18 4E C068 : 99 9B DB FF 30 3F 30 30 E4 C070 : 30 BF F0 F0 0C FC 0C 0C CB C078 : 0C FD 0D 0F 30 3F 30 30 C6 C080 : 30 3F 30 30 0C FC 0C 0C 53 C088 : 0C FC 0C 0C 00 39 7C 7E 50 C090 : D7 77 3E FB 0C 0C 18 18 E4 C098 : 0C 0C 18 18 18 18 66 66 5C C0A0 : 18 18 66 66 08 18 30 30 8D C0A8 : 38 7B 73 FF 00 00 00 00 7B C0B0 : 00 00 00 00 C2 AD F0 F5 FA C0B8 : D8 F9 C6 A9 95 63 9F 5B 1D C0C0 : AF 0F B5 43 A9 00 A8 AA 5F C0C8 : 85 8B A9 04 85 8C A9 00 61 C0D0 : 85 8D A9 D8 85 8E B1 8B 4C C0D8 : C9 43 D0 05 A9 02 4C 42 78 C0E0 : C1 C9 44 D0 05 A9 09 4C 0B C0E8 : 42 C1 C9 45 D0 05 A9 09 14 C0F0 : 4C 42 C1 C9 46 D0 05 A9 59 C0F8 : 09 4C 42 C1 C9 47 D0 05 14 C100 : A9 09 4C 42 C1 C9 48 D0 B6 C108 : 05 A9 07 4C 42 C1 C9 49 19 C110 : D0 05 A9 0E 4C 42 C1 C9 00 C118 : 4A D0 05 A9 0E 4C 42 C1 11 C120 : C9 4B D0 05 A9 0F 4C 42 2C C128 : C1 C9 4C D0 05 A9 0F 4C 6D C130 : 42 C1 C8 D0 A1 E0 03 F0 AE C138 : 0E E8 E6 8C E6 8E 4C D6 C7 C140 : C0 60 91 8D 4C 32 C1 60 64 C148 : AD A3 32 C9 01 D0 08 A9 97 C150 : FF 8D 15 D0 20 7F C8 78 87 C158 : 20 CA C7 20 C4 C0 20 40 27 C160 : C9 A0 06 B9 88 32 99 FF B3 C168 : 05 88 D0 F7 20 C4 C6 AD 83 C170 : 9E 32 48 A9 00 A0 0A 99 CF C178 : 97 32 88 D0 FA 68 8D 9E CB C180 : 32 A9 D8 85 8B A9 04 85 8F C188 : 8C 20 FE C6 20 31 C8 58 1C C190 : A9 00 8D 98 32 8D A0 32 26 C198 : 20 B8 C1 20 5A C4 20 B6 42 C1A0 : C5 AD 98 32 C9 01 F0 07 1F C1A8 : AD A0 32 C9 01 D0 E9 A9 FD C1B0 : 00 8D 15 D0 8D A3 32 60 56 C1B8 : AD 01 DC AA 29 10 D0 06 D5 C1C0 : 20 32 C3 4C D2 C2 8A 29 33 C1C8 : 01 D0 1E AD 05 D0 20 B8 37 C1D0 : C2 20 07 C3 AD 05 D0 C9 B6 C1D8 : 30 F0 0B A5 8B 38 E9 28 6A C1E0 : 85 8B B0 02 C6 8C 4C D2 3F C1E8 : C2 8A 29 02 D0 25 AD 9A 9C C1F0 : 32 C9 01 F0 1B AD 05 D0 3A C1F8 : 20 C5 C2 20 07 C3 AD 05 FF C200 : D0 C9 F0 F0 0B A5 8B 18 4B C208 : 69 28 85 8B 90 02 E6 8C 26 C210 : 4C D2 C2 8A 29 04 D0 3F 3C C218 : AD 9B 32 C9 01 F0 35 AD 20 C220 : 9C 32 C9 01 D0 0E 20 B8 D7 C228 : C2 A5 8B 38 E9 28 85 8B B4 C230 : B0 02 C6 8C A9 00 8D 9C 2E C238 : 32 AD 04 D0 20 9E C2 20 9E C240 : EF C2 AD 04 D0 C9 10 F0 FA C248 : 0B A5 8B 38 E9 01 85 8B E4 C250 : B0 02 C6 8C 4C D2 C2 8A C0 C258 : 29 08 F0 03 4C 9B C2 AD 2A C260 : 9B 32 C9 01 F0 EE AD 9C 1D C268 : 32 C9 01 D0 0E 20 B8 C2 24 C270 : A5 8B 38 E9 28 85 8B B0 64 C278 : 02 C6 8C A9 00 8D 9C 32 79 C280 : AD 04 D0 20 AB C2 20 1A ED C288 : C3 AD 04 D0 C9 F8 F0 0B 7B C290 : A5 8B 18 69 01 85 8B 90 BA C298 : 02 E6 8C 4C D2 C2 AD 04 BC C2A0 : D0 18 E9 07 8D 04 D0 20 54 C2A8 : 7F C8 60 AD 04 D0 18 69 53 C2B0 : 08 8D 04 D0 20 7F C8 60 7C C2B8 : AD 05 D0 18 E9 07 8D 05 36 C2C0 : D0 20 FF C8 60 AD 05 D0 E2 C2C8 : 18 69 08 8D 05 D0 20 FF A0 C2D0 : C8 60 20 D6 C2 60 AC 95 B8 C2D8 : 32 A9 00 AA E8 8A D0 FB 52 C2E0 : 88 D0 F6 A9 00 8D 04 D4 E9 C2E8 : 8D 0B D4 8D 12 D4 60 AD 86 C2F0 : FA 07 C9 F8 F0 0B A9 F8 FF C2F8 : 8D FA 07 A9 00 8D 04 D4 20 C300 : 60 A9 F9 8D FA 07 60 AD 2A C308 : FA 07 C9 FB F0 06 A9 FB 55 C310 : 8D FA 07 60 A9 FC 8D FA 97 C318 : 07 60 AD FA 07 C9 F5 F0 92 C320 : 06 A9 F5 8D FA 07 60 A9 E7 C328 : 00 8D 04 D4 A9 F6 8D FA 09 C330 : 07 60 A9 03 8D AC 32 8D 54 C338 : B4 32 AD FA 07 F0 50 C9 9D C340 : FB F0 4C C9 FC F0 48 C9 0C C348 : F5 F0 46 C9 F6 F0 42 AD DB C350 : FA 07 8D 96 32 A9 FA 8D 7B C358 : FA 07 A2 03 8E 97 32 AD A9 C360 : 05 D0 38 E9 08 8D 05 D0 BB C368 : 20 AD C8 20 AD C8 AD 04 75 C370 : D0 38 E9 08 8D 04 D0 20 54 C378 : C3 C5 AD 98 32 C9 01 F0 F4 C380 : 0F 20 D6 C2 AE 97 32 CA B3 C388 : 8E 97 32 D0 D2 F0 05 60 12 C390 : 60 4C D8 C3 A2 03 8E 97 70 C398 : 32 AD 04 D0 38 E9 08 8D CA C3A0 : 04 D0 20 C9 C8 20 C9 C8 94 C3A8 : AD 05 D0 18 69 08 8D 05 26 C3B0 : D0 20 E2 C5 AD 98 32 C9 FE C3B8 : 01 F0 D5 20 41 C6 AD 9D E7 C3C0 : 32 C9 01 F0 CA 20 D6 C2 C4 C3C8 : AE 97 32 CA 8E 97 32 D0 38 C3D0 : C8 AD 96 32 8D FA 07 60 E8 C3D8 : AD FA 07 8D 96 32 A9 F7 07 C3E0 : 8D FA 07 A2 03 8E 97 32 68 C3E8 : AD 05 D0 38 E9 08 8D 05 72 C3F0 : D0 20 AD C8 20 AD C8 AD 43 C3F8 : 04 D0 18 69 08 8D 04 D0 36 C400 : 20 03 C6 AD 98 32 C9 01 4D C408 : F0 4F 20 D6 C2 AE 97 32 E7 C410 : CA 8E 97 32 D0 D2 A2 03 82 C418 : 8E 97 32 AD 05 D0 18 69 BE C420 : 08 8D 05 D0 20 C9 C8 20 FE C428 : C9 C8 AD 04 D0 18 69 08 C5 C430 : 8D 04 D0 20 22 C6 20 5A 85 C438 : C6 AD 9D 32 C9 01 F0 19 1D C440 : AD 98 32 C9 01 F0 12 20 1F C448 : D6 C2 AE 97 32 CA 8E 97 01 C450 : 32 D0 C8 AD 96 32 8D FA F9 C458 : 07 60 A0 00 AD 04 D0 C9 89 C460 : F8 D0 05 A9 F0 8D 04 D0 64 C468 : AD 04 D0 C9 10 D0 05 A9 74 C470 : 18 8D 04 D0 AD 05 D0 C9 44 C478 : 30 D0 05 A9 38 8D 05 D0 2C C480 : AD 05 D0 C9 F0 D0 11 AD 52 C488 : 9F 32 C9 01 D0 05 A9 01 B1 C490 : 8D A0 32 A9 E8 8D 05 D0 E0 C498 : A0 00 B1 8B AA C9 48 D0 D2 C4A0 : 1A A9 41 91 8B 20 73 C6 26 C4A8 : A9 0A 8D 18 D4 20 E5 C8 34 C4B0 : CE 9E 32 D0 05 A9 01 8D 31 C4B8 : 9F 32 60 8A C9 43 D0 06 E0 C4C0 : A9 01 8D 98 32 60 8A C9 44 C4C8 : 4B D0 06 A9 01 8D 98 32 75 C4D0 : 60 8A C9 49 D0 30 A9 0D 60 C4D8 : 8D AC 32 AD 05 D0 18 69 08 C4E0 : 08 8D 05 D0 20 C9 C8 20 BE C4E8 : C9 C8 A5 8B 18 69 28 85 69 C4F0 : 8B 90 02 E6 8C 20 D6 C2 CB C4F8 : A0 00 B1 8B C9 49 F0 DB D8 C500 : A9 00 8D B0 32 60 8A C9 07 C508 : 4A D0 2B AD 05 D0 38 E9 C6 C510 : 08 8D 05 D0 20 AD C8 20 0D C518 : AD C8 A5 8B 38 E9 28 85 83 C520 : 8B B0 02 C6 8C 20 D6 C2 07 C528 : A0 00 B1 8B C9 4A F0 DB 10 C530 : A9 00 8D B0 32 60 8A C9 37 C538 : 20 D0 3F A9 0D 8D AC 32 1A C540 : AD 05 D0 18 69 08 8D 05 BE C548 : D0 20 C9 C8 20 C9 C8 A5 72 C550 : 8B 18 69 28 85 8B 90 02 42 C558 : E6 8C EE 99 32 AD 99 32 CE C560 : C9 04 D0 05 A9 01 8D 98 0A C568 : 32 20 D6 C2 A0 00 B1 8B A0 C570 : C9 20 F0 CC A9 00 8D 99 23 C578 : 32 60 8A C9 41 D0 06 A9 BC C580 : 01 8D 9A 32 60 8A C9 46 43 C588 : F0 05 8A C9 47 D0 06 A9 3D C590 : 01 8D 9B 32 60 8A C9 44 8F C598 : F0 05 8A C9 45 D0 09 A9 39 C5A0 : 00 8D 9B 32 8D 9A 32 60 CB C5A8 : 8A C9 42 D0 15 A9 01 8D 7F C5B0 : 9A 32 8D 9C 32 60 AD 1E 73 C5B8 : D0 29 04 F0 05 A9 01 8D F9 C5C0 : 98 32 60 AD 04 D0 C9 10 4D C5C8 : D0 0C A9 18 8D 04 D0 A9 9B C5D0 : 01 8D 98 32 D0 6A A5 8B 12 C5D8 : 38 E9 29 85 8B B0 61 C6 51 C5E0 : 8C 60 AD 04 D0 C9 10 D0 C5 C5E8 : 0C A9 18 8D 04 D0 A9 01 F0 C5F0 : 8D 98 32 D0 4B A5 8B 18 B0 C5F8 : 69 27 85 8B 90 42 E6 8C 97 C600 : 4C 40 C6 AD 04 D0 C9 F8 B3 C608 : D0 0C A9 F0 8D 04 D0 A9 F6 C610 : 01 8D 98 32 D0 2A A5 8B 50 C618 : 38 E9 27 85 8B B0 21 C6 10 C620 : 8C 60 AD 04 D0 C9 F8 D0 A9 C628 : 0C A9 F0 8D 04 D0 A9 01 66 C630 : 8D 98 32 D0 0B A5 8B 18 EC C638 : 69 29 85 8B 90 02 E6 8C D6 C640 : 60 A0 00 B1 8B C9 20 F0 90 C648 : 0B A9 01 8D 9D 32 A9 F8 1E C650 : 8D FA 07 60 A9 00 8D 9D 34 C658 : 32 60 A0 00 B1 8B C9 20 C1 C660 : F0 0B A9 01 8D 9D 32 A9 42 C668 : F5 8D FA 07 60 A9 00 8D 32 C670 : 9D 32 60 AD 88 32 C9 39 A8 C678 : F0 06 EE 88 32 4C C4 C6 5E C680 : EE 87 32 A9 30 8D 88 32 EA C688 : AD 87 32 C9 3A D0 35 EE 9B C690 : 86 32 A9 30 8D 87 32 AD D9 C698 : 86 32 C9 3A D0 26 EE 85 F6 C6A0 : 32 A9 30 8D 86 32 AD 85 20 C6A8 : 32 C9 3A D0 17 EE 84 32 C7 C6B0 : A9 30 8D 85 32 AD 84 32 8C C6B8 : C9 3A D0 08 EE 83 32 A9 FB C6C0 : 30 8D 84 32 A0 06 B9 82 44 C6C8 : 32 99 37 05 88 D0 F7 A0 65 C6D0 : 00 B9 89 32 D9 83 32 D0 7A C6D8 : 08 C8 C0 06 D0 F3 4C F2 F9 C6E0 : C6 B0 0F A0 06 B9 82 32 73 C6E8 : 99 FF 05 99 88 32 88 D0 D3 C6F0 : F4 60 A0 06 B9 88 32 99 D9 C6F8 : FF 05 88 D0 F7 60 A9 09 F1 C700 : A0 C7 8D 14 03 8C 15 03 59 C708 : 60 AD A3 32 C9 01 D0 71 39 C710 : 20 6D C7 D0 55 AD A4 32 AC C718 : 8D 07 D0 AD A5 32 8D 09 47 C720 : D0 AD A6 32 8D 0B D0 AD 87 C728 : A7 32 8D 0D D0 AD 06 D0 22 C730 : 18 69 06 8D 06 D0 AD 08 DE C738 : D0 18 69 08 8D 08 D0 AD 27 C740 : 0A D0 18 69 0A 8D 0A D0 BC C748 : AD 0C D0 18 69 0C 8D 0C 78 C750 : D0 A0 05 B9 FA 07 C9 FE F6 C758 : D0 08 A9 FD 99 FA 07 4C 7C C760 : 67 C7 A9 FE 99 FA 07 88 94 C768 : D0 E9 4C 81 C7 AD A8 32 61 C770 : CD A9 32 D0 06 A9 00 8D 81 C778 : A8 32 60 EE A8 32 A9 01 F4 C780 : 60 20 6D C7 D0 41 AD AB 6A C788 : 32 C9 01 D0 1E A9 00 8D 44 C790 : AB 32 A0 08 B9 00 C8 99 6F C798 : 4F 32 B9 10 C8 99 47 32 4C C7A0 : B9 28 C8 99 08 32 88 D0 A8 C7A8 : EB F0 1C A9 01 8D AB 32 D7 C7B0 : A0 08 B9 08 C8 99 4F 32 BF C7B8 : B9 18 C8 99 47 32 B9 20 10 C7C0 : C8 99 08 32 88 D0 EB 4C F5 C7C8 : 31 EA 78 A9 E8 85 8B A9 FE C7D0 : 8F 85 8C A9 E8 85 8D A9 BE C7D8 : 03 85 8E A9 E8 85 BB A9 74 C7E0 : D7 85 BC A2 04 A0 18 B1 06 C7E8 : 8B 91 8D A9 05 91 BB C8 32 C7F0 : D0 F5 CA F0 0A E6 8C E6 63 C7F8 : 8E E6 BC A0 00 F0 E8 58 18 C800 : 60 18 18 66 66 18 18 66 94 C808 : 66 66 66 18 18 66 66 18 BC C810 : 18 0C 0C 18 18 0C 0C 18 77 C818 : 18 18 18 0C 0C 18 18 0C BE C820 : 0C 00 00 00 08 4C 26 EF 88 C828 : FF 00 00 00 06 24 4E EF C2 C830 : FF A0 02 A9 30 99 99 04 73 C838 : 88 D0 FA AD AC 32 8D 9A 64 C840 : 04 AD AD 32 8D 9B 04 A0 D3 C848 : 02 A9 30 99 A1 06 88 D0 6C C850 : FA AD AE 32 8D A2 06 AD 74 C858 : AF 32 8D A3 06 A0 04 A9 C1 C860 : 30 99 3F 07 88 D0 FA AD 64 C868 : B0 32 8D 42 07 AD B1 32 E6 C870 : 8D 43 07 AD B2 32 8D 44 92 C878 : 07 AD B3 32 8D 45 07 A9 FB C880 : 05 8D 18 D4 A9 00 8D 05 C7 C888 : D4 A9 F0 8D 06 D4 A9 08 DC C890 : 8D 03 D4 A9 00 8D 02 D4 27 C898 : A9 05 8D 01 D4 A9 23 8D 8A C8A0 : 00 D4 A9 81 8D 04 D4 A9 44 C8A8 : 01 8D B0 32 60 AD B0 32 7D C8B0 : 8D 01 D4 A9 23 8D 00 D4 70 C8B8 : AE B0 32 E8 8E B0 32 E0 61 C8C0 : 0D F0 75 A9 41 8D 04 D4 12 C8C8 : 60 AD B0 32 8D 01 D4 A9 F9 C8D0 : 23 8D 00 D4 AE B0 32 CA 23 C8D8 : 8E B0 32 E0 00 F0 51 A9 87 C8E0 : 41 8D 04 D4 60 A9 0C 8D 22 C8E8 : 0C D4 A9 00 8D 0D D4 A9 B1 C8F0 : 05 8D 08 D4 A9 23 8D 07 50 C8F8 : D4 A9 21 8D 0B D4 60 AD CF C900 : B1 32 C9 01 F0 15 A9 03 C1 C908 : 8D 01 D4 A9 05 8D 00 D4 E7 C910 : A9 41 8D 04 D4 A9 01 8D F7 C918 : B1 32 60 A9 05 8D 01 D4 9A C920 : A9 07 8D 00 D4 A9 41 8D 6B C928 : 04 D4 A9 00 8D B1 32 60 F1 C930 : A9 0D 8D B0 32 4C AD C8 A7 C938 : A9 00 8D B0 32 4C C9 C8 99 C940 : A9 E8 85 8B A9 03 85 8C 12 C948 : A9 E8 85 8D A9 D7 85 8E 05 C950 : A0 18 A2 04 B1 8B C9 1B FA C958 : F0 06 B0 04 A9 01 91 8D FC C960 : C8 D0 F1 CA F0 06 E6 8C 5A C968 : E6 8E D0 E8 60 A2 08 A0 63 C970 : 01 20 BA FF A2 B9 A0 32 0F C978 : A9 10 20 BD FF A9 00 20 77 C980 : D5 FF 60 BF A0 00 8C 20 E1 C988 : D0 8C 21 D0 A9 00 85 9F F1 C990 : A9 05 8D 86 02 20 44 E5 EE C998 : 20 00 C0 78 A9 09 8D 14 39 C9A0 : 03 A9 C7 8D 15 03 58 A9 39 C9A8 : 07 8D A9 32 A9 00 8D 00 F7 C9B0 : D0 85 D6 8D 01 D0 A9 A0 29 C9B8 : 8D 1E 04 A9 41 85 AC A9 D1 C9C0 : 1E 85 10 A4 9F F0 2D 88 81 C9C8 : A9 E8 85 8B A9 03 85 8C 9A C9D0 : A9 E8 85 8D A9 8F 85 8E 4B C9D8 : 20 68 CF 20 85 CF A2 00 86 C9E0 : A0 1F 20 AF CF A2 18 86 8D C9E8 : 02 A9 37 A0 CC 20 1E AB 3E C9F0 : C6 02 D0 F5 A0 1E A2 00 30 C9F8 : 20 AF CF A2 17 86 02 A9 39 CA00 : 49 A0 CC 20 1E AB C6 02 2F CA08 : D0 F5 A2 01 A0 1F 20 AF 7E CA10 : CF A9 C7 A0 CB 20 1E AB 47 CA18 : A0 0A A9 A0 8D 7F 06 8D 44 CA20 : BF 07 8D B6 07 8D 7E 06 80 CA28 : 99 DD 07 88 D0 FA A9 00 0E CA30 : 8D 08 32 A9 1D 8D 18 D0 C3 CA38 : AD 01 DC AA 29 FF F0 EE 26 CA40 : 8A 29 01 D0 0A AD 01 D0 6D CA48 : C9 00 F0 03 CE 01 D0 8A FB CA50 : 29 02 D0 0A AD 01 D0 C9 A9 CA58 : 18 F0 03 EE 01 D0 8A 29 9A CA60 : 08 D0 0A AD 00 D0 C9 1D F0 CA68 : F0 03 EE 00 D0 8A 29 04 A3 CA70 : D0 0A AD 00 D0 C9 00 F0 EE CA78 : 03 CE 00 D0 8A 29 10 D0 D0 CA80 : 24 A5 AC 85 AD A0 00 A9 86 CA88 : 05 91 BB 8D 92 DB A5 AC EE CA90 : AA C9 43 90 10 8A C9 4D 19 CA98 : F0 0B 8A C9 4E F0 06 20 AE CAA0 : 85 CF 4C B1 CA A9 A0 91 F6 CAA8 : 8B 20 BC CB A5 AC 8D 92 07 CAB0 : 07 A9 00 85 8B A9 04 85 5E CAB8 : 8C AE 01 D0 F0 0E A5 8B 23 CAC0 : 18 69 28 85 8B 90 02 E6 5B CAC8 : 8C CA D0 F2 A5 8B 18 6D 3E CAD0 : 00 D0 85 8B 90 02 E6 8C D9 CAD8 : A0 00 A5 8B 85 BB A5 8C 39 CAE0 : 18 69 D4 85 BC A5 AD 91 65 CAE8 : 8D B1 8B 85 AD A5 AC 91 BF CAF0 : 8B A5 8B 85 8D A5 8C 85 25 CAF8 : 8E A5 C5 AA C9 04 D0 08 30 CB00 : A5 AC C9 41 F0 0E C6 AC 8A CB08 : C9 05 D0 08 A5 AC C9 4E 0C CB10 : F0 02 E6 AC 8A C9 06 D0 01 CB18 : 08 A5 10 C9 01 F0 02 C6 5D CB20 : 10 C9 03 D0 08 A5 10 C9 71 CB28 : FF F0 08 E6 10 8A C9 2E 57 CB30 : D0 01 00 AD 8D 02 C9 01 49 CB38 : D0 08 8A C9 04 D0 03 4C 54 CB40 : 8C C9 AD 8D 02 C9 01 D0 E2 CB48 : 4D 8A C9 05 D0 48 A2 00 C7 CB50 : A0 1F 20 AF CF A2 18 86 FD CB58 : 02 A9 63 A0 CC 20 1E AB B9 CB60 : C6 02 D0 F5 A0 09 A9 A0 54 CB68 : 99 DE 07 88 D0 FA A2 01 B5 CB70 : A0 20 20 AF CF A9 77 A0 88 CB78 : CC 20 1E AB 20 95 CF 20 80 CB80 : 44 E5 A9 46 A0 CD 20 1E 1F CB88 : AB A9 35 A0 CD 20 1E AB 17 CB90 : 20 48 CE 4C 98 CE AD 8D E3 CB98 : 02 C9 01 D0 1C 8A C9 06 23 CBA0 : D0 17 20 95 CF 20 44 E5 91 CBA8 : A9 46 A0 CD 20 1E AB A9 4B CBB0 : 5A A0 CD 20 1E AB 4C 72 27 CBB8 : CE 4C 2E CA A6 10 A0 00 FF CBC0 : C8 D0 FD CA D0 FA 60 20 70 CBC8 : 4C 45 56 45 4C 2D 9D 9D D5 CBD0 : 9D 9D 9D 9D 11 11 4D 41 A8 CBD8 : 4B 45 52 9D 9D 9D 9D 11 6D CBE0 : 11 11 28 43 29 11 9D 9D B9 CBE8 : 9D 9D 11 31 39 38 34 9D 20 CBF0 : 9D 9D 11 11 42 59 11 11 18 CBF8 : 9D 9D 9D 9D 55 32 2D 53 C1 CC00 : 4F 46 54 11 11 11 9D 9D F5 CC08 : 9D 9D 9D 9D 9D 12 20 20 BA CC10 : 20 20 20 20 20 92 11 11 49 CC18 : 9D 9D 9D 9D 9D 9D 11 43 30 CC20 : 55 52 53 4F 52 11 11 9D 8A CC28 : 9D 9D 9D 9D 9D 9D 5A 45 6A CC30 : 49 43 48 4E 45 54 00 20 2E CC38 : 20 20 20 20 20 20 20 9D 33 CC40 : 9D 9D 9D 9D 9D 9D 9D 11 26 CC48 : 00 12 20 92 20 20 20 20 70 CC50 : 20 20 20 20 12 20 92 11 1B CC58 : 9D 9D 9D 9D 9D 9D 9D 9D 57 CC60 : 9D 9D 00 12 20 20 20 20 D2 CC68 : 20 20 20 20 9D 9D 9D 9D 1D CC70 : 9D 9D 9D 9D 92 11 00 46 35 CC78 : 52 45 44 59 53 11 11 9D E6 CC80 : 9D 9D 9D 9D 9D 20 20 20 A2 CC88 : 20 20 20 11 11 9D 9D 9D 92 CC90 : 9D 9D 9D 53 43 4F 52 45 50 CC98 : 3A 11 11 9D 9D 9D 9D 9D CB CCA0 : 9D 20 20 20 20 20 20 11 FF CCA8 : 11 9D 9D 9D 9D 48 49 2D 3E CCB0 : 11 9D 9D 9D 9D 9D 53 43 45 CCB8 : 4F 52 45 3A 11 11 9D 9D 14 CCC0 : 9D 9D 9D 9D 20 20 20 20 0B CCC8 : 20 20 11 11 9D 9D 9D 9D D7 CCD0 : 9D 9D 42 49 4C 44 20 3A D1 CCD8 : 11 11 9D 9D 9D 9D 9D 9D 05 CCE0 : 20 20 20 20 20 20 11 11 86 CCE8 : 9D 9D 9D 9D 9D 9D 4C 45 F1 CCF0 : 56 45 4C 3A 11 11 9D 9D 8F CCF8 : 9D 9D 9D 9D 20 20 20 20 43 CD00 : 20 20 11 11 11 9D 9D 9D 47 CD08 : 9D 9D 9D 28 43 29 20 55 89 CD10 : 32 00 11 11 11 9D 9D 9D 59 CD18 : 9D 9D 9D 9D 9D 9D 9D 9D 17 CD20 : 1E 4E 55 4D 4D 45 52 20 ED CD28 : 44 45 53 20 42 49 4C 44 10 CD30 : 45 53 20 3F 00 53 41 56 5B CD38 : 45 4E 11 9D 9D 9D 9D 9D 15 CD40 : B7 B7 B7 B7 B7 00 1D 1D E2 CD48 : 1D 1D 1D 1D 1D 1D 1D 1D 48 CD50 : 1D 1D 1D 11 11 11 1D 1D AE CD58 : 1E 00 4C 4F 41 44 45 4E 5B CD60 : 11 9D 9D 9D 9D 9D 9D B7 07 CD68 : B7 B7 B7 B7 B7 00 40 3A D1 CD70 : 53 54 4F 4E 45 2D 42 49 E4 CD78 : 4C 44 20 20 20 00 46 45 98 CD80 : 48 4C 45 52 4B 41 4E 41 04 CD88 : 4C 20 3A 90 00 1E 42 49 12 CD90 : 54 54 45 20 46 45 48 4C AC CD98 : 45 52 20 42 45 53 45 49 ED CDA0 : 54 49 47 45 4E 20 21 00 7E CDA8 : 1E 53 4F 4C 4C 20 40 2D EE CDB0 : 3A 47 45 53 41 56 45 27 74 CDB8 : 44 20 57 45 52 44 45 4E 84 CDC0 : 20 28 4A 2F 4E 29 20 3F 9A CDC8 : 00 A9 12 A0 CD 20 1E AB E3 CDD0 : A2 31 8E A0 05 8E A1 05 18 CDD8 : A9 05 8D A0 D9 8D A1 D9 BF CDE0 : 20 BC CB A5 CB AA AD A0 10 CDE8 : 05 C9 39 D0 07 AD A1 05 A9 CDF0 : C9 39 F0 05 8A C9 28 F0 AC CDF8 : 39 8A C9 2B F0 10 8A C9 9B CE00 : 01 D0 03 A9 01 60 8A C9 30 CE08 : 39 D0 D5 A9 00 60 AD A0 4F CE10 : 05 C9 31 D0 07 AD A1 05 CF CE18 : C9 31 F0 C4 AD A1 05 C9 DE CE20 : 30 D0 0A CE A0 05 A9 39 60 CE28 : 8D A1 05 D0 B3 CE A1 05 23 CE30 : D0 AE AD A1 05 C9 39 F0 5C CE38 : 05 EE A1 05 D0 A2 EE A0 DC CE40 : 05 A9 30 8D A1 05 D0 98 8E CE48 : 20 C9 CD D0 03 4C B7 CF EB CE50 : 20 BC CF 20 90 CE A0 0D E2 CE58 : 20 5A CF A9 00 8D 86 02 59 CE60 : A2 00 A0 90 86 FB 84 FC 91 CE68 : A9 FB A2 E9 A0 93 20 D8 CD CE70 : FF 60 20 C9 CD D0 03 4C E9 CE78 : B7 CF 20 90 CE A0 0D 20 97 CE80 : 5A CF 20 BC CF A9 00 8D C7 CE88 : 86 02 20 D5 FF 4C 98 CE 34 CE90 : A2 08 A0 01 20 BA FF 60 17 CE98 : A9 00 85 90 A9 01 A2 08 F2 CEA0 : A0 6F 8D 86 02 20 BA FF 38 CEA8 : A2 0F A0 04 20 AF CF A9 8D CEB0 : 7E A0 CD 20 1E AB A9 00 DC CEB8 : 20 BD FF 20 C0 FF A9 08 7D CEC0 : 20 B4 FF A9 6F 20 96 FF C2 CEC8 : 20 A5 FF 20 D2 FF 24 90 9E CED0 : 50 F6 A9 08 20 AB FF A9 B9 CED8 : 01 20 C3 FF A0 96 B9 40 00 CEE0 : 06 C9 1B B0 07 A9 05 99 AD CEE8 : 40 DA A9 00 88 D0 EF AD 2A CEF0 : 69 06 C9 36 D0 3D AD 6A 18 CEF8 : 06 C9 33 D0 36 A2 13 A0 D0 CF00 : 03 20 AF CF A9 A8 A0 CD F7 CF08 : 20 1E AB A5 CB C9 22 F0 4C CF10 : 09 A5 CB C9 27 D0 F4 4C 7D CF18 : B7 CF A2 6E A0 CD A9 0F 6A CF20 : 20 BD FF A9 20 A0 00 99 8E CF28 : 40 06 C8 D0 FA 20 53 CE 53 CF30 : 4C 98 CE AD 69 06 C9 30 80 CF38 : D0 09 AD 6A 06 C9 30 D0 57 CF40 : 02 F0 0E A2 13 A0 06 20 21 CF48 : AF CF A9 8D A0 CD 20 1E 30 CF50 : AB A5 CB C9 40 F0 FA 4C 0A CF58 : B7 CF AD A0 05 99 6E CD E9 CF60 : C8 AD A1 05 99 6E CD 60 0D CF68 : A0 18 A2 05 B1 8D 91 8B 42 CF70 : C9 4C D0 04 A9 20 91 8B 0D CF78 : C8 D0 F1 CA F0 06 E6 8C 72 CF80 : E6 8E D0 E8 60 A5 8C 48 F4 CF88 : A5 8B 48 20 C4 C0 68 85 08 CF90 : 8B 68 85 8C 60 A0 00 A9 A1 CF98 : 20 91 8B A9 E8 85 8B A9 D5 CFA0 : 8F 85 8C A9 E8 85 8D A9 8E CFA8 : 03 85 8E 20 68 CF 60 86 A9 CFB0 : D6 84 D3 20 10 E5 60 E6 41 CFB8 : 9F 4C 90 C9 A2 70 A0 CD A6 CFC0 : A9 0D 20 BD FF 60 EF B9
PROGRAMM : STONE 2 3D40 3FC2 ----------------------------------- 3D40 : 00 00 00 00 00 00 00 FC 3A 3D48 : 00 03 FF 00 00 EC 00 00 31 3D50 : EA 00 00 E8 00 00 E0 00 DB 3D58 : 00 28 00 00 20 00 00 FC 68 3D60 : 00 00 DC 00 00 DC 00 00 7E 3D68 : DC 00 00 DC 00 00 30 00 A1 3D70 : 00 10 00 00 10 00 00 10 9A 3D78 : 00 00 3C 00 00 00 00 00 88 3D80 : 00 00 00 00 FC 00 03 FF 5C 3D88 : 00 00 EC 00 00 EA 00 00 1B 3D90 : E0 00 00 E8 00 00 20 00 0E 3D98 : 00 FC 00 04 DC 00 01 74 52 3DA0 : 00 00 FD 00 00 30 40 00 A2 3DA8 : 54 00 00 44 00 01 01 00 91 3DB0 : 04 00 40 0F 00 F0 00 00 2E 3DB8 : 00 00 00 00 00 00 00 00 B9 3DC0 : 00 00 00 00 FC 00 03 FF 9C 3DC8 : 00 00 EC 00 00 EA 00 00 5B 3DD0 : E0 00 00 28 00 00 20 00 36 3DD8 : 00 FC 00 00 74 40 01 FD A0 3DE0 : 00 04 FC 30 00 FC 30 35 3B 3DE8 : 75 70 30 00 00 30 00 00 23 3DF0 : 00 00 00 00 00 00 00 00 F1 3DF8 : 00 00 00 00 00 00 00 00 F9 3E00 : 00 00 00 00 FC 00 03 FF DC 3E08 : 00 00 EC 00 02 AC 00 00 C9 3E10 : AC 00 00 2C 00 00 A0 00 C5 3E18 : 00 20 00 00 FC 00 00 DC B2 3E20 : 00 00 DC 00 00 DC 00 00 3E 3E28 : DC 00 00 30 00 00 10 00 4B 3E30 : 00 10 00 00 10 00 00 10 5A 3E38 : 00 00 F0 00 00 00 00 00 75 3E40 : 00 00 00 00 FC 00 03 FF 1C 3E48 : 00 00 EC 00 02 AC 00 00 09 3E50 : AC 00 00 2C 00 00 AC 00 35 3E58 : 00 20 00 00 FC 00 00 DC F2 3E60 : 00 00 74 40 01 FD 00 04 8E 3E68 : FC 00 00 30 00 00 44 00 7C 3E70 : 01 01 00 04 00 40 3C 03 6B 3E78 : C0 00 00 00 00 00 00 00 39 3E80 : 00 00 00 00 FC 00 03 FF 5C 3E88 : 00 00 EC 00 02 AC 00 00 49 3E90 : AC 00 00 2C 00 00 A0 00 45 3E98 : 00 20 00 04 FC 00 01 5C B5 3EA0 : 00 00 F5 40 00 FC 10 30 AE 3EA8 : FC 00 35 75 70 00 00 30 08 3EB0 : 00 00 00 00 00 00 00 00 B1 3EB8 : 00 00 00 00 00 00 00 00 B9 3EC0 : 04 00 00 04 FC 00 07 FF 31 3EC8 : 40 04 FC 40 04 FC 40 04 83 3ED0 : FC 40 04 20 40 01 FC 40 72 3ED8 : 00 FD 40 00 FC 00 00 FC B1 3EE0 : 00 00 FC 00 00 FC 00 00 07 3EE8 : FC 00 00 74 00 00 44 00 84 3EF0 : 00 44 00 00 C4 00 00 04 67 3EF8 : 00 00 04 00 00 0C 00 00 5A 3F00 : 00 00 40 00 FC 40 07 FF FE 3F08 : 40 04 FC 40 04 FC 40 04 C3 3F10 : FC 40 04 20 40 04 FD 00 4E 3F18 : 05 FC 00 00 FC 00 00 FC 65 3F20 : 00 00 FC 00 00 FC 00 00 47 3F28 : FC 00 00 FC 00 00 74 00 96 3F30 : 00 44 00 00 44 00 00 4C 2F 3F38 : 00 00 40 00 00 C0 00 00 4F 3F40 : 00 00 00 00 00 00 00 00 41 3F48 : 00 00 00 00 00 00 00 00 49 3F50 : 00 00 00 20 00 00 A8 00 F7 3F58 : 02 8A 0A 0A 02 AB A8 00 83 3F60 : AA 00 00 00 00 00 00 00 0B 3F68 : 00 00 00 00 00 00 00 00 69 3F70 : 00 00 00 00 00 00 00 00 71 3F78 : 00 00 00 00 00 00 00 00 79 3F80 : 00 00 00 00 00 00 00 00 81 3F88 : 00 00 00 00 00 00 00 00 89 3F90 : 00 00 00 00 00 00 00 0A A5 3F98 : 00 00 0B 2A AA AA AA AA A0 3FA0 : A8 00 00 00 00 00 00 00 49 3FA8 : 00 00 00 00 00 00 00 00 A9 3FB0 : 00 00 00 00 00 00 00 00 B1 3FB8 : 00 00 00 00 00 00 00 00 B9 3FC0 : 00 EF E3
|
10 poke53280,1:poke53281,1:poke646,0
20 print"{clr}{down}{down}{down} bild-erzeuger {$a0}{$a0}
30 print"{down}{down}{down} (c) 1984
40 print"{down}{down}{down} by
50 print"{down}{down}{down} u2-software
60 dim h(75)
70 fort=0to9:h(48+t)=t:h(65+t)=t+10:next
80 b=30000
90 read a$,a
100 s=0
110 l=len(a$)-2:ifl<>60thene=1
120 fort=1tol+1step2
130 d$=mid$(a$,t,2)
140 h=asc(left$(d$,1))
150 l=asc(right$(d$,1))
160 d=h(h)*16+h(l)
170 pokeb+sc,d
180 sc=sc+1
190 s=s+d
200 next
210 z=z+1
220 ifs=athen270
230 poke631,13:poke198,1
240 print"{clr}":poke211,9:poke214,5:sys58640
250 print"fehler in zeile :";270+10*z;"{down}{down}"
260 print"{wht}fort=0to5:poke55576+t,1:next:list";270+10*z;"{up}{up}{up}{blk}":end
270 if e<>1then90
280 data ffa10b1804221813162413160c02241630161318ff270b00ffac0b18053016, 1658
290 data 130c0e133c0e3c0e0c04b300ff9f0b01ff270b1804240e3c0e133c1a241305, 1455
300 data ffbd0b038f019b130c053c1613160c161813160e0c132416130418ff250b05, 1473
310 data 2300feffa10b0c02300e300e0c023c0e0c130c0e18020cff1b0b00ff410b03, 1664
320 data 8f031701ff180b2402470c026c130cff210b00ff1b0b0353033b018303a70e, 1778
330 data 131802470c0254130c3b0218ff1b0b00ff1c0b0353032f017703b30c0e1318, 1424
340 data 02470c023c130c3b0224ff1b0b00ff1d0b03530323016b03bf0e020c131853, 1443
350 data 3c130c470c13020cff1b0b00ff5a0b03b303a701ff180b3016181316181630, 1728
360 data 160c130c5204ff270b051700feff790b0c13ff2f0b160c13302eff170b24e3, 2168
370 data 3013ff380b18130c9b0e18ff410b18530c13160cff470b6c02180218020cff, 1906
380 data 150b0c4700ff1d0b24ff370b03e324d7020c130cff3b0b249b031703ff200b, 2136
390 data 01231618130ce30c1318ff280b24ff3a0b03a718131624161324161324160c, 1520
400 data 220e160430ff230b053b00feff790b0c130c2f0c130c2f0c130c2f0c130c2f, 1488
410 data 0c130ccb0c020c2f0c0e0c2f0c020c2f0c0e0cff880b0c130c1703170c130c, 1052
420 data 2f0c130c1703170c130c2f0c130ccb242f0c020c2f242f0c020cffb00b0c13, 1213
430 data 0c2f0c130c1703170c130c2f0c130c1703170c130ccb0c020c2f242f0c020c, 761
440 data 2f24ffdc0b038f03ff170b181324220c2e1318163c161804180eff240b052f, 1745
450 data 00feff790b1813180e18231a0c04240e230e3013020ca700ff4f0b01ff260b, 1820
460 data 1813240e231816301618230e241618a700ff4f0b01ff260b1813180e23130c, 1363
470 data 1648160c13230e181318a700ff4f0b01ff260b18130c0e23130c1660160c13, 1386
480 data 230e0c1318a700ff4f0b01ff180b03a718130e23130c166c3a17020c1318a7, 1635
490 data 00a7000000ff170b01a70101014703cb4813163c0524460c0430ff230b053b, 1617
500 data 00feff7f0b0e18ff1f0b0c020c130c3b02130e3c2f24020c13020ca7000083, 1621
510 data 008f00ff270b02ff170b03531324ff1a0b02300ea703ff270b01ff1b0b2413, 2060
520 data 2f48fb03ff220b480e18132301ff2b0b1813ff720b1813ff180b0101ff260b, 2209
530 data 241348ff270b00531813ff3d0b036b019b032303a718045e241324160c133a, 1683
540 data 0e24b305ff190b00feff790b0c130c232423242f0c1a0c2f0c130cff360b24, 1894
550 data 1a241a540e0c0e24ff290b181302cb0c130cff2e0b0e183b0e18ff190b24cb, 1823
560 data 03a7249b24470c1318ff180b180eff190b0e13240e0c0e245f60ff410b0c16, 1843
570 data 181718165f18ff350b13183b16182f0c160c2f1816230c13ff350b160c020c, 1298
580 data 16181624160c1624163c2f18ff380b13185f0c130c5f1813bf03ff250b0418, 1515
590 data 522413301630163c9b05ff1b0b00feffc90b02130c5318020c04180218530c, 1814
600 data 130cff260b0000ff370b0c16182f0c17130518170c2f0c1318ff8e0b246b18, 1556
610 data 13ff2d0b01ff200b18ff170b24fb019b038f18130c17182318130ce313d700, 2184
620 data ff3a0b0424d7012330ff270b00ff170b033b03ff190b0c130c162416241613, 1813
630 data 241648160c019b05ff1b0bfeff790b130c16ff160b160c13ff340b0c023016, 2055
640 data 3c1602301630162413fb0083005300b303ff270b0c131802bf301301ff1a0b, 1839
650 data 035f00ff1c0b023013ff1d0b03ff230b021324bf010c161318ff170b03bf00, 1869
660 data ff170b30130c02ff180b03ff270b0c131802bf301601ff1d0b033b00ff1a0b, 1936
670 data 01230c13302301ff690b03bf01e3130c0e240e133016133016131804180e0c, 1314
680 data 13ff220b054700fe2302170217021702170217021702170217021702170217, 959
690 data 0217021702ff230b03170317039b0017001700170017004700170017001700, 795
700 data 1700ff1a0b03ff1e0b010301030103010301e302ff150b02001700830c1318, 1358
710 data ff270b00ff160b03a7020002b30c130c164801030103011701030103010301, 1128
720 data ff1b0b24ff1c0b021702170217022300ff1d0b00170017001700ff300b03ff, 1671
730 data 220b0113165416130ce30317031703170300029b00d701170117011701ff2b, 1275
740 data 0b000200020002000200020002ff620b24161324ff500b0103010301030103, 862
750 data 0103010301030103010301039b0c1316133c16301316180430160c1318ff1e, 860
760 data 0b0577fe, 389
770 rem **** entschluesseln ****
780 poke646,peek(53281):poke53280,peek(646)
790 dimg(250),z(14):s=0:e=1:ln=1
800 fort=0to14:z(t)=t+65:next
810 h=0
820 x=peek(30000+s):g(h)=x:h=h+1
830 s=s+1:ifx<>254then820
840 printchr$(147)
850 b1=1064
860 b=b1:h=0
870 ifb>2012thenpoke2013,z(11):goto1030
880 l=g(h)
890 ifl=255then990
900 ifl>5 then920
910 pokeb,l:b=b+e:h=h+e:goto870
920 d1=int(l/12)
930 d2=l-12*d1
940 pokeb,d2+z(0):d1=d1-e:ifd1=0then970
950 b=b+e
960 goto 940
970 b=b+e:h=h+e
980 goto 870
990 h=h+e:m1=g(h):h=h+e:m2=g(h):h=h+e
1000 fory=etom1:pokeb-e+y,m2+z(0):next
1010 b=b+y-e
1020 goto 870
1030 rem *** liane rauf ***
1040 b=b1:v=40
1050 fort=0to959
1060 f=peek(t+b)
1070 iff<>0thennext:goto1120
1080 t1=t+b
1090 poket1,z(9)
1100 ifpeek(t1+v)=ethenpoket1+v,z(9):next:goto1120
1110 t1=t1+v:goto1090
1120 rem *** liane runter ***
1130 b=b1
1140 fort=0to959
1150 f=peek(t+b)
1160 iff<>2thennext:goto1210
1170 t1=t+b
1180 poket1,z(8)
1190 ifpeek(t1+v)=3thenpoket1+v,z(8):next:goto1210
1200 t1=t1+v:goto1180
1210 rem *** leitern ***
1220 b=b1
1230 fort=0to959
1240 f=peek(t+b)
1250 iff<>4thennext:goto1300
1260 t1=t+b
1270 poket1,z(5)
1280 ifpeek(t1+v)=5thenpoket1+v,z(5):next:goto1300
1290 t1=t1+v:goto1270
1300 b=b1:fort=0to959:f=peek(t+b):iff<>z(5)thennext:goto1320
1310 poket+b+e,z(6):next
1320 b=b1:fort=0to959:f=peek(t+b):iff<>z(5)thennext:goto1370
1330 ifpeek(t+b-e)=76andnotpeek(t+b+2)<>z(11)thennext:goto1370
1340 ifpeek(t+b+2)=74andpeek(t+b-e)=z(11)then1360
1350 poket+b,z(3):poket+b+e,z(4):next:goto1370
1360 poket+b,z(5):poket+b+e,z(6):next
1370 rem *** boden machen ***
1380 b=b1
1390 fort=bto1983
1400 l=peek(t):l1=peek(t+v):ifl1=z(5)orl1=z(6)orl1=z(9)orl1=0orl1=ethennext
1410 ifl=z(7)orl=z(10)orl=z(0)orl=z(2)orl=z(3)orl=z(4)thenpoket+v,z(e)
1420 next
1430 rem *** waende & rand machen ***
1440 r=160
1450 fort=b1-vto1984stepv:poket,z(12):poket+29,z(13):poket+30,r:poket+39,r
1460 next
1470 fort=1025to1052:poket,z(1):next
1480 poke52095,96:sys52046
1490 ln$="@:stone-bild"+str$(ln)
1500 sys(57812)ln$,8
1510 poke193,0:poke194,144
1520 poke174,233:poke175,147
1530 sys62957
1540 print"{clr}"
1550 ln=ln+1:ifln>10thenpoke646,0:end
1560 goto 810
10 POKE 53280,1:POKE 53281,1:POKE 646,0 20 PRINT"{CLR,3DOWN,12SPACE}BILD-ERZEUGER{5SPACE,2SHIFT-SPACE} 30 PRINT"{3DOWN,14SPACE}(C) 1984 40 PRINT"{3DOWN,17SPACE}BY 50 PRINT"{3DOWN,13SPACE}U2-SOFTWARE 60 DIM H(75) 70 FOR T=0 TO9:H(48+T)=T:H(65+T)=T+10:NEXT 80 B=30000 90 READ A$,A 100 S=0 110 L=LEN (A$)-2:IF L<>60 THENE=1 120 FOR T=1 TOL+1STEP 2 130 D$=MID$ (A$,T,2) 140 H=ASC (LEFT$ (D$,1)) 150 L=ASC (RIGHT$ (D$,1)) 160 D=H(H)*16+H(L) 170 POKE B+SC,D 180 SC=SC+1 190 S=S+D 200 NEXT 210 Z=Z+1 220 IF S=A THEN270 230 POKE 631,13:POKE 198,1 240 PRINT"{CLR}":POKE 211,9:POKE 214,5:SYS 58640 250 PRINT"FEHLER IN ZEILE :";270+10*Z;"{2DOWN}" 260 PRINT"{WHITE}FORT=0TO5:POKE55576+T,1:NEXT:LIST";270+10*Z;"{UP,2UP,BLACK}":END 270 IF E<>1 THEN90 280 DATA FFA10B1804221813162413160C02241630161318FF270B00FFAC0B18053016, 1658 290 DATA 130C0E133C0E3C0E0C04B300FF9F0B01FF270B1804240E3C0E133C1A241305, 1455 300 DATA FFBD0B038F019B130C053C1613160C161813160E0C132416130418FF250B05, 1473 310 DATA 2300FEFFA10B0C02300E300E0C023C0E0C130C0E18020CFF1B0B00FF410B03, 1664 320 DATA 8F031701FF180B2402470C026C130CFF210B00FF1B0B0353033B018303A70E, 1778 330 DATA 131802470C0254130C3B0218FF1B0B00FF1C0B0353032F017703B30C0E1318, 1424 340 DATA 02470C023C130C3B0224FF1B0B00FF1D0B03530323016B03BF0E020C131853, 1443 350 DATA 3C130C470C13020CFF1B0B00FF5A0B03B303A701FF180B3016181316181630, 1728 360 DATA 160C130C5204FF270B051700FEFF790B0C13FF2F0B160C13302EFF170B24E3, 2168 370 DATA 3013FF380B18130C9B0E18FF410B18530C13160CFF470B6C02180218020CFF, 1906 380 DATA 150B0C4700FF1D0B24FF370B03E324D7020C130CFF3B0B249B031703FF200B, 2136 390 DATA 01231618130CE30C1318FF280B24FF3A0B03A718131624161324161324160C, 1520 400 DATA 220E160430FF230B053B00FEFF790B0C130C2F0C130C2F0C130C2F0C130C2F, 1488 410 DATA 0C130CCB0C020C2F0C0E0C2F0C020C2F0C0E0CFF880B0C130C1703170C130C, 1052 420 DATA 2F0C130C1703170C130C2F0C130CCB242F0C020C2F242F0C020CFFB00B0C13, 1213 430 DATA 0C2F0C130C1703170C130C2F0C130C1703170C130CCB0C020C2F242F0C020C, 761 440 DATA 2F24FFDC0B038F03FF170B181324220C2E1318163C161804180EFF240B052F, 1745 450 DATA 00FEFF790B1813180E18231A0C04240E230E3013020CA700FF4F0B01FF260B, 1820 460 DATA 1813240E231816301618230E241618A700FF4F0B01FF260B1813180E23130C, 1363 470 DATA 1648160C13230E181318A700FF4F0B01FF260B18130C0E23130C1660160C13, 1386 480 DATA 230E0C1318A700FF4F0B01FF180B03A718130E23130C166C3A17020C1318A7, 1635 490 DATA 00A7000000FF170B01A70101014703CB4813163C0524460C0430FF230B053B, 1617 500 DATA 00FEFF7F0B0E18FF1F0B0C020C130C3B02130E3C2F24020C13020CA7000083, 1621 510 DATA 008F00FF270B02FF170B03531324FF1A0B02300EA703FF270B01FF1B0B2413, 2060 520 DATA 2F48FB03FF220B480E18132301FF2B0B1813FF720B1813FF180B0101FF260B, 2209 530 DATA 241348FF270B00531813FF3D0B036B019B032303A718045E241324160C133A, 1683 540 DATA 0E24B305FF190B00FEFF790B0C130C232423242F0C1A0C2F0C130CFF360B24, 1894 550 DATA 1A241A540E0C0E24FF290B181302CB0C130CFF2E0B0E183B0E18FF190B24CB, 1823 560 DATA 03A7249B24470C1318FF180B180EFF190B0E13240E0C0E245F60FF410B0C16, 1843 570 DATA 181718165F18FF350B13183B16182F0C160C2F1816230C13FF350B160C020C, 1298 580 DATA 16181624160C1624163C2F18FF380B13185F0C130C5F1813BF03FF250B0418, 1515 590 DATA 522413301630163C9B05FF1B0B00FEFFC90B02130C5318020C04180218530C, 1814 600 DATA 130CFF260B0000FF370B0C16182F0C17130518170C2F0C1318FF8E0B246B18, 1556 610 DATA 13FF2D0B01FF200B18FF170B24FB019B038F18130C17182318130CE313D700, 2184 620 DATA FF3A0B0424D7012330FF270B00FF170B033B03FF190B0C130C162416241613, 1813 630 DATA 241648160C019B05FF1B0BFEFF790B130C16FF160B160C13FF340B0C023016, 2055 640 DATA 3C1602301630162413FB0083005300B303FF270B0C131802BF301301FF1A0B, 1839 650 DATA 035F00FF1C0B023013FF1D0B03FF230B021324BF010C161318FF170B03BF00, 1869 660 DATA FF170B30130C02FF180B03FF270B0C131802BF301601FF1D0B033B00FF1A0B, 1936 670 DATA 01230C13302301FF690B03BF01E3130C0E240E133016133016131804180E0C, 1314 680 DATA 13FF220B054700FE2302170217021702170217021702170217021702170217, 959 690 DATA 0217021702FF230B03170317039B0017001700170017004700170017001700, 795 700 DATA 1700FF1A0B03FF1E0B010301030103010301E302FF150B02001700830C1318, 1358 710 DATA FF270B00FF160B03A7020002B30C130C164801030103011701030103010301, 1128 720 DATA FF1B0B24FF1C0B021702170217022300FF1D0B00170017001700FF300B03FF, 1671 730 DATA 220B0113165416130CE30317031703170300029B00D701170117011701FF2B, 1275 740 DATA 0B000200020002000200020002FF620B24161324FF500B0103010301030103, 862 750 DATA 0103010301030103010301039B0C1316133C16301316180430160C1318FF1E, 860 760 DATA 0B0577FE, 389 770 REM **** ENTSCHLUESSELN **** 780 POKE 646,PEEK (53281):POKE 53280,PEEK (646) 790 DIM G(250),Z(14):S=0:E=1:LN=1 800 FOR T=0 TO14:Z(T)=T+65:NEXT 810 H=0 820 X=PEEK (30000+S):G(H)=X:H=H+1 830 S=S+1:IF X<>254 THEN820 840 PRINTCHR$ (147) 850 B1=1064 860 B=B1:H=0 870 IF B>2012 THENPOKE 2013,Z(11):GOTO 1030 880 L=G(H) 890 IF L=255 THEN990 900 IF L>5 THEN920 910 POKE B,L:B=B+E:H=H+E:GOTO 870 920 D1=INT (L/12) 930 D2=L-12*D1 940 POKE B,D2+Z(0):D1=D1-E:IF D1=0 THEN970 950 B=B+E 960 GOTO 940 970 B=B+E:H=H+E 980 GOTO 870 990 H=H+E:M1=G(H):H=H+E:M2=G(H):H=H+E 1000 FOR Y=E TOM1:POKE B-E+Y,M2+Z(0):NEXT 1010 B=B+Y-E 1020 GOTO 870 1030 REM *** LIANE RAUF *** 1040 B=B1:V=40 1050 FOR T=0 TO959 1060 F=PEEK (T+B) 1070 IF F<>0 THENNEXT :GOTO 1120 1080 T1=T+B 1090 POKE T1,Z(9) 1100 IF PEEK (T1+V)=E THENPOKE T1+V,Z(9):NEXT :GOTO 1120 1110 T1=T1+V:GOTO 1090 1120 REM *** LIANE RUNTER *** 1130 B=B1 1140 FOR T=0 TO959 1150 F=PEEK (T+B) 1160 IF F<>2 THENNEXT :GOTO 1210 1170 T1=T+B 1180 POKE T1,Z(8) 1190 IF PEEK (T1+V)=3 THENPOKE T1+V,Z(8):NEXT :GOTO 1210 1200 T1=T1+V:GOTO 1180 1210 REM *** LEITERN *** 1220 B=B1 1230 FOR T=0 TO959 1240 F=PEEK (T+B) 1250 IF F<>4 THENNEXT :GOTO 1300 1260 T1=T+B 1270 POKE T1,Z(5) 1280 IF PEEK (T1+V)=5 THENPOKE T1+V,Z(5):NEXT :GOTO 1300 1290 T1=T1+V:GOTO 1270 1300 B=B1:FOR T=0 TO959:F=PEEK (T+B):IF F<>Z(5) THENNEXT :GOTO 1320 1310 POKE T+B+E,Z(6):NEXT 1320 B=B1:FOR T=0 TO959:F=PEEK (T+B):IF F<>Z(5) THENNEXT :GOTO 1370 1330 IF PEEK (T+B-E)=76AND NOT PEEK (T+B+2)<>Z(11) THENNEXT :GOTO 1370 1340 IF PEEK (T+B+2)=74AND PEEK (T+B-E)=Z(11) THEN1360 1350 POKE T+B,Z(3):POKE T+B+E,Z(4):NEXT :GOTO 1370 1360 POKE T+B,Z(5):POKE T+B+E,Z(6):NEXT 1370 REM *** BODEN MACHEN *** 1380 B=B1 1390 FOR T=B TO1983 1400 L=PEEK (T):L1=PEEK (T+V):IF L1=Z(5)OR L1=Z(6)OR L1=Z(9)OR L1=0OR L1=E THENNEXT 1410 IF L=Z(7)OR L=Z(10)OR L=Z(0)OR L=Z(2)OR L=Z(3)OR L=Z(4) THENPOKE T+V,Z(E) 1420 NEXT 1430 REM *** WAENDE & RAND MACHEN *** 1440 R=160 1450 FOR T=B1-V TO1984STEP V:POKE T,Z(12):POKE T+29,Z(13):POKE T+30,R:POKE T+39,R 1460 NEXT 1470 FOR T=1025 TO1052:POKE T,Z(1):NEXT 1480 POKE 52095,96:SYS 52046 1490 LN$="@:STONE-BILD"+STR$ (LN) 1500 SYS (57812)LN$,8 1510 POKE 193,0:POKE 194,144 1520 POKE 174,233:POKE 175,147 1530 SYS 62957 1540 PRINT"{CLR}" 1550 LN=LN+1:IF LN>10 THENPOKE 646,0:END 1560 GOTO 810
|
10 rem*********************************
20 rem*** written ***
30 rem*** by ***
40 rem*** dirk schlote ***
50 rem*** and ***
60 rem*** matthias strecker ***
62 rem*** zum anger 8 ***
64 rem*** 3430 witzenhausen 6 ***
66 rem*** tel. 05542/1632 ***
70 rem*********************************
80 bn=1:l1=1:wg=8:gosub950:gosub1000
90 ifi<>0then670
100 rem********************************
110 rem*** titelbild ***
120 rem********************************
130 poke53280,1:poke53281,1
140 printchr$(142):printchr$(8)
141 printchr$(147):print:print:print
150 print" {lblu}{rvon} {blk} {rvof}"
160 print"{lblu} {rvon} {rvof}{blk}{rvon} {rvof}"
170 print"{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon}{SHIFT-POUND}{blk} {rvof}"
180 print"{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}"
190 print"{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}"
200 print"{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}"
210 print"{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}"
220 print"{lblu} {rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof} {lblu}{rvon} {blk} {rvof}"
230 print"{down}{down}{blu}{rvon} ";
240 print"{blu}{rvon} rescue 1 ";
250 print"{blu}{rvon} ";
260 print"{home}{blk} 1985 {rvof}"
270 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
280 print" by matthias strecker and dirk schlote"
290 fort=0to4:print"{up}{up}":next
300 print" {rvon} please wait "
310 i=1:goto90
320 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} press a button "
330 fort=0to350:next
340 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}
350 geta$:ifa$=""then370
360 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":goto380
370 fort=0to350:next:goto320
380 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}generate or play game ?"
390 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}( g / p ){down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
400 geta$:ifa$="g"thensys51590
410 ifa$<>"p"then400
420 gosub1030
430 rem*******************************
440 rem*** bild-laden ***
450 rem*******************************
460 poke53281,1:poke53280,1:poke646,0
470 print"{clr}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}es wird geladen
480 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}bild :";bn
530 bn$=str$(bn)
540 a$="stone-bild"+bn$+"*"
550 fort=1tolen(a$):poke12984+t,asc(mid$(a$,t,1)):next
560 sys51565
570 ifbn=10thenpoke37794,65:poke37787,65
590 return
600 rem*******************************
610 rem*** game over ***
620 rem*******************************
630 f1=48:gosub950:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}game over"
640 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press space"
643 poke1179,48
645 forz=0to50:fort=0to8:pokev+22,t:next:next
650 l1=1:l2=0:l3=0:l4=0
660 poke198,0:wait 198,1:goto360
670 rem*******************************
680 rem*** initialisierung ***
690 rem*******************************
700 ifi=1theni=2:load"stone 1",8,1
710 ifi=2theni=3:sys49152:load"stone 2",8,1
720 v=53248:pokev+37,8
730 pokev+38,14
740 fort=39to43:pokev+t,7:next
750 poke12949,31:poke12969,8
760 goto 320
770 rem*******************************
780 rem*** anzeigen-tafel ***
790 rem*******************************
800 b1$=left$(bn$,2)
805 ifbn<10thenb1$=chr$(48)
806 b1=val(b1$)
810 b2$=right$(bn$,1):b2=val(b2$)
820 poke12972,f1:poke12973,f2
830 ifpeek(12934)=51thenf2=f2+1
840 iff2>57thenf1=f1+1
860 poke12974,48+b1:poke12975,48+b2
870 ifl1>57thenl2=l2+1
880 ifl2>57thenl3=l3+1
890 ifl3>57thenl4=l4+1
900 poke12976,48+l4
910 poke12977,48+l3
920 poke12978,48+l2
930 poke12979,48+l1
940 return
950 rem*******************************
960 rem*** score loeschen ***
970 rem*******************************
980 fort=12931to12936:poket,48:next
990 return
1000 fort=12937to12942:poket,48:next
1010 return
1030 rem******************************
1040 rem*** steuerprogramm ***
1050 rem******************************
1060 f1=48:f2=51
1070 gosub1190:gosub1180:gosub430
1080 gosub1190:gosub1180:gosub770
1090 pokev+21,255
1100 pokev+4,144:pokev+5,80
1110 pokev+28,255:poke2042,245
1120 poke53280,0:poke53281,0:poke646,5
1123 pokev+2,0:pokev+6,0:pokev+8,0:pokev+10,0
1124 pokev+22,200:pokev+30,0:poke12953,0
1125 poke12960,0:poke12952,0
1130 poke12963,1:sys49480:poke12963,0
1140 s2=peek(12960)
1150 ifs2=1thenbn=bn+1:l1=l1+1:goto1070
1160 iff2=49thenbn=1:goto600
1170 ifpeek(12952)=1thenf2=f2-1:goto1080
1180 poke12958,s1
1181 poke12808,0:poke12963,wa
1182 poke12964,w1:poke12965,w2
1183 poke12966,w3:poke12967,w4:return:return
1190 rem******************************
1200 rem*** bilder vorbereiten ***
1210 rem******************************
1215 w1=0:w2=0:w3=0:w4=0:gosub1182
1220 ifbn>=2then1240
1230 s1=12:wa=1:w1=87:w3=183:return
1240 ifbn>=3then1260
1250 s1=11:wa=1:w1=87:w2=230:return
1260 ifbn>=4then1280
1270 s1=11:wa=1:w1=230:return
1280 ifbn>=5then1300
1290 s1=17:wa=1:w1=230:return
1300 ifbn>=6then1320
1310 s1=15:wa=1:w1=78:w2=230:return
1320 ifbn>=7then1340
1330 s1=12:wa=1:w1=230:return
1340 ifbn>=8then1360
1350 s1=12:wa=1:w1=230:return
1360 ifbn>=9then1380
1370 s1=10:wa=1:w1=230:return
1380 ifbn>=10then1400
1390 s1=16:wa=1:w1=96:w2=230:return
1400 ifbn>=11then1420
1410 s1=9:wa=1:w1=230:return
1420 rem ******************************
1430 rem *** folgendermassen werden ***
1440 rem *** eigene bilder eingebaut***
1450 rem *** 1. bild erzeugen ***
1460 rem *** 2. steine zaehlen ***
1470 rem *** 3. nach dem selben ***
1480 rem *** schema eingeben wie ***
1490 rem *** oben. ***
1500 rem *** - s1 = steinanzahl ***
1510 rem *** - wa = 0 (wurm aus) ***
1520 rem *** - wa = 1 (wurm an) ***
1530 rem *** - w1-w4 hoehen der ***
1540 rem *** wuermer ***
1550 rem *** + :return ***
1560 rem *** - goto in der letzten ***
1570 rem *** zeile entsprechend ***
1580 rem *** aendern.(fertig) ***
1590 rem ******************************
63999 ifbn>=11thenpoke12949,peek(12949)-2:bn=1:return
10 REM ********************************* 20 REM *** WRITTEN *** 30 REM *** BY *** 40 REM *** DIRK SCHLOTE *** 50 REM *** AND *** 60 REM *** MATTHIAS STRECKER *** 62 REM *** ZUM ANGER 8 *** 64 REM *** 3430 WITZENHAUSEN 6 *** 66 REM *** TEL. 05542/1632 *** 70 REM ********************************* 80 BN=1:L1=1:WG=8:GOSUB 950:GOSUB 1000 90 IF I<>0 THEN670 100 REM ******************************** 110 REM *** TITELBILD *** 120 REM ******************************** 130 POKE 53280,1:POKE 53281,1 140 PRINTCHR$ (142):PRINTCHR$ (8) 141 PRINTCHR$ (147):PRINT:PRINT:PRINT 150 PRINT"{10SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF}" 160 PRINT"{LIG.BLUE,SPACE,RVSON,15SPACE,RVOFF,BLACK,RVSON,SPACE,RVOFF}" 170 PRINT"{LIG.BLUE,SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,6SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,14SPACE,LIG.BLUE,RVSON}£{BLACK,SPACE,RVOFF}" 180 PRINT"{LIG.BLUE,SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,6SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,6SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,5SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,5SPACE,BLACK,SPACE,RVOFF}" 190 PRINT"{LIG.BLUE,SPACE,RVSON,6SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,LIG.BLUE,SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF}" 200 PRINT"{LIG.BLUE,5SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,LIG.BLUE,SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,5SPACE,BLACK,SPACE,RVOFF}" 210 PRINT"{LIG.BLUE,5SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,LIG.BLUE,SPACE,RVSON,2SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF}" 220 PRINT"{LIG.BLUE,SPACE,RVSON,6SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,2SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,6SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,2SPACE,LIG.BLUE,RVSON,SPACE,BLACK,SPACE,RVOFF,SPACE,LIG.BLUE,RVSON,5SPACE,BLACK,SPACE,RVOFF}" 230 PRINT"{2DOWN,BLUE,RVSON,39SPACE}"; 240 PRINT"{BLUE,RVSON,17SPACE}RESCUE 1{16SPACE}"; 250 PRINT"{BLUE,RVSON,40SPACE}"; 260 PRINT"{HOME,BLACK,SPACE}1985{SPACE,RVOFF}" 270 PRINT"{21DOWN}" 280 PRINT" BY MATTHIAS STRECKER AND DIRK SCHLOTE" 290 FOR T=0 TO4:PRINT"{2UP}":NEXT 300 PRINT"{12SPACE,RVSON,2SPACE}PLEASE WAIT{2SPACE}" 310 I=1:GOTO 90 320 PRINT"{UP,12RIGHT,RVSON,SPACE}PRESS A BUTTON " 330 FOR T=0 TO350:NEXT 340 PRINT"{UP,12RIGHT,RVSON,16SPACE,RVOFF} 350 GET A$:IF A$="" THEN370 360 PRINT"{26DOWN}":GOTO 380 370 FOR T=0 TO350:NEXT :GOTO 320 380 PRINT"{8RIGHT}GENERATE OR PLAY GAME ?" 390 PRINT"{3DOWN,13RIGHT}({2SPACE}G{2SPACE}/{2SPACE}P{2SPACE}){10DOWN}" 400 GET A$:IF A$="G" THENSYS 51590 410 IF A$<>"P" THEN400 420 GOSUB 1030 430 REM ******************************* 440 REM *** BILD-LADEN *** 450 REM ******************************* 460 POKE 53281,1:POKE 53280,1:POKE 646,0 470 PRINT"{CLR,6DOWN,12RIGHT}ES WIRD GELADEN 480 PRINT"{3DOWN,16RIGHT}BILD :";BN 530 BN$=STR$ (BN) 540 A$="STONE-BILD"+BN$+"*" 550 FOR T=1 TOLEN (A$):POKE 12984+T,ASC (MID$ (A$,T,1)):NEXT 560 SYS 51565 570 IF BN=10 THENPOKE 37794,65:POKE 37787,65 590 RETURN 600 REM ******************************* 610 REM *** GAME OVER *** 620 REM ******************************* 630 F1=48:GOSUB 950:PRINT"{HOME,10DOWN,11RIGHT,YELLOW}GAME OVER" 640 PRINT"{2DOWN,10RIGHT}PRESS SPACE" 643 POKE 1179,48 645 FOR Z=0 TO50:FOR T=0 TO8:POKE V+22,T:NEXT :NEXT 650 L1=1:L2=0:L3=0:L4=0 660 POKE 198,0:WAIT 198,1:GOTO 360 670 REM ******************************* 680 REM *** INITIALISIERUNG *** 690 REM ******************************* 700 IF I=1 THENI=2:LOAD "STONE 1",8,1 710 IF I=2 THENI=3:SYS 49152:LOAD "STONE 2",8,1 720 V=53248:POKE V+37,8 730 POKE V+38,14 740 FOR T=39 TO43:POKE V+T,7:NEXT 750 POKE 12949,31:POKE 12969,8 760 GOTO 320 770 REM ******************************* 780 REM *** ANZEIGEN-TAFEL *** 790 REM ******************************* 800 B1$=LEFT$ (BN$,2) 805 IF BN<10 THENB1$=CHR$ (48) 806 B1=VAL (B1$) 810 B2$=RIGHT$ (BN$,1):B2=VAL (B2$) 820 POKE 12972,F1:POKE 12973,F2 830 IF PEEK (12934)=51 THENF2=F2+1 840 IF F2>57 THENF1=F1+1 860 POKE 12974,48+B1:POKE 12975,48+B2 870 IF L1>57 THENL2=L2+1 880 IF L2>57 THENL3=L3+1 890 IF L3>57 THENL4=L4+1 900 POKE 12976,48+L4 910 POKE 12977,48+L3 920 POKE 12978,48+L2 930 POKE 12979,48+L1 940 RETURN 950 REM ******************************* 960 REM *** SCORE LOESCHEN *** 970 REM ******************************* 980 FOR T=12931 TO12936:POKE T,48:NEXT 990 RETURN 1000 FOR T=12937 TO12942:POKE T,48:NEXT 1010 RETURN 1030 REM ****************************** 1040 REM *** STEUERPROGRAMM *** 1050 REM ****************************** 1060 F1=48:F2=51 1070 GOSUB 1190:GOSUB 1180:GOSUB 430 1080 GOSUB 1190:GOSUB 1180:GOSUB 770 1090 POKE V+21,255 1100 POKE V+4,144:POKE V+5,80 1110 POKE V+28,255:POKE 2042,245 1120 POKE 53280,0:POKE 53281,0:POKE 646,5 1123 POKE V+2,0:POKE V+6,0:POKE V+8,0:POKE V+10,0 1124 POKE V+22,200:POKE V+30,0:POKE 12953,0 1125 POKE 12960,0:POKE 12952,0 1130 POKE 12963,1:SYS 49480:POKE 12963,0 1140 S2=PEEK (12960) 1150 IF S2=1 THENBN=BN+1:L1=L1+1:GOTO 1070 1160 IF F2=49 THENBN=1:GOTO 600 1170 IF PEEK (12952)=1 THENF2=F2-1:GOTO 1080 1180 POKE 12958,S1 1181 POKE 12808,0:POKE 12963,WA 1182 POKE 12964,W1:POKE 12965,W2 1183 POKE 12966,W3:POKE 12967,W4:RETURN :RETURN 1190 REM ****************************** 1200 REM *** BILDER VORBEREITEN *** 1210 REM ****************************** 1215 W1=0:W2=0:W3=0:W4=0:GOSUB 1182 1220 IF BN>=2 THEN1240 1230 S1=12:WA=1:W1=87:W3=183:RETURN 1240 IF BN>=3 THEN1260 1250 S1=11:WA=1:W1=87:W2=230:RETURN 1260 IF BN>=4 THEN1280 1270 S1=11:WA=1:W1=230:RETURN 1280 IF BN>=5 THEN1300 1290 S1=17:WA=1:W1=230:RETURN 1300 IF BN>=6 THEN1320 1310 S1=15:WA=1:W1=78:W2=230:RETURN 1320 IF BN>=7 THEN1340 1330 S1=12:WA=1:W1=230:RETURN 1340 IF BN>=8 THEN1360 1350 S1=12:WA=1:W1=230:RETURN 1360 IF BN>=9 THEN1380 1370 S1=10:WA=1:W1=230:RETURN 1380 IF BN>=10 THEN1400 1390 S1=16:WA=1:W1=96:W2=230:RETURN 1400 IF BN>=11 THEN1420 1410 S1=9:WA=1:W1=230:RETURN 1420 REM ****************************** 1430 REM *** FOLGENDERMASSEN WERDEN *** 1440 REM *** EIGENE BILDER EINGEBAUT*** 1450 REM *** 1. BILD ERZEUGEN *** 1460 REM *** 2. STEINE ZAEHLEN *** 1470 REM *** 3. NACH DEM SELBEN *** 1480 REM *** SCHEMA EINGEBEN WIE *** 1490 REM *** OBEN. *** 1500 REM *** - S1 = STEINANZAHL *** 1510 REM *** - WA = 0 (WURM AUS) *** 1520 REM *** - WA = 1 (WURM AN) *** 1530 REM *** - W1-W4 HOEHEN DER *** 1540 REM *** WUERMER *** 1550 REM *** + :RETURN *** 1560 REM *** - GOTO IN DER LETZTEN *** 1570 REM *** ZEILE ENTSPRECHEND *** 1580 REM *** AENDERN.(FERTIG) *** 1590 REM ****************************** 63999 IF BN>=11 THENPOKE 12949,PEEK (12949)-2:BN=1:RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen