initial commit
authorrekado <rekado@elephly.net>
Fri, 3 Oct 2014 18:13:54 +0000 (20:13 +0200)
committerrekado <rekado@elephly.net>
Fri, 3 Oct 2014 18:14:05 +0000 (20:14 +0200)
LIESMICH.DU [new file with mode: 0755]
START.BAT [new file with mode: 0755]
WINDEL~1.BMP [new file with mode: 0755]
WINDLPRI.BAS [new file with mode: 0755]

diff --git a/LIESMICH.DU b/LIESMICH.DU
new file mode 100755 (executable)
index 0000000..cbdc966
--- /dev/null
@@ -0,0 +1,2 @@
+- Installieren Sie das Spiel mit "Install.bat"\r
+- Starten Sie es mit "Start.bat"
\ No newline at end of file
diff --git a/START.BAT b/START.BAT
new file mode 100755 (executable)
index 0000000..ea77680
--- /dev/null
+++ b/START.BAT
@@ -0,0 +1,4 @@
+@echo off\r
+pv windel~1.bmp\r
+qbasic /run windlpri.bas\r
+cls\r
diff --git a/WINDEL~1.BMP b/WINDEL~1.BMP
new file mode 100755 (executable)
index 0000000..8b02a3f
Binary files /dev/null and b/WINDEL~1.BMP differ
diff --git a/WINDLPRI.BAS b/WINDLPRI.BAS
new file mode 100755 (executable)
index 0000000..43c5b4a
--- /dev/null
@@ -0,0 +1,4995 @@
+DECLARE SUB Klingonen ()\r
+DECLARE SUB Fest ()\r
+DECLARE SUB Romulaner ()\r
+DECLARE SUB Eins ()\r
+DECLARE SUB Zwei ()\r
+DECLARE SUB RomulanerM ()\r
+DECLARE SUB Gut2 ()\r
+DECLARE SUB Schlecht ()\r
+DECLARE SUB Station ()\r
+DECLARE SUB StationM ()\r
+DECLARE SUB Repariert ()\r
+DECLARE SUB Kaputt ()\r
+DECLARE SUB MissionP ()\r
+DECLARE SUB Planet ()\r
+DECLARE SUB Raumschiff ()\r
+DECLARE SUB Befehle ()\r
+DECLARE SUB Anfang2 ()\r
+DECLARE SUB Mission2 ()\r
+DECLARE SUB Vorende ()\r
+DECLARE SUB Gut ()\r
+DECLARE SUB Ende ()\r
+DECLARE SUB Windelprise ()\r
+DECLARE SUB Anfang ()\r
+\r
+CLS\r
+CLEAR , , 16512\r
+SCREEN 13\r
+CALL Windelprise\r
+StarTrekSound:\r
+PLAY "mbo3l4cl8t180cfal4t120gl8t180gco4dl2t120c."\r
+PLAY "mbl8t180o3a#o4cdo3a#t120l4o4co3a#al8t180afat120l2g."\r
+PLAY "mbo3l4cl8t180cfal4t120gl8t180gco4dl2t120c."\r
+PLAY "mbl8t180o3a#o4cdo3a#t120l4o4co3a#al8t180afat120l2gl8c."\r
+PLAY "mbl12a#a#a#o4ccco3a#a#a#o4ccc."\r
+PLAY "l32cdefedc"\r
+\r
+SYSTEM\r
+\r
+SUB Befehle\r
+CLS\r
+COLOR 15\r
+LOCATE 13, 7\r
+PRINT "WARUM HABEN SIE MEINE BEFEHLE"\r
+LOCATE 14, 14\r
+PRINT "NICHT BEFOLGT ?"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 13, 7\r
+PRINT "WARUM HABEN SIE MEINE BEFEHLE"\r
+LOCATE 14, 14\r
+PRINT "NICHT BEFOLGT ?"\r
+COLOR 15\r
+LOCATE 13, 3\r
+PRINT "SIE SIND VOM DIENST ... SUSPENDIERT."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 13, 3\r
+PRINT "SIE SIND VOM DIENST ... SUSPENDIERT."\r
+COLOR 14\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+END SUB\r
+\r
+SUB Eins\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (170, 80), 4\r
+        DRAW "bm170,80c15u20d40u20l9r18"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 3\r
+        DRAW "bm170,80c15u15d30u15l7r14"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CIRCLE (170, 80), 2\r
+        DRAW "bm170,80c15u10d20u10l5r10"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 1\r
+        DRAW "bm170,80c15u5d10u5l3r6"\r
+        CLS\r
+        DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 3, 8\r
+        DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c8d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 3, 8\r
+        PAINT (170, 80), 3, 8\r
+        DRAW "bm195,75c8d6"\r
+        PAINT (193, 77), 4, 8\r
+        PAINT (197, 77), 3, 8\r
+        DRAW "bm131,71c1u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c1u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c1r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c1d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+SLEEP 2\r
+COLOR 15\r
+LOCATE 2, 10\r
+PRINT "HIER IST NIEMAND..."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 10\r
+PRINT "HIER IST NIEMAND..."\r
+COLOR 12\r
+LOCATE 2, 8\r
+PRINT "IRRTUM CAPTAIN... SEHEN SIE !"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 8\r
+PRINT "IRRTUM CAPTAIN... SEHEN SIE !"\r
+DRAW "bm60,60c7d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (65, 60), 0, 7\r
+PAINT (15, 53), 1, 7\r
+DRAW "bm61,61c8d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c6d1l1u1"\r
+FOR q = 1 TO 30000\r
+NEXT\r
+CLS\r
+CALL Raumschiff\r
+DRAW "bm60,60c22d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (15, 53), 3, 22\r
+DRAW "bm61,61c8d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c4d1l1u1"\r
+FOR q = 1 TO 30000\r
+NEXT\r
+CLS\r
+CALL Raumschiff\r
+DRAW "bm60,60c29d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (15, 53), 9, 29\r
+DRAW "bm61,61c3d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c12d1l1u1"\r
+FOR q = 1 TO 30000\r
+NEXT\r
+CLS\r
+CALL Raumschiff\r
+DRAW "bm60,60c30d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (65, 60), 8, 30\r
+PAINT (15, 53), 9, 30\r
+DRAW "bm61,61c3d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c12d1l1u1"\r
+FOR q = 1 TO 30000\r
+NEXT\r
+CLS\r
+CALL Raumschiff\r
+DRAW "bm60,60c15d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (65, 60), 2, 15\r
+PAINT (15, 53), 9, 15\r
+DRAW "bm61,61c3d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c12d1l1u1"\r
+SLEEP 1\r
+COLOR 10\r
+LOCATE 2, 3\r
+PRINT "SIE SIND \9aBER DIE GRENZE GEKOMMEN !!"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 3\r
+PRINT "SIE SIND \9aBER DIE GRENZE GEKOMMEN !!"\r
+COLOR 10\r
+LOCATE 2, 2\r
+PRINT "LASSEN WIR SIE NICHT IN UNSER GEBIET !"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 2\r
+PRINT "LASSEN WIR SIE NICHT IN UNSER GEBIET !"\r
+\r
+LINE (92, 59)-(135, 65), 2\r
+LINE (93, 59)-(136, 65), 10\r
+LINE (93, 60)-(135, 66), 2\r
+SLEEP 1\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PAINT (140, 65), 9, 15\r
+PAINT (170, 80), 9, 15\r
+DRAW "bm195,75c15d6"\r
+PAINT (193, 77), 12, 15\r
+PAINT (197, 77), 9, 15\r
+DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+LINE (92, 59)-(135, 65), 0\r
+LINE (93, 59)-(136, 65), 0\r
+LINE (93, 60)-(135, 66), 0\r
+COLOR 31\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+SLEEP 1\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+SLEEP 1\r
+CLS\r
+DRAW "bm60,60c15d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (65, 60), 2, 15\r
+PAINT (15, 53), 9, 15\r
+DRAW "bm61,61c3d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c12d1l1u1"\r
+COLOR 7\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 9, 15\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 9, 15\r
+\r
+DRAW "bm131,71c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+COLOR 12\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 8\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 4\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 0\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 0\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+\r
+DRAW "bm130,70c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 1, 7\r
+DRAW "bm136,67c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 1, 7\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 1, 7\r
+\r
+DRAW "bm131,71c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+\r
+SLEEP 1\r
+\r
+DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 0, 8\r
+DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 0, 8\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 0, 8\r
+\r
+DRAW "bm131,71c0u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c0u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c0r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+SLEEP 1\r
+CLS\r
+SLEEP 2\r
+COLOR 14\r
+LOCATE 13, 4\r
+PRINT "DIE WINDELPRISE IST EXPLODIERT ..."\r
+SLEEP 5\r
+CLS\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+CLS\r
+END SUB\r
+\r
+SUB Ende\r
+CLS\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PAINT (140, 65), 9, 15\r
+PAINT (170, 80), 9, 15\r
+DRAW "bm195,75c15d6"\r
+PAINT (193, 77), 12, 15\r
+PAINT (197, 77), 9, 15\r
+DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+COLOR 31\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+SLEEP 1\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+SLEEP 1\r
+CLS\r
+COLOR 7\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 9, 15\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 9, 15\r
+\r
+DRAW "bm131,71c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+COLOR 12\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 8\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 4\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 0\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 0\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+\r
+DRAW "bm130,70c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 1, 7\r
+DRAW "bm136,67c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 1, 7\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 1, 7\r
+\r
+DRAW "bm131,71c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+\r
+SLEEP 1\r
+\r
+DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 0, 8\r
+DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 0, 8\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 0, 8\r
+\r
+DRAW "bm131,71c0u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c0u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c0r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+SLEEP 1\r
+CLS\r
+SLEEP 2\r
+COLOR 14\r
+LOCATE 13, 4\r
+PRINT "DIE WINDELPRISE IST EXPLODIERT ..."\r
+SLEEP 5\r
+CLS\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+CLS\r
+SYSTEM\r
+END SUB\r
+\r
+SUB Fest\r
+        DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 3, 8\r
+        DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c8d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 3, 8\r
+        PAINT (170, 80), 3, 8\r
+        DRAW "bm195,75c8d6"\r
+        PAINT (193, 77), 4, 8\r
+        PAINT (197, 77), 3, 8\r
+        DRAW "bm131,71c1u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c1u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c1r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c1d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        COLOR 222\r
+        CIRCLE (3, 198), 151\r
+        COLOR 222\r
+        CIRCLE (3, 198), 150\r
+        COLOR 222\r
+        CIRCLE (3, 198), 149\r
+        COLOR 222\r
+        CIRCLE (3, 198), 148\r
+        COLOR 222\r
+        CIRCLE (3, 198), 147\r
+        COLOR 222\r
+        CIRCLE (3, 198), 146\r
+        COLOR 222\r
+        CIRCLE (3, 198), 145\r
+        COLOR 222\r
+        CIRCLE (3, 198), 144\r
+        COLOR 222\r
+        CIRCLE (3, 198), 143\r
+        COLOR 222\r
+        CIRCLE (3, 198), 142\r
+        COLOR 222\r
+        CIRCLE (3, 198), 141\r
+        COLOR 222\r
+        CIRCLE (3, 198), 140\r
+        COLOR 222\r
+        CIRCLE (3, 198), 139\r
+        COLOR 222\r
+        CIRCLE (3, 198), 138\r
+        COLOR 222\r
+        CIRCLE (3, 198), 137\r
+        COLOR 222\r
+        CIRCLE (3, 198), 136\r
+        COLOR 222\r
+        CIRCLE (2, 199), 151\r
+        COLOR 222\r
+        CIRCLE (2, 199), 150\r
+        COLOR 222\r
+        CIRCLE (2, 199), 149\r
+        COLOR 222\r
+        CIRCLE (2, 199), 148\r
+        COLOR 222\r
+        CIRCLE (2, 199), 147\r
+        COLOR 222\r
+        CIRCLE (2, 199), 146\r
+        COLOR 222\r
+        CIRCLE (2, 199), 145\r
+        COLOR 222\r
+        CIRCLE (2, 199), 144\r
+        COLOR 222\r
+        CIRCLE (2, 199), 143\r
+        COLOR 222\r
+        CIRCLE (2, 199), 142\r
+        COLOR 222\r
+        CIRCLE (2, 199), 141\r
+        COLOR 222\r
+        CIRCLE (2, 199), 140\r
+        COLOR 222\r
+        CIRCLE (2, 199), 139\r
+        COLOR 222\r
+        CIRCLE (2, 199), 138\r
+        COLOR 222\r
+        CIRCLE (2, 199), 137\r
+        COLOR 222\r
+        CIRCLE (2, 199), 136\r
+        COLOR 222\r
+        CIRCLE (1, 200), 151\r
+        COLOR 222\r
+        CIRCLE (1, 200), 150\r
+        COLOR 222\r
+        CIRCLE (1, 200), 149\r
+        COLOR 222\r
+        CIRCLE (1, 200), 148\r
+        COLOR 222\r
+        CIRCLE (1, 200), 147\r
+        COLOR 222\r
+        CIRCLE (1, 200), 146\r
+        COLOR 222\r
+        CIRCLE (1, 200), 145\r
+        COLOR 222\r
+        CIRCLE (1, 200), 144\r
+        COLOR 222\r
+        CIRCLE (1, 200), 143\r
+        COLOR 222\r
+        CIRCLE (1, 200), 142\r
+        COLOR 222\r
+        CIRCLE (1, 200), 141\r
+        COLOR 222\r
+        CIRCLE (1, 200), 140\r
+        COLOR 222\r
+        CIRCLE (1, 200), 139\r
+        COLOR 222\r
+        CIRCLE (1, 200), 138\r
+        COLOR 222\r
+        CIRCLE (1, 200), 137\r
+        COLOR 222\r
+        CIRCLE (1, 200), 136\r
+        COLOR 1\r
+        CIRCLE (4, 199), 151\r
+        COLOR 1\r
+        CIRCLE (4, 199), 150\r
+        COLOR 1\r
+        CIRCLE (4, 199), 149\r
+        COLOR 9\r
+        CIRCLE (4, 199), 148\r
+        COLOR 9\r
+        CIRCLE (4, 199), 147\r
+        COLOR 9\r
+        CIRCLE (4, 199), 146\r
+        COLOR 3\r
+        CIRCLE (4, 199), 145\r
+        COLOR 3\r
+        CIRCLE (4, 199), 144\r
+        COLOR 3\r
+        CIRCLE (4, 199), 143\r
+        COLOR 1\r
+        CIRCLE (3, 198), 151\r
+        COLOR 1\r
+        CIRCLE (3, 198), 150\r
+        COLOR 1\r
+        CIRCLE (3, 198), 149\r
+        COLOR 9\r
+        CIRCLE (3, 198), 148\r
+        COLOR 9\r
+        CIRCLE (3, 198), 147\r
+        COLOR 9\r
+        CIRCLE (3, 198), 146\r
+        COLOR 3\r
+        CIRCLE (3, 198), 145\r
+        COLOR 3\r
+        CIRCLE (3, 198), 144\r
+        COLOR 3\r
+        CIRCLE (3, 198), 143\r
+        COLOR 1\r
+        CIRCLE (2, 197), 151\r
+        COLOR 1\r
+        CIRCLE (2, 197), 150\r
+        COLOR 1\r
+        CIRCLE (2, 197), 149\r
+        COLOR 9\r
+        CIRCLE (2, 197), 148\r
+        COLOR 9\r
+        CIRCLE (2, 197), 147\r
+        COLOR 9\r
+        CIRCLE (2, 197), 146\r
+        COLOR 3\r
+        CIRCLE (2, 197), 145\r
+        COLOR 3\r
+        CIRCLE (2, 197), 144\r
+        COLOR 3\r
+        CIRCLE (2, 197), 143\r
+        COLOR 1\r
+        CIRCLE (1, 196), 151\r
+        COLOR 1\r
+        CIRCLE (1, 196), 150\r
+        COLOR 1\r
+        CIRCLE (1, 196), 149\r
+        COLOR 9\r
+        CIRCLE (1, 196), 148\r
+        COLOR 9\r
+        CIRCLE (1, 196), 147\r
+        COLOR 9\r
+        CIRCLE (1, 196), 146\r
+        COLOR 3\r
+        CIRCLE (1, 196), 145\r
+        COLOR 3\r
+        CIRCLE (1, 196), 144\r
+        COLOR 3\r
+        CIRCLE (1, 196), 143\r
+        COLOR 1\r
+        CIRCLE (0, 195), 151\r
+        COLOR 1\r
+        CIRCLE (0, 195), 150\r
+        COLOR 1\r
+        CIRCLE (0, 195), 149\r
+        COLOR 9\r
+        CIRCLE (0, 195), 148\r
+        COLOR 9\r
+        CIRCLE (0, 195), 147\r
+        COLOR 9\r
+        CIRCLE (0, 195), 146\r
+        COLOR 3\r
+        CIRCLE (0, 195), 145\r
+        COLOR 3\r
+        CIRCLE (0, 195), 144\r
+        COLOR 3\r
+        CIRCLE (0, 195), 143\r
+        PAINT (1, 199), 2, 3\r
+        SLEEP 1\r
+        COLOR 12\r
+        LOCATE 2, 4\r
+PRINT " CAPTAIN... ICH GLAUBE HIER SIND"\r
+LOCATE 3, 4\r
+PRINT "UNERW\9aNSCHTE G\8eSTE. VORSICHTSHALBER"\r
+LOCATE 4, 4\r
+PRINT "    SCANNE ICH DEN PLANETEN."\r
+SLEEP 3\r
+        COLOR 0\r
+        LOCATE 2, 4\r
+PRINT " CAPTAIN... ICH GLAUBE HIER SIND"\r
+LOCATE 3, 4\r
+PRINT "UNERW\9aNSCHTE G\8eSTE. VORSICHTSHALBER"\r
+LOCATE 4, 4\r
+PRINT "    SCANNE ICH DEN PLANETEN."\r
+DRAW "bm154,88c9m105,113"\r
+DRAW "bm154,87c3m105,112"\r
+SLEEP 3\r
+DRAW "bm154,88c0m105,113"\r
+DRAW "bm154,87c0m105,112"\r
+        COLOR 1\r
+        CIRCLE (4, 199), 151\r
+        COLOR 1\r
+        CIRCLE (4, 199), 150\r
+        COLOR 1\r
+        CIRCLE (4, 199), 149\r
+        COLOR 9\r
+        CIRCLE (4, 199), 148\r
+        COLOR 9\r
+        CIRCLE (4, 199), 147\r
+        COLOR 9\r
+        CIRCLE (4, 199), 146\r
+        COLOR 3\r
+        CIRCLE (4, 199), 145\r
+        COLOR 3\r
+        CIRCLE (4, 199), 144\r
+        COLOR 3\r
+        CIRCLE (4, 199), 143\r
+        COLOR 1\r
+        CIRCLE (3, 198), 151\r
+        COLOR 1\r
+        CIRCLE (3, 198), 150\r
+        COLOR 1\r
+        CIRCLE (3, 198), 149\r
+        COLOR 9\r
+        CIRCLE (3, 198), 148\r
+        COLOR 9\r
+        CIRCLE (3, 198), 147\r
+        COLOR 9\r
+        CIRCLE (3, 198), 146\r
+        COLOR 3\r
+        CIRCLE (3, 198), 145\r
+        COLOR 3\r
+        CIRCLE (3, 198), 144\r
+        COLOR 3\r
+        CIRCLE (3, 198), 143\r
+        COLOR 1\r
+        CIRCLE (2, 197), 151\r
+        COLOR 1\r
+        CIRCLE (2, 197), 150\r
+        COLOR 1\r
+        CIRCLE (2, 197), 149\r
+        COLOR 9\r
+        CIRCLE (2, 197), 148\r
+        COLOR 9\r
+        CIRCLE (2, 197), 147\r
+        COLOR 9\r
+        CIRCLE (2, 197), 146\r
+        COLOR 3\r
+        CIRCLE (2, 197), 145\r
+        COLOR 3\r
+        CIRCLE (2, 197), 144\r
+        COLOR 3\r
+        CIRCLE (2, 197), 143\r
+        COLOR 1\r
+        CIRCLE (1, 196), 151\r
+        COLOR 1\r
+        CIRCLE (1, 196), 150\r
+        COLOR 1\r
+        CIRCLE (1, 196), 149\r
+        COLOR 9\r
+        CIRCLE (1, 196), 148\r
+        COLOR 9\r
+        CIRCLE (1, 196), 147\r
+        COLOR 9\r
+        CIRCLE (1, 196), 146\r
+        COLOR 3\r
+        CIRCLE (1, 196), 145\r
+        COLOR 3\r
+        CIRCLE (1, 196), 144\r
+        COLOR 3\r
+        CIRCLE (1, 196), 143\r
+        COLOR 1\r
+        CIRCLE (0, 195), 151\r
+        COLOR 1\r
+        CIRCLE (0, 195), 150\r
+        COLOR 1\r
+        CIRCLE (0, 195), 149\r
+        COLOR 9\r
+        CIRCLE (0, 195), 148\r
+        COLOR 9\r
+        CIRCLE (0, 195), 147\r
+        COLOR 9\r
+        CIRCLE (0, 195), 146\r
+        COLOR 3\r
+        CIRCLE (0, 195), 145\r
+        COLOR 3\r
+        CIRCLE (0, 195), 144\r
+        COLOR 3\r
+        CIRCLE (0, 195), 143\r
+        PAINT (1, 199), 2, 3\r
+SLEEP 1\r
+COLOR 12\r
+LOCATE 2, 7\r
+PRINT "WIE ICHïS MIR DOCH DACHTE !"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 7\r
+PRINT "WIE ICHïS MIR DOCH DACHTE !"\r
+COLOR 12\r
+LOCATE 2, 4\r
+PRINT "IST ABER EIN KOMISCHES ZEICHEN !"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 4\r
+PRINT "IST ABER EIN KOMISCHES ZEICHEN !"\r
+COLOR 15\r
+LOCATE 2, 4\r
+PRINT "ZU WELCHER RASSE GEH\99RT DIESES ZEICHEN ?"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 4\r
+PRINT "ZU WELCHER RASSE GEH\99RT DIESES ZEICHEN ?"\r
+CLS\r
+CIRCLE (164, 99), 35, 3\r
+CIRCLE (165, 100), 35, 15\r
+PAINT (165, 100), 8, 15\r
+DRAW "bm155,90c12r20u25r1u1r1u1r1u1r1u1r1u1r10u2l30l1d1l1d1l1d1l1d1l1d1d26"\r
+DRAW "bm175,105c12r20d25r1d1r1d1r1d1r1d1r1d1r10d2l30l1u1l1u1l1u1l1u1l1u1u26"\r
+DRAW "bm155,105c12l20d25l1d1l1d1l1d1l1d1l1d1l10d2r30r1u1r1u1r1u1r1u1r1u1u26"\r
+PAINT (156, 89), 4, 12\r
+PAINT (146, 106), 4, 12\r
+PAINT (176, 114), 4, 12\r
+COLOR 15\r
+LOCATE 20, 17\r
+INPUT "", EIN$\r
+A: IF EIN$ = "KLINGONEN" THEN GOTO Klingonen ELSE GOTO B\r
+B: IF EIN$ = "Klingonen" THEN GOTO Klingonen ELSE GOTO C\r
+C: IF EIN$ = "klingonen" THEN GOTO Klingonen ELSE GOTO INCORRECT\r
+END\r
+Klingonen:\r
+CALL Klingonen\r
+END\r
+INCORRECT:\r
+CLS\r
+CALL Raumschiff\r
+        COLOR 222\r
+        CIRCLE (3, 198), 151\r
+        COLOR 222\r
+        CIRCLE (3, 198), 150\r
+        COLOR 222\r
+        CIRCLE (3, 198), 149\r
+        COLOR 222\r
+        CIRCLE (3, 198), 148\r
+        COLOR 222\r
+        CIRCLE (3, 198), 147\r
+        COLOR 222\r
+        CIRCLE (3, 198), 146\r
+        COLOR 222\r
+        CIRCLE (3, 198), 145\r
+        COLOR 222\r
+        CIRCLE (3, 198), 144\r
+        COLOR 222\r
+        CIRCLE (3, 198), 143\r
+        COLOR 222\r
+        CIRCLE (3, 198), 142\r
+        COLOR 222\r
+        CIRCLE (3, 198), 141\r
+        COLOR 222\r
+        CIRCLE (3, 198), 140\r
+        COLOR 222\r
+        CIRCLE (3, 198), 139\r
+        COLOR 222\r
+        CIRCLE (3, 198), 138\r
+        COLOR 222\r
+        CIRCLE (3, 198), 137\r
+        COLOR 222\r
+        CIRCLE (3, 198), 136\r
+        COLOR 222\r
+        CIRCLE (2, 199), 151\r
+        COLOR 222\r
+        CIRCLE (2, 199), 150\r
+        COLOR 222\r
+        CIRCLE (2, 199), 149\r
+        COLOR 222\r
+        CIRCLE (2, 199), 148\r
+        COLOR 222\r
+        CIRCLE (2, 199), 147\r
+        COLOR 222\r
+        CIRCLE (2, 199), 146\r
+        COLOR 222\r
+        CIRCLE (2, 199), 145\r
+        COLOR 222\r
+        CIRCLE (2, 199), 144\r
+        COLOR 222\r
+        CIRCLE (2, 199), 143\r
+        COLOR 222\r
+        CIRCLE (2, 199), 142\r
+        COLOR 222\r
+        CIRCLE (2, 199), 141\r
+        COLOR 222\r
+        CIRCLE (2, 199), 140\r
+        COLOR 222\r
+        CIRCLE (2, 199), 139\r
+        COLOR 222\r
+        CIRCLE (2, 199), 138\r
+        COLOR 222\r
+        CIRCLE (2, 199), 137\r
+        COLOR 222\r
+        CIRCLE (2, 199), 136\r
+        COLOR 222\r
+        CIRCLE (1, 200), 151\r
+        COLOR 222\r
+        CIRCLE (1, 200), 150\r
+        COLOR 222\r
+        CIRCLE (1, 200), 149\r
+        COLOR 222\r
+        CIRCLE (1, 200), 148\r
+        COLOR 222\r
+        CIRCLE (1, 200), 147\r
+        COLOR 222\r
+        CIRCLE (1, 200), 146\r
+        COLOR 222\r
+        CIRCLE (1, 200), 145\r
+        COLOR 222\r
+        CIRCLE (1, 200), 144\r
+        COLOR 222\r
+        CIRCLE (1, 200), 143\r
+        COLOR 222\r
+        CIRCLE (1, 200), 142\r
+        COLOR 222\r
+        CIRCLE (1, 200), 141\r
+        COLOR 222\r
+        CIRCLE (1, 200), 140\r
+        COLOR 222\r
+        CIRCLE (1, 200), 139\r
+        COLOR 222\r
+        CIRCLE (1, 200), 138\r
+        COLOR 222\r
+        CIRCLE (1, 200), 137\r
+        COLOR 222\r
+        CIRCLE (1, 200), 136\r
+        COLOR 1\r
+        CIRCLE (4, 199), 151\r
+        COLOR 1\r
+        CIRCLE (4, 199), 150\r
+        COLOR 1\r
+        CIRCLE (4, 199), 149\r
+        COLOR 9\r
+        CIRCLE (4, 199), 148\r
+        COLOR 9\r
+        CIRCLE (4, 199), 147\r
+        COLOR 9\r
+        CIRCLE (4, 199), 146\r
+        COLOR 3\r
+        CIRCLE (4, 199), 145\r
+        COLOR 3\r
+        CIRCLE (4, 199), 144\r
+        COLOR 3\r
+        CIRCLE (4, 199), 143\r
+        COLOR 1\r
+        CIRCLE (3, 198), 151\r
+        COLOR 1\r
+        CIRCLE (3, 198), 150\r
+        COLOR 1\r
+        CIRCLE (3, 198), 149\r
+        COLOR 9\r
+        CIRCLE (3, 198), 148\r
+        COLOR 9\r
+        CIRCLE (3, 198), 147\r
+        COLOR 9\r
+        CIRCLE (3, 198), 146\r
+        COLOR 3\r
+        CIRCLE (3, 198), 145\r
+        COLOR 3\r
+        CIRCLE (3, 198), 144\r
+        COLOR 3\r
+        CIRCLE (3, 198), 143\r
+        COLOR 1\r
+        CIRCLE (2, 197), 151\r
+        COLOR 1\r
+        CIRCLE (2, 197), 150\r
+        COLOR 1\r
+        CIRCLE (2, 197), 149\r
+        COLOR 9\r
+        CIRCLE (2, 197), 148\r
+        COLOR 9\r
+        CIRCLE (2, 197), 147\r
+        COLOR 9\r
+        CIRCLE (2, 197), 146\r
+        COLOR 3\r
+        CIRCLE (2, 197), 145\r
+        COLOR 3\r
+        CIRCLE (2, 197), 144\r
+        COLOR 3\r
+        CIRCLE (2, 197), 143\r
+        COLOR 1\r
+        CIRCLE (1, 196), 151\r
+        COLOR 1\r
+        CIRCLE (1, 196), 150\r
+        COLOR 1\r
+        CIRCLE (1, 196), 149\r
+        COLOR 9\r
+        CIRCLE (1, 196), 148\r
+        COLOR 9\r
+        CIRCLE (1, 196), 147\r
+        COLOR 9\r
+        CIRCLE (1, 196), 146\r
+        COLOR 3\r
+        CIRCLE (1, 196), 145\r
+        COLOR 3\r
+        CIRCLE (1, 196), 144\r
+        COLOR 3\r
+        CIRCLE (1, 196), 143\r
+        COLOR 1\r
+        CIRCLE (0, 195), 151\r
+        COLOR 1\r
+        CIRCLE (0, 195), 150\r
+        COLOR 1\r
+        CIRCLE (0, 195), 149\r
+        COLOR 9\r
+        CIRCLE (0, 195), 148\r
+        COLOR 9\r
+        CIRCLE (0, 195), 147\r
+        COLOR 9\r
+        CIRCLE (0, 195), 146\r
+        COLOR 3\r
+        CIRCLE (0, 195), 145\r
+        COLOR 3\r
+        CIRCLE (0, 195), 144\r
+        COLOR 3\r
+        CIRCLE (0, 195), 143\r
+        PAINT (1, 199), 2, 3\r
+        COLOR 12\r
+        LOCATE 2, 3\r
+        PRINT "OH, OH. DIE RASSE DIE WIR BESCHULDIGT"\r
+        LOCATE 3, 3\r
+        PRINT " HABEN IST MITGLIED DER F\99DERATION !"\r
+        SLEEP 3\r
+        COLOR 0\r
+        LOCATE 2, 3\r
+        PRINT "OH, OH. DIE RASSE DIE WIR BESCHULDIGT"\r
+        LOCATE 3, 3\r
+        PRINT " HABEN IST MITGLIED DER F\99DERATION !"\r
+        COLOR 12\r
+        LOCATE 2, 3\r
+        PRINT "DER ADMIRAL WILL MIT UNS SPRECHEN..."\r
+        SLEEP 2\r
+        COLOR 0\r
+        LOCATE 2, 3\r
+        PRINT "DER ADMIRAL WILL MIT UNS SPRECHEN..."\r
+COLOR 15\r
+LOCATE 2, 11\r
+PRINT "...AUDIOKANAL \99FFNEN !"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 11\r
+PRINT "...AUDIOKANAL \99FFNEN !"\r
+SLEEP 1\r
+COLOR 10\r
+LOCATE 2, 2\r
+PRINT " ICH WERDE SIE F\9aR EINE ZEIT LANG"\r
+LOCATE 3, 2\r
+PRINT "AUS DEM DIENST NEHMEN. ADMIRAL ENDE."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 2\r
+PRINT " ICH WERDE SIE F\9aR EINE ZEIT LANG"\r
+LOCATE 3, 2\r
+PRINT "AUS DEM DIENST NEHMEN. ADMIRAL ENDE."\r
+CLS\r
+COLOR 14\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+END SUB\r
+\r
+SUB Gut\r
+CLS\r
+PLAY "l32cdefedc"\r
+LOCATE 3, 2\r
+PRINT "GUT, KURS SETZEN ... WARP 2 ... LOS !"\r
+DRAW "bm60,100c4u7r1u2r1u1r1u1r1u1r1u1r2u1r12d1r2d1r1d1r1d1r2d1r4d9l4d1l2d1l1d1l1d1l1d1l2d1l12u1l1u1l1u1l1u1l1u1l1u2l1"\r
+PAINT (62, 99), 12, 4\r
+DRAW "bm90,100c15d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r2d1r2d1r2d1r2d1r3"\r
+DRAW "d1r4d1r5d1r6d1r7d1r8d1r9d1r30u1r9u1r8u1r7u1r6u1r5u1r4u1r3u1r2u1r1u1r2u1r2u1r2u1r2u1r2u1r2u1r2u2r1u2r1u3r1u3d2l152u6"\r
+DRAW "bm90,91c15u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1r3"\r
+DRAW "u1r4u1r5u1r6u1r7u1r8u1r9u1r30d1r9d1r8d1r7d1r6d1r5d1r4d1r3d1r2d1r1d1r2d1r2d1r2d1r2d1r2d1r2d1r2d2r1d2r1d3r1d3u2l152d6"\r
+PAINT (92, 95), 9, 15\r
+COLOR 14\r
+LOCATE 11, 17\r
+PRINT "1 2 3 4 5"\r
+LOCATE 14, 21\r
+INPUT "", aus$\r
+IF aus$ = "1" THEN GOTO 50\r
+IF aus$ = "2" THEN GOTO 30 ELSE GOTO 40\r
+END\r
+30\r
+        CLS\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+       \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+       \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (60, 100), 4\r
+        DRAW "bm60,100c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 3\r
+        DRAW "bm60,100c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (60, 100), 2\r
+        DRAW "bm60,100c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 1\r
+        DRAW "bm60,100c15u5d10u5l3r6"\r
+        CLS\r
+        CALL Mission2\r
+END\r
+40 CALL Vorende\r
+END\r
+50 CALL Befehle\r
+SLEEP\r
+CLS\r
+END SUB\r
+\r
+SUB Gut2\r
+CLS\r
+PLAY "l32cdefedc"\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+COLOR 10\r
+LOCATE 1, 3\r
+PRINT "SO... DIE TURBINE IST JETZT ANGEBAUT."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 1, 3\r
+PRINT "SO... DIE TURBINE IST JETZT ANGEBAUT."\r
+COLOR 15\r
+LOCATE 2, 4\r
+PRINT "OK... DANN MAL WEITER STEUERMANN !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 4\r
+PRINT "OK... DANN MAL WEITER STEUERMANN !"\r
+\r
+        CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+       \r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+      \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+      \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+        COLOR 15\r
+        CIRCLE (60, 100), 4\r
+        DRAW "bm60,100c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+        CIRCLE (100, 100), 3\r
+        DRAW "bm100,100c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (100, 100), 2\r
+        DRAW "bm100,100c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+       \r
+        CIRCLE (100, 100), 1\r
+        DRAW "bm100,100c15u5d10u5l3r6"\r
+        CLS\r
+        CALL RomulanerM\r
+END SUB\r
+\r
+SUB Kaputt\r
+COLOR 15\r
+LOCATE 1, 2\r
+PRINT "GUT, KURS SETZEN ... WARP 5 ... LOS !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 1, 2\r
+PRINT "GUT, KURS SETZEN ... WARP 5 ... LOS !"\r
+CLS\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+      \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+      \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (60, 100), 4\r
+        DRAW "bm60,100c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 3\r
+        DRAW "bm60,100c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (60, 100), 2\r
+        DRAW "bm60,100c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 1\r
+        DRAW "bm60,100c15u5d10u5l3r6"\r
+        CLS\r
+        SLEEP 2\r
+CIRCLE (170, 80), 4\r
+        DRAW "bm170,80c15u20d40u20l9r18"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 3\r
+        DRAW "bm170,80c15u15d30u15l7r14"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CIRCLE (170, 80), 2\r
+        DRAW "bm170,80c15u10d20u10l5r10"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 1\r
+        DRAW "bm170,80c15u5d10u5l3r6"\r
+        CLS\r
+        CALL Raumschiff\r
+\r
+COLOR 12\r
+LOCATE 1, 2\r
+PRINT "VOR UNS LIEGT EIN UNBEKANNTES OBJEKT !"\r
+LOCATE 2, 2\r
+PRINT "          ES IST GEF\8eHRLICH.          "\r
+LOCATE 3, 2\r
+PRINT "       WIR M\9aSSEN ES ZERST\99REN !      "\r
+SLEEP 6\r
+COLOR 0\r
+LOCATE 1, 2\r
+PRINT "VOR UNS LIEGT EIN UNBEKANNTES OBJEKT !"\r
+LOCATE 2, 2\r
+PRINT "          ES IST GEF\8eHRLICH.          "\r
+LOCATE 3, 2\r
+PRINT "       WIR M\9aSSEN ES ZERST\99REN !      "\r
+COLOR 15\r
+LOCATE 2, 12\r
+PRINT "PHASER AKTIVIEREN !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 12\r
+PRINT "PHASER AKTIVIEREN !"\r
+COLOR 12\r
+LOCATE 2, 7\r
+PRINT "DIE PHASER REAGIEREN NICHT !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 7\r
+PRINT "DIE PHASER REAGIEREN NICHT !"\r
+        DRAW "bm130,70c25u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 1, 25\r
+        DRAW "bm136,67c25u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c25r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c25d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 1, 25\r
+        PAINT (170, 80), 1, 25\r
+        DRAW "bm195,75c25d6"\r
+        PAINT (193, 77), 4, 25\r
+        PAINT (197, 77), 1, 25\r
+        DRAW "bm131,71c9u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c9u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c9r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c9d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR q = 1 TO 10000: NEXT\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR q = 1 TO 10000: NEXT\r
+        DRAW "bm130,70c25u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 1, 25\r
+        DRAW "bm136,67c25u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c25r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c25d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 1, 25\r
+        PAINT (170, 80), 1, 25\r
+        DRAW "bm195,75c25d6"\r
+        PAINT (193, 77), 4, 25\r
+        PAINT (197, 77), 1, 25\r
+        DRAW "bm131,71c9u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c9u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c9r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c9d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR q = 1 TO 10000: NEXT\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR q = 1 TO 10000: NEXT\r
+        DRAW "bm130,70c25u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 1, 25\r
+        DRAW "bm136,67c25u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c25r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c25d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 1, 25\r
+        PAINT (170, 80), 1, 25\r
+        DRAW "bm195,75c25d6"\r
+        PAINT (193, 77), 4, 25\r
+        PAINT (197, 77), 1, 25\r
+        DRAW "bm131,71c9u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c9u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c9r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c9d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR q = 1 TO 10000: NEXT\r
+        DRAW "bm130,70c19u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 0, 19\r
+        DRAW "bm136,67c19u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c19r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c19d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 0, 19\r
+        PAINT (170, 80), 0, 19\r
+        DRAW "bm195,75c19d6"\r
+        PAINT (193, 77), 6, 19\r
+        PAINT (197, 77), 0, 19\r
+        DRAW "bm131,71c1u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c1u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c1r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c1d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        CLS\r
+        SLEEP 2\r
+        COLOR 14\r
+LOCATE 13, 4\r
+PRINT "DIE WINDELPRISE WIRD VERMISST ...  "\r
+SLEEP 5\r
+CLS\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+CLS\r
+END SUB\r
+\r
+SUB Klingonen\r
+PLAY "l32cdefedc"\r
+COLOR 15\r
+LOCATE 2, 6\r
+PRINT "DANN MAL NACH HAUSE STEUERMANN !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 6\r
+PRINT "DANN MAL NACH HAUSE STEUERMANN !"\r
+COLOR 12\r
+LOCATE 2, 18\r
+PRINT "AYE SIR ."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 18\r
+PRINT "AYE SIR ."\r
+        CLS\r
+        COLOR 222\r
+        CIRCLE (3, 198), 151\r
+        COLOR 222\r
+        CIRCLE (3, 198), 150\r
+        COLOR 222\r
+        CIRCLE (3, 198), 149\r
+        COLOR 222\r
+        CIRCLE (3, 198), 148\r
+        COLOR 222\r
+        CIRCLE (3, 198), 147\r
+        COLOR 222\r
+        CIRCLE (3, 198), 146\r
+        COLOR 222\r
+        CIRCLE (3, 198), 145\r
+        COLOR 222\r
+        CIRCLE (3, 198), 144\r
+        COLOR 222\r
+        CIRCLE (3, 198), 143\r
+        COLOR 222\r
+        CIRCLE (3, 198), 142\r
+        COLOR 222\r
+        CIRCLE (3, 198), 141\r
+        COLOR 222\r
+        CIRCLE (3, 198), 140\r
+        COLOR 222\r
+        CIRCLE (3, 198), 139\r
+        COLOR 222\r
+        CIRCLE (3, 198), 138\r
+        COLOR 222\r
+        CIRCLE (3, 198), 137\r
+        COLOR 222\r
+        CIRCLE (3, 198), 136\r
+        COLOR 222\r
+        CIRCLE (2, 199), 151\r
+        COLOR 222\r
+        CIRCLE (2, 199), 150\r
+        COLOR 222\r
+        CIRCLE (2, 199), 149\r
+        COLOR 222\r
+        CIRCLE (2, 199), 148\r
+        COLOR 222\r
+        CIRCLE (2, 199), 147\r
+        COLOR 222\r
+        CIRCLE (2, 199), 146\r
+        COLOR 222\r
+        CIRCLE (2, 199), 145\r
+        COLOR 222\r
+        CIRCLE (2, 199), 144\r
+        COLOR 222\r
+        CIRCLE (2, 199), 143\r
+        COLOR 222\r
+        CIRCLE (2, 199), 142\r
+        COLOR 222\r
+        CIRCLE (2, 199), 141\r
+        COLOR 222\r
+        CIRCLE (2, 199), 140\r
+        COLOR 222\r
+        CIRCLE (2, 199), 139\r
+        COLOR 222\r
+        CIRCLE (2, 199), 138\r
+        COLOR 222\r
+        CIRCLE (2, 199), 137\r
+        COLOR 222\r
+        CIRCLE (2, 199), 136\r
+        COLOR 222\r
+        CIRCLE (1, 200), 151\r
+        COLOR 222\r
+        CIRCLE (1, 200), 150\r
+        COLOR 222\r
+        CIRCLE (1, 200), 149\r
+        COLOR 222\r
+        CIRCLE (1, 200), 148\r
+        COLOR 222\r
+        CIRCLE (1, 200), 147\r
+        COLOR 222\r
+        CIRCLE (1, 200), 146\r
+        COLOR 222\r
+        CIRCLE (1, 200), 145\r
+        COLOR 222\r
+        CIRCLE (1, 200), 144\r
+        COLOR 222\r
+        CIRCLE (1, 200), 143\r
+        COLOR 222\r
+        CIRCLE (1, 200), 142\r
+        COLOR 222\r
+        CIRCLE (1, 200), 141\r
+        COLOR 222\r
+        CIRCLE (1, 200), 140\r
+        COLOR 222\r
+        CIRCLE (1, 200), 139\r
+        COLOR 222\r
+        CIRCLE (1, 200), 138\r
+        COLOR 222\r
+        CIRCLE (1, 200), 137\r
+        COLOR 222\r
+        CIRCLE (1, 200), 136\r
+        COLOR 1\r
+        CIRCLE (4, 199), 151\r
+        COLOR 1\r
+        CIRCLE (4, 199), 150\r
+        COLOR 1\r
+        CIRCLE (4, 199), 149\r
+        COLOR 9\r
+        CIRCLE (4, 199), 148\r
+        COLOR 9\r
+        CIRCLE (4, 199), 147\r
+        COLOR 9\r
+        CIRCLE (4, 199), 146\r
+        COLOR 3\r
+        CIRCLE (4, 199), 145\r
+        COLOR 3\r
+        CIRCLE (4, 199), 144\r
+        COLOR 3\r
+        CIRCLE (4, 199), 143\r
+        COLOR 1\r
+        CIRCLE (3, 198), 151\r
+        COLOR 1\r
+        CIRCLE (3, 198), 150\r
+        COLOR 1\r
+        CIRCLE (3, 198), 149\r
+        COLOR 9\r
+        CIRCLE (3, 198), 148\r
+        COLOR 9\r
+        CIRCLE (3, 198), 147\r
+        COLOR 9\r
+        CIRCLE (3, 198), 146\r
+        COLOR 3\r
+        CIRCLE (3, 198), 145\r
+        COLOR 3\r
+        CIRCLE (3, 198), 144\r
+        COLOR 3\r
+        CIRCLE (3, 198), 143\r
+        COLOR 1\r
+        CIRCLE (2, 197), 151\r
+        COLOR 1\r
+        CIRCLE (2, 197), 150\r
+        COLOR 1\r
+        CIRCLE (2, 197), 149\r
+        COLOR 9\r
+        CIRCLE (2, 197), 148\r
+        COLOR 9\r
+        CIRCLE (2, 197), 147\r
+        COLOR 9\r
+        CIRCLE (2, 197), 146\r
+        COLOR 3\r
+        CIRCLE (2, 197), 145\r
+        COLOR 3\r
+        CIRCLE (2, 197), 144\r
+        COLOR 3\r
+        CIRCLE (2, 197), 143\r
+        COLOR 1\r
+        CIRCLE (1, 196), 151\r
+        COLOR 1\r
+        CIRCLE (1, 196), 150\r
+        COLOR 1\r
+        CIRCLE (1, 196), 149\r
+        COLOR 9\r
+        CIRCLE (1, 196), 148\r
+        COLOR 9\r
+        CIRCLE (1, 196), 147\r
+        COLOR 9\r
+        CIRCLE (1, 196), 146\r
+        COLOR 3\r
+        CIRCLE (1, 196), 145\r
+        COLOR 3\r
+        CIRCLE (1, 196), 144\r
+        COLOR 3\r
+        CIRCLE (1, 196), 143\r
+        COLOR 1\r
+        CIRCLE (0, 195), 151\r
+        COLOR 1\r
+        CIRCLE (0, 195), 150\r
+        COLOR 1\r
+        CIRCLE (0, 195), 149\r
+        COLOR 9\r
+        CIRCLE (0, 195), 148\r
+        COLOR 9\r
+        CIRCLE (0, 195), 147\r
+        COLOR 9\r
+        CIRCLE (0, 195), 146\r
+        COLOR 3\r
+        CIRCLE (0, 195), 145\r
+        COLOR 3\r
+        CIRCLE (0, 195), 144\r
+        COLOR 3\r
+        CIRCLE (0, 195), 143\r
+        PAINT (1, 199), 2, 3\r
+       \r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+     \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+     \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (60, 100), 4\r
+        DRAW "bm60,100c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 3\r
+        DRAW "bm60,100c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (60, 100), 2\r
+        DRAW "bm60,100c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 1\r
+        DRAW "bm60,100c15u5d10u5l3r6"\r
+        CLS\r
+        PLAY "mbo3l4cl8t180cfal4t120gl8t180gco4dl2t120c."\r
+       \r
+        FOR u% = 1 TO 13\r
+        COLOR 14\r
+        LOCATE u%, 9\r
+        PRINT "SIE HABEN GEWONNEN !"\r
+         FOR z = 1 TO 2000\r
+         NEXT\r
+        LOCATE u%, 9\r
+        COLOR 0\r
+        PRINT "SIE HABEN GEWONNEN !"\r
+        NEXT\r
+        COLOR 14\r
+        LOCATE 13, 9\r
+        PRINT "SIE HABEN GEWONNEN !"\r
+        PLAY "mbl8t180o3a#o4cdo3a#t120l4o4co3a#al8t180afat120l2g."\r
+        PLAY "mbo3l4cl8t180cfal4t120gl8t180gco4dl2t120c."\r
+        PLAY "mbl8t180o3a#o4cdo3a#t120l4o4co3a#al8t180afat120l2gl8c."\r
+        PLAY "mbl12a#a#a#o4ccco3a#a#a#o4ccc."\r
+        SLEEP\r
+        SYSTEM\r
+        END SUB\r
+\r
+SUB Mission2\r
+\r
+CLS\r
+PLAY "l32cdefedc"\r
+\r
+CALL Raumschiff\r
+\r
+TabellenUndAusschneiden:\r
+DIM A(1024)\r
+GET (130, 56)-(215, 98), A\r
+DIM B(512)\r
+GET (130, 56)-(170, 80), B\r
+DIM C(512)\r
+GET (180, 65)-(220, 89), C\r
+DIM D(512)\r
+GET (131, 75)-(174, 99), D\r
+\r
+CLS\r
+\r
+\r
+CIRCLE (170, 80), 4\r
+        DRAW "bm170,80c15u20d40u20l9r18"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 3\r
+        DRAW "bm170,80c15u15d30u15l7r14"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CIRCLE (170, 80), 2\r
+        DRAW "bm170,80c15u10d20u10l5r10"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 1\r
+        DRAW "bm170,80c15u5d10u5l3r6"\r
+        CLS\r
+        CALL Raumschiff\r
+\r
+CALL Planet\r
+\r
+\r
+text:\r
+\r
+COLOR 10\r
+LOCATE 1, 9\r
+PRINT "WINDELPRISE ... HILFE !"\r
+LOCATE 2, 7\r
+PRINT "UNSER PLANET IST V\99LLIG AUSGETROCKNET !"\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 1, 9\r
+PRINT "WINDELPRISE ... HILFE !"\r
+LOCATE 2, 7\r
+PRINT "UNSER PLANET IST V\99LLIG AUSGETROCKNET !"\r
+COLOR 15\r
+LOCATE 2, 12\r
+PRINT "WAS K\99NNEN WIR TUN ?"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 12\r
+PRINT "WAS K\99NNEN WIR TUN ?"\r
+COLOR 10\r
+LOCATE 1, 9\r
+PRINT "BITTE... ZZZSCH........"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 1, 9\r
+PRINT "BITTE... ZZZSCH........"\r
+COLOR 12\r
+LOCATE 1, 16\r
+PRINT "CAPTAIN..."\r
+LOCATE 2, 4\r
+PRINT "WIR HABEN DEN KONTAKT VERLOREN...."\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 1, 16\r
+PRINT "CAPTAIN..."\r
+LOCATE 2, 4\r
+PRINT "WIR HABEN DEN KONTAKT VERLOREN...."\r
+COLOR 15\r
+LOCATE 1, 8\r
+PRINT "CAPTAIN AN MASCHINENRAUM ..."\r
+LOCATE 2, 8\r
+PRINT "TUN SIE WAS SIE K\99NNEN !"\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 1, 8\r
+PRINT "CAPTAIN AN MASCHINENRAUM ..."\r
+LOCATE 2, 8\r
+PRINT "TUN SIE WAS SIE K\99NNEN !"\r
+COLOR 12\r
+LOCATE 2, 16\r
+PRINT "AYE SIR ."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 16\r
+PRINT "AYE SIR ."\r
+\r
+RechteckWeiss:\r
+\r
+LINE (73, 76)-(247, 124), 19, BF\r
+LINE (72, 75)-(248, 125), 30, B\r
+\r
+UnterteilungRechteck:\r
+\r
+DRAW "bm129,75 c15 d50 bm188,75 d50"\r
+DRAW "bm72,110 r176"\r
+\r
+Schrift:\r
+\r
+COLOR 12\r
+LOCATE 15, 12, 0: PRINT "haser"\r
+LOCATE 15, 20, 0: PRINT "arp"\r
+LOCATE 15, 26, 0: PRINT "enden"\r
+\r
+COLOR 14\r
+LOCATE 15, 11, 0: PRINT "P"\r
+LOCATE 15, 19, 0: PRINT "W"\r
+LOCATE 15, 25, 0: PRINT "S"\r
+\r
+PhaserUntertasse:\r
+\r
+PUT (81, 80), B, PSET\r
+\r
+FluchtTriebwerke:\r
+\r
+PUT (139, 80), C, PSET\r
+\r
+Senden:\r
+\r
+PUT (196, 80), D, PSET\r
+\r
+COLOR 0\r
+LOCATE 1, 1, 0\r
+INPUT "", aus$\r
+\r
+4 IF aus$ = "P" THEN GOTO Schluss1 ELSE GOTO 5\r
+5 IF aus$ = "W" THEN GOTO Schluss2 ELSE GOTO 6\r
+6 IF aus$ = "S" THEN GOTO 100 ELSE GOTO 7\r
+7 IF aus$ = "p" THEN GOTO Schluss1 ELSE GOTO 8\r
+8 IF aus$ = "w" THEN GOTO Schluss2 ELSE GOTO 9\r
+9 IF aus$ = "s" THEN GOTO 100 ELSE GOTO 11\r
+11 IF aus$ = " " THEN GOTO 4\r
+\r
+Schluss1:\r
+\r
+CLS\r
+CALL Planet\r
+CALL Raumschiff\r
+LINE (149, 81)-(94, 105), 4\r
+LINE (150, 81)-(95, 105), 12\r
+LINE (149, 82)-(95, 106), 4\r
+SLEEP 1.4\r
+FOR i% = 1 TO 153\r
+COLOR 39\r
+CIRCLE (1, 199), i%\r
+CIRCLE (2, 198), i%\r
+COLOR 40\r
+CIRCLE (3, 197), i%\r
+CIRCLE (4, 196), i%\r
+COLOR 41\r
+CIRCLE (5, 195), i%\r
+CIRCLE (6, 194), i%\r
+COLOR 42\r
+CIRCLE (7, 193), i%\r
+CIRCLE (8, 192), i%\r
+COLOR 43\r
+CIRCLE (9, 191), i%\r
+CIRCLE (10, 190), i%\r
+COLOR 44\r
+CIRCLE (11, 189), i%\r
+CIRCLE (12, 188), i%\r
+NEXT\r
+\r
+FOR u = 1 TO 30\r
+NEXT\r
+\r
+COLOR 16\r
+FOR A% = 154 TO 0 STEP -1\r
+CIRCLE (12, 188), A%\r
+CIRCLE (11, 189), A%\r
+CIRCLE (10, 190), A%\r
+CIRCLE (9, 191), A%\r
+CIRCLE (8, 192), A%\r
+CIRCLE (7, 193), A%\r
+CIRCLE (6, 194), A%\r
+CIRCLE (5, 195), A%\r
+COLOR 0\r
+LINE (149, 81)-(94, 105), 0\r
+LINE (150, 81)-(95, 105), 0\r
+LINE (149, 82)-(95, 106), 0\r
+CIRCLE (4, 196), A%\r
+CIRCLE (3, 197), A%\r
+CIRCLE (2, 198), A%\r
+CIRCLE (1, 199), A%\r
+CIRCLE (0, 200), A%\r
+\r
+NEXT\r
+\r
+COLOR 12\r
+LOCATE 1, 14\r
+PRINT "CAPTAIN ..."\r
+LOCATE 2, 6\r
+PRINT "HIER WIRD ES ZIEMLICH WARM ..."\r
+SLEEP 3\r
+CALL Ende\r
+Schluss2:\r
+       \r
+        CLS\r
+\r
+        COLOR 31\r
+        CIRCLE (3, 198), 151\r
+        COLOR 30\r
+        CIRCLE (3, 198), 150\r
+        COLOR 29\r
+        CIRCLE (3, 198), 149\r
+        COLOR 28\r
+        CIRCLE (3, 198), 148\r
+        COLOR 27\r
+        CIRCLE (3, 198), 147\r
+        COLOR 26\r
+        CIRCLE (3, 198), 146\r
+        COLOR 25\r
+        CIRCLE (3, 198), 145\r
+        COLOR 24\r
+        CIRCLE (3, 198), 144\r
+        COLOR 23\r
+        CIRCLE (3, 198), 143\r
+        COLOR 22\r
+        CIRCLE (3, 198), 142\r
+        COLOR 21\r
+        CIRCLE (3, 198), 141\r
+        COLOR 20\r
+        CIRCLE (3, 198), 140\r
+        COLOR 19\r
+        CIRCLE (3, 198), 139\r
+        COLOR 18\r
+        CIRCLE (3, 198), 138\r
+        COLOR 17\r
+        CIRCLE (3, 198), 137\r
+        COLOR 16\r
+        CIRCLE (3, 198), 136\r
+        COLOR 31\r
+        CIRCLE (2, 199), 151\r
+        COLOR 30\r
+        CIRCLE (2, 199), 150\r
+        COLOR 29\r
+        CIRCLE (2, 199), 149\r
+        COLOR 28\r
+        CIRCLE (2, 199), 148\r
+        COLOR 27\r
+        CIRCLE (2, 199), 147\r
+        COLOR 26\r
+        CIRCLE (2, 199), 146\r
+        COLOR 25\r
+        CIRCLE (2, 199), 145\r
+        COLOR 24\r
+        CIRCLE (2, 199), 144\r
+        COLOR 23\r
+        CIRCLE (2, 199), 143\r
+        COLOR 22\r
+        CIRCLE (2, 199), 142\r
+        COLOR 21\r
+        CIRCLE (2, 199), 141\r
+        COLOR 20\r
+        CIRCLE (2, 199), 140\r
+        COLOR 19\r
+        CIRCLE (2, 199), 139\r
+        COLOR 18\r
+        CIRCLE (2, 199), 138\r
+        COLOR 17\r
+        CIRCLE (2, 199), 137\r
+        COLOR 16\r
+        CIRCLE (2, 199), 136\r
+        COLOR 31\r
+        CIRCLE (1, 200), 151\r
+        COLOR 30\r
+        CIRCLE (1, 200), 150\r
+        COLOR 29\r
+        CIRCLE (1, 200), 149\r
+        COLOR 28\r
+        CIRCLE (1, 200), 148\r
+        COLOR 27\r
+        CIRCLE (1, 200), 147\r
+        COLOR 26\r
+        CIRCLE (1, 200), 146\r
+        COLOR 25\r
+        CIRCLE (1, 200), 145\r
+        COLOR 24\r
+        CIRCLE (1, 200), 144\r
+        COLOR 23\r
+        CIRCLE (1, 200), 143\r
+        COLOR 22\r
+        CIRCLE (1, 200), 142\r
+        COLOR 21\r
+        CIRCLE (1, 200), 141\r
+        COLOR 20\r
+        CIRCLE (1, 200), 140\r
+        COLOR 19\r
+        CIRCLE (1, 200), 139\r
+        COLOR 18\r
+        CIRCLE (1, 200), 138\r
+        COLOR 17\r
+        CIRCLE (1, 200), 137\r
+        COLOR 16\r
+        CIRCLE (1, 200), 136\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        COLOR 12\r
+        LOCATE 2, 12\r
+        PRINT "WIR SIND ZU SCHNELL !!!"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+      \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+      \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 31\r
+        CIRCLE (3, 198), 151\r
+        COLOR 30\r
+        CIRCLE (3, 198), 150\r
+        COLOR 29\r
+        CIRCLE (3, 198), 149\r
+        COLOR 28\r
+        CIRCLE (3, 198), 148\r
+        COLOR 27\r
+        CIRCLE (3, 198), 147\r
+        COLOR 26\r
+        CIRCLE (3, 198), 146\r
+        COLOR 25\r
+        CIRCLE (3, 198), 145\r
+        COLOR 24\r
+        CIRCLE (3, 198), 144\r
+        COLOR 23\r
+        CIRCLE (3, 198), 143\r
+        COLOR 22\r
+        CIRCLE (3, 198), 142\r
+        COLOR 21\r
+        CIRCLE (3, 198), 141\r
+        COLOR 20\r
+        CIRCLE (3, 198), 140\r
+        COLOR 19\r
+        CIRCLE (3, 198), 139\r
+        COLOR 18\r
+        CIRCLE (3, 198), 138\r
+        COLOR 17\r
+        CIRCLE (3, 198), 137\r
+        COLOR 16\r
+        CIRCLE (3, 198), 136\r
+        COLOR 31\r
+        CIRCLE (2, 199), 151\r
+        COLOR 30\r
+        CIRCLE (2, 199), 150\r
+        COLOR 29\r
+        CIRCLE (2, 199), 149\r
+        COLOR 28\r
+        CIRCLE (2, 199), 148\r
+        COLOR 27\r
+        CIRCLE (2, 199), 147\r
+        COLOR 26\r
+        CIRCLE (2, 199), 146\r
+        COLOR 25\r
+        CIRCLE (2, 199), 145\r
+        COLOR 24\r
+        CIRCLE (2, 199), 144\r
+        COLOR 23\r
+        CIRCLE (2, 199), 143\r
+        COLOR 22\r
+        CIRCLE (2, 199), 142\r
+        COLOR 21\r
+        CIRCLE (2, 199), 141\r
+        COLOR 20\r
+        CIRCLE (2, 199), 140\r
+        COLOR 19\r
+        CIRCLE (2, 199), 139\r
+        COLOR 18\r
+        CIRCLE (2, 199), 138\r
+        COLOR 17\r
+        CIRCLE (2, 199), 137\r
+        COLOR 16\r
+        CIRCLE (2, 199), 136\r
+        COLOR 31\r
+        CIRCLE (1, 200), 151\r
+        COLOR 30\r
+        CIRCLE (1, 200), 150\r
+        COLOR 29\r
+        CIRCLE (1, 200), 149\r
+        COLOR 28\r
+        CIRCLE (1, 200), 148\r
+        COLOR 27\r
+        CIRCLE (1, 200), 147\r
+        COLOR 26\r
+        CIRCLE (1, 200), 146\r
+        COLOR 25\r
+        CIRCLE (1, 200), 145\r
+        COLOR 24\r
+        CIRCLE (1, 200), 144\r
+        COLOR 23\r
+        CIRCLE (1, 200), 143\r
+        COLOR 22\r
+        CIRCLE (1, 200), 142\r
+        COLOR 21\r
+        CIRCLE (1, 200), 141\r
+        COLOR 20\r
+        CIRCLE (1, 200), 140\r
+        COLOR 19\r
+        CIRCLE (1, 200), 139\r
+        COLOR 18\r
+        CIRCLE (1, 200), 138\r
+        COLOR 17\r
+        CIRCLE (1, 200), 137\r
+        COLOR 16\r
+        CIRCLE (1, 200), 136\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+        DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+        PAINT (150, 77), 9, 15\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+        PAINT (150, 66), 9, 15\r
+\r
+        DRAW "bm131,71c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+        DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+        COLOR 12\r
+        LOCATE 12, 22\r
+        PRINT "BOOM !"\r
+        SLEEP 1\r
+        COLOR 4\r
+        LOCATE 12, 22\r
+        PRINT "BOOM !"\r
+        SLEEP 1\r
+        COLOR 0\r
+        LOCATE 12, 22\r
+        PRINT "BOOM !"\r
+\r
+        DRAW "bm130,70c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 1, 7\r
+        DRAW "bm136,67c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+        DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+        PAINT (150, 77), 1, 7\r
+        DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+        PAINT (150, 66), 1, 7\r
+\r
+        DRAW "bm131,71c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+\r
+        SLEEP 1\r
+\r
+        DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 0, 8\r
+        DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+        DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+        PAINT (150, 77), 0, 8\r
+        DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+        PAINT (150, 66), 0, 8\r
+\r
+        DRAW "bm131,71c0u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c0u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c0r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+        SLEEP 1\r
+        CLS\r
+        SLEEP 2\r
+        COLOR 14\r
+        LOCATE 13, 4\r
+        PRINT "DIE WINDELPRISE IST EXPLODIERT ..."\r
+        SLEEP 2\r
+        CLS\r
+        LOCATE 13, 19\r
+        PRINT "ENDE"\r
+        SLEEP 5\r
+        END\r
+\r
+100\r
+CLS\r
+        COLOR 31\r
+        CIRCLE (3, 198), 151\r
+        COLOR 30\r
+        CIRCLE (3, 198), 150\r
+        COLOR 29\r
+        CIRCLE (3, 198), 149\r
+        COLOR 28\r
+        CIRCLE (3, 198), 148\r
+        COLOR 27\r
+        CIRCLE (3, 198), 147\r
+        COLOR 26\r
+        CIRCLE (3, 198), 146\r
+        COLOR 25\r
+        CIRCLE (3, 198), 145\r
+        COLOR 24\r
+        CIRCLE (3, 198), 144\r
+        COLOR 23\r
+        CIRCLE (3, 198), 143\r
+        COLOR 22\r
+        CIRCLE (3, 198), 142\r
+        COLOR 21\r
+        CIRCLE (3, 198), 141\r
+        COLOR 20\r
+        CIRCLE (3, 198), 140\r
+        COLOR 19\r
+        CIRCLE (3, 198), 139\r
+        COLOR 18\r
+        CIRCLE (3, 198), 138\r
+        COLOR 17\r
+        CIRCLE (3, 198), 137\r
+        COLOR 16\r
+        CIRCLE (3, 198), 136\r
+        COLOR 31\r
+        CIRCLE (2, 199), 151\r
+        COLOR 30\r
+        CIRCLE (2, 199), 150\r
+        COLOR 29\r
+        CIRCLE (2, 199), 149\r
+        COLOR 28\r
+        CIRCLE (2, 199), 148\r
+        COLOR 27\r
+        CIRCLE (2, 199), 147\r
+        COLOR 26\r
+        CIRCLE (2, 199), 146\r
+        COLOR 25\r
+        CIRCLE (2, 199), 145\r
+        COLOR 24\r
+        CIRCLE (2, 199), 144\r
+        COLOR 23\r
+        CIRCLE (2, 199), 143\r
+        COLOR 22\r
+        CIRCLE (2, 199), 142\r
+        COLOR 21\r
+        CIRCLE (2, 199), 141\r
+        COLOR 20\r
+        CIRCLE (2, 199), 140\r
+        COLOR 19\r
+        CIRCLE (2, 199), 139\r
+        COLOR 18\r
+        CIRCLE (2, 199), 138\r
+        COLOR 17\r
+        CIRCLE (2, 199), 137\r
+        COLOR 16\r
+        CIRCLE (2, 199), 136\r
+        COLOR 31\r
+        CIRCLE (1, 200), 151\r
+        COLOR 30\r
+        CIRCLE (1, 200), 150\r
+        COLOR 29\r
+        CIRCLE (1, 200), 149\r
+        COLOR 28\r
+        CIRCLE (1, 200), 148\r
+        COLOR 27\r
+        CIRCLE (1, 200), 147\r
+        COLOR 26\r
+        CIRCLE (1, 200), 146\r
+        COLOR 25\r
+        CIRCLE (1, 200), 145\r
+        COLOR 24\r
+        CIRCLE (1, 200), 144\r
+        COLOR 23\r
+        CIRCLE (1, 200), 143\r
+        COLOR 22\r
+        CIRCLE (1, 200), 142\r
+        COLOR 21\r
+        CIRCLE (1, 200), 141\r
+        COLOR 20\r
+        CIRCLE (1, 200), 140\r
+        COLOR 19\r
+        CIRCLE (1, 200), 139\r
+        COLOR 18\r
+        CIRCLE (1, 200), 138\r
+        COLOR 17\r
+        CIRCLE (1, 200), 137\r
+        COLOR 16\r
+        CIRCLE (1, 200), 136\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+\r
+DRAW "bm154,88c9m105,113"\r
+DRAW "bm154,87c3m105,112"\r
+\r
+SLEEP 1\r
+FOR l% = 141 TO 119 STEP -1\r
+COLOR 222\r
+CIRCLE (14, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 221\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 220\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 219\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 218\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 217\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 216\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 215\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+\r
+FOR l% = 142 TO 0 STEP -2\r
+COLOR 222\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 221\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 220\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 219\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 218\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 217\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 216\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+CIRCLE (0, 200), l%\r
+COLOR 218\r
+CIRCLE (12, 188), l%\r
+CIRCLE (11, 189), l%\r
+CIRCLE (10, 190), l%\r
+CIRCLE (9, 191), l%\r
+CIRCLE (8, 192), l%\r
+CIRCLE (7, 193), l%\r
+CIRCLE (6, 194), l%\r
+CIRCLE (5, 195), l%\r
+CIRCLE (4, 196), l%\r
+CIRCLE (3, 197), l%\r
+CIRCLE (2, 198), l%\r
+CIRCLE (1, 199), l%\r
+NEXT\r
+NEXT\r
+        CLS\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PAINT (140, 65), 9, 15\r
+PAINT (170, 80), 9, 15\r
+DRAW "bm195,75c15d6"\r
+PAINT (193, 77), 12, 15\r
+PAINT (197, 77), 9, 15\r
+DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+       \r
+        COLOR 1\r
+        CIRCLE (4, 199), 151\r
+        COLOR 1\r
+        CIRCLE (4, 199), 150\r
+        COLOR 1\r
+        CIRCLE (4, 199), 149\r
+        COLOR 9\r
+        CIRCLE (4, 199), 148\r
+        COLOR 9\r
+        CIRCLE (4, 199), 147\r
+        COLOR 9\r
+        CIRCLE (4, 199), 146\r
+        COLOR 3\r
+        CIRCLE (4, 199), 145\r
+        COLOR 3\r
+        CIRCLE (4, 199), 144\r
+        COLOR 3\r
+        CIRCLE (4, 199), 143\r
+        COLOR 1\r
+        CIRCLE (3, 198), 151\r
+        COLOR 1\r
+        CIRCLE (3, 198), 150\r
+        COLOR 1\r
+        CIRCLE (3, 198), 149\r
+        COLOR 9\r
+        CIRCLE (3, 198), 148\r
+        COLOR 9\r
+        CIRCLE (3, 198), 147\r
+        COLOR 9\r
+        CIRCLE (3, 198), 146\r
+        COLOR 3\r
+        CIRCLE (3, 198), 145\r
+        COLOR 3\r
+        CIRCLE (3, 198), 144\r
+        COLOR 3\r
+        CIRCLE (3, 198), 143\r
+        COLOR 1\r
+        CIRCLE (2, 197), 151\r
+        COLOR 1\r
+        CIRCLE (2, 197), 150\r
+        COLOR 1\r
+        CIRCLE (2, 197), 149\r
+        COLOR 9\r
+        CIRCLE (2, 197), 148\r
+        COLOR 9\r
+        CIRCLE (2, 197), 147\r
+        COLOR 9\r
+        CIRCLE (2, 197), 146\r
+        COLOR 3\r
+        CIRCLE (2, 197), 145\r
+        COLOR 3\r
+        CIRCLE (2, 197), 144\r
+        COLOR 3\r
+        CIRCLE (2, 197), 143\r
+        COLOR 1\r
+        CIRCLE (1, 196), 151\r
+        COLOR 1\r
+        CIRCLE (1, 196), 150\r
+        COLOR 1\r
+        CIRCLE (1, 196), 149\r
+        COLOR 9\r
+        CIRCLE (1, 196), 148\r
+        COLOR 9\r
+        CIRCLE (1, 196), 147\r
+        COLOR 9\r
+        CIRCLE (1, 196), 146\r
+        COLOR 3\r
+        CIRCLE (1, 196), 145\r
+        COLOR 3\r
+        CIRCLE (1, 196), 144\r
+        COLOR 3\r
+        CIRCLE (1, 196), 143\r
+        COLOR 1\r
+        CIRCLE (0, 195), 151\r
+        COLOR 1\r
+        CIRCLE (0, 195), 150\r
+        COLOR 1\r
+        CIRCLE (0, 195), 149\r
+        COLOR 9\r
+        CIRCLE (0, 195), 148\r
+        COLOR 9\r
+        CIRCLE (0, 195), 147\r
+        COLOR 9\r
+        CIRCLE (0, 195), 146\r
+        COLOR 3\r
+        CIRCLE (0, 195), 145\r
+        COLOR 3\r
+        CIRCLE (0, 195), 144\r
+        COLOR 3\r
+        CIRCLE (0, 195), 143\r
+        PAINT (1, 199), 218, 3\r
+SLEEP 1\r
+COLOR 12\r
+LOCATE 1, 16\r
+PRINT "CAPTAIN !"\r
+LOCATE 2, 3\r
+PRINT "DER KONTAKT IST WIEDERHERGESTELLT !"\r
+LOCATE 3, 7\r
+PRINT "DEM PLANETEN GEHT ES GUT..."\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 1, 16\r
+PRINT "CAPTAIN !"\r
+LOCATE 2, 3\r
+PRINT "DER KONTAKT IST WIEDERHERGESTELLT !"\r
+LOCATE 3, 7\r
+PRINT "DEM PLANETEN GEHT ES GUT..."\r
+COLOR 10\r
+LOCATE 2, 12\r
+PRINT "DANKE WINDELPRISE !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 12\r
+PRINT "DANKE WINDELPRISE !"\r
+COLOR 15\r
+LOCATE 2, 2\r
+PRINT "GUT, KURS SETZEN ... WARP 4 ... LOS !"\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 2, 2\r
+PRINT "GUT, KURS SETZEN ... WARP 4 ... LOS !"\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+     \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+     \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 1\r
+        CIRCLE (4, 199), 151\r
+        COLOR 1\r
+        CIRCLE (4, 199), 150\r
+        COLOR 1\r
+        CIRCLE (4, 199), 149\r
+        COLOR 9\r
+        CIRCLE (4, 199), 148\r
+        COLOR 9\r
+        CIRCLE (4, 199), 147\r
+        COLOR 9\r
+        CIRCLE (4, 199), 146\r
+        COLOR 3\r
+        CIRCLE (4, 199), 145\r
+        COLOR 3\r
+        CIRCLE (4, 199), 144\r
+        COLOR 3\r
+        CIRCLE (4, 199), 143\r
+        COLOR 1\r
+        CIRCLE (3, 198), 151\r
+        COLOR 1\r
+        CIRCLE (3, 198), 150\r
+        COLOR 1\r
+        CIRCLE (3, 198), 149\r
+        COLOR 9\r
+        CIRCLE (3, 198), 148\r
+        COLOR 9\r
+        CIRCLE (3, 198), 147\r
+        COLOR 9\r
+        CIRCLE (3, 198), 146\r
+        COLOR 3\r
+        CIRCLE (3, 198), 145\r
+        COLOR 3\r
+        CIRCLE (3, 198), 144\r
+        COLOR 3\r
+        CIRCLE (3, 198), 143\r
+        COLOR 1\r
+        CIRCLE (2, 197), 151\r
+        COLOR 1\r
+        CIRCLE (2, 197), 150\r
+        COLOR 1\r
+        CIRCLE (2, 197), 149\r
+        COLOR 9\r
+        CIRCLE (2, 197), 148\r
+        COLOR 9\r
+        CIRCLE (2, 197), 147\r
+        COLOR 9\r
+        CIRCLE (2, 197), 146\r
+        COLOR 3\r
+        CIRCLE (2, 197), 145\r
+        COLOR 3\r
+        CIRCLE (2, 197), 144\r
+        COLOR 3\r
+        CIRCLE (2, 197), 143\r
+        COLOR 1\r
+        CIRCLE (1, 196), 151\r
+        COLOR 1\r
+        CIRCLE (1, 196), 150\r
+        COLOR 1\r
+        CIRCLE (1, 196), 149\r
+        COLOR 9\r
+        CIRCLE (1, 196), 148\r
+        COLOR 9\r
+        CIRCLE (1, 196), 147\r
+        COLOR 9\r
+        CIRCLE (1, 196), 146\r
+        COLOR 3\r
+        CIRCLE (1, 196), 145\r
+        COLOR 3\r
+        CIRCLE (1, 196), 144\r
+        COLOR 3\r
+        CIRCLE (1, 196), 143\r
+        COLOR 1\r
+        CIRCLE (0, 195), 151\r
+        COLOR 1\r
+        CIRCLE (0, 195), 150\r
+        COLOR 1\r
+        CIRCLE (0, 195), 149\r
+        COLOR 9\r
+        CIRCLE (0, 195), 148\r
+        COLOR 9\r
+        CIRCLE (0, 195), 147\r
+        COLOR 9\r
+        CIRCLE (0, 195), 146\r
+        COLOR 3\r
+        CIRCLE (0, 195), 145\r
+        COLOR 3\r
+        CIRCLE (0, 195), 144\r
+        COLOR 3\r
+        CIRCLE (0, 195), 143\r
+        PAINT (1, 199), 218, 3\r
+        COLOR 15\r
+        CIRCLE (160, 90), 4\r
+        DRAW "bm160,90c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (160, 90), 3\r
+        DRAW "bm160,90c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (160, 90), 2\r
+        DRAW "bm160,90c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (160, 90), 1\r
+        DRAW "bm160,90c15u5d10u5l3r6"\r
+        CLS\r
+        SLEEP 1\r
+        CALL MissionP\r
+        END\r
+\r
+Schluss:\r
+SLEEP\r
+END SUB\r
+\r
+SUB MissionP\r
+PLAY "l32cdefedc"\r
+DRAW "bm60,70c15r200d1r3d1r3d1r3d1r3d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d2r1"\r
+DRAW "d2r1d5r1d10l1d5l1d2l1d2l1d1l1d1l1d1l1d1l1d1l1d1l1d1l2d1l2d1l2d1l2d1l3"\r
+DRAW "d1l3d1l3d1l200u1l3u1l3u1l3u1l2u1l2u1l2u1l2u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "u2l1u2l1u5l1u10r1u5r1u2r1u2r1u1r1u1r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1"\r
+DRAW "r3u1r3u1r3"\r
+PAINT (100, 100), 9, 15\r
+DRAW "bm61,71c15r200d1r3d1r3d1r3d1r3d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d2r1"\r
+DRAW "d2r1d5r1d10l1d5l1d2l1d2l1d1l1d1l1d1l1d1l1d1l1d1l1d1l2d1l2d1l2d1l2d1l3"\r
+DRAW "d1l3d1l3d1l200u1l3u1l3u1l3u1l2u1l2u1l2u1l2u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "u2l1u2l1u5l1u10r1u5r1u2r1u2r1u1r1u1r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1"\r
+DRAW "r3u1r3u1r3"\r
+DRAW "bm62,72c3r200d1r3d1r3d1r3d1r3d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d2r1"\r
+DRAW "d2r1d5r1d10l1d5l1d2l1d2l1d1l1d1l1d1l1d1l1d1l1d1l1d1l2d1l2d1l2d1l2d1l3"\r
+DRAW "d1l3d1l3d1l200u1l3u1l3u1l3u1l2u1l2u1l2u1l2u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "u2l1u2l1u5l1u10r1u5r1u2r1u2r1u1r1u1r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1"\r
+DRAW "r3u1r3u1r3"\r
+DRAW "bm63,73c3r200d1r3d1r3d1r3d1r3d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d2r1"\r
+DRAW "d2r1d5r1d10l1d5l1d2l1d2l1d1l1d1l1d1l1d1l1d1l1d1l1d1l2d1l2d1l2d1l2d1l3"\r
+DRAW "d1l3d1l3d1l200u1l3u1l3u1l3u1l2u1l2u1l2u1l2u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "u2l1u2l1u5l1u10r1u5r1u2r1u2r1u1r1u1r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1"\r
+DRAW "r3u1r3u1r3"\r
+\r
+DRAW "bm71,71c15u3r1u3r1u3r1u3r1u3r1u3r1u3r1u2r1u2r1u2r1u2r1u2r1u2r1u2r1u1r1u1"\r
+DRAW "r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r3u1r3u1r3u1r3u1r3u1r3u1"\r
+DRAW "r4u1r4u1r4u1r4u1r4u1r4u1 r25 d1r4d1r4d1r4d1r4d1r4d1r4d1r3d1r3d1r3d1r3d1"\r
+DRAW "r3d1r3d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d1r1d2r1d2r1d2r1d2r1"\r
+DRAW "d2r1d2r1d3r1d3r1d3r1d3r1d3r1d3r1d3r1d1"\r
+\r
+PAINT (72, 69), 9, 15\r
+\r
+DRAW "bm72,72c15u3r1u3r1u3r1u3r1u3r1u3r1u3r1u2r1u2r1u2r1u2r1u2r1u2r1u2r1u1r1u1"\r
+DRAW "r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r3u1r3u1r3u1r3u1r3u1r3u1"\r
+DRAW "r4u1r4u1r4u1r4u1r4u1r4u1 r25 d1r4d1r4d1r4d1r4d1r4d1r4d1r3d1r3d1r3d1r3d1"\r
+DRAW "r3d1r3d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d1r1d2r1d2r1d2r1d2r1"\r
+DRAW "d2r1d2r1d3r1d3r1d3r1d3r1d3r1d3r1d3r1d1"\r
+\r
+DRAW "bm73,73c3u3r1u3r1u3r1u3r1u3r1u3r1u3r1u2r1u2r1u2r1u2r1u2r1u2r1u2r1u1r1u1"\r
+DRAW "r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r3u1r3u1r3u1r3u1r3u1r3u1"\r
+DRAW "r4u1r4u1r4u1r4u1r4u1r4u1 r25 d1r4d1r4d1r4d1r4d1r4d1r4d1r3d1r3d1r3d1r3d1"\r
+DRAW "r3d1r3d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d1r1d2r1d2r1d2r1d2r1"\r
+DRAW "d2r1d2r1d3r1d3r1d3r1d3r1d3r1d3r1d3r1d1"\r
+\r
+DRAW "bm74,73c3u3r1u3r1u3r1u3r1u3r1u3r1u3r1u2r1u2r1u2r1u2r1u2r1u2r1u2r1u1r1u1"\r
+DRAW "r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r3u1r3u1r3u1r3u1r3u1r3u1"\r
+DRAW "r4u1r4u1r4u1r4u1r4u1r4u1 r25 d1r4d1r4d1r4d1r4d1r4d1r4d1r3d1r3d1r3d1r3d1"\r
+DRAW "r3d1r3d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r1d1r1d1r1d1r1d1r1d1r1d2r1d2r1d2r1d2r1"\r
+DRAW "d2r1d2r1d3r1d3r1d3r1d3r1d3r1d3r1d3r1d1"\r
+\r
+\r
+DRAW "bm71,124c15d3r1d3r1d3r1d3r1d3r1d3r1d3r1d2r1d2r1d2r1d2r1d2r1d2r1d2r1d1r1d1"\r
+DRAW "r1d1r1d1r1d1r1d1r1d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r3d1r3d1r3d1r3d1r3d1r3d1"\r
+DRAW "r4d1r4d1r4d1r4d1r4d1r4d1 r25 u1r4u1r4u1r4u1r4u1r4u1r4u1r3u1r3u1r3u1r3u1"\r
+DRAW "r3u1r3u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r1u1r1u1r1u1r1u1r1u1r1u2r1u2r1u2r1u2r1"\r
+DRAW "u2r1u2r1u3r1u3r1u3r1u3r1u3r1u3r1u3r1u1"\r
+\r
+\r
+DRAW "bm72,125c15d3r1d3r1d3r1d3r1d3r1d3r1d3r1d2r1d2r1d2r1d2r1d2r1d2r1d2r1d1r1d1"\r
+DRAW "r1d1r1d1r1d1r1d1r1d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r3d1r3d1r3d1r3d1r3d1r3d1"\r
+DRAW "r4d1r4d1r4d1r4d1r4d1r4d1 r25 u1r4u1r4u1r4u1r4u1r4u1r4u1r3u1r3u1r3u1r3u1"\r
+DRAW "r3u1r3u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r1u1r1u1r1u1r1u1r1u1r1u2r1u2r1u2r1u2r1"\r
+DRAW "u2r1u2r1u3r1u3r1u3r1u3r1u3r1u3r1u3r1u1"\r
+\r
+PAINT (74, 129), 9, 15\r
+\r
+DRAW "bm73,126c3d3r1d3r1d3r1d3r1d3r1d3r1d3r1d2r1d2r1d2r1d2r1d2r1d2r1d2r1d1r1d1"\r
+DRAW "r1d1r1d1r1d1r1d1r1d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r3d1r3d1r3d1r3d1r3d1r3d1"\r
+DRAW "r4d1r4d1r4d1r4d1r4d1r4d1 r25 u1r4u1r4u1r4u1r4u1r4u1r4u1r3u1r3u1r3u1r3u1"\r
+DRAW "r3u1r3u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r1u1r1u1r1u1r1u1r1u1r1u2r1u2r1u2r1u2r1"\r
+DRAW "u2r1u2r1u3r1u3r1u3r1u3r1u3r1u3r1u3r1u1"\r
+\r
+\r
+DRAW "bm74,127c3d3r1d3r1d3r1d3r1d3r1d3r1d3r1d2r1d2r1d2r1d2r1d2r1d2r1d2r1d1r1d1"\r
+DRAW "r1d1r1d1r1d1r1d1r1d1r2d1r2d1r2d1r2d1r2d1r2d1r2d1r3d1r3d1r3d1r3d1r3d1r3d1"\r
+DRAW "r4d1r4d1r4d1r4d1r4d1r4d1 r25 u1r4u1r4u1r4u1r4u1r4u1r4u1r3u1r3u1r3u1r3u1"\r
+DRAW "r3u1r3u1r2u1r2u1r2u1r2u1r2u1r2u1r2u1r1u1r1u1r1u1r1u1r1u1r1u2r1u2r1u2r1u2r1"\r
+DRAW "u2r1u2r1u3r1u3r1u3r1u3r1u3r1u3r1u3r1u1"\r
+\r
+DRAW "bm75,127c3r170d1l170"\r
+COLOR 12\r
+LOCATE 1, 3\r
+PRINT "CAPTAIN ... DIE PHASER SIND KAPUTT !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 1, 3\r
+PRINT "CAPTAIN ... DIE PHASER SIND KAPUTT !"\r
+COLOR 15\r
+LOCATE 1, 3\r
+PRINT "SEHEN SIE NACH, WO DER FEHLER IST ."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 1, 3\r
+PRINT "SEHEN SIE NACH, WO DER FEHLER IST ."\r
+COLOR 12\r
+LOCATE 1, 17\r
+PRINT "AYE SIR ."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 1, 17\r
+PRINT "AYE SIR ."\r
+SLEEP 1\r
+COLOR 9\r
+LOCATE 6, 16\r
+PRINT " COMPUTER "\r
+COLOR 14\r
+LOCATE 6, 17\r
+PRINT "C"\r
+LOCATE 5, 16\r
+PRINT "          "\r
+LOCATE 7, 16\r
+PRINT "          "\r
+SLEEP 1\r
+COLOR 7\r
+LOCATE 13, 16\r
+PRINT " BATTERIH "\r
+LOCATE 12, 16\r
+PRINT "          "\r
+COLOR 14\r
+LOCATE 13, 17\r
+PRINT "B"\r
+LOCATE 14, 16\r
+PRINT "          "\r
+SLEEP 1\r
+COLOR 12\r
+LOCATE 20, 16\r
+PRINT "  PHASER  "\r
+LOCATE 19, 16\r
+PRINT "          "\r
+LOCATE 21, 16\r
+PRINT "          "\r
+COLOR 14\r
+LOCATE 20, 18\r
+PRINT "P"\r
+COLOR 0\r
+INPUT "", aus$\r
+60 IF aus$ = "B" THEN GOTO Gut ELSE GOTO 70\r
+70 IF aus$ = "P" THEN GOTO falsch ELSE GOTO 80\r
+80 IF aus$ = "C" THEN GOTO falsch ELSE GOTO 66\r
+66 IF aus$ = "b" THEN GOTO Gut ELSE GOTO 77\r
+77 IF aus$ = "p" THEN GOTO falsch ELSE GOTO 88\r
+88 IF aus$ = "c" THEN GOTO falsch ELSE GOTO 60\r
+Gut:\r
+COLOR 15\r
+LOCATE 13, 17\r
+INPUT "", EIN$\r
+IF EIN$ = "BATTERIE" THEN GOTO 12 ELSE GOTO NEXT1\r
+NEXT1: IF EIN$ = "Batterie" THEN GOTO 12 ELSE GOTO NEXT2\r
+NEXT2: IF EIN$ = "batterie" THEN GOTO 12 ELSE GOTO falsch\r
+12 PLAY "l32cdefedc"\r
+   COLOR 12\r
+   LOCATE 1, 8\r
+   PRINT "ICH HABE SIE REPARIERT !"\r
+   SLEEP 3\r
+   CALL Repariert\r
+   SLEEP\r
+END\r
+falsch:\r
+COLOR 12\r
+LOCATE 1, 8\r
+PRINT "ICH GLAUBE SIE SIND GANZ ."\r
+SLEEP 3\r
+CALL Kaputt\r
+SLEEP\r
+END SUB\r
+\r
+SUB Planet\r
+\r
+Planet:\r
+        COLOR 31\r
+        CIRCLE (3, 198), 151\r
+        COLOR 30\r
+        CIRCLE (3, 198), 150\r
+        COLOR 29\r
+        CIRCLE (3, 198), 149\r
+        COLOR 28\r
+        CIRCLE (3, 198), 148\r
+        COLOR 27\r
+        CIRCLE (3, 198), 147\r
+        COLOR 26\r
+        CIRCLE (3, 198), 146\r
+        COLOR 25\r
+        CIRCLE (3, 198), 145\r
+        COLOR 24\r
+        CIRCLE (3, 198), 144\r
+        COLOR 23\r
+        CIRCLE (3, 198), 143\r
+        COLOR 22\r
+        CIRCLE (3, 198), 142\r
+        COLOR 21\r
+        CIRCLE (3, 198), 141\r
+        COLOR 20\r
+        CIRCLE (3, 198), 140\r
+        COLOR 19\r
+        CIRCLE (3, 198), 139\r
+        COLOR 18\r
+        CIRCLE (3, 198), 138\r
+        COLOR 17\r
+        CIRCLE (3, 198), 137\r
+        COLOR 16\r
+        CIRCLE (3, 198), 136\r
+        COLOR 31\r
+        CIRCLE (2, 199), 151\r
+        COLOR 30\r
+        CIRCLE (2, 199), 150\r
+        COLOR 29\r
+        CIRCLE (2, 199), 149\r
+        COLOR 28\r
+        CIRCLE (2, 199), 148\r
+        COLOR 27\r
+        CIRCLE (2, 199), 147\r
+        COLOR 26\r
+        CIRCLE (2, 199), 146\r
+        COLOR 25\r
+        CIRCLE (2, 199), 145\r
+        COLOR 24\r
+        CIRCLE (2, 199), 144\r
+        COLOR 23\r
+        CIRCLE (2, 199), 143\r
+        COLOR 22\r
+        CIRCLE (2, 199), 142\r
+        COLOR 21\r
+        CIRCLE (2, 199), 141\r
+        COLOR 20\r
+        CIRCLE (2, 199), 140\r
+        COLOR 19\r
+        CIRCLE (2, 199), 139\r
+        COLOR 18\r
+        CIRCLE (2, 199), 138\r
+        COLOR 17\r
+        CIRCLE (2, 199), 137\r
+        COLOR 16\r
+        CIRCLE (2, 199), 136\r
+        COLOR 31\r
+        CIRCLE (1, 200), 151\r
+        COLOR 30\r
+        CIRCLE (1, 200), 150\r
+        COLOR 29\r
+        CIRCLE (1, 200), 149\r
+        COLOR 28\r
+        CIRCLE (1, 200), 148\r
+        COLOR 27\r
+        CIRCLE (1, 200), 147\r
+        COLOR 26\r
+        CIRCLE (1, 200), 146\r
+        COLOR 25\r
+        CIRCLE (1, 200), 145\r
+        COLOR 24\r
+        CIRCLE (1, 200), 144\r
+        COLOR 23\r
+        CIRCLE (1, 200), 143\r
+        COLOR 22\r
+        CIRCLE (1, 200), 142\r
+        COLOR 21\r
+        CIRCLE (1, 200), 141\r
+        COLOR 20\r
+        CIRCLE (1, 200), 140\r
+        COLOR 19\r
+        CIRCLE (1, 200), 139\r
+        COLOR 18\r
+        CIRCLE (1, 200), 138\r
+        COLOR 17\r
+        CIRCLE (1, 200), 137\r
+        COLOR 16\r
+        CIRCLE (1, 200), 136\r
+\r
+END SUB\r
+\r
+SUB Raumschiff\r
+\r
+Windelprise:\r
+\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+\r
+END SUB\r
+\r
+SUB Raumschiff2\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (170, 80), 4\r
+        DRAW "bm170,80c15u20d40u20l9r18"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 3\r
+        DRAW "bm170,80c15u15d30u15l7r14"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CIRCLE (170, 80), 2\r
+        DRAW "bm170,80c15u10d20u10l5r10"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 1\r
+        DRAW "bm170,80c15u5d10u5l3r6"\r
+        CLS\r
+        DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 3, 8\r
+        DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c8d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 3, 8\r
+        PAINT (170, 80), 3, 8\r
+        DRAW "bm195,75c8d6"\r
+        PAINT (193, 77), 4, 8\r
+        PAINT (197, 77), 3, 8\r
+        DRAW "bm131,71c1u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c1u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c1r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c1d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+\r
+END SUB\r
+\r
+SUB Repariert\r
+CLS\r
+CALL Raumschiff\r
+COLOR 12\r
+LOCATE 2, 2\r
+PRINT "EIN KOMET FLIEGT AUF UNS ZU, CAPTAIN !"\r
+LOCATE 3, 2\r
+PRINT "DIE SCHILDE WERDEN DAS NICHT AUSHALTEN !"\r
+SLEEP 5\r
+COLOR 0\r
+LOCATE 2, 2\r
+PRINT "EIN KOMET FLIEGT AUF UNS ZU, CAPTAIN !"\r
+LOCATE 3, 2\r
+PRINT "DIE SCHILDE WERDEN DAS NICHT AUSHALTEN !"\r
+COLOR 4\r
+CIRCLE (1, 100), 30\r
+COLOR 6\r
+CIRCLE (1, 100), 29\r
+PAINT (1, 100), 6, 6\r
+COLOR 15\r
+LOCATE 2, 12\r
+PRINT "PHASER AKTIVIEREN !"\r
+LOCATE 3, 18\r
+PRINT "FEUER !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 12\r
+PRINT "PHASER AKTIVIEREN !"\r
+LOCATE 3, 18\r
+PRINT "FEUER !"\r
+LINE (149, 81)-(30, 100), 4\r
+LINE (150, 81)-(31, 100), 12\r
+LINE (149, 82)-(31, 100), 4\r
+COLOR 4\r
+CIRCLE (1, 100), 30\r
+COLOR 12\r
+CIRCLE (1, 100), 29\r
+PAINT (1, 100), 6, 12\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 4\r
+CIRCLE (1, 100), 30\r
+COLOR 4\r
+CIRCLE (1, 100), 29\r
+COLOR 4\r
+CIRCLE (1, 100), 28\r
+COLOR 4\r
+CIRCLE (1, 100), 27\r
+COLOR 4\r
+CIRCLE (1, 100), 26\r
+COLOR 4\r
+CIRCLE (1, 100), 25\r
+COLOR 12\r
+CIRCLE (1, 100), 24\r
+COLOR 4\r
+CIRCLE (1, 100), 23\r
+COLOR 4\r
+CIRCLE (1, 100), 22\r
+PAINT (1, 100), 6, 4\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 4\r
+CIRCLE (1, 100), 21\r
+COLOR 4\r
+CIRCLE (1, 100), 20\r
+COLOR 4\r
+CIRCLE (1, 100), 19\r
+COLOR 4\r
+CIRCLE (1, 100), 18\r
+COLOR 4\r
+CIRCLE (1, 100), 17\r
+COLOR 4\r
+CIRCLE (1, 100), 16\r
+COLOR 12\r
+CIRCLE (1, 100), 15\r
+COLOR 4\r
+CIRCLE (1, 100), 14\r
+COLOR 4\r
+CIRCLE (1, 100), 13\r
+PAINT (1, 100), 6, 4\r
+\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 4\r
+CIRCLE (1, 100), 12\r
+COLOR 4\r
+CIRCLE (1, 100), 11\r
+COLOR 4\r
+CIRCLE (1, 100), 10\r
+COLOR 4\r
+CIRCLE (1, 100), 9\r
+COLOR 4\r
+CIRCLE (1, 100), 8\r
+COLOR 4\r
+CIRCLE (1, 100), 7\r
+COLOR 12\r
+CIRCLE (1, 100), 6\r
+COLOR 4\r
+CIRCLE (1, 100), 5\r
+COLOR 4\r
+CIRCLE (1, 100), 4\r
+PAINT (1, 100), 6, 4\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 4\r
+CIRCLE (1, 100), 3\r
+COLOR 4\r
+CIRCLE (1, 100), 2\r
+COLOR 4\r
+CIRCLE (1, 100), 1\r
+COLOR 4\r
+CIRCLE (1, 100), 0\r
+\r
+COLOR 0\r
+CIRCLE (1, 100), 30\r
+COLOR 0\r
+CIRCLE (1, 100), 29\r
+REM PAINT (1, 100), 6, 12\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 0\r
+CIRCLE (1, 100), 30\r
+COLOR 0\r
+CIRCLE (1, 100), 29\r
+COLOR 0\r
+CIRCLE (1, 100), 28\r
+COLOR 0\r
+CIRCLE (1, 100), 27\r
+COLOR 0\r
+CIRCLE (1, 100), 26\r
+COLOR 0\r
+CIRCLE (1, 100), 25\r
+COLOR 0\r
+CIRCLE (1, 100), 24\r
+COLOR 0\r
+CIRCLE (1, 100), 23\r
+COLOR 0\r
+CIRCLE (1, 100), 22\r
+REM PAINT (1, 100), 6, 4\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 0\r
+CIRCLE (1, 100), 21\r
+COLOR 0\r
+CIRCLE (1, 100), 20\r
+COLOR 0\r
+CIRCLE (1, 100), 19\r
+COLOR 0\r
+CIRCLE (1, 100), 18\r
+COLOR 0\r
+CIRCLE (1, 100), 17\r
+COLOR 0\r
+CIRCLE (1, 100), 16\r
+COLOR 0\r
+CIRCLE (1, 100), 15\r
+COLOR 0\r
+CIRCLE (1, 100), 14\r
+COLOR 0\r
+CIRCLE (1, 100), 13\r
+REM PAINT (1, 100), 6, 4\r
+\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 0\r
+CIRCLE (1, 100), 12\r
+COLOR 0\r
+CIRCLE (1, 100), 11\r
+COLOR 0\r
+CIRCLE (1, 100), 10\r
+COLOR 0\r
+CIRCLE (1, 100), 9\r
+COLOR 0\r
+CIRCLE (1, 100), 8\r
+COLOR 0\r
+CIRCLE (1, 100), 7\r
+COLOR 0\r
+CIRCLE (1, 100), 6\r
+COLOR 0\r
+CIRCLE (1, 100), 5\r
+COLOR 0\r
+CIRCLE (1, 100), 4\r
+REM PAINT (1, 100), 6, 4\r
+FOR q = 1 TO 10000\r
+NEXT\r
+COLOR 0\r
+CIRCLE (1, 100), 3\r
+COLOR 0\r
+CIRCLE (1, 100), 2\r
+COLOR 0\r
+CIRCLE (1, 100), 1\r
+COLOR 0\r
+CIRCLE (1, 100), 0\r
+LINE (149, 81)-(30, 100), 0\r
+LINE (150, 81)-(31, 100), 0\r
+LINE (149, 82)-(31, 100), 0\r
+CLS\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PLAY "l32cdefedc"\r
+SLEEP 1\r
+COLOR 15\r
+LOCATE 3, 2\r
+PRINT "AUF ZUM AUSSENPOSTEN 4. WARP 5... LOS !"\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 3, 2\r
+PRINT "AUF ZUM AUSSENPOSTEN 4. WARP 5... LOS !"\r
+        CLS\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+      \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+      \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (60, 100), 4\r
+        DRAW "bm60,100c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 3\r
+        DRAW "bm60,100c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (60, 100), 2\r
+        DRAW "bm60,100c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 1\r
+        DRAW "bm60,100c15u5d10u5l3r6"\r
+        CLS\r
+        CALL StationM\r
+        END SUB\r
+\r
+SUB Romulaner\r
+DRAW "bm60,60c15d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+PAINT (65, 60), 2, 15\r
+PAINT (15, 53), 9, 15\r
+DRAW "bm61,61c3d1r1d1r1d1r2d1r3d1r4d1r5d1r1d1r1d2r1d2r1d2r1d1r2d1r3u1r1u2r1u2"\r
+DRAW "r1u2r1u14l2u2l2u2l1u1l1u1l1u1rlu1l2u1l3u1l4u1l25u1l7u1l9d1l7d1l9d1l2d1l2"\r
+DRAW "d1l2d1l1d2l1d2r1d2r30u4l30r30d4l30d1r1d1r1d1r1d1r3d1r4d1r5d1r6d1r7u1r2u1"\r
+DRAW "r3u1r4u1r13d1 "\r
+DRAW "bm78,53c12d1l1u1"\r
+END SUB\r
+\r
+SUB RomulanerM\r
+CLS\r
+COLOR 15\r
+CIRCLE (170, 80), 4\r
+        DRAW "bm170,80c15u20d40u20l9r18"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 3\r
+        DRAW "bm170,80c15u15d30u15l7r14"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CIRCLE (170, 80), 2\r
+        DRAW "bm170,80c15u10d20u10l5r10"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 1\r
+        DRAW "bm170,80c15u5d10u5l3r6"\r
+        CLS\r
+        DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 3, 8\r
+        DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c8d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 3, 8\r
+        PAINT (170, 80), 3, 8\r
+        DRAW "bm195,75c8d6"\r
+        PAINT (193, 77), 4, 8\r
+        PAINT (197, 77), 3, 8\r
+        DRAW "bm131,71c1u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c1u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c1r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c1d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+SLEEP 1\r
+COLOR 12\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN... WIR ERHALTEN EINEN NOTRUF"\r
+LOCATE 3, 7\r
+PRINT "VOM ROMULANISCHEM FLAGGSCHIFF"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN... WIR ERHALTEN EINEN NOTRUF"\r
+LOCATE 3, 7\r
+PRINT "VOM ROMULANISCHEM FLAGGSCHIFF"\r
+COLOR 10\r
+LOCATE 2, 5\r
+PRINT "HILFE... WINDELPR... ZZZSCH..."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 5\r
+PRINT "HILFE... WINDELPR... ZZZSCH..."\r
+COLOR 12\r
+LOCATE 2, 3\r
+PRINT "\9aBERTRAGUNG AM URSPRUNG UNTERBROCHEN ."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 1\r
+PRINT "\9aBERTRAGUNG AM URSPRUNG UNTERBROCHEN ."\r
+CLS\r
+COLOR 15\r
+LOCATE 9, 1\r
+PRINT "1. KOORDINATEN SETZEN F\8eHNRICH."\r
+LOCATE 10, 1\r
+PRINT "   MAXIMUM WARP..."\r
+LOCATE 12, 1\r
+PRINT "2. F\8eHNRICH... \9aBERMITTELN SIE DEM"\r
+LOCATE 13, 1\r
+PRINT "   SCHIFF, DAá WIR EINEN VERTRAG HABEN."\r
+COLOR 0\r
+INPUT "", aus$\r
+IF aus$ = "1" THEN GOTO 125\r
+IF aus$ = "2" THEN GOTO 225\r
+END\r
+125 :\r
+CALL Eins\r
+END\r
+225 :\r
+CALL Zwei\r
+END SUB\r
+\r
+SUB Schlecht\r
+CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+\r
+COLOR 12\r
+LOCATE 1, 3\r
+PRINT "CAPTAIN ! EIN ENERGIEANSTOSS VON DEN"\r
+LOCATE 2, 9\r
+PRINT "NEUEN TRIEBWERKEN HER !"\r
+SLEEP 3\r
+COLOR 12\r
+LOCATE 1, 3\r
+PRINT "CAPTAIN ! EIN ENERGIEANSTOSS VON DEN"\r
+LOCATE 2, 9\r
+PRINT "NEUEN TRIEBWERKEN HER !"\r
+\r
+CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PAINT (140, 65), 9, 15\r
+PAINT (170, 80), 9, 15\r
+DRAW "bm195,75c15d6"\r
+PAINT (193, 77), 12, 15\r
+PAINT (197, 77), 9, 15\r
+DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+COLOR 31\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+SLEEP 1\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+SLEEP 1\r
+CLS\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+\r
+COLOR 7\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 9, 15\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 9, 15\r
+\r
+DRAW "bm131,71c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+COLOR 12\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 8\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 4\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 0\r
+LOCATE 3, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 0\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+\r
+DRAW "bm130,70c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 1, 7\r
+DRAW "bm136,67c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 1, 7\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 1, 7\r
+\r
+DRAW "bm131,71c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+\r
+SLEEP 1\r
+\r
+DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 0, 8\r
+DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 0, 8\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 0, 8\r
+\r
+DRAW "bm131,71c0u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c0u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c0r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+SLEEP 1\r
+CLS\r
+SLEEP 2\r
+COLOR 14\r
+LOCATE 13, 4\r
+PRINT "DIE WINDELPRISE IST EXPLODIERT ..."\r
+SLEEP 5\r
+CLS\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+CLS\r
+END SUB\r
+\r
+SUB Station\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+END SUB\r
+\r
+SUB StationM\r
+SLEEP 2\r
+CALL Raumschiff\r
+DIM C(512)\r
+GET (180, 65)-(220, 89), C\r
+CLS\r
+CIRCLE (170, 80), 4\r
+        DRAW "bm170,80c15u20d40u20l9r18"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 3\r
+        DRAW "bm170,80c15u15d30u15l7r14"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CIRCLE (170, 80), 2\r
+        DRAW "bm170,80c15u10d20u10l5r10"\r
+        FOR x = 1 TO 10500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (170, 80), 1\r
+        DRAW "bm170,80c15u5d10u5l3r6"\r
+        CLS\r
+        CALL Raumschiff\r
+DRAW "bm50,50c7r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+PAINT (51, 51), 21, 7\r
+DRAW "bm51,51c8r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm52,52c20r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+DRAW "bm53,53c19r39d1r1d18l1d1l9d1l1d8r1d1r5d1r1d10l1d1l5d1l1d30l1u1l1u1l1u1l1"\r
+DRAW "u1l2u1l2u1l7d1l2d1l2d1l1d1l1d1l1d1l1u30l1u1l5u1l1u10r1u1r5u1r1u7l1u1l10"\r
+DRAW "u1l1u19r1u1r5"\r
+SLEEP 2\r
+COLOR 10\r
+LOCATE 1, 5\r
+PRINT "WINDELPRISE... IHRE `TRIEBWERKE'"\r
+LOCATE 2, 12\r
+PRINT "WERDEN AUSGEWECHSELT."\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 1, 5\r
+PRINT "WINDELPRISE... IHRE `TRIEBWERKE'"\r
+LOCATE 2, 12\r
+PRINT "WERDEN AUSGEWECHSELT."\r
+COLOR 10\r
+LOCATE 2, 9\r
+PRINT "WELCHE NEHMEN SIE JETZT ?"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 9\r
+PRINT "WELCHE NEHMEN SIE JETZT ?"\r
+SLEEP 1\r
+COLOR 15\r
+LINE (72, 50)-(248, 98), 19, BF\r
+DRAW "bm72,75c15u26r176d26"\r
+LINE (73, 76)-(247, 124), 19, BF\r
+LINE (72, 75)-(248, 125), 30, B\r
+DRAW "bm129,75 c15 d50 bm188,75 d50"\r
+DRAW "bm72,110 r176"\r
+COLOR 15\r
+LOCATE 15, 11\r
+PRINT "EINS."\r
+LOCATE 15, 19\r
+PRINT "ZWEI."\r
+LOCATE 15, 26\r
+PRINT "DREI."\r
+PUT (139, 50), C, PSET\r
+PUT (139, 80), C, PSET\r
+PUT (80, 80), C, PSET\r
+PUT (199, 80), C, PSET\r
+DRAW "bm214,96c28u5"\r
+DRAW "bm154,96c29u5"\r
+COLOR 0\r
+INPUT "", aus$\r
+IF aus$ = "1" THEN GOTO guts\r
+IF aus$ = "2" THEN GOTO schlechts\r
+IF aus$ = "3" THEN GOTO schlechts\r
+END\r
+guts:\r
+CALL Gut2\r
+END\r
+schlechts:\r
+CALL Schlecht\r
+END SUB\r
+\r
+SUB Vorende\r
+CLS\r
+COLOR 12\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN ... DIE GESCHWINDIGKEIT"\r
+LOCATE 3, 3\r
+PRINT "IST GENAU AUSGERECHNET GEWESEN !"\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PAINT (140, 65), 9, 15\r
+PAINT (170, 80), 9, 15\r
+DRAW "bm195,75c15d6"\r
+PAINT (193, 77), 12, 15\r
+PAINT (197, 77), 9, 15\r
+DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+SLEEP 2\r
+COLOR 4\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN ... DIE GESCHWINDIGKEIT"\r
+LOCATE 3, 3\r
+PRINT "IST GENAU AUSGERECHNET GEWESEN !"\r
+COLOR 31\r
+LOCATE 4, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+SLEEP 1\r
+DRAW "bm176,87c12d1r1u1c4l2d2r3u2r2u2r1"\r
+DRAW "bm174,87c4l2u1l2"\r
+DRAW "bm176,87c4u2r1u1"\r
+DRAW "bm175,89c4d1l1d2"\r
+DRAW "bm178,89c4d1r2d1"\r
+SLEEP 1\r
+CLS\r
+COLOR 0\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN ... DIE GESCHWINDIGKEIT"\r
+LOCATE 3, 3\r
+PRINT "IST GENAU AUSGERECHNET GEWESEN !"\r
+COLOR 7\r
+LOCATE 4, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 9, 15\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 9, 15\r
+\r
+DRAW "bm131,71c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+COLOR 12\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 0\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN ... DIE GESCHWINDIGKEIT"\r
+LOCATE 3, 3\r
+PRINT "IST GENAU AUSGERECHNET GEWESEN !"\r
+COLOR 8\r
+LOCATE 4, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 4\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+SLEEP 1\r
+COLOR 0\r
+LOCATE 2, 3\r
+PRINT "CAPTAIN ... DIE GESCHWINDIGKEIT"\r
+LOCATE 3, 3\r
+PRINT "IST GENAU AUSGERECHNET GEWESEN !"\r
+LOCATE 4, 3\r
+PRINT "DAS SCHIFF EXPLODIERT !!!"\r
+COLOR 0\r
+LOCATE 12, 22\r
+PRINT "BOOM !"\r
+\r
+DRAW "bm130,70c7u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 1, 7\r
+DRAW "bm136,67c7u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 1, 7\r
+DRAW "bm136,73c7r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 1, 7\r
+\r
+DRAW "bm131,71c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+\r
+SLEEP 1\r
+\r
+DRAW "bm130,70c8u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 0, 8\r
+DRAW "bm136,67c8u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+\r
+DRAW "r7u1r3u1r3d1r3u1l1u2r3u1l2u1r2"\r
+PAINT (150, 77), 0, 8\r
+DRAW "bm136,73c8r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c12u1l1u2r3u1l2u1r2"\r
+\r
+PAINT (150, 66), 0, 8\r
+\r
+DRAW "bm131,71c0u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c0u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c0r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r3c4u1l1u2r3u1l2u1r2"\r
+SLEEP 1\r
+CLS\r
+SLEEP 2\r
+COLOR 14\r
+LOCATE 13, 4\r
+PRINT "DIE WINDELPRISE IST EXPLODIERT ..."\r
+SLEEP 5\r
+CLS\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+CLS\r
+END SUB\r
+\r
+SUB Windelprise\r
+CLS\r
+\r
+DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+PAINT (138, 68), 9, 15\r
+DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+PAINT (140, 65), 9, 15\r
+PAINT (170, 80), 9, 15\r
+DRAW "bm195,75c15d6"\r
+PAINT (193, 77), 12, 15\r
+PAINT (197, 77), 9, 15\r
+DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+DIM A(1024)\r
+GET (130, 56)-(215, 98), A\r
+CLS\r
+PUT (230, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (229, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (228, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (227, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (226, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (225, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (224, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (223, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (222, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (221, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (220, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (219, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (218, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (217, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (216, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (215, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (214, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (213, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (212, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (211, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (210, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (209, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (208, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (207, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (206, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (205, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (204, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (203, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (202, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (201, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (200, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (199, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (198, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (197, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (196, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (195, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (194, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (193, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (192, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (191, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (190, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (189, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (188, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (187, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (186, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (185, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (184, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (183, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (182, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (181, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (180, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (179, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (178, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (177, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (176, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (175, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (174, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (173, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (172, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (171, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (170, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (169, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (168, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (167, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (166, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (165, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (164, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (163, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (162, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (161, 59), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (160, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (159, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (158, 56), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (157, 57), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (156, 58), A, PSET\r
+FOR q = 1 TO 700: NEXT\r
+PUT (155, 57), A, PSET\r
+FOR q = 1 TO 790: NEXT\r
+PUT (154, 56), A, PSET\r
+FOR q = 1 TO 880: NEXT\r
+PUT (153, 57), A, PSET\r
+FOR q = 1 TO 970: NEXT\r
+PUT (152, 58), A, PSET\r
+FOR q = 1 TO 1060: NEXT\r
+PUT (151, 59), A, PSET\r
+FOR q = 1 TO 1150: NEXT\r
+PUT (150, 58), A, PSET\r
+FOR q = 1 TO 1240: NEXT\r
+PUT (149, 57), A, PSET\r
+FOR q = 1 TO 1330: NEXT\r
+PUT (148, 56), A, PSET\r
+FOR q = 1 TO 1420: NEXT\r
+PUT (147, 57), A, PSET\r
+FOR q = 1 TO 1510: NEXT\r
+PUT (146, 58), A, PSET\r
+FOR q = 1 TO 1600: NEXT\r
+PUT (145, 59), A, PSET\r
+FOR q = 1 TO 1790: NEXT\r
+PUT (144, 58), A, PSET\r
+FOR q = 1 TO 1880: NEXT\r
+PUT (143, 57), A, PSET\r
+FOR q = 1 TO 1970: NEXT\r
+PUT (142, 56), A, PSET\r
+FOR q = 1 TO 2060: NEXT\r
+PUT (141, 57), A, PSET\r
+FOR q = 1 TO 2150: NEXT\r
+PUT (140, 58), A, PSET\r
+FOR q = 1 TO 2240: NEXT\r
+PUT (139, 59), A, PSET\r
+FOR q = 1 TO 2330: NEXT\r
+PUT (138, 58), A, PSET\r
+FOR q = 1 TO 2420: NEXT\r
+PUT (137, 57), A, PSET\r
+FOR q = 1 TO 2510: NEXT\r
+PUT (136, 56), A, PSET\r
+FOR q = 1 TO 2600: NEXT\r
+PUT (135, 57), A, PSET\r
+FOR q = 1 TO 2790: NEXT\r
+PUT (134, 58), A, PSET\r
+FOR q = 1 TO 2880: NEXT\r
+PUT (133, 59), A, PSET\r
+FOR q = 1 TO 2970: NEXT\r
+PUT (132, 58), A, PSET\r
+FOR q = 1 TO 3060: NEXT\r
+PUT (131, 57), A, PSET\r
+FOR q = 1 TO 3150: NEXT\r
+PUT (130, 56), A, PSET\r
+SLEEP 1\r
+Mission1:\r
+COLOR 12\r
+LOCATE 17, 4\r
+PRINT "CAPTAIN ... UNSERE WARPTRIEBWERKE "\r
+LOCATE 19, 4\r
+PRINT "SIND NICHT VOLL FUNKTIONST\9aCHTIG! "\r
+LOCATE 22, 5\r
+PRINT "SPIELER ... HILF' UNS BITTE !!!"\r
+SLEEP 6\r
+CLS\r
+DRAW "bm50,100c4u7r1u2r1u1r1u1r1u1r1u1r2u1r12d1r2d1r1d1r1d1r2d1r4d9l4d1l2d1l1d1l1d1l1d1l2d1l12u1l1u1l1u1l1u1l1u1l1u2l1"\r
+PAINT (52, 99), 12, 4\r
+DRAW "bm80,100c15d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r1d1r2d1r2d1r2d1r2d1r3"\r
+DRAW "d1r4d1r5d1r6d1r7d1r8d1r9d1r30u1r9u1r8u1r7u1r6u1r5u1r4u1r3u1r2u1r1u1r2u1r2u1r2u1r2u1r2u1r2u1r2u2r1u2r1u3r1u3d2l152u6"\r
+DRAW "bm80,91c15u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r1u1r2u1r2u1r2u1r2u1r3"\r
+DRAW "u1r4u1r5u1r6u1r7u1r8u1r9u1r30d1r9d1r8d1r7d1r6d1r5d1r4d1r3d1r2d1r1d1r2d1r2d1r2d1r2d1r2d1r2d1r2d2r1d2r1d3r1d3u2l152d6"\r
+PAINT (82, 95), 9, 15\r
+COLOR 12\r
+LOCATE 3, 8\r
+PRINT "UNS BLEIBT KEINE ZEIT !!!"\r
+COLOR 14\r
+LOCATE 11, 17\r
+PRINT "P W R A"\r
+LOCATE 14, 18\r
+COLOR 15\r
+INPUT "", aus$\r
+1 : IF aus$ = "WARP" THEN GOTO 10 ELSE GOTO 2\r
+2 : IF aus$ = "Warp" THEN GOTO 10 ELSE GOTO 3\r
+3 : IF aus$ = "warp" THEN GOTO 10 ELSE GOTO 20\r
+END\r
+10 CALL Gut\r
+END\r
+20 CALL Ende\r
+END SUB\r
+\r
+SUB Zwei\r
+CLS\r
+CALL Raumschiff\r
+SLEEP 1\r
+PLAY "l32cdefedc"\r
+COLOR 15\r
+LOCATE 2, 5\r
+PRINT "SO... ICH GLAUBE, DAá WIR BEIM"\r
+LOCATE 3, 3\r
+PRINT "FEST AUF DEROI II DABEI SEIN WOLLEN !"\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 5\r
+PRINT "SO... ICH GLAUBE, DAá WIR BEIM"\r
+LOCATE 3, 3\r
+PRINT "FEST AUF DEROI II DABEI SEIN WOLLEN !"\r
+COLOR 12\r
+LOCATE 2, 13\r
+PRINT "GERNE, CAPTAIN !!"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 13\r
+PRINT "GERNE, CAPTAIN !!"\r
+COLOR 15\r
+LOCATE 2, 9\r
+PRINT "NA DANN MAL LOS... KURS..."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 9\r
+PRINT "NA DANN MAL LOS... KURS..."\r
+COLOR 12\r
+LOCATE 2, 6\r
+PRINT "ENTSCHULDIGEN SIE, CAPTAIN..."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 6\r
+PRINT "ENTSCHULDIGEN SIE, CAPTAIN..."\r
+COLOR 12\r
+LOCATE 2, 14\r
+PRINT "DER ADMIRAL..."\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 14\r
+PRINT "DER ADMIRAL..."\r
+COLOR 15\r
+LOCATE 2, 11\r
+PRINT "...AUDIOKANAL \99FFNEN !"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 11\r
+PRINT "...AUDIOKANAL \99FFNEN !"\r
+SLEEP 1\r
+COLOR 10\r
+LOCATE 2, 4\r
+PRINT "WINDELPRISE. UNS WURDE \9aBERMITTELT,"\r
+LOCATE 3, 4\r
+PRINT "DAá SIE EINEM ROMULANISCHEM SCHIFF"\r
+LOCATE 4, 4\r
+PRINT "   DIE HILFE VERWEIGERT HABEN."\r
+SLEEP 4\r
+COLOR 0\r
+LOCATE 2, 4\r
+PRINT "WINDELPRISE. UNS WURDE \9aBERMITTELT,"\r
+LOCATE 3, 4\r
+PRINT "DAá SIE EINEM ROMULANISCHEM SCHIFF"\r
+LOCATE 4, 4\r
+PRINT "   DIE HILFE VERWEIGERT HABEN."\r
+COLOR 10\r
+LOCATE 2, 7\r
+PRINT "WAS HABEN SIE DAZU ZU SAGEN ?"\r
+SLEEP 2\r
+COLOR 0\r
+LOCATE 2, 7\r
+PRINT "WAS HABEN SIE DAZU ZU SAGEN ?"\r
+SLEEP 1\r
+COLOR 15\r
+LOCATE 9, 5\r
+PRINT "1. DAS WAR WIEDER EINE FALLE."\r
+LOCATE 11, 4\r
+PRINT "2. \9aBLE L\9aGEN SIND DAS, ADMIRAL."\r
+COLOR 0\r
+INPUT "", aus$\r
+IF aus$ = "1" THEN GOTO 325\r
+IF aus$ = "2" THEN GOTO 425\r
+END\r
+325 :\r
+CLS\r
+CALL Raumschiff\r
+PLAY "l32cdefedc"\r
+COLOR 10\r
+LOCATE 2, 4\r
+PRINT "AHA... DANN SETZEN SIE IHREN WEG"\r
+LOCATE 3, 4\r
+PRINT "  ZUM FEST FORT. ADMIRAL ENDE."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 4\r
+PRINT "AHA... DANN SETZEN SIE IHREN WEG"\r
+LOCATE 3, 4\r
+PRINT "  ZUM FEST FORT. ADMIRAL ENDE."\r
+        CLS\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7u1r1u1r1u1r1u3l1u1l1u1"\r
+        DRAW "l17d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        SLEEP 2\r
+        DRAW "bm130,70c15u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        PAINT (138, 68), 9, 15\r
+        DRAW "bm136,67c15u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm136,73c15r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+     \r
+        DRAW "r20u1r7u1r1u1r1u1r1u2r1u2r1u1r2u1r1u3r1u1r7"\r
+        DRAW "bm207,81c9r2u1l1u1r3u1l2"\r
+     \r
+        DRAW "bm200,82c15r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        PAINT (230, 81), 9, 15\r
+        DRAW "bm192,83c15d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        PAINT (140, 65), 9, 15\r
+        PAINT (170, 80), 9, 15\r
+        DRAW "bm195,75c15d6"\r
+        PAINT (193, 77), 12, 15\r
+        PAINT (197, 77), 9, 15\r
+        DRAW "bm131,71c3u1r1u1r1u1r35d1r1d1r1d1l1d1l1d1l35u1l1u1l1"\r
+        DRAW "bm137,68c3u1r1u1r1u1r1u1r1u1r3u1r3u1"\r
+        DRAW "r7d1r3d1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "bm137,74c3r1d1r1d1r1d1r1d1r3d1r3d1"\r
+        DRAW "r7u1r3u1r3d1r1d1r1d1r1d1r1"\r
+        DRAW "l1d1l2d1l2d1l1d2l1u1l1d4r1u1r1d3r1d1r1d1r1d1r2d1r2d1"\r
+        DRAW "bm193,84c3d1l2u1l2u1l2u1l4u1l8u1l1u1l1u1l1u1l1u1l1u1l1u1l1"\r
+        DRAW "bm200,83c3r47u1r1u1r1u1r1u3l1u1l1u1l57d1l1d1l1d3r1d1r1d1r1d1r7"\r
+        SLEEP 1\r
+        CLS\r
+        COLOR 15\r
+        CIRCLE (60, 100), 4\r
+        DRAW "bm60,100c15u20d40u20l9r18"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 3\r
+        DRAW "bm60,100c15u15d30u15l7r14"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CIRCLE (60, 100), 2\r
+        DRAW "bm60,100c15u10d20u10l5r10"\r
+        FOR x = 1 TO 1500\r
+        NEXT\r
+        CLS\r
+        CIRCLE (60, 100), 1\r
+        DRAW "bm60,100c15u5d10u5l3r6"\r
+        CLS\r
+CALL Fest\r
+END\r
+425 :\r
+CLS\r
+CALL Raumschiff\r
+COLOR 10\r
+LOCATE 2, 2\r
+PRINT " ICH WERDE SIE F\9aR EINE ZEIT LANG"\r
+LOCATE 3, 2\r
+PRINT "AUS DEM DIENST NEHMEN. ADMIRAL ENDE."\r
+SLEEP 3\r
+COLOR 0\r
+LOCATE 2, 2\r
+PRINT " ICH WERDE SIE F\9aR EINE ZEIT LANG"\r
+LOCATE 3, 2\r
+PRINT "AUS DEM DIENST NEHMEN. ADMIRAL ENDE."\r
+CLS\r
+COLOR 14\r
+LOCATE 13, 19\r
+PRINT "ENDE"\r
+SLEEP\r
+END SUB\r
+\r