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