' Subs (5) total DECLARE SUB Stars () DECLARE SUB Object () DECLARE SUB R2 () DECLARE SUB R3 () DECLARE SUB R1 () ON ERROR GOTO Error1 SCREEN 1 DO 1 CLS LOCATE 13, 15: PRINT "Missle..." LOCATE 14, 15: PRINT "Look Out!" Stars R1 R2 R3 CLS PAINT (1, 1), 2, 1 CIRCLE (138, 96), 1, 1 CIRCLE (138, 96), 2, 1 CIRCLE (138, 96), 3, 1 CIRCLE (138, 96), 4, 1 CIRCLE (138, 96), 5, 1 CIRCLE (138, 96), 6, 1 CIRCLE (138, 96), 7, 1 CIRCLE (138, 96), 8, 1 CIRCLE (138, 96), 9, 1 CIRCLE (138, 96), 10, 1 CIRCLE (138, 96), 11, 1 CIRCLE (138, 96), 12, 1 CIRCLE (138, 96), 13, 1 CIRCLE (138, 96), 14, 1 CIRCLE (138, 96), 15, 1 CIRCLE (138, 96), 16, 1 CIRCLE (138, 96), 17, 1 CIRCLE (138, 96), 18, 1 CIRCLE (138, 96), 19, 1 CIRCLE (138, 96), 20, 1 CIRCLE (138, 96), 21, 1 CIRCLE (138, 96), 22, 1 CIRCLE (138, 96), 23, 1 CIRCLE (138, 96), 24, 1 CIRCLE (138, 96), 25, 1 CIRCLE (138, 96), 26, 1 CIRCLE (138, 96), 27, 1 CIRCLE (138, 96), 28, 1 CIRCLE (138, 96), 29, 1 CIRCLE (138, 96), 30, 1 CIRCLE (138, 96), 31, 1 CIRCLE (138, 96), 32, 1 CIRCLE (138, 96), 33, 1 CIRCLE (138, 96), 34, 1 CIRCLE (138, 96), 35, 1 CIRCLE (138, 96), 36, 1 CIRCLE (138, 96), 37, 1 CIRCLE (138, 96), 38, 1 CIRCLE (138, 96), 39, 1 CIRCLE (138, 96), 40, 1 CIRCLE (138, 96), 41, 1 CIRCLE (138, 96), 42, 1 CIRCLE (138, 96), 43, 1 CIRCLE (138, 96), 44, 1 CIRCLE (138, 96), 45, 1 CIRCLE (138, 96), 46, 1 CIRCLE (138, 96), 47, 1 CIRCLE (138, 96), 48, 1 CIRCLE (138, 96), 49, 1 CIRCLE (138, 96), 50, 1 CIRCLE (138, 96), 51, 1 CIRCLE (138, 96), 52, 1 CIRCLE (138, 96), 53, 1 CIRCLE (138, 96), 54, 1 CIRCLE (138, 96), 55, 1 CIRCLE (138, 96), 56, 1 CIRCLE (138, 96), 57, 1 CIRCLE (138, 96), 58, 1 CIRCLE (138, 96), 59, 1 CIRCLE (138, 96), 60, 1 CIRCLE (138, 96), 61, 1 CIRCLE (138, 96), 62, 1 CIRCLE (138, 96), 63, 1 CIRCLE (138, 96), 64, 1 CIRCLE (138, 96), 65, 1 CIRCLE (138, 96), 66, 1 CIRCLE (138, 96), 67, 1 CIRCLE (138, 96), 68, 1 CIRCLE (138, 96), 69, 1 CIRCLE (138, 96), 70, 1 CIRCLE (138, 96), 71, 1 CIRCLE (138, 96), 72, 1 CIRCLE (138, 96), 73, 1 CIRCLE (138, 96), 74, 1 CIRCLE (138, 96), 75, 1 CIRCLE (138, 96), 76, 1 CIRCLE (138, 96), 77, 1 CIRCLE (138, 96), 78, 1 CIRCLE (138, 96), 79, 1 CIRCLE (138, 96), 80, 1 CIRCLE (138, 96), 81, 1 CIRCLE (138, 96), 82, 1 CIRCLE (138, 96), 83, 1 CIRCLE (138, 96), 84, 1 CIRCLE (138, 96), 85, 1 CIRCLE (138, 96), 86, 1 CIRCLE (138, 96), 87, 1 CIRCLE (138, 96), 88, 1 CIRCLE (138, 96), 89, 1 CIRCLE (138, 96), 90, 1 CIRCLE (138, 96), 91, 1 CIRCLE (138, 96), 92, 1 CIRCLE (138, 96), 93, 1 CIRCLE (138, 96), 94, 1 CIRCLE (138, 96), 95, 1 CIRCLE (138, 96), 96, 1 CIRCLE (138, 96), 97, 1 CIRCLE (138, 96), 98, 1 CIRCLE (138, 96), 99, 1 CIRCLE (138, 96), 100, 1 CIRCLE (138, 96), 101, 1 CIRCLE (138, 96), 102, 1 CIRCLE (138, 96), 103, 1 CIRCLE (138, 96), 104, 1 CIRCLE (138, 96), 105, 1 CIRCLE (138, 96), 106, 1 CIRCLE (138, 96), 107, 1 CIRCLE (138, 96), 108, 1 CIRCLE (138, 96), 109, 1 CIRCLE (138, 96), 110, 1 CIRCLE (138, 96), 111, 1 CIRCLE (138, 96), 112, 1 CIRCLE (138, 96), 113, 1 CIRCLE (138, 96), 114, 1 CIRCLE (138, 96), 115, 1 'Reverse Mode CIRCLE (138, 96), 1, 0 CIRCLE (138, 96), 2, 0 CIRCLE (138, 96), 3, 0 CIRCLE (138, 96), 4, 0 CIRCLE (138, 96), 5, 0 CIRCLE (138, 96), 6, 0 CIRCLE (138, 96), 7, 0 CIRCLE (138, 96), 8, 0 CIRCLE (138, 96), 9, 0 CIRCLE (138, 96), 10, 0 CIRCLE (138, 96), 11, 0 CIRCLE (138, 96), 12, 0 CIRCLE (138, 96), 13, 0 CIRCLE (138, 96), 14, 0 CIRCLE (138, 96), 15, 0 CIRCLE (138, 96), 16, 0 CIRCLE (138, 96), 17, 0 CIRCLE (138, 96), 18, 0 CIRCLE (138, 96), 19, 0 CIRCLE (138, 96), 20, 0 CIRCLE (138, 96), 21, 0 CIRCLE (138, 96), 22, 0 CIRCLE (138, 96), 23, 0 CIRCLE (138, 96), 24, 0 CIRCLE (138, 96), 25, 0 CIRCLE (138, 96), 26, 0 CIRCLE (138, 96), 27, 0 CIRCLE (138, 96), 28, 0 CIRCLE (138, 96), 29, 0 CIRCLE (138, 96), 30, 0 CIRCLE (138, 96), 31, 0 CIRCLE (138, 96), 32, 0 CIRCLE (138, 96), 33, 0 CIRCLE (138, 96), 34, 0 CIRCLE (138, 96), 35, 0 CIRCLE (138, 96), 36, 0 CIRCLE (138, 96), 37, 0 CIRCLE (138, 96), 38, 0 CIRCLE (138, 96), 39, 0 CIRCLE (138, 96), 40, 0 CIRCLE (138, 96), 41, 0 CIRCLE (138, 96), 42, 0 CIRCLE (138, 96), 43, 0 CIRCLE (138, 96), 44, 0 CIRCLE (138, 96), 45, 0 CIRCLE (138, 96), 46, 0 CIRCLE (138, 96), 47, 0 CIRCLE (138, 96), 48, 0 CIRCLE (138, 96), 49, 0 CIRCLE (138, 96), 50, 0 CIRCLE (138, 96), 51, 0 CIRCLE (138, 96), 52, 0 CIRCLE (138, 96), 53, 0 CIRCLE (138, 96), 54, 0 CIRCLE (138, 96), 55, 0 CIRCLE (138, 96), 56, 0 CIRCLE (138, 96), 57, 0 CIRCLE (138, 96), 58, 0 CIRCLE (138, 96), 59, 0 CIRCLE (138, 96), 60, 0 CIRCLE (138, 96), 61, 0 CIRCLE (138, 96), 62, 0 CIRCLE (138, 96), 63, 0 CIRCLE (138, 96), 64, 0 CIRCLE (138, 96), 65, 0 CIRCLE (138, 96), 66, 0 CIRCLE (138, 96), 67, 0 CIRCLE (138, 96), 68, 0 CIRCLE (138, 96), 69, 0 CIRCLE (138, 96), 70, 0 CIRCLE (138, 96), 71, 0 CIRCLE (138, 96), 72, 0 CIRCLE (138, 96), 73, 0 CIRCLE (138, 96), 74, 0 CIRCLE (138, 96), 75, 0 CIRCLE (138, 96), 76, 0 CIRCLE (138, 96), 77, 0 CIRCLE (138, 96), 78, 0 CIRCLE (138, 96), 79, 0 CIRCLE (138, 96), 80, 0 CIRCLE (138, 96), 81, 0 CIRCLE (138, 96), 82, 0 CIRCLE (138, 96), 83, 0 CIRCLE (138, 96), 84, 0 CIRCLE (138, 96), 85, 0 CIRCLE (138, 96), 86, 0 CIRCLE (138, 96), 87, 0 CIRCLE (138, 96), 88, 0 CIRCLE (138, 96), 89, 0 CIRCLE (138, 96), 90, 0 CIRCLE (138, 96), 91, 0 CIRCLE (138, 96), 92, 0 CIRCLE (138, 96), 93, 0 CIRCLE (138, 96), 94, 0 CIRCLE (138, 96), 95, 0 CIRCLE (138, 96), 96, 0 CIRCLE (138, 96), 97, 0 CIRCLE (138, 96), 98, 0 CIRCLE (138, 96), 99, 0 CIRCLE (138, 96), 100, 0 CIRCLE (138, 96), 101, 0 CIRCLE (138, 96), 102, 0 CIRCLE (138, 96), 103, 0 CIRCLE (138, 96), 104, 0 CIRCLE (138, 96), 105, 0 CIRCLE (138, 96), 106, 0 CIRCLE (138, 96), 107, 0 CIRCLE (138, 96), 108, 0 CIRCLE (138, 96), 109, 0 CIRCLE (138, 96), 110, 0 CIRCLE (138, 96), 111, 0 CIRCLE (138, 96), 112, 0 CIRCLE (138, 96), 113, 0 CIRCLE (138, 96), 114, 0 CIRCLE (138, 96), 115, 0 SLEEP 4 LOCATE 15, 15: PRINT "To Late" Stars LOOP UNTIL INKEY$ = "" CLS : PRINT "Please Wait...": CHAIN "moneycga" GOTO 1 Error1: CLS : PRINT "ERROR - You need a graphics adapter to run LARGE.BAS" PRINT PRINT "Please Wait...": CHAIN "moneycga" SUB Object LINE (168, 32)-(176, 40), 1, B LINE (160, 40)-(184, 64), 1, B LINE (152, 48)-(160, 56), 1, B LINE (184, 48)-(192, 56), 1, B LINE (168, 48)-(176, 56), 1, BF LINE (168, 64)-(176, 72), 1, B LINE (160, 72)-(168, 80), 1, BF LINE (176, 72)-(184, 80), 1, BF LINE (160, 72)-(184, 160), 1, B LINE (152, 144)-(160, 152), 1, B LINE (144, 152)-(160, 160), 1, B LINE (184, 152)-(192, 144), 1, B LINE (184, 160)-(200, 152), 1, B LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF END SUB SUB R1 CLS Object LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (40, 96)-(64, 112), 1, B LINE (64, 96)-(72, 104), 1, BF LINE (64, 104)-(80, 112), 1, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B LINE (16, 96)-(24, 104), 1, BF LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, BF LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, BF LINE (16, 96)-(24, 104), 0, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 0, B LINE (16, 112)-(24, 120), 1, B LINE (16, 96)-(24, 104), 1, B LINE (24, 104)-(32, 112), 1, B LINE (16, 112)-(24, 120), 0, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (16, 96)-(24, 104), 0, BF LINE (24, 104)-(32, 112), 0, BF LINE (16, 112)-(24, 120), 0, BF LINE (40, 96)-(64, 112), 0, BF LINE (64, 96)-(72, 104), 0, BF LINE (64, 104)-(80, 112), 0, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF Object END SUB SUB R2 LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, B LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF LINE (88, 96)-(112, 112), 1, BF LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF LINE (88, 96)-(112, 112), 1, BF LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, B LINE (112, 104)-(128, 112), 1, BF LINE (88, 96)-(112, 112), 1, B LINE (112, 96)-(120, 104), 1, BF LINE (112, 104)-(128, 112), 1, B LINE (88, 96)-(112, 112), 0, BF LINE (112, 96)-(120, 104), 0, B LINE (112, 104)-(128, 112), 0, BF LINE (88, 96)-(112, 112), 0, BF LINE (112, 96)-(120, 104), 0, BF LINE (112, 104)-(128, 112), 0, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF Object END SUB SUB R3 'Rocket Drawing LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (136, 80)-(160, 96), 1, B LINE (160, 80)-(168, 88), 1, BF LINE (160, 88)-(176, 96), 1, BF 'Rocket Smoke LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B 'Fill Object LINE (160, 72)-(184, 160), 1, BF 'Make Smoke Move LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B LINE (120, 80)-(128, 88), 1, BF LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, BF LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 0, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 1, B LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 0, B LINE (120, 96)-(128, 104), 1, B 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF LINE (120, 80)-(128, 88), 1, B LINE (112, 88)-(120, 96), 1, B LINE (120, 96)-(128, 104), 0, B 'Earase Rocket & Smoke LINE (120, 80)-(128, 88), 0, BF LINE (112, 88)-(120, 96), 0, BF LINE (120, 96)-(128, 104), 0, BF LINE (136, 80)-(160, 96), 0, BF LINE (160, 80)-(168, 88), 0, BF LINE (160, 88)-(176, 96), 0, BF LINE (120, 80)-(128, 88), 0, BF LINE (112, 88)-(120, 96), 0, BF LINE (120, 96)-(128, 104), 0, BF 'Object Eye LINE (168, 48)-(176, 56), 0, B LINE (168, 48)-(176, 56), 1, BF END SUB SUB Stars DIM Box%(1 TO 300) x1% = 1: x2% = 1: y1% = 1: y2% = 1 LINE (x1%, y1%)-(x2%, y2%), 2, BF GET (x1%, y1%)-(x2%, y2%), Box% DO PUT (x1%, y1%), Box% x1% = RND * 310 y1% = RND * 180 PUT (x1%, y1%), Box% LOOP WHILE INKEY$ = "" END SUB