CLS
REM ** OHIO SMITH **
REM ** EDWIN SANTONI **
REM ** DAVID HERMAN **
SCREEN 7
COLOR 4, 15
REM *** TITLE PAGE ***
GOSUB SCREN
SCREN:
CIRCLE (100, 60), 5, 16
CIRCLE (100, 60), 20, 16
PAINT (81, 60), 1, 16
LINE (130, 43)-(130, 77), 16
LINE (130, 43)-(140, 43), 16
LINE (130, 77)-(140, 77), 16
LINE (140, 77)-(140, 65), 16
LINE (140, 43)-(140, 55), 16
LINE (140, 55)-(155, 55), 16
LINE (140, 65)-(155, 65), 16
LINE (155, 65)-(155, 77), 16
LINE (155, 55)-(155, 43), 16
LINE (155, 43)-(165, 43), 16
LINE (155, 77)-(165, 77), 16
LINE (165, 43)-(165, 77), 16
PAINT (164, 45), 1, 16
LINE (180, 43)-(190, 77), 16, B
PAINT (181, 44), 1, 16
CIRCLE (223, 60), 5, 16
CIRCLE (223, 60), 20, 16
PAINT (233, 61), 1, 16
LINE (80, 85)-(240, 85), 16
LINE (90, 90)-(60, 110), 16
LINE (60, 110)-(90, 125), 16
LINE (90, 125)-(60, 140), 16
LINE (60, 140)-(79, 137), 16
LINE (79, 137)-(100, 125), 16
LINE (100, 125)-(75, 110), 16
LINE (75, 110)-(90, 90), 16
PAINT (75, 105), 1, 16
LINE (104, 140)-(110, 90), 16
LINE (104, 140)-(114, 140), 16
LINE (114, 140)-(114, 110), 16
LINE (114, 110)-(132, 140), 16
LINE (132, 140)-(151, 110), 16
LINE (151, 110)-(151, 140), 16
LINE (151, 140)-(161, 140), 16
LINE (110, 90)-(132, 120), 16
LINE (155, 90)-(132, 120), 16
LINE (155, 90)-(161, 140), 16
PAINT (150, 110), 1, 16
LINE (175, 90)-(185, 140), 16, B
PAINT (176, 91), 1, 16
LINE (195, 90)-(230, 90), 16
LINE (195, 90)-(195, 98), 16
LINE (230, 90)-(230, 98), 16
LINE (230, 98)-(219, 98), 16
LINE (219, 98)-(219, 140), 16
LINE (219, 140)-(208, 140), 16
LINE (208, 140)-(208, 98), 16
LINE (208, 98)-(195, 98), 16
PAINT (209, 97), 1, 16
LINE (237, 90)-(237, 140), 16
LINE (237, 90)-(245, 90), 16
LINE (245, 90)-(245, 113), 16
LINE (245, 113)-(256, 113), 16
LINE (256, 113)-(256, 90), 16
LINE (256, 90)-(265, 90), 16
LINE (265, 90)-(265, 113), 16
LINE (265, 113)-(265, 140), 16
LINE (265, 140)-(257, 140), 16
LINE (257, 140)-(257, 125), 16
LINE (257, 125)-(245, 125), 16
LINE (245, 125)-(245, 140), 16
LINE (245, 140)-(237, 140), 16
PAINT (243, 138), 1, 16
LINE (90, 180)-(170, 180), 4
LINE (90, 190)-(170, 190), 4
CIRCLE (90, 185), 6, 4
CIRCLE (170, 185), 6, 4
PAINT (170, 185), 4, 4
PAINT (90, 185), 4, 4
PAINT (100, 185), 4, 4
LINE (115, 181)-(115, 189), 16
LINE (110, 181)-(120, 181), 16
LINE (122, 181)-(122, 189), 16
LINE (122, 181)-(130, 189), 16
LINE (130, 189)-(130, 181), 16
LINE (132, 181)-(142, 181), 16
LINE (137, 181)-(137, 189), 16
LINE (176, 185)-(350, 185), 7
SLEEP 3
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (105, 180), F, 4
PAINT (110, 179), 4, 4
NEXT F
PAINT (110, 179), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (100, 50), F, 4
PAINT (101, 54), 4, 4
NEXT F
PAINT (31, 34), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (150, 20), F, 4
PAINT (150, 34), 4, 4
NEXT F
PAINT (31, 34), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (250, 70), F, 4
PAINT (250, 74), 4, 4
NEXT F
PAINT (31, 34), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (200, 80), F, 4
PAINT (191, 84), 4, 4
NEXT F
PAINT (191, 84), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (140, 65), F, 4
PAINT (139, 64), 4, 4
NEXT F
PAINT (31, 34), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (100, 115), F, 4
PAINT (99, 114), 4, 4
NEXT F
PAINT (99, 114), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (278, 135), F, 4
PAINT (277, 134), 4, 4
NEXT F
PAINT (277, 134), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (210, 165), F, 4
PAINT (211, 164), 4, 4
NEXT F
PAINT (211, 164), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (130, 35), F, 4
PAINT (131, 34), 4, 4
NEXT F
PAINT (131, 34), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (135, 110), F, 4
PAINT (134, 109), 4, 4
NEXT F
PAINT (134, 109), 0, 16
NEXT X
FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (230, 95), F, 4
PAINT (231, 94), 4, 4
NEXT F
PAINT (231, 94), 0, 16
NEXT X
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT , , "           BY DAVID & EDWIN"
PRINT
PRINT
PRINT
PRINT
PRINT
10 INPUT "WOULD YOU LIKE TO PLAY (Y/N)"; ENTER$
IF ENTER$ = "Y" THEN GOSUB SCREEN1 ELSE IF ENTER$ = "N" THEN GOSUB ERE ELSE 10
SCREEN1:
CLS
SCREEN 7
COLOR 11, 9
LINE (0, 175)-(350, 175), 16
PAINT (0, 180), 7, 16
LINE (106, 175)-(106, 30), 16
LINE (106, 30)-(225, 30), 16
LINE (225, 30)-(225, 175), 16
PAINT (107, 32), 4, 16
LINE (182, 175)-(182, 160), 16
LINE (182, 160)-(152, 160), 16
LINE (152, 160)-(152, 175), 16
LINE (167, 160)-(167, 175), 16
PAINT (168, 161), 8, 16
PAINT (166, 161), 8, 16
LINE (120, 60)-(135, 70), 16, B
PAINT (121, 61), 16, 16
LINE (160, 60)-(175, 70), 16, B
PAINT (161, 61), 16, 16
LINE (200, 60)-(215, 70), 16, B
PAINT (201, 61), 16, 16
LINE (200, 95)-(215, 105), 16, B
PAINT (201, 96), 16, 16
LINE (160, 95)-(175, 105), 16, B
PAINT (161, 96), 16, 16
LINE (120, 95)-(135, 105), 16, B
PAINT (121, 96), 16, 16
LINE (120, 130)-(135, 140), 16, B
PAINT (121, 131), 16, 16
LINE (160, 130)-(175, 140), 16, B
PAINT (161, 131), 16, 16
LINE (200, 130)-(215, 140), 16, B
PAINT (201, 131), 16, 16
CIRCLE (310, 5), 38, 14
PAINT (310, 5), 14, 14
CIRCLE (30, 25), 15, 16
PAINT (30, 25), 16, 16
CIRCLE (45, 30), 16, 16
PAINT (45, 30), 16, 16
CIRCLE (50, 20), 15, 16
PAINT (50, 20), 16, 16
CIRCLE (60, 22), 15, 16
PAINT (60, 22), 16, 16
CIRCLE (70, 35), 15, 16
PAINT (70, 35), 16, 16
CIRCLE (80, 25), 15, 16
PAINT (80, 25), 16, 16
PAINT (80, 25), 16, 16
PAINT (70, 35), 16, 16
PAINT (50, 20), 16, 16
PAINT (60, 22), 16, 16
PAINT (45, 30), 16, 16
PAINT (35, 25), 16, 16
PAINT (40, 35), 16, 16
PAINT (50, 39), 16, 16
PAINT (70, 21), 16, 16
PAINT (35, 13), 16, 16
PAINT (50, 10), 16, 16
PAINT (70, 15), 16, 16
PAINT (70, 30), 16, 16
PAINT (65, 30), 16, 16
PRINT "OHIO SMITH WAS AT HOME ONE DAY LISTENING TO THE RADIO WHEN SUDDENLY..."
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
20 INPUT "PRESS C TO CONTINUE OR E TO END"; CON$
IF CON$ = "C" THEN GOSUB SCREEN2 ELSE IF CON$ = "E" THEN GOSUB ERE ELSE 20

SCREEN2:
CLS
SCREEN 7
COLOR 4, 0
GOSUB RADIO
GOSUB FLASHBALL


RADIO:
BEEP
BEEP
BEEP
LINE (40, 80)-(300, 190), 16, B
LINE (0, 190)-(330, 190), 16
REM CIRCLE (80, 140), 30, 16
REM PAINT (81, 141), 8, 16
REM CIRCLE (260, 140), 30, 16
REM PAINT (261, 141), 8, 16
LINE (160, 185)-(120, 165), 16, B
PAINT (161, 186), 8, 16
LINE (220, 185)-(180, 165), 16, B
PAINT (121, 166), 8, 16
LINE (160, 170)-(120, 170), 16
LINE (220, 170)-(180, 170), 16
PAINT (221, 170), 8, 16
LINE (280, 90)-(260, 100), 16, B
CIRCLE (270, 95), 3, 4
PAINT (270, 95), 4, 4
PAINT (41, 81), 1, 16
LINE (220, 80)-(260, 20), 16
LINE (230, 80)-(270, 20), 16
LINE (260, 20)-(270, 20), 16
PAINT (221, 81), 8, 16
PAINT (231, 81), 8, 16
PAINT (261, 21), 8, 16
PAINT (231, 81), 7, 16
LINE (140, 60)-(140, 80), 16
LINE (150, 80)-(150, 70), 16
LINE (200, 60)-(200, 80), 16
LINE (190, 80)-(190, 70), 16
LINE (190, 70)-(150, 70), 16
LINE (200, 60)-(140, 60), 16
PAINT (141, 61), 8, 16
PRINT "WE HAVE A SPECIAL REPORT, ALIENS, YES.. ALIENS HAVE JUST ARRIVED ON OUR PLANET  AND THEIR INVADING OUR CITIES.  PLEASE  OHIO SMITH WE NEED YOUR HELP!!!"
RETURN

FLASHBALL:
FOR X = 1 TO 50
C = 8
GOSUB BALL1
FOR HOLD = 1 TO 5000
NEXT HOLD
C = 16
GOSUB BALL1
C = 8
FOR HOLD = 1 TO 5000
NEXT HOLD
NEXT X
GOSUB SCREEN3

BALL1:
CIRCLE (80, 140), 30, C
PAINT (81, 141), C, 8
CIRCLE (260, 140), 30, C
PAINT (261, 141), C, 8
RETURN



SCREEN3:


CLS
SCREEN 7
COLOR 4, 0
PRINT "OHIO SMITH HEARS A STRANGE NOISE OUTSIDESO HE GOES TO THE WINDOW AND SEE'S....."
SLEEP 6

CLS
SCREEN 7
COLOR 14, 0
CIRCLE (150, 100), 65, 8, .65, 2.5
CIRCLE (120, 60), 5, 8
CIRCLE (140, 60), 5, 8
CIRCLE (160, 60), 5, 8
CIRCLE (180, 60), 5, 8
LINE (100, 68)-(150, 78), 8
LINE (200, 68)-(150, 78), 8
LINE (100, 68)-(200, 68), 8
PAINT (100, 67), 8, 8
PAINT (1, 1), 9, 8

REM ** BUILDINGS **
LINE (0, 160)-(40, 191), 8, B
PAINT (1, 161), 4, 8
LINE (40, 130)-(90, 191), 8, B
PAINT (41, 131), 6, 8
LINE (90, 191)-(120, 145), 8, B
PAINT (118, 146), 8, 8
LINE (120, 152)-(170, 191), 8, B
PAINT (121, 153), 7, 8
LINE (170, 191)-(210, 137), 8, B
PAINT (171, 190), 6, 8
LINE (210, 191)-(250, 120), 8, B
PAINT (211, 190), 8, 8
LINE (250, 191)-(285, 165), 8, B
PAINT (251, 190), 4, 8
LINE (285, 191)-(319, 120), 8, B
PAINT (286, 190), 7, 8

REM ** BUILDING DETAILS **

LINE (0, 170)-(40, 170), 8
LINE (0, 180)-(40, 180), 8
LINE (20, 170)-(20, 180), 8
PAINT (21, 175), 7, 8
PAINT (1, 175), 7, 8

LINE (40, 140)-(90, 140), 8
LINE (40, 150)-(90, 150), 8
LINE (40, 160)-(90, 160), 8
LINE (40, 170)-(90, 170), 8
LINE (40, 180)-(90, 180), 8

LINE (90, 170)-(120, 170), 7
LINE (90, 160)-(120, 160), 7
LINE (90, 180)-(120, 180), 7

LINE (120, 155)-(170, 155), 8
LINE (120, 175)-(170, 175), 8
LINE (120, 165)-(170, 165), 8
LINE (120, 185)-(170, 185), 8

LINE (170, 170)-(220, 170), 8
LINE (170, 160)-(220, 160), 8
LINE (170, 150)-(220, 150), 8
LINE (170, 180)-(220, 180), 8

LINE (210, 142)-(250, 142), 7
LINE (210, 132)-(250, 132), 7
LINE (210, 152)-(250, 152), 7
LINE (210, 122)-(250, 122), 7
LINE (210, 162)-(250, 162), 7
LINE (210, 172)-(250, 172), 7
LINE (210, 182)-(250, 182), 7

LINE (250, 170)-(285, 170), 8
LINE (250, 175)-(285, 175), 8
LINE (250, 180)-(285, 180), 8
LINE (250, 185)-(285, 185), 8

LINE (285, 155)-(350, 155), 8
LINE (285, 145)-(350, 145), 8
LINE (285, 135)-(350, 135), 8
LINE (285, 125)-(350, 125), 8
LINE (285, 165)-(350, 165), 8
LINE (285, 175)-(350, 175), 8





REM ** LASER BLAST **
SLEEP 1.5
LET X = 79
FOR F = 79 TO 152
FOR HOLD = 1 TO 175
LINE (150, X)-(150, F), 4
NEXT HOLD
NEXT F


REM ** EXPLOSION **
CIRCLE (150, 175), 40, 4
PAINT (150, 175), 4, 4
PAINT (150, 175), 9, 8

FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (105, 180), F, 4
PAINT (110, 179), 4, 4
NEXT F
PAINT (110, 179), 9, 8
NEXT X

FOR X = 1 TO 5
FOR F = 30 TO 45
CIRCLE (170, 180), F, 4
PAINT (170, 179), 4, 4
NEXT F
PAINT (170, 179), 9, 8
NEXT X


FOR F = 30 TO 100
CIRCLE (100, 180), F, 4
PAINT (100, 179), 4, 4
NEXT F
PAINT (100, 179), 9, 8


FOR F = 30 TO 100
CIRCLE (185, 180), F, 4
PAINT (185, 179), 4, 4
NEXT F
PAINT (185, 179), 9, 8

FOR F = 30 TO 110
CIRCLE (230, 180), F, 4
PAINT (230, 179), 4, 4
NEXT F
PAINT (230, 179), 9, 8


CLS
REM ** SCREEN 4 **
REM ** EDWIN SANTONI
SCREEN 7
COLOR 2, 0

CIRCLE (150, 120), 70, 8
PAINT (150, 120), 7, 8
LINE (150, 110)-(160, 130), 8
LINE (160, 130)-(150, 130), 8
LINE (120, 90)-(140, 100), 8
CIRCLE (125, 100), 5, 8
PAINT (125, 100), 0, 8
LINE (160, 100)-(180, 90), 8
CIRCLE (175, 100), 5, 8
PAINT (175, 100), 0, 8
LINE (125, 175)-(122, 200), 8
LINE (175, 175)-(177, 200), 8
PAINT (130, 180), 7, 8

FOR M = 1 TO 15
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M

FOR M = 15 TO 1 STEP -1
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M
PRINT
PRINT
PRINT
PRINT
PRINT "                               OH "
FOR M = 1 TO 15
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M

FOR M = 15 TO 1 STEP -1
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M
PRINT
BEEP
PRINT "                               $!%#"
CIRCLE (155, 155), 5, 4
SLEEP 2

CLS
SCREEN 7
COLOR 9, 0
PRINT "THE HORRIBLE SITE OF THE CITIES         DESTRUCTION AT THE HAND OF THE ALIEN    HORDES HAS OUTRAGED OHIO SMITH, HE WILL NOT SIT THERE AND LET THE ALIENS DESTROYHIS HOME WORLD."
PRINT
PRINT "OHIO SMITH CHOOSES TO FIGHT BACK!"
PRINT
REM *** MUSIC ***
REM *** POPEYE THE SAILOR MAN ***
FOR B = 1 TO 39
READ N, D
SOUND N, D
NEXT B
DATA 220, 4, 523, 4, 32767, 1, 523, 4, 32767, 1, 523, 4, 470, 5, 440, 4
DATA 523, 4, 523, 4, 523, 4, 32767, 1, 587, 4, 470, 4, 587, 4, 698, 5, 587, 5
DATA 523, 5, 523, 5, 523, 4, 587, 4, 470, 4, 587, 4, 698, 4, 659, 4, 587,4
DATA 523, 4, 587, 4, 523, 4, 220, 4, 349, 4, 293, 4, 261, 4, 587, 4, 523, 4, 470, 4
DATA 329, 4, 349, 4, 349, 4

999 INPUT "PRESS A TO GO THROUGH THE FOREST AND GO TO THE GUN SHOP OR PRESS B TO GET INTO  YOUR CAR AND GO TO THE GUN SHOP"; NXT$
IF NXT$ = "A" THEN GOSUB FOREST ELSE IF NXT$ = "B" THEN GOSUB CAR ELSE 999

FOREST:
CLS
REM **DRIVEING**
REM **OHIO SMITH**
SCREEN 7
COLOR 0, 8


CIRCLE (90, 174), 20, 7
CIRCLE (240, 174), 20, 7
CIRCLE (90, 174), 10, 7
CIRCLE (240, 174), 10, 7
PAINT (90, 174), 7, 7
PAINT (90, 164), 8, 7
PAINT (240, 174), 7, 7
PAINT (240, 164), 8, 7
LINE (85, 155)-(245, 155), 8
LINE (85, 155)-(65, 165), 8
LINE (58, 160)-(68, 165), 8, B
LINE (261, 160)-(268, 165), 8, B
PAINT (262, 161), 8, 8
PAINT (66, 161), 8, 8
PAINT (68, 165), 8, 8
LINE (65, 165)-(65, 135), 8
LINE (65, 135)-(265, 135), 8
LINE (265, 135)-(265, 165), 8
LINE (265, 165)-(245, 155), 8
LINE (100, 135)-(130, 115), 8
LINE (130, 115)-(175, 115), 8
LINE (175, 115)-(175, 135), 8
LINE (160, 115)-(160, 155), 8
LINE (0, 191)-(400, 191), 8
PAINT (131, 145), 4, 8
PAINT (170, 145), 4, 8
PAINT (165, 120), 4, 8
LINE (140, 140)-(150, 140), 8
PAINT (1, 240), 8, 8

FOR SUN = -10 TO 390 STEP 1
CIRCLE (SUN, 20), 20, 14
PAINT (SUN, 20), 14, 14
PAINT (0, 30), 1, 8
FOR HOLD = 1 TO 370
NEXT HOLD
NEXT SUN


CLS
REM *** DAVID HERMAN ***
REM *** FOREST ***
SCREEN 7
COLOR 4, 9
LINE (0, 100)-(319, 310), 16, B
PAINT (1, 101), 2, 16
CIRCLE (285, 30), 30, 16
PAINT (286, 31), 14, 16
LINE (40, 120)-(120, 120), 1, B
LINE (40, 160)-(120, 160), 1
CIRCLE (40, 140), 24, 1
CIRCLE (120, 140), 24, 1
PAINT (40, 140), 1, 1
PAINT (120, 140), 1, 1
PAINT (70, 140), 1, 1
LINE (200, 160)-(200, 180), 16
LINE (220, 160)-(220, 180), 16
LINE (200, 160)-(220, 160), 16
LINE (220, 180)-(200, 180), 16
PAINT (201, 161), 6, 16
CIRCLE (210, 147), 15, 10
PAINT (211, 151), 10, 10
CIRCLE (210, 130), 15, 10
PAINT (211, 130), 10
LINE (290, 140)-(280, 165), 16, B
PAINT (289, 159), 6, 16
LINE (285, 100)-(290, 140), 16
LINE (280, 140)-(285, 100), 16
PAINT (284, 134), 10, 16

LINE (20, 190)-(20, 180), 6
CIRCLE (13, 180), 5, 10
PAINT (15, 181), 10, 10
CIRCLE (16, 175), 5, 10
PAINT (17, 176), 10, 10
CIRCLE (25, 175), 5, 10
PAINT (26, 176), 10, 10
CIRCLE (28, 180), 5, 10
PAINT (29, 181), 10, 10

LINE (90, 190)-(90, 180), 6
CIRCLE (83, 180), 5, 10
PAINT (85, 181), 10, 10
CIRCLE (86, 175), 5, 10
PAINT (87, 176), 10, 10
CIRCLE (96, 175), 5, 10
PAINT (99, 176), 10, 10
CIRCLE (99, 180), 5, 10
PAINT (100, 181), 10, 10

LINE (160, 190)-(160, 180), 6
CIRCLE (153, 180), 5, 10
PAINT (155, 181), 10, 10
CIRCLE (156, 175), 5, 10
PAINT (157, 176), 10, 10
CIRCLE (166, 175), 5, 10
PAINT (167, 176), 10, 10
CIRCLE (169, 180), 5, 10
PAINT (170, 181), 10, 10

LINE (170, 140)-(170, 130), 6
CIRCLE (163, 130), 5, 10
PAINT (165, 131), 10, 10
CIRCLE (166, 125), 5, 10
PAINT (167, 126), 10, 10
CIRCLE (176, 125), 5, 10
PAINT (177, 126), 10, 10
CIRCLE (179, 130), 5, 10
PAINT (180, 131), 10, 10


LINE (250, 160)-(250, 140), 6
CIRCLE (249, 140), 10, 10
PAINT (245, 141), 10, 10
LINE (265, 190)-(265, 180), 6
CIRCLE (265, 175), 6, 10
PAINT (266, 177), 10, 10

PRINT
PRINT
PRINT "OHIO SMITH HAS"
PRINT "REACHED THE FOREST."
PRINT

789 INPUT "PRESS C TO CONTINUE", CON$
IF CON$ = "C" THEN GOSUB FIGHT ELSE 789




CAR:
CLS
REM ** EDWIN SANTONI **
REM ** SCREEN 4 **
SCREEN 7
COLOR 11, 1
REM ** WHEELS **
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "     YOU GET IN YOUR CAR!"
CIRCLE (90, 174), 20, 7
CIRCLE (240, 174), 20, 7
CIRCLE (90, 174), 10, 7
CIRCLE (240, 174), 10, 7
PAINT (90, 174), 7, 7
PAINT (90, 164), 8, 7
PAINT (240, 174), 7, 7
PAINT (240, 164), 8, 7
LINE (85, 155)-(245, 155), 8
LINE (85, 155)-(65, 165), 8
LINE (58, 160)-(68, 165), 8, B
LINE (261, 160)-(268, 165), 8, B
PAINT (262, 161), 8, 8
PAINT (66, 161), 8, 8
PAINT (68, 165), 8, 8
LINE (65, 165)-(65, 135), 8
LINE (65, 135)-(265, 135), 8
LINE (265, 135)-(265, 165), 8
LINE (265, 165)-(245, 155), 8
LINE (100, 135)-(130, 115), 8
LINE (130, 115)-(175, 115), 8
LINE (175, 115)-(175, 135), 8
LINE (160, 115)-(160, 155), 8
LINE (0, 191)-(400, 191), 8
PAINT (131, 145), 4, 8
PAINT (170, 145), 4, 8
CIRCLE (35, 22), 20, 14
PAINT (35, 22), 14, 14
LINE (140, 140)-(150, 140), 8
PAINT (165, 125), 4, 8
LINE (0, 110)-(100, 80), 8
LINE (100, 80)-(140, 90), 8
LINE (115, 100)-(155, 85), 8
LINE (155, 85)-(183, 100), 8
LINE (162, 112)-(228, 80), 8
LINE (228, 80)-(320, 120), 8
PAINT (228, 84), 6, 8
PAINT (150, 130), 7, 8

546 INPUT "PRESS A TO GO ON PRESS B TO QUIT"; P$
IF P$ = "A" THEN GOSUB GUNSHOP ELSE IF P$ = "B" THEN END ELSE 546



FIGHT:
CLS
SCREEN 7
COLOR 3, 0
PRINT "OHIO SMITH STARTS WALKING THROUGH THE   FOREST WHEN SUDDENLY HES AMBUSHED BY ONEOF THE ALIEN'S ROBOT SOLDIERS!"
SLEEP 10

CLS
REM ** SCREEN FOREST DEATH **
REM ** OHIO SMITH!!! **
SCREEN 7
COLOR 4, 0
PAINT (1, 1), 1, 16
LINE (0, 90)-(350, 90), 16
PAINT (1, 151), 7, 16
LINE (0, 40)-(50, 20), 16
LINE (50, 20)-(130, 40), 16
LINE (110, 35)-(145, 10), 16
LINE (145, 10)-(214, 43), 16
LINE (198, 35)-(260, 5), 16
LINE (260, 5)-(350, 35), 16
PAINT (1, 89), 2, 16

LINE (30, 80)-(35, 90), 16, B
PAINT (31, 81), 6, 16
LINE (25, 80)-(40, 80), 16
LINE (40, 80)-(33, 60), 16
LINE (33, 60)-(25, 80), 16

LINE (70, 80)-(75, 90), 16, B
PAINT (71, 81), 6, 16
LINE (65, 80)-(80, 80), 16
LINE (80, 80)-(73, 60), 16
LINE (73, 60)-(65, 80), 16

LINE (110, 80)-(115, 90), 16, B
PAINT (111, 81), 6, 16
LINE (105, 80)-(120, 80), 16
LINE (120, 80)-(113, 60), 16
LINE (113, 60)-(105, 80), 16

LINE (150, 80)-(155, 90), 16, B
PAINT (151, 81), 6, 16
LINE (145, 80)-(160, 80), 16
LINE (160, 80)-(153, 60), 16
LINE (153, 60)-(145, 80), 16

LINE (190, 80)-(195, 90), 16, B
PAINT (191, 81), 6, 16
LINE (185, 80)-(200, 80), 16
LINE (200, 80)-(193, 60), 16
LINE (193, 60)-(185, 80), 16

LINE (230, 80)-(235, 90), 16, B
PAINT (231, 81), 6, 16
LINE (225, 80)-(240, 80), 16
LINE (240, 80)-(231, 60), 16
LINE (231, 60)-(225, 80), 16

LINE (270, 80)-(275, 90), 16, B
PAINT (271, 81), 6, 16
LINE (265, 80)-(280, 80), 16
LINE (280, 80)-(271, 60), 16
LINE (271, 60)-(265, 80), 16

REM ** OHIO BATTLE **

LINE (200, 190)-(200, 160), 16
'PAINT (190, 189), 8, 16
LINE (200, 191)-(170, 191), 16
LINE (170, 191)-(170, 185), 16
LINE (170, 185)-(200, 185), 16
LINE (182, 185)-(182, 191), 16
LINE (179, 185)-(179, 160), 16
LINE (186, 185)-(186, 165), 16
LINE (179, 160)-(200, 160), 16
LINE (179, 155)-(200, 155), 16
LINE (186, 155)-(186, 160), 16
LINE (190, 155)-(190, 160), 16
PAINT (189, 156), 8, 16
PAINT (185, 156), 0, 16
PAINT (197, 170), 1, 16
LINE (179, 160)-(179, 140), 16
LINE (179, 140)-(165, 130), 16
LINE (165, 130)-(170, 125), 16
LINE (170, 125)-(179, 135), 16
LINE (179, 135)-(185, 135), 16
LINE (185, 135)-(189, 140), 16
LINE (189, 140)-(192, 135), 16
LINE (192, 135)-(200, 135), 16
LINE (200, 135)-(215, 125), 16
LINE (215, 125)-(220, 130), 16
LINE (220, 130)-(200, 140), 16
LINE (200, 140)-(200, 160), 16
PAINT (190, 140), 4, 16
PAINT (190, 190), 8, 16
PAINT (180, 190), 8, 16
LINE (185, 135)-(187, 132), 16
LINE (192, 135)-(190, 132), 16
CIRCLE (190, 124), 10, 16
PAINT (190, 124), 6, 16
PAINT (187, 135), 6, 16
CIRCLE (190, 130), 2, 0
PAINT (190, 130), 0, 0
CIRCLE (185, 122), 1, 0
PAINT (185, 122), 0, 0
CIRCLE (195, 122), 1, 0
PAINT (195, 122), 0, 0
PAINT (1, 191), 7, 16
LINE (190, 125)-(190, 124), 0
LINE (215, 125)-(219, 120), 16
LINE (219, 120)-(225, 125), 16
LINE (225, 125)-(220, 128), 16
PAINT (223, 125), 0, 16
LINE (220, 125)-(222, 124), 16
LINE (220, 123)-(220, 121), 16

LINE (170, 125)-(165, 123), 16
LINE (165, 123)-(159, 128), 16
LINE (159, 128)-(164, 130), 16
PAINT (161, 127), 0, 16
LINE (160, 126)-(163, 127), 16
LINE (162, 124)-(164, 125), 16

REM **ALIEN**
LINE (40, 170)-(100, 170), 16
LINE (40, 190)-(100, 190), 16
CIRCLE (40, 180), 12, 16
PAINT (40, 180), 8, 16
CIRCLE (100, 180), 12, 16
PAINT (100, 180), 8, 16
CIRCLE (70, 180), 12, 16
PAINT (70, 180), 8, 16
LINE (40, 170)-(60, 150), 16
LINE (100, 170)-(80, 150), 16
LINE (80, 150)-(60, 150), 16
PAINT (45, 169), 8, 16
CIRCLE (70, 140), 10, 16
PAINT (70, 140), 8, 16
LINE (65, 150)-(65, 140), 16
LINE (75, 150)-(75, 140), 16

LINE (80, 140)-(110, 135), 16
LINE (80, 142)-(110, 137), 16
LINE (110, 137)-(110, 135), 16
PAINT (109, 136), 8, 16
PAINT (105, 137), 8, 16
PAINT (97, 138), 8, 16
PAINT (89, 139), 8, 16
PAINT (83, 140), 8, 16

REM **SHOT!**
SLEEP 1
FOR Q = 1 TO 60
FOR HOLD2 = 1 TO 15
CIRCLE (Q + 115, 135), 3, 4
PAINT (Q + 115, 135), 4, 4
PAINT (115 + Q, 135), 7, 16
NEXT HOLD2
NEXT Q

CIRCLE (195, 150), 70, 4
FOR HOLD = 1 TO 1500
PAINT (195, 135), 4, 4
NEXT HOLD
PAINT (195, 135), 7, 16
SLEEP 1

CLS
SCREEN 7
COLOR 15, 0
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "       YOU HAVE BEEN VAPORIZED!!!!!"
SLEEP 2
GOSUB DEATH




GUNSHOP:
CLS
REM **DRIVEING**
REM **OHIO SMITH**
SCREEN 7
COLOR 0, 8


CIRCLE (90, 174), 20, 7
CIRCLE (240, 174), 20, 7
CIRCLE (90, 174), 10, 7
CIRCLE (240, 174), 10, 7
PAINT (90, 174), 7, 7
PAINT (90, 164), 8, 7
PAINT (240, 174), 7, 7
PAINT (240, 164), 8, 7
LINE (85, 155)-(245, 155), 8
LINE (85, 155)-(65, 165), 8
LINE (58, 160)-(68, 165), 8, B
LINE (261, 160)-(268, 165), 8, B
PAINT (262, 161), 8, 8
PAINT (66, 161), 8, 8
PAINT (68, 165), 8, 8
LINE (65, 165)-(65, 135), 8
LINE (65, 135)-(265, 135), 8
LINE (265, 135)-(265, 165), 8
LINE (265, 165)-(245, 155), 8
LINE (100, 135)-(130, 115), 8
LINE (130, 115)-(175, 115), 8
LINE (175, 115)-(175, 135), 8
LINE (160, 115)-(160, 155), 8
LINE (0, 191)-(400, 191), 8
PAINT (131, 145), 4, 8
PAINT (170, 145), 4, 8
PAINT (165, 120), 4, 8
LINE (140, 140)-(150, 140), 8
PAINT (1, 240), 8, 8

FOR SUN = -10 TO 390 STEP 1
CIRCLE (SUN, 20), 20, 14
PAINT (SUN, 20), 14, 14
PAINT (0, 30), 1, 8
FOR HOLD = 1 TO 370
NEXT HOLD
NEXT SUN


CLS
REM *** DAVID HERMAN ***
REM *** SHOP ***
SCREEN 7
COLOR 9, 0
GOSUB GUN

GUN:
PAINT (1, 1), 9, 16
LINE (170, 120)-(320, 140), 16
LINE (170, 120)-(170, 45), 16
LINE (240, 20)-(170, 45), 16
LINE (240, 20)-(320, 50), 16
LINE (240, 20)-(319, 20), 16
PAINT (300, 100), 6, 16
PAINT (319, 30), 6, 16
LINE (170, 45)-(319, 55), 16
LINE (243, 129)-(243, 102), 16
LINE (243, 102)-(260, 105), 16
LINE (260, 105)-(260, 131), 16

LINE (0, 160)-(319, 160), 16
PAINT (1, 161), 0, 16
CIRCLE (255, 120), 2, 16
PAINT (255, 120), 6, 16
LINE (200, 80)-(200, 95), 16
LINE (200, 80)-(220, 82), 16
LINE (200, 95)-(220, 96), 16
LINE (220, 95)-(220, 82), 16
PAINT (201, 81), 16, 16
LINE (280, 80)-(280, 95), 16
LINE (280, 80)-(300, 82), 16
LINE (280, 95)-(300, 96), 16
LINE (300, 95)-(300, 82), 16
PAINT (281, 81), 16, 16
PAINT (300, 130), 6, 16
PAINT (300, 50), 6, 16
PAINT (310, 40), 6, 16

LINE (20, 180)-(60, 185), 14, BF
LINE (80, 180)-(120, 185), 14, BF
LINE (140, 180)-(180, 185), 14, BF
LINE (200, 180)-(240, 185), 14, BF
LINE (260, 180)-(300, 185), 14, BF

LINE (0, 100)-(170, 100), 16
PAINT (1, 101), 2, 16

LINE (60, 150)-(60, 160), 6
LINE (80, 150)-(80, 160), 6
LINE (43, 150)-(100, 130), 6, BF

LINE (55, 135)-(55, 145), 0
LINE (55, 135)-(65, 135), 0
LINE (55, 145)-(65, 145), 0
LINE (65, 145)-(65, 142), 0
LINE (65, 142)-(60, 142), 0

LINE (67, 145)-(67, 135), 0
LINE (67, 145)-(74, 145), 0
LINE (74, 145)-(74, 135), 0

LINE (76, 145)-(76, 135), 0
LINE (76, 135)-(83, 145), 0
LINE (83, 145)-(83, 135), 0

LINE (85, 135)-(93, 135), 0
LINE (85, 135)-(85, 140), 0
LINE (85, 140)-(93, 140), 0
LINE (93, 140)-(93, 145), 0
LINE (93, 145)-(85, 145), 0
2351 INPUT "YOU HAVE ARRIVED AT NEBRASKA SAMS GUN   SHOP WOULD YOU LIKE TO ENTER PRESS E OR CONTINUE ON PRESS C"; GOON$
IF GOON$ = "E" THEN GOSUB BAZOOKE ELSE IF GOON$ = "C" THEN GOSUB ALIEN ELSE 2351



ERE:
END

DEATH:
CLS
REM ** SCREEN 6 **
REM ** OHIO SMITH **
SCREEN 7
COLOR 4, 1
CIRCLE (150, 250), 150, 2
PAINT (150, 190), 2, 2
LINE (140, 90)-(140, 140), 16
REM *HAND*
LINE (140, 140)-(160, 140), 16
LINE (140, 90)-(110, 90), 16
LINE (110, 90)-(110, 80), 16
LINE (140, 80)-(110, 80), 16
LINE (140, 80)-(140, 60), 16
LINE (140, 60)-(160, 60), 16
LINE (160, 60)-(160, 80), 16
LINE (160, 80)-(190, 80), 16
LINE (190, 80)-(190, 90), 16
LINE (190, 90)-(160, 90), 16
LINE (160, 90)-(160, 140), 16
PAINT (159, 139), 8, 16

CIRCLE (70, 40), 10, 16
PAINT (70, 40), 16, 16
CIRCLE (95, 45), 10, 16
PAINT (95, 45), 16, 16
CIRCLE (90, 35), 10, 16
PAINT (90, 35), 16, 16
CIRCLE (87, 47), 10, 16
PAINT (85, 50), 16, 16
CIRCLE (79, 37), 10, 16
PAINT (79, 30), 16, 16
CIRCLE (108, 40), 10, 16
PAINT (108, 40), 16, 16
CIRCLE (210, 25), 10, 16
PAINT (210, 25), 16, 16
CIRCLE (215, 40), 10, 16
PAINT (215, 40), 16, 16
CIRCLE (220, 30), 10, 16
PAINT (220, 30), 16, 16
CIRCLE (225, 43), 10, 16
PAINT (225, 43), 16, 16
CIRCLE (230, 32), 10, 16
PAINT (234, 32), 16, 16
CIRCLE (235, 29), 10, 16
PAINT (238, 25), 16, 16
CIRCLE (243, 35), 10, 16
PAINT (243, 35), 16, 16

'LINE (150, 83)-(150, 85), 16
PRINT
PRINT
PRINT "               GAME OVER"
CIRCLE (310, 10), 20, 14
PAINT (310, 10), 14, 14
LINE (285, 10)-(275, 10), 14
LINE (287, 20)-(277, 22), 14
LINE (294, 30)-(284, 35), 14
LINE (310, 35)-(305, 40), 14


'REM *** MUSIC ***
'REM *** HOME ON THE RANGE ***
'FOR B = 1 TO 79
'READ N, D
'SOUND N, D
'NEXT B
'DATA 392, 8, 32767, 1, 392, 8, 261, 8, 293, 8, 329, 10, 261, 8, 246, 8, 220, 8
'DATA 349, 8, 349, 8, 349, 10, 329, 8, 349, 8, 392, 10, 261, 8, 261, 8, 261, 8
'DATA 246, 8, 261, 8, 293, 14, 293, 10, 392, 8, 392, 8, 261, 8, 293, 8, 329, 10
'DATA 261, 8, 246, 8, 220, 8, 349, 8, 349, 8, 349, 10, 349, 8, 349, 8, 329, 8
'DATA 293, 8, 261, 8, 246, 8, 261, 8, 293, 8, 261, 14, 261, 10, 420, 14, 349, 8
'DATA 329, 9, 293, 5, 329, 14, 329, 10, 392, 8, 392, 8, 261, 10, 261, 8, 261, 8
'DATA 261, 8, 246, 8, 261, 8, 293, 14, 293, 10, 392, 8, 392, 8, 261, 8, 293, 8
'DATA 329, 10, 261, 8, 246, 8, 220, 8, 220, 8, 349, 10, 349, 8, 349, 8, 329, 9
'DATA 293, 5, 261, 8, 246, 8, 261, 8, 293, 8, 261, 14, 261, 10
END

BAZOOKE:
CLS
SCREEN 7
COLOR 4, 0
PRINT "YOU WALK INTO THE GUNSHOP TO FIND THAT  ITS EMPTY.  ALL THE WEAPONS HAVE BEEN   TAKEN BY PEOPLE WHO WANT TO FIGHT OFF   THE ALIENS! "
PRINT
PRINT "THE STORE KEEPERS SAYS THAT HE HAS ONE  LAST WEAPON LEFT TO SELL BUT THAT HE HASIT IN HIS BACK ROOM."
PRINT
PRINT "YOU FOLLOW THE SHOP KEEPER INTO THE BACKROOM TO FIND....."
PRINT
984 INPUT "ENTER C TO CONTINUE OR PRESS E TO QUIT"; CHO$
IF CHO$ = "C" THEN GOSUB BAZOOKA ELSE IF CHO$ = "E" THEN END ELSE 984


BAZOOKA:
CLS
REM **GUNS**
REM **OHIO SMITH**
SCREEN 7
COLOR 4, 0

LINE (90, 150)-(210, 150), 16
LINE (90, 150)-(70, 120), 16
LINE (70, 120)-(190, 120), 16
LINE (190, 120)-(210, 150), 16
PAINT (91, 149), 6, 16
LINE (90, 150)-(90, 190), 16
LINE (90, 190)-(100, 190), 16
LINE (100, 190)-(100, 150), 16
PAINT (91, 151), 6, 16

LINE (210, 150)-(210, 190), 16
LINE (200, 190)-(210, 190), 16
LINE (200, 190)-(200, 150), 16
PAINT (201, 151), 6, 16

LINE (70, 120)-(70, 160), 16
LINE (80, 160)-(70, 160), 16
LINE (80, 160)-(80, 135), 16
PAINT (72, 150), 6, 16

LINE (190, 150)-(190, 160), 16
LINE (190, 160)-(180, 160), 16
LINE (180, 160)-(180, 150), 16
PAINT (181, 151), 6, 16

LINE (0, 110)-(350, 110), 16
PAINT (1, 111), 8, 16

PAINT (1, 10), 7, 16
LINE (20, 75)-(130, 25), 16, B
PAINT (21, 26), 9, 16
LINE (165, 25)-(275, 75), 16, B
PAINT (166, 26), 9, 16

REM **BAZOOKA**
LINE (100, 130)-(165, 130), 16
LINE (100, 130)-(100, 137), 16
LINE (100, 137)-(165, 137), 16
LINE (165, 137)-(165, 130), 16
LINE (140, 137)-(143, 143), 16
LINE (143, 143)-(138, 143), 16
LINE (138, 143)-(135, 137), 16
PAINT (110, 131), 7, 16
PAINT (139, 138), 8, 16

PRINT "A BAZOOKA!!!"
SLEEP 4

CLS
REM ** SCREEN 4 **
REM ** EDWIN SANTONI
SCREEN 7
COLOR 2, 0

CIRCLE (150, 120), 70, 8
PAINT (150, 120), 7, 8
LINE (150, 110)-(160, 130), 8
LINE (160, 130)-(150, 130), 8
LINE (120, 90)-(140, 100), 8
CIRCLE (125, 100), 5, 8
PAINT (125, 100), 0, 8
LINE (160, 100)-(180, 90), 8
CIRCLE (175, 100), 5, 8
PAINT (175, 100), 0, 8
LINE (125, 175)-(122, 200), 8
LINE (175, 175)-(177, 200), 8
PAINT (130, 180), 7, 8

FOR M = 1 TO 15
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M

FOR M = 15 TO 1 STEP -1
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M
PRINT
PRINT
PRINT
PRINT
PRINT "                               I'LL "
FOR M = 1 TO 15
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M

FOR M = 15 TO 1 STEP -1
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M
PRINT

PRINT "                               TAKE IT!"
CIRCLE (155, 155), 5, 4
SLEEP 3
CLS
SCREEN 7
COLOR 2, 0
PRINT "NOW OHIO SMITH IS ARMED AND READY TO    KICK SOME !@#$%."
PRINT
PRINT "OHIO SMITH NOW MUST FIND OUT WHERE THE  ALIENS ARE SO HE CAN FINISH THEM OFF    ONCE AND FOR ALL!"
PRINT
1766 INPUT "IF YOU WOULD LIKE TO GO TO THE SHIPYARDSTO LOOK FOR THE ALIENS PRESS S IF YOU   WANT TO LOOK FOR THE ALIENS IN THE      FOREST THEN PRESS P"; GOON$
IF GOON$ = "S" THEN GOSUB BOAT ELSE IF GOON$ = "P" THEN GOSUB FOREST ELSE 1766




ALIEN:
CLS
SCREEN 7
COLOR 4, 0
PRINT
PRINT "OHIO SMITH IS WALKING ALONG WHEN        SUDDENLY AN ALIEN JUMPS OUT!"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "       PRESS ANY KEY TO CONTINUE!"
SLEEP 100
CLS
REM *** DAVID HERMAN ***
REM *** ALIENS ***
SCREEN 7
COLOR 4, 0




SLEEP 1
BEEP
BEEP
BEEP
LINE (0, 180)-(350, 180), 8
PAINT (1, 181), 8, 8

PRINT "YOU EARTHLING                           SCUM PREPARE TO                         BE VAPORIZED !!!"
PI = 4 * ATN(1)
CIRCLE (150, 40), 35, 4, 0, PI * 2, 2.5
CIRCLE (150, 20), 19, 4, 0, PI * 2, .99
PAINT (133, 20), 2, 4
PAINT (163, 20), 2, 4
PAINT (160, 50), 2, 4
PAINT (155, 21), 4, 4
CIRCLE (150, 65), 5, 4, 0, PI * 2, .6
PAINT (150, 65), 4, 4
LINE (146, 65)-(154, 65), 2
CIRCLE (150, 25), 14, 2, 0
PAINT (151, 26), 2, 2

CIRCLE (157, 43), 4, 4
PAINT (157, 43), 16, 4
CIRCLE (157, 43), 2, 4

CIRCLE (143, 43), 4, 4
PAINT (144, 44), 16, 4
CIRCLE (143, 43), 2, 4
PAINT (151, 41), 2, 4

CIRCLE (150, 125), 40, 4, 0, PI * 2, 3
PAINT (151, 116), 2, 4
'CIRCLE (150, 125), 40, 4, 0, PI * 2, 2
CIRCLE (150, 125), 40, 4, 0, PI * 2, 14
LINE (150, 100)-(150, 145), 4
LINE (146, 75)-(146, 87), 4
LINE (154, 75)-(154, 87), 4
PAINT (149, 77), 2, 4

LINE (100, 80)-(138, 115), 4
LINE (90, 80)-(136, 120), 4
CIRCLE (95, 80), 4, 4
PAINT (96, 81), 2, 4
CIRCLE (95, 90), 3, 4
PAINT (96, 91), 2, 4
CIRCLE (105, 80), 3, 4
PAINT (106, 81), 2, 4
PAINT (120, 100), 2, 4

LINE (210, 80)-(164, 115), 4
LINE (220, 80)-(164, 120), 4
CIRCLE (215, 80), 4, 4
PAINT (216, 81), 2, 4
CIRCLE (214, 89), 3, 4
PAINT (216, 90), 2, 4
CIRCLE (205, 80), 3, 4
PAINT (205, 81), 2, 4
PAINT (190, 100), 2, 4

LINE (151, 165)-(100, 179), 4
LINE (200, 179)-(151, 165), 4
LINE (200, 179)-(100, 179), 4
PAINT (175, 176), 2, 4

SLEEP 6

CLS
SCREEN 7
COLOR 0, 0
LINE (200, 190)-(200, 160), 16
'PAINT (190, 189), 8, 16
LINE (200, 191)-(170, 191), 16
LINE (170, 191)-(170, 185), 16
LINE (170, 185)-(200, 185), 16
LINE (182, 185)-(182, 191), 16
LINE (179, 185)-(179, 160), 16
LINE (186, 185)-(186, 165), 16
LINE (179, 160)-(200, 160), 16
LINE (179, 155)-(200, 155), 16
LINE (186, 155)-(186, 160), 16
LINE (190, 155)-(190, 160), 16
PAINT (189, 156), 8, 16
PAINT (185, 156), 0, 16
PAINT (197, 170), 1, 16
LINE (179, 160)-(179, 140), 16
LINE (179, 140)-(165, 130), 16
LINE (165, 130)-(170, 125), 16
LINE (170, 125)-(179, 135), 16
LINE (179, 135)-(185, 135), 16
LINE (185, 135)-(189, 140), 16
LINE (189, 140)-(192, 135), 16
LINE (192, 135)-(200, 135), 16
LINE (200, 135)-(215, 125), 16
LINE (215, 125)-(220, 130), 16
LINE (220, 130)-(200, 140), 16
LINE (200, 140)-(200, 160), 16
PAINT (190, 140), 4, 16
PAINT (190, 190), 8, 16
PAINT (180, 190), 8, 16
LINE (185, 135)-(187, 132), 16
LINE (192, 135)-(190, 132), 16
CIRCLE (190, 124), 10, 16
PAINT (190, 124), 6, 16
PAINT (187, 135), 6, 16
CIRCLE (190, 130), 2, 0
PAINT (190, 130), 0, 0
CIRCLE (185, 122), 1, 0
PAINT (185, 122), 0, 0
CIRCLE (195, 122), 1, 0
PAINT (195, 122), 0, 0
PAINT (1, 191), 7, 16
LINE (190, 125)-(190, 124), 0
LINE (215, 125)-(219, 120), 16
LINE (219, 120)-(225, 125), 16
LINE (225, 125)-(220, 128), 16
PAINT (223, 125), 0, 16
LINE (220, 125)-(222, 124), 16
LINE (220, 123)-(220, 121), 16

LINE (170, 125)-(165, 123), 16
LINE (165, 123)-(159, 128), 16
LINE (159, 128)-(164, 130), 16
PAINT (161, 127), 0, 16
LINE (160, 126)-(163, 127), 16
LINE (162, 124)-(164, 125), 16

LINE (0, 90)-(350, 64), 16
PAINT (1, 63), 1, 16

CIRCLE (25, 20), 20, 14
PAINT (25, 20), 14, 14

SLEEP 1

REM **LAZER BLAST**
FOR E = 0 TO 180
LINE (0, 120)-(E, 120), 4
FOR HOLD = 1 TO 225
NEXT HOLD
NEXT E

CIRCLE (190, 120), 17, 4
PAINT (190, 120), 4, 4
FOR HOLD = 1 TO 1000
NEXT HOLD
PAINT (190, 120), 7, 16
SLEEP 1

CLS
SCREEN 7
COLOR 4, 0
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "             YOU ARE DEAD!"
SLEEP 3
GOSUB DEATH


BOAT:
CLS
REM **DRIVEING**
REM **OHIO SMITH**
SCREEN 7
COLOR 0, 8


CIRCLE (90, 174), 20, 7
CIRCLE (240, 174), 20, 7
CIRCLE (90, 174), 10, 7
CIRCLE (240, 174), 10, 7
PAINT (90, 174), 7, 7
PAINT (90, 164), 8, 7
PAINT (240, 174), 7, 7
PAINT (240, 164), 8, 7
LINE (85, 155)-(245, 155), 8
LINE (85, 155)-(65, 165), 8
LINE (58, 160)-(68, 165), 8, B
LINE (261, 160)-(268, 165), 8, B
PAINT (262, 161), 8, 8
PAINT (66, 161), 8, 8
PAINT (68, 165), 8, 8
LINE (65, 165)-(65, 135), 8
LINE (65, 135)-(265, 135), 8
LINE (265, 135)-(265, 165), 8
LINE (265, 165)-(245, 155), 8
LINE (100, 135)-(130, 115), 8
LINE (130, 115)-(175, 115), 8
LINE (175, 115)-(175, 135), 8
LINE (160, 115)-(160, 155), 8
LINE (0, 191)-(400, 191), 8
PAINT (131, 145), 4, 8
PAINT (170, 145), 4, 8
PAINT (165, 120), 4, 8
LINE (140, 140)-(150, 140), 8
PAINT (1, 240), 8, 8

FOR SUN = -10 TO 390 STEP 1
CIRCLE (SUN, 20), 20, 14
PAINT (SUN, 20), 14, 14
PAINT (0, 30), 1, 8
FOR HOLD = 1 TO 370
NEXT HOLD
NEXT SUN


CLS
REM ** PICTURE **
REM ** EDWIN SANTONI **
REM ** BOAT **
SCREEN 7
COLOR 14, 3
GOSUB BOATS
BOATS:
LINE (50, 100)-(300, 100), 16
LINE (50, 100)-(90, 140), 16
LINE (90, 140)-(260, 140), 16
LINE (260, 140)-(300, 100), 16
PAINT (59, 102), 8, 16
LINE (90, 80)-(260, 100), 16, B
PAINT (95, 83), 8, 16
LINE (118, 60)-(128, 80), 16, B
PAINT (119, 61), 8, 16
LINE (158, 60)-(168, 80), 16, B
PAINT (159, 61), 8, 16
LINE (195, 60)-(205, 80), 16, B
PAINT (196, 61), 8, 16
LINE (233, 60)-(243, 80), 16, B
PAINT (234, 61), 8, 16
CIRCLE (110, 90), 4, 1
PAINT (111, 91), 1, 1
CIRCLE (142, 90), 4, 1
PAINT (143, 91), 1, 1
CIRCLE (175, 90), 4, 1
PAINT (176, 91), 1, 1
CIRCLE (210, 90), 4, 1
PAINT (211, 91), 1, 1
CIRCLE (240, 90), 4, 1
PAINT (241, 91), 1, 1
WATER:
LINE (0, 140)-(319, 140), 16
PAINT (0, 142), 1, 16
CIRCLE (40, 160), 15, 16, .6, 2.5
CIRCLE (60, 190), 15, 16, .6, 2.5
CIRCLE (100, 175), 15, 16, .6, 2.5
CIRCLE (130, 160), 15, 16, .6, 2.5
CIRCLE (140, 190), 15, 16, .6, 2.5
CIRCLE (195, 165), 15, 16, .6, 2.5
CIRCLE (210, 185), 15, 16, .6, 2.5
CIRCLE (250, 175), 15, 16, .6, 2.5
CIRCLE (300, 170), 15, 16, .6, 2.5
CIRCLE (295, 185), 15, 16, .6, 2.5
'CIRCLE (30, 25), 25, 14
'PAINT (30, 25), 14, 14

LINE (0, 125)-(70, 125), 16
LINE (70, 125)-(70, 140), 16
PAINT (69, 126), 7, 16
LINE (10, 125)-(10, 115), 16
LINE (30, 125)-(30, 115), 16
LINE (30, 115)-(10, 115), 16
LINE (15, 125)-(15, 120), 16
LINE (15, 120)-(20, 120), 16
LINE (20, 125)-(20, 120), 16
PAINT (19, 121), 6, 16
PAINT (11, 124), 4, 16
LINE (22, 115)-(22, 110), 6
PRINT "THERE ARE NO ALIENS AT THE SHIP YARDS"
2053 INPUT "PRESS M TO LOOK FOR THE ALIENS UP IN THEMOUNTAINS OR PRESS C TO LOOK FOR THE    ALIENS BACK IN THE CITY"; SHO$
IF SHO$ = "M" THEN GOSUB MOUNTAINS ELSE IF SHO$ = "C" THEN GOSUB CITY ELSE 2053

CITY:
CLS
REM **DRIVEING**
REM **OHIO SMITH**
SCREEN 7
COLOR 0, 8


CIRCLE (90, 174), 20, 7
CIRCLE (240, 174), 20, 7
CIRCLE (90, 174), 10, 7
CIRCLE (240, 174), 10, 7
PAINT (90, 174), 7, 7
PAINT (90, 164), 8, 7
PAINT (240, 174), 7, 7
PAINT (240, 164), 8, 7
LINE (85, 155)-(245, 155), 8
LINE (85, 155)-(65, 165), 8
LINE (58, 160)-(68, 165), 8, B
LINE (261, 160)-(268, 165), 8, B
PAINT (262, 161), 8, 8
PAINT (66, 161), 8, 8
PAINT (68, 165), 8, 8
LINE (65, 165)-(65, 135), 8
LINE (65, 135)-(265, 135), 8
LINE (265, 135)-(265, 165), 8
LINE (265, 165)-(245, 155), 8
LINE (100, 135)-(130, 115), 8
LINE (130, 115)-(175, 115), 8
LINE (175, 115)-(175, 135), 8
LINE (160, 115)-(160, 155), 8
LINE (0, 191)-(400, 191), 8
PAINT (131, 145), 4, 8
PAINT (170, 145), 4, 8
PAINT (165, 120), 4, 8
LINE (140, 140)-(150, 140), 8
PAINT (1, 240), 8, 8

FOR SUN = -10 TO 390 STEP 1
CIRCLE (SUN, 20), 20, 14
PAINT (SUN, 20), 14, 14
PAINT (0, 30), 1, 8
FOR HOLD = 1 TO 370
NEXT HOLD
NEXT SUN

CLS
REM ****
SCREEN 7
COLOR 7, 0
PRINT "OHIO SMITH FINDS ONE OF THE ALIEN SPACE SHIPS FLYING IN THE SKY!"
PRINT
520 INPUT "PRESS B TO TRY TO SHOOT DOWN THE UFO    WITH YOUR BAZOOKA OR PRESS D TO DRIVE   BACK HOME"; SHO$
IF SHO$ = "B" THEN GOSUB KIL ELSE IF SHO$ = "D" THEN GOSUB ALIEN ELSE 520

KIL:
CLS
SCREEN 7
COLOR 7, 0
PRINT "OHIO SMITH FIRES HIS BAZOOKA AT THE     SPACESHIP!!"
SLEEP 5
CLS
SCREEN 7
COLOR 14, 0
CIRCLE (150, 100), 65, 8, .65, 2.5
CIRCLE (120, 60), 5, 8
CIRCLE (140, 60), 5, 8
CIRCLE (160, 60), 5, 8
CIRCLE (180, 60), 5, 8
LINE (100, 68)-(150, 78), 8
LINE (200, 68)-(150, 78), 8
LINE (100, 68)-(200, 68), 8
PAINT (100, 67), 8, 8
PAINT (1, 1), 9, 8

FOR Y = 200 TO 70 STEP -1
LINE (Y + 50, Y)-(Y + 50, Y), 4
FOR HOLD = 1 TO 850
NEXT HOLD
NEXT Y

CIRCLE (120, 70), 25, 4
PAINT (125, 70), 4, 4
FOR HOLD = 1 TO 950
NEXT HOLD
PAINT (125, 70), 9, 8

CIRCLE (140, 75), 25, 4
PAINT (145, 75), 4, 4
FOR HOLD = 1 TO 950
NEXT HOLD
PAINT (145, 75), 9, 8

CIRCLE (170, 65), 25, 4
PAINT (175, 65), 4, 4
FOR HOLD = 1 TO 950
NEXT HOLD
PAINT (175, 65), 9, 8

CIRCLE (150, 70), 52, 4
PAINT (155, 70), 4, 4
FOR HOLD = 1 TO 1050
NEXT HOLD
PAINT (155, 70), 9, 8
SLEEP 1
GOSUB WIN

MOUNTAINS:
CLS
REM **DRIVING**
REM **OHIO SMITH**
SCREEN 7
COLOR 0, 8


CIRCLE (90, 174), 20, 7
CIRCLE (240, 174), 20, 7
CIRCLE (90, 174), 10, 7
CIRCLE (240, 174), 10, 7
PAINT (90, 174), 7, 7
PAINT (90, 164), 8, 7
PAINT (240, 174), 7, 7
PAINT (240, 164), 8, 7
LINE (85, 155)-(245, 155), 8
LINE (85, 155)-(65, 165), 8
LINE (58, 160)-(68, 165), 8, B
LINE (261, 160)-(268, 165), 8, B
PAINT (262, 161), 8, 8
PAINT (66, 161), 8, 8
PAINT (68, 165), 8, 8
LINE (65, 165)-(65, 135), 8
LINE (65, 135)-(265, 135), 8
LINE (265, 135)-(265, 165), 8
LINE (265, 165)-(245, 155), 8
LINE (100, 135)-(130, 115), 8
LINE (130, 115)-(175, 115), 8
LINE (175, 115)-(175, 135), 8
LINE (160, 115)-(160, 155), 8
LINE (0, 191)-(400, 191), 8
PAINT (131, 145), 4, 8
PAINT (170, 145), 4, 8
PAINT (165, 120), 4, 8
LINE (140, 140)-(150, 140), 8
PAINT (1, 240), 8, 8

FOR SUN = -10 TO 390 STEP 1
CIRCLE (SUN, 20), 20, 14
PAINT (SUN, 20), 14, 14
PAINT (0, 30), 1, 8
FOR HOLD = 1 TO 370
NEXT HOLD
NEXT SUN

CLS
REM ** SCREEN FOREST DEATH **
REM ** OHIO SMITH!!! **
SCREEN 7
COLOR 4, 7
PAINT (1, 1), 1, 16
LINE (0, 90)-(350, 90), 16
PAINT (1, 151), 7, 16
LINE (0, 40)-(50, 20), 16
LINE (50, 20)-(130, 40), 16
LINE (110, 35)-(145, 10), 16
LINE (145, 10)-(214, 43), 16
LINE (198, 35)-(260, 5), 16
LINE (260, 5)-(350, 35), 16
PAINT (1, 89), 2, 16

LINE (30, 80)-(35, 90), 16, B
PAINT (31, 81), 6, 16
LINE (25, 80)-(40, 80), 16
LINE (40, 80)-(33, 60), 16
LINE (33, 60)-(25, 80), 16

LINE (70, 80)-(75, 90), 16, B
PAINT (71, 81), 6, 16
LINE (65, 80)-(80, 80), 16
LINE (80, 80)-(73, 60), 16
LINE (73, 60)-(65, 80), 16

LINE (110, 80)-(115, 90), 16, B
PAINT (111, 81), 6, 16
LINE (105, 80)-(120, 80), 16
LINE (120, 80)-(113, 60), 16
LINE (113, 60)-(105, 80), 16

LINE (150, 80)-(155, 90), 16, B
PAINT (151, 81), 6, 16
LINE (145, 80)-(160, 80), 16
LINE (160, 80)-(153, 60), 16
LINE (153, 60)-(145, 80), 16

LINE (190, 80)-(195, 90), 16, B
PAINT (191, 81), 6, 16
LINE (185, 80)-(200, 80), 16
LINE (200, 80)-(193, 60), 16
LINE (193, 60)-(185, 80), 16

LINE (230, 80)-(235, 90), 16, B
PAINT (231, 81), 6, 16
LINE (225, 80)-(240, 80), 16
LINE (240, 80)-(231, 60), 16
LINE (231, 60)-(225, 80), 16

LINE (270, 80)-(275, 90), 16, B
PAINT (271, 81), 6, 16
LINE (265, 80)-(280, 80), 16
LINE (280, 80)-(271, 60), 16
LINE (271, 60)-(265, 80), 16
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "YOU HAVE ARRIVED AT THE MOUNTAINS."
PRINT
10324 INPUT "PRESS R TO GO RIGHT PRESS L TO GO LEFT"; DIR$
IF DIR$ = "R" THEN GOSUB ALIEN ELSE IF DIR$ = "L" THEN 7021 ELSE 10324


7021 CLS
SCREEN 7
COLOR 5, 0
PRINT "OHIO SMITH TAKES THE LEFT PATH"
PRINT
PRINT "AFTER A FEW MINUTES OF WALKING OHIO     SMITH SEES A METALIC OBJECT BEHIND A    HILL"
PRINT
PRINT "OHIO SMITH LOOKS OVER THE HILL TO SEE..."
PRINT
PRINT "PRESS SPACE BAR TO CONTINUE"
SLEEP 100
CLS
REM ** SCREEN 8 **
REM ** OHIO SMITH **
SCREEN 7
COLOR 0, 0
PAINT (1, 1), 1, 16
CIRCLE (10, 10), 25, 14
PAINT (10, 10), 14, 14
LINE (0, 110)-(100, 50), 16
LINE (100, 50)-(140, 80), 16
LINE (140, 80)-(175, 25), 16
LINE (175, 25)-(226, 78), 16
LINE (226, 78)-(286, 34), 16
LINE (286, 34)-(319, 47), 16
PAINT (1, 190), 7, 16
LINE (100, 150)-(250, 150), 16
LINE (100, 170)-(250, 170), 16
LINE (250, 170)-(260, 160), 16
LINE (260, 160)-(250, 150), 16
LINE (100, 150)-(90, 160), 16
LINE (90, 160)-(100, 170), 16
PAINT (100, 151), 8, 16
LINE (125, 170)-(120, 190), 16
LINE (225, 170)-(230, 190), 16
LINE (120, 150)-(135, 140), 16
LINE (135, 140)-(220, 140), 16
LINE (220, 140)-(235, 150), 16
PAINT (130, 145), 8, 16
LINE (220, 190)-(240, 190), 8
LINE (110, 190)-(130, 190), 8
CIRCLE (120, 160), 4, 0
PAINT (120, 160), 0, 0
CIRCLE (150, 160), 4, 0
PAINT (150, 160), 0, 0
CIRCLE (180, 160), 4, 0
PAINT (180, 160), 0, 0
CIRCLE (210, 160), 4, 0
PAINT (210, 160), 0, 0
CIRCLE (240, 160), 4, 0
PAINT (240, 160), 0, 0
SLEEP 3
CLS
SCREEN 7
COLOR 5, 0
PRINT "ITS AN ALIEN SPACE SHIP THAT HAS LANDED!"
PRINT
PRINT "OHIO SMITH PULLS OUT HIS BAZOOKA"
PRINT
20156 INPUT "PRESS F TO FIRE"; FIR$
IF FIR$ = "F" THEN 4557 ELSE 20156

4557 CLS
REM ** SCREEN 8 **
REM ** OHIO SMITH **
SCREEN 7
COLOR 0, 0
PAINT (1, 1), 1, 16
CIRCLE (10, 10), 25, 14
PAINT (10, 10), 14, 14
LINE (0, 110)-(100, 50), 16
LINE (100, 50)-(140, 80), 16
LINE (140, 80)-(175, 25), 16
LINE (175, 25)-(226, 78), 16
LINE (226, 78)-(286, 34), 16
LINE (286, 34)-(319, 47), 16
PAINT (1, 190), 7, 16
LINE (100, 150)-(250, 150), 16
LINE (100, 170)-(250, 170), 16
LINE (250, 170)-(260, 160), 16
LINE (260, 160)-(250, 150), 16
LINE (100, 150)-(90, 160), 16
LINE (90, 160)-(100, 170), 16
PAINT (100, 151), 8, 16
LINE (125, 170)-(120, 190), 16
LINE (225, 170)-(230, 190), 16
LINE (120, 150)-(135, 140), 16
LINE (135, 140)-(220, 140), 16
LINE (220, 140)-(235, 150), 16
PAINT (130, 145), 8, 16
LINE (220, 190)-(240, 190), 8
LINE (110, 190)-(130, 190), 8
CIRCLE (120, 160), 4, 0
PAINT (120, 160), 0, 0
CIRCLE (150, 160), 4, 0
PAINT (150, 160), 0, 0
CIRCLE (180, 160), 4, 0
PAINT (180, 160), 0, 0
CIRCLE (210, 160), 4, 0
PAINT (210, 160), 0, 0
CIRCLE (240, 160), 4, 0
PAINT (240, 160), 0, 0

SLEEP 2
FOR BAZ = 1 TO 100
FOR HOLD = 1 TO 10
LINE (0, 150)-(BAZ, 150), 4
LINE (0, 151)-(BAZ, 151), 4
LINE (0, 152)-(BAZ, 152), 4
NEXT HOLD
NEXT BAZ

FOR X = 1 TO 150
CIRCLE (110, 150), 50, 4
PAINT (110, 150), 4, 4
NEXT X
PAINT (110, 150), 7, 16

FOR X = 1 TO 150
CIRCLE (140, 150), 38, 4
PAINT (140, 150), 4, 4
NEXT X
PAINT (140, 150), 7, 16

FOR X = 1 TO 150
CIRCLE (165, 150), 45, 4
PAINT (165, 150), 4, 4
NEXT X
PAINT (165, 150), 7, 16

FOR X = 1 TO 150
CIRCLE (190, 150), 50, 4
PAINT (190, 150), 4, 4
NEXT X
PAINT (190, 150), 7, 16

FOR X = 1 TO 150
CIRCLE (215, 150), 50, 4
PAINT (215, 150), 4, 4
NEXT X
PAINT (215, 150), 7, 16

SLEEP 1
CLS
REM ** SCREEN 4 **
REM ** EDWIN SANTONI
SCREEN 7
COLOR 2, 0

CIRCLE (150, 120), 70, 8
PAINT (150, 120), 7, 8
LINE (150, 110)-(160, 130), 8
LINE (160, 130)-(150, 130), 8
LINE (120, 90)-(140, 100), 8
CIRCLE (125, 100), 5, 8
PAINT (125, 100), 0, 8
LINE (160, 100)-(180, 90), 8
CIRCLE (175, 100), 5, 8
PAINT (175, 100), 0, 8
LINE (125, 175)-(122, 200), 8
LINE (175, 175)-(177, 200), 8
PAINT (130, 180), 7, 8

FOR M = 1 TO 15
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M

FOR M = 15 TO 1 STEP -1
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M
PRINT
PRINT
PRINT
PRINT
PRINT "                               EAT "
FOR M = 1 TO 15
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M

FOR M = 15 TO 1 STEP -1
FOR P = 25 TO 1 STEP -1
CIRCLE (155, 155), M, 4
PAINT (155, 155), 7, 8
NEXT P
NEXT M
PRINT
PRINT "                               THAT!!!!"
CIRCLE (155, 155), 5, 4
SLEEP 2
CLS
SCREEN 7
COLOR 5, 0
PRINT "OHIO SMITH HAS DESTROYED ONE OF THE     ALIEN'S SHIPS BUT HE STILL MUST KILL THEMOTHER SHIP!"
PRINT
6032 INPUT "PRESS C TO GO TO THE CITY OR PRESS F TO GO TO THE FOREST"; SHO$
IF SHO$ = "C" THEN GOSUB CITY ELSE IF SHO$ = "F" THEN GOSUB FOREST ELSE 6032

WIN:
CLS
SCREEN 7
COLOR 1, 0
PRINT
PRINT "OHIO SMITH HAS KILLED THE ALIEN MOTHER  SHIP!"
PRINT
PRINT "ALL THE REST OF THE ALIENS HAVE         RETREATED"
PRINT
PRINT
PRINT
PRINT "      OHIO SMITH IS A HERO!!!!"
PRINT
PRINT
PRINT
PRINT "      PRESS ANY KEY TO CONTINUE"
SLEEP 100
CLS
SCREEN 7
COLOR 3, 0
PRINT
PRINT
PRINT "OHIO SMITH'S NAME IS NOW KNOWN AROUND   THE WORLD!"
PRINT
PRINT "OHIO SMITH HAS SWORN THAT FROM THIS DAY ON HE WILL PROTECT EARTH FROM ANY EVIL  THAT DARES THREATEN THE LIVES OF THE    HUMAN RACE!"
PRINT
PRINT "YOU HAVE WON THE GAME CONGRADULATIONS!"
PRINT
PRINT
PRINT
PRINT "     PRESS ANY KEY TO CONTINUE"
SLEEP 100

CLS
PAINT (0, 1), 4, 4
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 1, 1
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 6, 6
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 4, 4
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 1, 1
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 6, 6
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 4, 4
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 5, 5
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 9, 9
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 3, 3
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 2, 2
FOR HOLD = 1 TO 2850
NEXT HOLD
PAINT (0, 1), 7, 7
CLS
LINE (200, 190)-(200, 160), 16
'PAINT (190, 189), 8, 16
LINE (200, 191)-(170, 191), 16
LINE (170, 191)-(170, 185), 16
LINE (170, 185)-(200, 185), 16
LINE (182, 185)-(182, 191), 16
LINE (179, 185)-(179, 160), 16
LINE (186, 185)-(186, 165), 16
LINE (179, 160)-(200, 160), 16
LINE (179, 155)-(200, 155), 16
LINE (186, 155)-(186, 160), 16
LINE (190, 155)-(190, 160), 16
PAINT (189, 156), 8, 16
PAINT (185, 156), 0, 16
PAINT (197, 170), 1, 16
LINE (179, 160)-(179, 140), 16
LINE (179, 140)-(165, 130), 16
LINE (165, 130)-(170, 125), 16
LINE (170, 125)-(179, 135), 16
LINE (179, 135)-(185, 135), 16
LINE (185, 135)-(189, 140), 16
LINE (189, 140)-(192, 135), 16
LINE (192, 135)-(200, 135), 16
LINE (200, 135)-(215, 125), 16
LINE (215, 125)-(220, 130), 16
LINE (220, 130)-(200, 140), 16
LINE (200, 140)-(200, 160), 16
PAINT (190, 140), 4, 16
PAINT (190, 190), 8, 16
PAINT (180, 190), 8, 16
LINE (185, 135)-(187, 132), 16
LINE (192, 135)-(190, 132), 16
CIRCLE (190, 124), 10, 16
PAINT (190, 124), 6, 16
PAINT (187, 135), 6, 16
CIRCLE (190, 130), 2, 0
PAINT (190, 130), 0, 0
CIRCLE (185, 122), 1, 0
PAINT (185, 122), 0, 0
CIRCLE (195, 122), 1, 0
PAINT (195, 122), 0, 0
PAINT (1, 191), 7, 16
LINE (190, 125)-(190, 124), 0
LINE (215, 125)-(219, 120), 16
LINE (219, 120)-(225, 125), 16
LINE (225, 125)-(220, 128), 16
PAINT (223, 125), 0, 16
LINE (220, 125)-(222, 124), 16
LINE (220, 123)-(220, 121), 16

LINE (170, 125)-(165, 123), 16
LINE (165, 123)-(159, 128), 16
LINE (159, 128)-(164, 130), 16
PAINT (161, 127), 0, 16
LINE (160, 126)-(163, 127), 16
LINE (162, 124)-(164, 125), 16
PAINT (0, 1), 0, 16
PRINT
PRINT
PRINT
PRINT
PRINT "            YOU ARE A WINNER!"
REM *** MUSIC ***
REM *** HOME ON THE RANGE ***
FOR B = 1 TO 79
READ N, D
SOUND N, D
NEXT B
DATA 392, 8, 32767, 1, 392, 8, 261, 8, 293, 8, 329, 10, 261, 8, 246, 8, 220, 8
DATA 349, 8, 349, 8, 349, 10, 329, 8, 349, 8, 392, 10, 261, 8, 261, 8, 261, 8
DATA 246, 8, 261, 8, 293, 14, 293, 10, 392, 8, 392, 8, 261, 8, 293, 8, 329, 10
DATA 261, 8, 246, 8, 220, 8, 349, 8, 349, 8, 349, 10, 349, 8, 349, 8, 329, 8
DATA 293, 8, 261, 8, 246, 8, 261, 8, 293, 8, 261, 14, 261, 10, 420, 14, 349, 8
DATA 329, 9, 293, 5, 329, 14, 329, 10, 392, 8, 392, 8, 261, 10, 261, 8, 261, 8
DATA 261, 8, 246, 8, 261, 8, 293, 14, 293, 10, 392, 8, 392, 8, 261, 8, 293, 8
DATA 329, 10, 261, 8, 246, 8, 220, 8, 220, 8, 349, 10, 349, 8, 349, 8, 329, 9
DATA 293, 5, 261, 8, 246, 8, 261, 8, 293, 8, 261, 14, 261, 10
CLS
SCREEN 7
COLOR 4, 0
PRINT
PRINT
PRINT
PRINT "         THANKS FOR PLAYING"
PRINT
PRINT
PRINT
PRINT "         BY: EDWIN SANTONI"
PRINT "                  &      "
PRINT "             DAVID HERMAN"