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