CLS
REM*MARLINA*
REM*OHIO SMITH*
SCREEN 7
GOSUB SC1
GOSUB SC5
GOSUB SC7
GOSUB SC8
GOSUB SC9
6 GOSUB SC10
GOSUB SC11
GOSUB SC12
GOSUB SC13
GOSUB SC16
END

SC1:
REM*INTRO SCREEN*
1 PRINT ""
FOR X = 15 TO 0 STEP -1
FOR HOLD = 1 TO 20
COLOR 15, X
NEXT HOLD
NEXT X
REM*OHIO*
CIRCLE (45, 40), 15, 2
PAINT (45, 40), 2, 2
CIRCLE (45, 40), 9, 0
PAINT (45, 39), 0, 0
LINE (70, 53)-(70, 28), 9
LINE (80, 53)-(80, 28), 9
LINE (80, 53)-(70, 53), 9
LINE (80, 28)-(70, 28), 9
LINE (80, 40)-(95, 40), 9
LINE (95, 53)-(95, 28), 9
LINE (95, 53)-(105, 53), 9
LINE (105, 53)-(105, 28), 9
LINE (105, 28)-(95, 28), 9
LINE (120, 53)-(128, 28), 5, BF
CIRCLE (155, 40), 15, 14
PAINT (155, 40), 14, 14
CIRCLE (155, 40), 9, 0
PAINT (155, 40), 14, 0
CIRCLE (155, 40), 5, 0
REM*SMITH*
CIRCLE (80, 80), 20, 4, (30 * 3.14 / 180), (165 * 3.14 / 180)
LINE (60, 75)-(98, 90), 4
CIRCLE (80, 87), 20, 4, (190 * 3.14 / 180), (350 * 3.14 / 180)
LINE (110, 70)-(120, 104), 11, BF
LINE (119, 70)-(135, 104), 11
LINE (135, 104)-(148, 70), 11
LINE (150, 70)-(160, 104), 11, BF
LINE (168, 104)-(175, 70), 12, BF
LINE (180, 70)-(204, 70), 13
LINE (192, 70)-(192, 104), 13
LINE (210, 70)-(210, 104), 10
LINE (219, 70)-(219, 104), 10
LINE (210, 104)-(219, 104), 10
LINE (210, 70)-(219, 70), 10
LINE (219, 86)-(235, 86), 10
LINE (235, 70)-(235, 104), 10
LINE (244, 70)-(244, 104), 10
LINE (244, 70)-(235, 70), 10
LINE (244, 104)-(235, 104), 10
LOCATE 16, 6
PRINT "MARLINA VECCHIONE, C. 1997"
PLAY "O3T60"
PLAY "<<L4 F# <A> E <A> L8 D E F# G L4 E A  "
LOCATE 20, 3
INPUT "DO YOU WANT TO PLAY (Y) (N)"; YN$
IF YN$ = "Y" THEN GOSUB SC3:  ELSE IF YN$ = "N" THEN GOSUB SC2:  ELSE GOTO 1
RETURN

SC2:
CLS
REM*ANS:NO*

COLOR 15, 0
CIRCLE (115, 110), 15, 14
PAINT (115, 110), 14, 14
CIRCLE (120, 139), 26, 14
PAINT (120, 139), 14, 14
CIRCLE (110, 105), 1, 0
PAINT (110, 105), 0, 0
CIRCLE (120, 105), 1, 0
PAINT (120, 105), 0, 0
LINE (115, 110)-(109, 114), 4
LINE (115, 110)-(115, 114), 4
LINE (115, 114)-(109, 114), 4
PAINT (113, 113), 4
LINE (115, 114)-(110, 117), 4
LINE (110, 117)-(115, 116), 4
LINE (115, 116)-(115, 114), 4
PAINT (114, 115), 4
LINE (145, 135)-(150, 120), 14
LINE (150, 120)-(130, 130), 14
PAINT (147, 122), 14
LINE (146, 130)-(155, 125), 14
LINE (155, 125)-(146, 140), 14
PAINT (149, 130), 14, 14
LINE (110, 97)-(107, 93), 4
LINE (107, 93)-(113, 95), 4
LINE (112, 95)-(114, 92), 4
LINE (114, 92)-(116, 95), 4
LINE (116, 95)-(119, 91), 4
LINE (119, 91)-(120, 97), 4
LINE (110, 97)-(120, 97), 4
PAINT (111, 96), 4, 4
CIRCLE (130, 135), 13, 6, (145 * 3.14 / 180), (180 * 3.14 / 95)
LINE (120, 140)-(130, 135), 6
LINE (117, 135)-(127, 130), 6
LINE (116, 162)-(118, 170), 6, BF
LINE (122, 162)-(124, 170), 6, BF
LINE (110, 170)-(118, 170), 6
LINE (113, 174)-(117, 170), 6
LINE (120, 174)-(117, 170), 6
LINE (130, 170)-(125, 170), 6
LINE (123, 170)-(127, 174), 6
LINE (123, 170)-(121, 174), 6

FLASH:
FOR X = 1 TO 7
LET C = 1
LET CC = 2
LET CCC = 15
GOSUB CHICKEN
FOR HOLD = 1 TO 5000
NEXT HOLD
LET C = 15
LET CC = 1
LET CCC = 2
GOSUB CHICKEN
FOR HOLD = 1 TO 5000
NEXT HOLD
LET C = 2
LET CC = 15
LET CCC = 1
GOSUB CHICKEN
FOR HOLD = 1 TO 5000
NEXT HOLD
NEXT X
END

CHICKEN:
REM ***C***
CIRCLE (40, 25), 24, C, (90 * 3.14 / 180), (180 * 3.14 / 114)
CIRCLE (40, 25), 23, C, (90 * 3.14 / 180), (180 * 3.14 / 114)
CIRCLE (40, 25), 22, C, (90 * 3.14 / 180), (180 * 3.14 / 144)
REM ***H***
LINE (60, 5)-(60, 45), CC
LINE (70, 5)-(70, 45), CC
LINE (60, 45)-(70, 45), CC
LINE (60, 5)-(70, 5), CC
LINE (70, 25)-(90, 25), CC
LINE (90, 5)-(90, 45), CC
LINE (100, 5)-(100, 45), CC
LINE (90, 45)-(100, 45), CC
LINE (90, 5)-(100, 5), CC
REM ***I***
LINE (109, 5)-(115, 45), CCC, BF
REM ***C***
CIRCLE (150, 25), 24, C, (90 * 3.14 / 180), (180 * 3.14 / 114)
CIRCLE (150, 25), 23, C, (90 * 3.14 / 180), (180 * 3.14 / 114)
CIRCLE (150, 25), 22, C, (90 * 3.14 / 180), (180 * 3.14 / 144)
REM ***K***
LINE (165, 5)-(165, 45), CC
LINE (165, 25)-(190, 5), CC
LINE (165, 25)-(190, 45), CC
REM ***E***
LINE (205, 5)-(210, 45), CCC, BF
LINE (205, 5)-(223, 10), CCC, BF
LINE (205, 45)-(223, 40), CCC, BF
LINE (205, 30)-(223, 22), CCC, BF
REM ***N***
LINE (233, 5)-(235, 45), C, BF
LINE (235, 5)-(253, 45), C
LINE (253, 45)-(255, 5), C, BF
RETURN


SC3:
REM*ANS:YES*
CLS
PRINT "YOU ARE OHIO SMITH!AFTER BEING SEPERATED FROM YOUR FAMILY BY THE EVIL DELAWARE  SAM,YOUR ONLY MISSION IS TO GET BACK TO OKLAHOMA TO REUNITE WITH YOUR FAMILY"
PRINT "AGAIN.BE WISE ON THIS JOURNEY BUT,BEWARE OF THE DELAWARE!"
LINE (60, 80)-(200, 85), 2, BF
LINE (110, 80)-(110, 129), 2
LINE (110, 129)-(115, 140), 2
LINE (115, 140)-(118, 138), 2
LINE (118, 138)-(120, 142), 2
LINE (120, 142)-(122, 139), 2
LINE (122, 137)-(124, 142), 2
LINE (124, 142)-(140, 145), 2
LINE (140, 145)-(183, 147), 2
LINE (183, 147)-(190, 145), 2
LINE (190, 145)-(200, 148), 2
LINE (200, 148)-(200, 85), 2
PAINT (190, 144), 2
LOCATE 14, 16
PRINT "OKLAHOMA"
LOCATE 25, 1
INPUT "PRESS (G) TO GO ON"; B$
IF B$ = "G" THEN GOSUB SC4:  ELSE GOTO SC3:
RETURN


SC4:
REM*SC4*
CLS
COLOR 15, 0
LINE (120, 90)-(200, 150), 7, BF
PAINT (130, 100), 7
LINE (120, 90)-(140, 70), 4
LINE (120, 90)-(200, 90), 4
LINE (200, 90)-(180, 70), 4
LINE (140, 70)-(180, 70), 4
PAINT (145, 71), 4
LINE (150, 130)-(165, 150), 8, BF
CIRCLE (140, 110), 3, 15
CIRCLE (140, 107), 3, 15
CIRCLE (149, 110), 3, 15
CIRCLE (158, 110), 3, 15
CIRCLE (158, 107), 3, 15
INPUT "WOULD YOU LIKE TO BUY SUPPLIES AT LITTLE OLD BOB'S SHOP OR GO ON (B)(G)"; A$
IF A$ = "G" THEN A = 20
IF A$ = "G" THEN GOSUB SC6 ELSE GOTO SC5:
RETURN

SC5:
CLS
COLOR 15, 0
LINE (20, 120)-(80, 180), 7, BF
LINE (20, 120)-(30, 105), 4
LINE (80, 120)-(70, 105), 4
LINE (30, 105)-(70, 105), 4
LINE (80, 120)-(20, 120), 4
PAINT (25, 119), 4
LINE (40, 180)-(60, 160), 8, BF
LOCATE 9, 18
PRINT "SUPPLIES:"
LOCATE 10, 15
PRINT
LOCATE 11, 15
PRINT "(1)MEAT...$5 (9LBS)"
LOCATE 12, 15
PRINT "(2)WATER...$5 (5GAL)"
LOCATE 13, 15
PRINT "(3)GUN...$10"
LOCATE 14, 15
PRINT "(4)MUSKET BALLS...$5"
LOCATE 15, 15
PRINT "  QUIT"
LOCATE 1, 1
LET A = 20
PRINT "ACCOUNT:"; A
LOCATE 2, 1
PRINT "YOU CAN ENTER [2] ITEMS NOW OR [1] ITEM AND THEN ENTER QUIT(5) IF NOT BUYING AN ITEM THEN ENTER (5,5)"
26.
0.-*+-+-INPUT "WHAT WOULD YOU LIKE TO BUY"; M, N
IF M = 1 THEN A = A - 5
IF N = 1 THEN A = A - 5
IF M = 2 THEN A = A - 5
IF N = 2 THEN A = A - 5
IF M = 3 THEN A = A - 10
IF N = 3 THEN A = A - 10
IF M = 4 THEN A = A - 5
IF N = 4 THEN A = A - 5
IF M = 3 THEN CLS
IF N = 3 THEN CLS
IF M = 3 THEN INPUT "SHOPKEEPER SAYS... I WOULD BUY A GUN IN THE FOREST. THEY ARE CHEAPER.WOULD YOU  STILL BUY IT ANYHOW (Y)(N)"; N$
IF N = 3 THEN INPUT "SHOPKEEPER SAYS... I WOULD BUY A GUN IN THE FOREST. THEY ARE CHEAPER.WOULD YOU  STILL BUY IT ANYHOW (Y)(N)"; N$
IF N$ = "N" THEN A = A + 10
IF N$ = "Y" THEN GUN$ = "YES"
IF M = 5 OR 1 OR 2 OR 3 OR 4 THEN GOSUB SC6
IF N = 5 OR 1 OR 2 OR 3 OR 4 THEN GOSUB SC6
RETURN

SC6:
CL.S
REM*TOWN*
LINE (40, 170)-(90, 170), 3
LINE (40, 170)-(40, 130), 3
LINE (90, 170)-(90, 130), 3
LINE (90, 130)-(80, 130), 3
LINE (80, 130)-(80, 135), 3
LINE (80, 135)-(70, 135), 3
LINE (70, 135)-(70, 130), 3
LINE (70, 130)-(60, 130), 3
LINE (60, 130)-(60, 135), 3
LINE (60, 135)-(50, 135), 3
LINE (50, 135)-(50, 130), 3
LINE (50, 130)-(40, 130), 3
PAINT (70, 150), 3, 3
LINE (55, 170)-(75, 160), 8, BF
PAINT (70, 165), 8
CIRCLE (65, 130), 18, 14, (0 * 3.14 / 180), (180 * 3.14 / 180)
LINE (47, 130)-(50, 130), 14
LINE (50, 130)-(50, 135), 14
LINE (50, 135)-(60, 135), 14
LINE (60, 135)-(60, 130), 14
LINE (60, 130)-(70, 130), 14
LINE (70, 130)-(70, 135), 14
LINE (70, 135)-(80, 135), 14
LINE (80, 135)-(80, 130), 14
LINE (80, 130)-(83, 130), 14
PAINT (65, 125), 14, 14
LINE (65, 105)-(65, 115), 14
LINE (60, 110)-(70, 110), 14
LINE (90, 170)-(130, 110), 8, BF
LINE (90, 110)-(130, 110), 4
LINE (90, 110)-(110, 85), 4
LINE (110, 85)-(130, 110), 4
PAINT (110, 100), 4
LINE (105, 170)-(115, 160), 0, BF
LINE (95, 130)-(105, 140), 0, BF
LINE (115, 130)-(125, 140), 0, BF
LINE (131, 170)-(160, 140), 1, BF
LINE (131, 140)-(160, 140), 15
LINE (160, 140)-(155, 135), 15
LINE (131, 140)-(136, 135), 15
LINE (136, 135)-(155, 135), 15
PAINT (137, 136), 15
LINE (140, 170)-(150, 160), 0, BF

LINE (170, 170)-(200, 105), 15
REM*FOREST*
CIRCLE (206, 140), 7, 2
PAINT (206, 140), 2, 2
CIRCLE (220, 145), 7, 2
PAINT (220, 145), 2, 2
CIRCLE (204, 155), 7, 2
PAINT (204, 155), 2, 2
CIRCLE (240, 143), 7, 2
PAINT (240, 143), 2, 2
LINE (204, 163)-(204, 170), 6
LINE (210, 160)-(210, 170), 6
LINE (230, 154)-(230, 170), 6
LINE (225, 154)-(225, 170), 6
LINE (230, 150)-(230, 170), 6
LINE (220, 151)-(220, 170), 6
LINE (240, 162)-(240, 170), 6
LINE (250, 157)-(250, 170), 6
LINE (260, 154)-(260, 170), 6
CIRCLE (263, 155), 7, 2
PAINT (263, 155), 2, 2
CIRCLE (260, 145), 7, 2
PAINT (260, 145), 2, 2
CIRCLE (230, 156), 7, 2
PAINT (230, 156), 2, 2
CIRCLE (244, 158), 7, 2
PAINT (244, 158), 2, 2
INPUT "YOU ARE ON YOUR WAY!...WOULD YOU LIKE TO GO THROUGH TOWN/FOREST(T)(F)"; W$
IF W$ = "F" THEN GOTO SC16:  ELSE IF W$ = "T" THEN GOTO SC7:  ELSE GOTO SC6:
RETURN


SC7:
CLS
COLOR 1, 15
CIRCLE (160, 100), 30, 12
PAINT (160, 100), 12, 12
CIRCLE (145, 98), 4, 0
CIRCLE (173, 98), 4, 0
CIRCLE (160, 103), 5, 0, (0 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (160, 112), 5, 0
LINE (137, 84)-(137, 70), 1
LINE (183, 70)-(183, 83), 1
LINE (183, 70)-(137, 70), 1
LINE (183, 70)-(160, 60), 1
LINE (137, 70)-(160, 60), 1
PAINT (160, 62), 1

CIRCLE (160, 100), 30, 1, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (147, 76), 1
LINE (134, 88)-(134, 97), 14
LINE (136, 86)-(136, 95), 14
LINE (138, 84)-(138, 93), 14
LINE (140, 82)-(140, 91), 14
LINE (142, 81)-(142, 89), 14
LINE (144, 80)-(144, 87), 14
LINE (146, 79)-(146, 85), 14
LINE (148, 79)-(148, 85), 14
LINE (150, 78)-(150, 85), 14
LINE (152, 77)-(152, 85), 14
LINE (154, 76)-(154, 85), 14
LINE (156, 76)-(156, 85), 14
LINE (158, 76)-(158, 85), 14
LINE (160, 76)-(160, 85), 14
LINE (162, 76)-(162, 85), 14
LINE (164, 76)-(164, 85), 14
LINE (166, 76)-(166, 85), 14
LINE (168, 77)-(168, 85), 14
LINE (170, 78)-(170, 85), 14
LINE (172, 79)-(172, 85), 14
LINE (174, 79)-(174, 85), 14
LINE (176, 80)-(176, 87), 14
LINE (178, 81)-(178, 89), 14
LINE (180, 82)-(180, 91), 14
LINE (182, 84)-(182, 93), 14
LINE (184, 86)-(184, 95), 14
LINE (186, 88)-(186, 97), 14


7 PRINT "PEOPLE GREET YOU AS YOU GO BY YOU SEE A FAMILIAR FACE.IT'S TOMMY,  AND HE SEEMS SCARED."
INPUT "DO YOU WANT TO GO ON/TALK TO TOMMY,     (G)(T)"; R$
IF R$ = "T" GOTO SC8 ELSE IF R$ = "G" GOTO SC9 ELSE GOTO 7
RETURN

SC8:
CLS
REM*TOMMY*
CIRCLE (160, 100), 30, 12
PAINT (160, 100), 12, 12
CIRCLE (145, 98), 4, 0
CIRCLE (173, 98), 4, 0
CIRCLE (160, 103), 5, 0, (0 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (160, 112), 5, 0
LINE (137, 84)-(137, 70), 1
LINE (183, 70)-(183, 83), 1
LINE (183, 70)-(137, 70), 1
LINE (183, 70)-(160, 60), 1
LINE (137, 70)-(160, 60), 1
PAINT (160, 62), 1

CIRCLE (160, 100), 30, 1, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (147, 76), 1
LINE (134, 88)-(134, 97), 14
LINE (136, 86)-(136, 95), 14
LINE (138, 84)-(138, 93), 14
LINE (140, 82)-(140, 91), 14
LINE (142, 81)-(142, 89), 14
LINE (144, 80)-(144, 87), 14
LINE (146, 79)-(146, 85), 14
LINE (148, 79)-(148, 85), 14
LINE (150, 78)-(150, 85), 14
LINE (152, 77)-(152, 85), 14
LINE (154, 76)-(154, 85), 14
LINE (156, 76)-(156, 85), 14
LINE (158, 76)-(158, 85), 14
LINE (160, 76)-(160, 85), 14
LINE (162, 76)-(162, 85), 14
LINE (164, 76)-(164, 85), 14
LINE (166, 76)-(166, 85), 14
LINE (168, 77)-(168, 85), 14
LINE (170, 78)-(170, 85), 14
LINE (172, 79)-(172, 85), 14
LINE (174, 79)-(174, 85), 14
LINE (176, 80)-(176, 87), 14
LINE (178, 81)-(178, 89), 14
LINE (180, 82)-(180, 91), 14
LINE (182, 84)-(182, 93), 14
LINE (184, 86)-(184, 95), 14
LINE (186, 88)-(186, 97), 14
COLOR 2
PRINT " I HEAR THAT DELAWARE SAM IS IN TOWN. I  WOULD GO TO THE FOREST."
LOCATE 20, 1
COLOR 1
INPUT "DO YOU WANT TO GO ON/FOREST,(G)(F)"; R$
IF R$ = "G" THEN GOTO SC9:  ELSE IF R$ = "F" THEN GOTO SC16:
RETURN

SC9:
CLS
COLOR 10, 0
LINE (40, 170)-(90, 170), 3
LINE (40, 170)-(40, 130), 3
LINE (90, 170)-(90, 130), 3
LINE (90, 130)-(80, 130), 3
LINE (80, 130)-(80, 135), 3
LINE (80, 135)-(70, 135), 3
LINE (70, 135)-(70, 130), 3
LINE (70, 130)-(60, 130), 3
LINE (60, 130)-(60, 135), 3
LINE (60, 135)-(50, 135), 3
LINE (50, 135)-(50, 130), 3
LINE (50, 130)-(40, 130), 3
PAINT (70, 150), 3, 3
LINE (55, 170)-(75, 160), 8, BF
PAINT (70, 165), 8
CIRCLE (65, 130), 18, 14, (0 * 3.14 / 180), (180 * 3.14 / 180)
LINE (47, 130)-(50, 130), 14
LINE (50, 130)-(50, 135), 14
LINE (50, 135)-(60, 135), 14
LINE (60, 135)-(60, 130), 14
LINE (60, 130)-(70, 130), 14
LINE (70, 130)-(70, 135), 14
LINE (70, 135)-(80, 135), 14
LINE (80, 135)-(80, 130), 14
LINE (80, 130)-(83, 130), 14
PAINT (65, 125), 14, 14
LINE (65, 105)-(65, 115), 14
LINE (60, 110)-(70, 110), 14
LINE (90, 170)-(130, 110), 8, BF
LINE (90, 110)-(130, 110), 4
LINE (90, 110)-(110, 85), 4
LINE (110, 85)-(130, 110), 4
PAINT (110, 100), 4
LINE (105, 170)-(115, 160), 0, BF
LINE (95, 130)-(105, 140), 0, BF
LINE (115, 130)-(125, 140), 0, BF
LINE (131, 170)-(160, 140), 1, BF
LINE (131, 140)-(160, 140), 15
LINE (160, 140)-(155, 135), 15
LINE (131, 140)-(136, 135), 15
LINE (136, 135)-(155, 135), 15
PAINT (137, 136), 15
LINE (140, 170)-(150, 160), 0, BF
COLOR 15
INPUT "YOU SEE A BAKERY AHEAD.DO YOU CHOOSE TO GO ON/BAKERY(G)(B)"; F$
IF F$ = "B" THEN GOTO 6
IF F$ = "G" THEN GOTO SC11:
RETURN

SC10:
CLS
COLOR 15, 0
LET A = A
PRINT "ACCOUNT:"; A
LINE (20, 120)-(80, 180), 1, BF
LINE (20, 120)-(30, 105), 6
LINE (80, 120)-(70, 105), 6
LINE (30, 105)-(70, 105), 6
LINE (80, 120)-(20, 120), 6
PAINT (25, 119), 6
LINE (40, 180)-(60, 160), 6, BF
LOCATE 17, 4
PRINT "BAKERY"
LOCATE 10, 20
PRINT "GOODIES:"
LOCATE 11, 20
PRINT "(1)BREAD..$1.00"
LOCATE 12, 20
PRINT "(2) 5 DONUTS..$1.25"
LOCATE 13, 20
PRINT "(3)WATER..$3 (2GAL)"
LOCATE 14, 20
PRINT "  QUIT"
LOCATE 2, 1
PRINT "YOU CAN ENTER [2] ITEMS NOW OR [1] ITEM AND THEN ENTER QUIT(5) IF NOT BUYING AN ITEM THEN ENTER(5,5)"
INPUT "WHAT WOULD YOU LIKE TO BUY"; M, N
IF M = 1 THEN A = A - 1
IF N = 1 THEN A = A - 1
IF M = 2 THEN A = A - 1.25
IF N = 2 THEN A = A - 1.25
IF M = 3 THEN A = A - 3
IF N = 3 THEN A = A - 3
IF M = QUIT THEN A = A
IF N = QUIT THEN A = A

RETURN

SC11:
CLS
H = 100
CIRCLE (H + 2, 100), 12, 12
PAINT (H + 2, 100), 12
CIRCLE (H + 7, 98), 1, 14
PAINT (H + 7, 98), 1, 14
CIRCLE (H - 5, 98), 1, 14
PAINT (H - 5, 98), 1, 14
CIRCLE (H + 1, 105), 1, 0
CIRCLE (H - 2, 105), 1, 0
CIRCLE (H + 4, 105), 1, 0
LINE (H - 10, 95)-(H, 90), 1
LINE (H, 90)-(H + 5, 90), 1
LINE (H + 5, 90)-(H + 14, 95), 1
LINE (H - 10, 95)-(H + 1, 80), 1
LINE (H + 2, 80)-(H + 14, 95), 1
PAINT (H + 2, 82), 1
LINE (H, 111)-(H - 10, 115), 15
LINE (H + 5, 111)-(H + 15, 114), 15
LINE (H - 1, 111)-(H + 5, 111), 15
LINE (H - 10, 115)-(H - 15, 135), 15
LINE (H + 15, 115)-(H + 20, 135), 15
LINE (H + 20, 135)-(H + 15, 135), 15
LINE (H + 14, 135)-(H + 18, 160), 15
LINE (H + 18, 160)-(H - 10, 160), 15
LINE (H - 8, 135)-(H - 10, 160), 15
LINE (H - 9, 135)-(H - 15, 135), 15
LINE (H - 9, 136)-(H - 15, 137), 12, BF
LINE (H + 15, 136)-(H + 20, 137), 12, BF
CIRCLE (H + 3, 120), 3, 14
PAINT (H + 3, 120), 14
LINE (H, 118)-(H - 5, 112), 14
LINE (H + 6, 118)-(H + 10, 112), 14
  
LOCATE 24, 1
PRINT "YOU SEE A STRANGE MAN WALK BY... TOMMY  TAPS YOU ON THE BACK AND SAYS..."
INPUT "PRESS (G) TO GO ON"; G$
IF G$ = "G" THEN GOTO SC12:
RETURN

SC12:
CLS
REM*TOMMY*
CIRCLE (160, 100), 30, 12
PAINT (160, 100), 12, 12
CIRCLE (145, 98), 4, 0
CIRCLE (173, 98), 4, 0
CIRCLE (160, 103), 5, 0, (0 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (160, 112), 5, 0
LINE (137, 84)-(137, 70), 1
LINE (183, 70)-(183, 83), 1
LINE (183, 70)-(137, 70), 1
LINE (183, 70)-(160, 60), 1
LINE (137, 70)-(160, 60), 1
PAINT (160, 62), 1

CIRCLE (160, 100), 30, 1, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (147, 76), 1
LINE (134, 88)-(134, 97), 14
LINE (136, 86)-(136, 95), 14
LINE (138, 84)-(138, 93), 14
LINE (140, 82)-(140, 91), 14
LINE (142, 81)-(142, 89), 14
LINE (144, 80)-(144, 87), 14
LINE (146, 79)-(146, 85), 14
LINE (148, 79)-(148, 85), 14
LINE (150, 78)-(150, 85), 14
LINE (152, 77)-(152, 85), 14
LINE (154, 76)-(154, 85), 14
LINE (156, 76)-(156, 85), 14
LINE (158, 76)-(158, 85), 14
LINE (160, 76)-(160, 85), 14
LINE (162, 76)-(162, 85), 14
LINE (164, 76)-(164, 85), 14
LINE (166, 76)-(166, 85), 14
LINE (168, 77)-(168, 85), 14
LINE (170, 78)-(170, 85), 14
LINE (172, 79)-(172, 85), 14
LINE (174, 79)-(174, 85), 14
LINE (176, 80)-(176, 87), 14
LINE (178, 81)-(178, 89), 14
LINE (180, 82)-(180, 91), 14
LINE (182, 84)-(182, 93), 14
LINE (184, 86)-(184, 95), 14
LINE (186, 88)-(186, 97), 14

COLOR 2
PRINT "I SAW DELAWARE SAM IN TOWN. I WOULD GO  TO THE FOREST."
COLOR 15
LOCATE 25, 1
INPUT "GO ON/FOREST (G)(F)"; R$
IF R$ = "G" THEN GOTO SC13:  ELSE IF R$ = "F" THEN GOTO SC16:
RETURN

SC13:
CLS
H = 100
CIRCLE (H + 2, 100), 12, 12
PAINT (H + 2, 100), 12
CIRCLE (H + 7, 98), 1, 14
PAINT (H + 7, 98), 1, 14
CIRCLE (H - 5, 98), 1, 14
PAINT (H - 5, 98), 1, 14
CIRCLE (H + 1, 105), 1, 0
CIRCLE (H - 2, 105), 1, 0
CIRCLE (H + 4, 105), 1, 0
LINE (H - 10, 95)-(H, 90), 1
LINE (H, 90)-(H + 5, 90), 1
LINE (H + 5, 90)-(H + 14, 95), 1
LINE (H - 10, 95)-(H + 1, 80), 1
LINE (H + 2, 80)-(H + 14, 95), 1
PAINT (H + 2, 82), 1
LINE (H, 111)-(H - 10, 115), 15
LINE (H + 5, 111)-(H + 15, 114), 15
LINE (H - 1, 111)-(H + 5, 111), 15
LINE (H - 10, 115)-(H - 15, 135), 15
LINE (H + 15, 115)-(H + 20, 135), 15
LINE (H + 20, 135)-(H + 15, 135), 15
LINE (H + 14, 135)-(H + 18, 160), 15
LINE (H + 18, 160)-(H - 10, 160), 15
LINE (H - 8, 135)-(H - 10, 160), 15
LINE (H - 9, 135)-(H - 15, 135), 15
LINE (H - 9, 136)-(H - 15, 137), 12, BF
LINE (H + 15, 136)-(H + 20, 137), 12, BF
CIRCLE (H + 3, 120), 3, 14
PAINT (H + 3, 120), 14
LINE (H, 118)-(H - 5, 112), 14
LINE (H + 6, 118)-(H + 10, 112), 14

PRINT "THE STRANGE MAN MOVES TOWARDS YOU."
LOCATE 25, 1
INPUT "PRESS (G) TO GO ON"; G$
IF G$ = "G" THEN GOSUB SC14:
RETURN

SC14:
CLS
COLOR 1, 0
GOSUB MOVESAM
RETURN


SAM:

CIRCLE (H + 2, 100), 12, 12
PAINT (H + 2, 100), 12
CIRCLE (H + 7, 98), 1, 14
PAINT (H + 7, 98), 1, 14
CIRCLE (H - 5, 98), 1, 14
PAINT (H - 5, 98), 1, 14
CIRCLE (H + 1, 105), 1, 0
CIRCLE (H - 2, 105), 1, 0
CIRCLE (H + 4, 105), 1, 0
LINE (H - 10, 95)-(H, 90), 1
LINE (H, 90)-(H + 5, 90), 1
LINE (H + 5, 90)-(H + 14, 95), 1
LINE (H - 10, 95)-(H + 1, 80), 1
LINE (H + 2, 80)-(H + 14, 95), 1
PAINT (H + 2, 82), 1
LINE (H, 111)-(H - 10, 115), 15
LINE (H + 5, 111)-(H + 15, 114), 15
LINE (H - 1, 111)-(H + 5, 111), 15
LINE (H - 10, 115)-(H - 15, 135), 15
LINE (H + 15, 115)-(H + 20, 135), 15
LINE (H + 20, 135)-(H + 15, 135), 15
LINE (H + 14, 135)-(H + 18, 160), 15
LINE (H + 18, 160)-(H - 10, 160), 15
LINE (H - 8, 135)-(H - 10, 160), 15
LINE (H - 9, 135)-(H - 15, 135), 15
LINE (H - 9, 136)-(H - 15, 137), 12, BF
LINE (H + 15, 136)-(H + 20, 137), 12, BF
CIRCLE (H + 3, 120), 3, 14
PAINT (H + 3, 120), 14
LINE (H, 118)-(H - 5, 112), 14
LINE (H + 6, 118)-(H + 10, 112), 14
RETURN

MOVESAM:
        C = 9
        FOR H = 70 TO 300
        C = 9
        GOSUB SAM
        C = 0
        CLS
        FOR HOLD = 1 TO 40
        NEXT HOLD
        GOSUB SAM
        NEXT H
        C = 9
        GOSUB SAM
GOSUB SC15:
RETURN


 
SC15:
CLS
PRINT "IT'S DELAWARE SAM!!! HE TAKES YOU AWAY  ONCE MORE. YOU LOOSE.:"
CIRCLE (150, 100), 40, 12
PAINT (150, 100), 12
CIRCLE (130, 90), 5, 0
PAINT (130, 90), 0
CIRCLE (170, 90), 5, 0
PAINT (170, 90), 0
CIRCLE (150, 110), 10, 0
PAINT (150, 110), 0
CIRCLE (130, 90), 1, 14
CIRCLE (170, 90), 1, 14
LINE (170, 70)-(170, 60), 14
LINE (165, 68)-(165, 59), 14
LINE (160, 67)-(160, 58), 14
LINE (155, 66)-(155, 57), 14
LINE (150, 66)-(150, 57), 14
LINE (145, 66)-(145, 57), 14
LINE (140, 67)-(140, 58), 14
LINE (135, 68)-(135, 59), 14
LINE (130, 70)-(130, 60), 14


LOCATE 25, 1
COLOR 2
INPUT "WOULD YOU LIKE TO PLAY AGAIN (Y)(N)"; P$
IF P$ = "Y" THEN GOSUB SC3:  ELSE IF P$ = "N" THEN GOSUB SC2:
RETURN

SC16:
CLS
GOSUB SHOP
GOSUB GRASS
RETURN

SHOP:
CLS
COLOR 15, 0
PRINT "HELLO,MY FRIEND!!! I AM BONGO! I OWN A  SHOP WHERE PRICES ARE CHEAP!! COME WITH BONGO!! "
CIRCLE (150, 120), 50, 3
LINE (101, 111)-(199, 111), 3
PAINT (150, 105), 3
LINE (100, 121)-(200, 121), 1
CIRCLE (150, 120), 50, 1, (180 * 3.14 / 180)
PAINT (150, 123), 1
CIRCLE (150, 60), 25, 12
PAINT (150, 60), 12
CIRCLE (138, 55), 2, 0
PAINT (138, 55), 0
CIRCLE (160, 55), 2, 0
PAINT (160, 55), 0
CIRCLE (160, 55), 1, 11
CIRCLE (138, 55), 1, 11
CIRCLE (150, 63), 3, 4
PAINT (150, 63), 4
LINE (138, 70)-(141, 67), 4
CIRCLE (150, 69), 9, 4, (180 * 3.14 / 180)
LINE (161, 70)-(158, 67), 4
LINE (125, 39)-(175, 45), 3, BF
LINE (135, 39)-(165, 27), 3, BF
LINE (178, 30)-(167, 38), 2
CIRCLE (185, 28), 2, 13
PAINT (185, 28), 13
LINE (177, 26)-(182, 28), 9
LINE (177, 26)-(177, 32), 9
LINE (177, 32)-(182, 30), 9
LINE (182, 30)-(182, 28), 9
PAINT (181, 29), 9
LINE (184, 25)-(181, 22), 9
LINE (181, 22)-(189, 22), 9
LINE (189, 22)-(187, 25), 9
LINE (187, 25)-(184, 25), 9
PAINT (185, 24), 9
LINE (188, 28)-(193, 26), 9
LINE (193, 26)-(193, 32), 9
LINE (193, 32)-(188, 30), 9
LINE (188, 30)-(188, 28), 9
PAINT (189, 29), 9
LINE (184, 31)-(181, 34), 9
LINE (181, 34)-(189, 34), 9
LINE (189, 34)-(187, 31), 9
LINE (187, 31)-(184, 31), 9
PAINT (185, 32), 9
LINE (100, 120)-(200, 112), 6, BF
LINE (145, 120)-(155, 112), 14, BF
LINE (147, 119)-(147, 113), 6
LINE (180, 86)-(212, 80), 3
LINE (212, 80)-(214, 95), 3
LINE (214, 95)-(180, 100), 3
PAINT (181, 87), 3
LINE (214, 93)-(220, 83), 12, BF
LINE (85, 80)-(120, 86), 3
LINE (85, 80)-(85, 97), 3
LINE (85, 97)-(107, 100), 3
PAINT (104, 99), 3
LINE (84, 83)-(78, 93), 12, BF
LINE (123, 157)-(145, 180), 1, BF
LINE (150, 157)-(173, 180), 1, BF
LOCATE 23, 1
INPUT "(THE SO-CALLED BONGO GUY WALKS TO HIS   SHOP. DO YOU FOLLOW HIM) [Y][N]"; R$
IF R$ = "N" THEN GOSUB GRASS ELSE IF R$ = "Y" THEN GOTO 2 ELSE GOSUB SHOP
2 REM*BONGO'S SHOP"
CLS
COLOR 15, 0
LOCATE 10, 20
PRINT "(1)GUN..$5"
LOCATE 11, 20
PRINT "(2)FOOD..$7 (9LBS)"
LOCATE 12, 20
PRINT "(3)WATER..$2(50L)"
LOCATE 13, 20
PRINT "(4)QUIT"

LINE (0, 199)-(90, 120), 3, BF
LINE (90, 120)-(0, 120), 5
LINE (90, 120)-(70, 100), 5
LINE (70, 100)-(25, 100), 5
LINE (25, 100)-(0, 120), 5
PAINT (50, 110), 5
LOCATE 17, 3
PRINT "BONGO'S"
LINE (35, 199)-(60, 170), 1, BF
LOCATE 1, 1
PRINT "ACCOUNT"; A
INPUT "ENTER [1] ITEM ONLY.IF NOT PURCHASING   THEN ENTER QUIT[4]"; P
IF P = 1 THEN A = A - 5 ELSE IF P = 2 THEN A = A - 7 ELSE IF P = 3 THEN A = A - 2 ELSE IF P = 4 THEN A = A
IF P = 1 THEN GUN$ = "YES"
IF P = 1 OR 2 OR 3 OR 4 THEN GOTO GRASS
RETURN

GRASS:
REM ***GRASS***
LINE (0, 0)-(319, 199), 2, BF
REM ***RIVER***
LINE (280, 199)-(40, 0), 9
LINE (319, 160)-(130, 0), 9
PAINT (160, 50), 9, 9
REM ***R0CK 1***
LINE (140, 140)-(180, 140), 8
CIRCLE (160, 140), 20, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (160, 135), 8, 8
REM ***TREE 1***
LINE (40, 180)-(60, 199), 6, BF
LINE (10, 180)-(90, 180), 10
LINE (10, 180)-(50, 110), 10
LINE (50, 110)-(90, 180), 10
PAINT (40, 160), 10
REM ***ROCK 2***
LINE (10, 80)-(40, 80), 8
CIRCLE (25, 80), 15, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (25, 75), 8, 8
REM ***TREE 2***
LINE (75, 80)-(85, 90), 6, BF
LINE (50, 80)-(110, 80), 10
LINE (50, 80)-(80, 30), 10
LINE (110, 80)-(80, 30), 10
PAINT (80, 60), 10
REM ***TREE 3***
LINE (260, 70)-(270, 80), 6, BF
LINE (240, 70)-(290, 70), 10
LINE (265, 30)-(240, 70), 10
LINE (265, 30)-(290, 70), 10
PAINT (270, 40), 10, 10
REM ***TREE 4***
LINE (210, 180)-(220, 199), 6, BF
LINE (190, 180)-(240, 180), 10
LINE (215, 130)-(190, 180), 10
LINE (240, 180)-(215, 130), 10
PAINT (200, 170), 10, 10
REM ***ROCK 3***
LINE (210, 60)-(230, 60), 8
CIRCLE (220, 60), 10, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (220, 55), 8, 8
COLOR 15, 0
LOCATE 1, 1
PRINT "YOU ARE IN THE FOREST OF WONDER!"
INPUT "WOULD YOU LIKE TO WALK,CROSS THE RIVER  BY BOAT(IT WILL COST YOU MONEY),OR SWIM  ACROSS (W)(R)(S)"; R$
IF R$ = "W" THEN GOSUB SC17:  ELSE IF R$ = "R" THEN GOSUB SC18:  ELSE IF R$ = "S" THEN GOSUB SC19:  ELSE GOTO GRASS:

RETURN

SC17:
REM*WALK*
CLS
GOSUB VERTICAL
GOSUB HORIZONTAL
GOSUB GUN
COLOR 0, 15
RETURN


FOREST:
REM ***GRASS***
LINE (0, 0)-(319, 199), 2, BF
REM ***RIVER***
LINE (280, 199)-(40, 0), 9
LINE (319, 160)-(130, 0), 9
PAINT (160, 50), 9, 9
REM ***R0CK 1***
LINE (140, 140)-(180, 140), 8
CIRCLE (160, 140), 20, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (160, 135), 8, 8
REM ***TREE 1***
LINE (40, 180)-(60, 199), 6, BF
LINE (10, 180)-(90, 180), 10
LINE (10, 180)-(50, 110), 10
LINE (50, 110)-(90, 180), 10
PAINT (40, 160), 10
REM ***ROCK 2***
LINE (10, 80)-(40, 80), 8
CIRCLE (25, 80), 15, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (25, 75), 8, 8
REM ***TREE 2***
LINE (75, 80)-(85, 90), 6, BF
LINE (50, 80)-(110, 80), 10
LINE (50, 80)-(80, 30), 10
LINE (110, 80)-(80, 30), 10
PAINT (80, 60), 10
REM ***TREE 3***
LINE (260, 70)-(270, 80), 6, BF
LINE (240, 70)-(290, 70), 10
LINE (265, 30)-(240, 70), 10
LINE (265, 30)-(290, 70), 10
PAINT (270, 40), 10, 10
REM ***TREE 4***
LINE (210, 180)-(220, 199), 6, BF
LINE (190, 180)-(240, 180), 10
LINE (215, 130)-(190, 180), 10
LINE (240, 180)-(215, 130), 10
PAINT (200, 170), 10, 10
REM ***ROCK 3***
LINE (210, 60)-(230, 60), 8
CIRCLE (220, 60), 10, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (220, 55), 8, 8
RETURN

MAN:
REM*MAN WALKS*
CIRCLE (H, V + 57), 5, 12
PAINT (H, V + 57), 12
CIRCLE (H - 3, V + 57), 0, 1
CIRCLE (H + 3, V + 57), 0, 1
CIRCLE (H, V + 59), 0, 4
LINE (H + 3, V + 53)-(H + 3, V + 52), 14
LINE (H + 4, V + 54)-(H + 4, V + 53), 14
LINE (H + 5, V + 54)-(H + 5, V + 54), 14
LINE (H + 3, V + 52)-(H - 2, V + 52), 14
LINE (H - 2, V + 53)-(H - 2, V + 53), 14
LINE (H - 3, V + 52)-(H - 3, V + 53), 14
LINE (H - 4, V + 54)-(H - 4, V + 53), 14
LINE (H - 5, V + 54)-(H - 5, V + 54), 14
LINE (H - 2, V + 62)-(H + 2, V + 62), 12
LINE (H - 4, V + 63)-(H + 4, V + 63), 11
LINE (H - 5, V + 63)-(H - 11, V + 69), 11
LINE (H + 4, V + 63)-(H + 11, V + 69), 11
LINE (H + 11, V + 70)-(H + 7, V + 70), 11
LINE (H + 7, V + 70)-(H + 5, V + 68), 11
LINE (H + 4, V + 68)-(H + 4, V + 72), 11
LINE (H + 4, V + 72)-(H - 4, V + 72), 11
LINE (H - 4, V + 72)-(H - 4, V + 68), 11
LINE (H - 4, V + 68)-(H - 7, V + 70), 11
LINE (H - 7, V + 70)-(H - 11, V + 70), 11
PAINT (H + 7, V + 69), 11
LINE (H - 4, V + 73)-(H - 6, V + 80), 1
LINE (H - 4, V + 73)-(H + 4, V + 73), 1
LINE (H + 4, V + 73)-(H + 6, V + 80), 1
LINE (H + 6, V + 81)-(H + 3, V + 81), 1
LINE (H - 3, V + 81)-(H - 6, V + 81), 1
LINE (H - 3, V + 81)-(H - 1, V + 78), 1
LINE (H + 1, V + 78)-(H + 3, V + 81), 1
LINE (H - 1, V + 78)-(H + 1, V + 78), 1
PAINT (H, V + 76), 1
RETURN


VERTICAL:
H = 103
                C = 9
                FOR V = 178 TO 30 STEP -1
                C = 9
                GOSUB FOREST
                GOSUB MAN
                C = 0
                FOR HOLD = 1 TO 100
                NEXT HOLD
                GOSUB MAN
                NEXT V
                C = 9
                GOSUB MAN
RETURN


HORIZONTAL:
V = 30
        C = 9
        FOR H = 103 TO -5 STEP -1
        C = 9
        GOSUB FOREST
        GOSUB MAN
        C = 0
        FOR HOLD = 1 TO 100
        NEXT HOLD
        GOSUB MAN
        NEXT H
        C = 9
        GOSUB MAN
GOSUB GUN:
RETURN

GUN:
COLOR 15, 0
IF GUN$ = "YES" THEN GOTO SC20:  ELSE INPUT "A BEAR ATE YOU!!! YOU SHOULD OF BOUGHT   A GUN. WOULD YOU LIKE TO PLAY AGAIN (Y)(N)"; P$
IF P$ = "Y" THEN GOTO SC3:  ELSE IF P$ = "N" THEN GOTO SC2:
END

SC18:
CLS
GOSUB PAY
GOSUB WOODS
GOSUB RIGHTLEFT
GOSUB SC20
END

PAY:
CLS
PRINT "ACCOUNT"; A
INPUT "ARE YOU WILLING TO PAY $7 FEE,(Y)(N)"; F$
IF F$ = "Y" AND A >= 7 THEN GOTO WOODS:  ELSE IF F$ = "Y" AND A < 7 THEN INPUT "SORRY YOU DON'T HAVE ENOUGH MONEY. WOULD YOU LIKE TO WALK OR SWIM (W)(S)"; R$
IF R$ = "W" THEN GOSUB SC17
IF R$ = "S" THEN GOSUB SC19
IF F$ = "N" THEN GOSUB GRASS:  ELSE GOSUB PAY

WOODS:
REM *FOREST*
REM ***GRASS***
LINE (0, 0)-(319, 199), 2, BF
REM ***RIVER***
LINE (280, 199)-(40, 0), 9
LINE (319, 160)-(130, 0), 9
PAINT (160, 50), 9, 9
REM ***R0CK 1***
LINE (140, 140)-(180, 140), 8
CIRCLE (160, 140), 20, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (160, 135), 8, 8
REM ***TREE 1***
LINE (40, 180)-(60, 199), 6, BF
LINE (10, 180)-(90, 180), 10
LINE (10, 180)-(50, 110), 10
LINE (50, 110)-(90, 180), 10
PAINT (40, 160), 10
REM ***ROCK 2***
LINE (10, 80)-(40, 80), 8
CIRCLE (25, 80), 15, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (25, 75), 8, 8
REM ***TREE 2***
LINE (75, 80)-(85, 90), 6, BF
LINE (50, 80)-(110, 80), 10
LINE (50, 80)-(80, 30), 10
LINE (110, 80)-(80, 30), 10
PAINT (80, 60), 10
REM ***TREE 3***
LINE (260, 70)-(270, 80), 6, BF
LINE (240, 70)-(290, 70), 10
LINE (265, 30)-(240, 70), 10
LINE (265, 30)-(290, 70), 10
PAINT (270, 40), 10, 10
REM ***TREE 4***
LINE (210, 180)-(220, 199), 6, BF
LINE (190, 180)-(240, 180), 10
LINE (215, 130)-(190, 180), 10
LINE (240, 180)-(215, 130), 10
PAINT (200, 170), 10, 10
REM ***ROCK 3***
LINE (210, 60)-(230, 60), 8
CIRCLE (220, 60), 10, 8, (0 * 3.14 / 180), (180 * 3.14 / 180)
PAINT (220, 55), 8, 8
RETURN

RIGHTLEFT:
       
        FOR V = 200 TO 0 STEP -4
        C = 4
        GOSUB FOREST
        GOSUB BALL
        FOR HOLD = 1 TO 700
        NEXT HOLD
        C = 4
        GOSUB BALL
        H = V + 100
        NEXT V
        C = 4
        GOSUB BALL
RETURN

BALL:
        LINE (H - 8, V)-(H + 7, V), C
        LINE (H - 8, V)-(H - 11, V - 4), C
        LINE (H + 7, V)-(H + 10, V - 4), C
        LINE (H - 11, V - 4)-(H + 10, V - 4), C
        PAINT (H, V - 2), C
        LINE (H, V - 15)-(H, V - 5)
        LINE (H, V - 15)-(H - 5, V - 7)
        LINE (H - 4, V - 7)-(H, V - 7)
        PAINT (H - 2, V - 8)
RETURN

SC19:
CLS
COLOR 15, 0
GOSUB FALSHWATER
GOSUB DOTS
GOSUB DROWN
END

FALSHWATER:
FOR X = 1 TO 10
C = 15
CC = 11
GOSUB WATERFALL
FOR HOLD = 1 TO 5000
NEXT HOLD
C = 11
CC = 1
GOSUB WATERFALL
FOR HOLD = 1 TO 5000
NEXT HOLD
C = 15
CC = 11
FOR HOLD = 1 TO 5000
NEXT HOLD
C = 1
CC = 15
GOSUB WATERFALL
FOR HOLD = 1 TO 5000
NEXT HOLD
C = 15
CC = 11
GOSUB WATERFALL
FOR HOLD = 1 TO 5000
NEXT HOLD
NEXT X
RETURN


DOTS:
RANDOMIZE TIMER
FOR X = 1 TO 100
FOR HOLD = 1 TO 1600
NEXT HOLD
R = INT(RND * (319 - 180) + 180)
R1 = INT(RND * (199 - 170) + 170)
R3 = INT(RND * (3 - 1) + 1)
IF R3 = 1 THEN S = 11
IF R3 = 2 THEN S = 15
CIRCLE (R, R1), 3, S
PAINT (R, R1), S
NEXT X
RETURN

WATERFALL:
REM*WATERFALL
V = 300
H = 300
PAINT (1, 5), 9
CIRCLE (V, 80), 40, C, (30 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V - 30, 80), 40, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V - 60, 80), 40, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H + 2, 80), 38, CC, (30 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H - 28, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H - 58, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V - 53, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V - 23, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V + 8, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H + 13, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H - 18, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H - 48, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V - 43, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V - 13, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V + 18, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H - 38, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H - 7, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H + 23, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V + 28, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H + 33, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V + 38, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H + 43, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (V + 48, 80), 38, C, (66 * 3.14 / 180), (180 * 3.14 / 180)
CIRCLE (H + 53, 80), 38, CC, (66 * 3.14 / 180), (180 * 3.14 / 180)
LINE (V - 10, 80)-(V - 10, 200), C
LINE (H - 5, 80)-(H - 5, 200), CC
LINE (V, 80)-(V, 200), C
LINE (H + 5, 80)-(H + 5, 200), CC
LINE (V + 10, 80)-(V + 10, 200), C
LINE (H + 15, 80)-(H + 15, 200), CC
LINE (V - 100, 80)-(V - 100, 200), C
LINE (V - 70, 80)-(V - 70, 200), C
LINE (V - 40, 80)-(V - 40, 200), C
LINE (H - 96, 80)-(H - 96, 200), CC
LINE (H - 66, 80)-(H - 66, 200), CC
LINE (H - 36, 80)-(H - 36, 200), CC
LINE (V - 91, 80)-(V - 91, 200), C
LINE (V - 61, 80)-(V - 61, 200), C
LINE (V - 30, 80)-(V - 30, 200), C
LINE (H - 56, 80)-(H - 56, 200), CC
LINE (H - 86, 80)-(H - 86, 200), CC
LINE (H - 25, 80)-(H - 25, 200), CC
LINE (V - 51, 80)-(V - 51, 200), C
LINE (V - 81, 80)-(V - 81, 200), C
LINE (V - 20, 80)-(V - 20, 200), C
LINE (H - 76, 80)-(H - 76, 200), CC
LINE (H - 45, 80)-(H - 45, 200), CC
LINE (H - 15, 80)-(H - 15, 200), CC
LINE (199, 150)-(-5, 160), 2, BF
LINE (0, 161)-(199, 190), 1, BF
CIRCLE (70, 180), 15, 6, (0 * 3.14 / 180), (180 * 3.14 / 180)
LINE (54, 180)-(86, 180), 6
PAINT (56, 179), 6
CIRCLE (20, 20), 10, 14
PAINT (20, 20), 14
LINE (0, 149)-(80, 50), 10
LINE (0, 149)-(199, 149), 10
LINE (199, 149)-(80, 50), 10
PAINT (80, 60), 10
LINE (169, 70)-(135, 100), 10
LINE (169, 70)-(199, 100), 10
LINE (199, 100)-(199, 149), 10
PAINT (197, 145), 10
LINE (50, 100)-(25, 80), 10
LINE (25, 80)-(0, 100), 10
PAINT (3, 99), 10
LINE (120, 149)-(125, 130), 6, BF
CIRCLE (115, 130), 6, 2
PAINT (115, 130), 2
CIRCLE (113, 125), 6, 2
PAINT (113, 123), 2
CIRCLE (125, 130), 6, 2
PAINT (125, 130), 2
CIRCLE (120, 122), 6, 2
PAINT (120, 122), 2
CIRCLE (115, 118), 6, 2
PAINT (115, 118), 2
CIRCLE (123, 116), 6, 2
PAINT (123, 116), 2
CIRCLE (130, 122), 6, 2
PAINT (130, 122), 2
CIRCLE (130, 127), 6, 2
PAINT (133, 127), 2


RETURN

DROWN:
PRINT "THE WATER IS TOO RAPID. YOU DROWN!!"
LOCATE 25, 1
COLOR 2
INPUT "WOULD YOU LIKE TO PLAY AGAIN (Y)(N)"; P$
IF P$ = "Y" THEN GOTO SC3:  ELSE IF P$ = "N" THEN GOTO SC2:

RETURN

SC20:
CLS
PRINT "YOU SEE PEOPLE AHEAD!!! WAIT A MINUTE,..IT'S DELAWARE SAM!!"
INPUT "DO YOU WISH TO FIGHT HIM OR HIDE TILL   HE'S GONE.(H)(F)"; G$
IF G$ = "H" THEN GOSUB SC21 ELSE IF G$ = "F" THEN GOSUB SC22 ELSE GOSUB SC20
END

SC21:
CLS
COLOR 0, 3
REM*HIDE*
LINE (10, 160)-(260, 160), 15
LINE (0, 170)-(10, 160), 15
LINE (260, 160)-(319, 195), 15
LINE (10, 160)-(10, 10), 15
LINE (10, 10)-(260, 10), 15
LINE (260, 10)-(260, 160), 15
LINE (10, 10)-(0, 0), 15
LINE (260, 10)-(319, 0), 15
LINE (1, 171)-(11, 161), 7
LINE (11, 161)-(259, 161), 7
LINE (259, 161)-(312, 193), 7
LINE (11, 161)-(259, 195), 7, BF
LINE (259, 191)-(308, 191), 7
PAINT (266, 190), 7
LINE (1, 171)-(1, 191), 7
LINE (11, 191)-(1, 191), 7
PAINT (2, 189), 7
LINE (80, 199)-(85, 150), 6, BF
LINE (85, 150)-(190, 155), 6, BF
LINE (190, 155)-(185, 199), 6, BF
CIRCLE (130, 140), 11, 1
PAINT (130, 140), 11, 1
LINE (125, 132)-(120, 130), 1
LINE (120, 130)-(140, 130), 1
LINE (140, 130)-(136, 132), 1
PAINT (135, 131), 1
PAINT (125, 131), 1
LINE (125, 129)-(120, 120), 2
LINE (130, 129)-(130, 118), 2
LINE (135, 129)-(140, 119), 2
CIRCLE (119, 119), 1, 5
PAINT (119, 119), 5
CIRCLE (117, 117), 1, 5
PAINT (117, 117), 5
CIRCLE (119, 115), 1, 5
PAINT (119, 115), 5
CIRCLE (121, 117), 1, 5
PAINT (121, 117), 5
CIRCLE (119, 117), 1, 14
PAINT (119, 117), 14
CIRCLE (130, 117), 1, 4
PAINT (130, 117), 4
CIRCLE (128, 115), 1, 4
PAINT (128, 115), 4
CIRCLE (130, 113), 1, 4
PAINT (130, 113), 4
CIRCLE (132, 115), 1, 4
PAINT (132, 115), 4
CIRCLE (130, 115), 1, 14
PAINT (130, 115), 14
CIRCLE (140, 118), 1, 5
PAINT (140, 118), 5
CIRCLE (138, 116), 1, 5
PAINT (138, 116), 5
CIRCLE (140, 114), 1, 5
PAINT (140, 114), 5
CIRCLE (142, 116), 1, 5
PAINT (142, 116), 5
CIRCLE (140, 116), 1, 14
PAINT (140, 116), 14
LINE (120, 125)-(123, 127), 2
LINE (120, 125)-(122, 126), 2
LINE (131, 125)-(133, 123), 2
LINE (133, 123)-(131, 124), 2
LINE (130, 128)-(127, 124), 2
LINE (140, 124)-(138, 126), 2
LINE (138, 126)-(136, 124), 2
LINE (20, 80)-(80, 121), 11, BF
CIRCLE (20, 91), 13, 13, (180 * 3.14 / 120), (90 * 3.14 / 180)
LINE (20, 80)-(20, 120), 13
PAINT (22, 90), 13
CIRCLE (20, 113), 10, 13, (180 * 3.14 / 120), (90 * 3.14 / 180)
PAINT (22, 112), 13
LINE (80, 80)-(80, 120), 13
CIRCLE (80, 91), 13, 13, (90 * 3.14 / 180), (270 * 3.14 / 180)
PAINT (78, 90), 13
CIRCLE (80, 113), 10, 13, (90 * 3.14 / 180), (270 * 3.14 / 180)
PAINT (78, 112), 13
REM*WINDOW*
LINE (20, 80)-(80, 84), 13, BF
LINE (30, 115)-(38, 110), 6
LINE (38, 110)-(48, 102), 6
LINE (48, 102)-(50, 106), 6
LINE (50, 106)-(51, 108), 6
LINE (51, 108)-(55, 105), 6
LINE (55, 105)-(60, 104), 6
LINE (60, 104)-(70, 110), 6
LINE (70, 110)-(70, 115), 6
LINE (70, 115)-(71, 118), 6
LINE (71, 118)-(72, 119), 6
LINE (72, 119)-(73, 121), 6
LINE (30, 115)-(29, 117), 6
LINE (29, 117)-(26, 121), 6
LINE (24, 121)-(76, 121), 6
PAINT (60, 118), 6
CIRCLE (60, 90), 5, 14
PAINT (60, 90), 14
REM*OHIO*
CIRCLE (145, 170), 6, 12
PAINT (145, 170), 12
CIRCLE (147, 171), 0, 0
LINE (149, 173)-(147, 178), 12
LINE (147, 178)-(145, 173), 12
PAINT (147, 176), 12
LINE (151, 168)-(151, 172), 14
LINE (151, 168)-(149, 166), 14
LINE (138, 167)-(138, 172), 1
LINE (138, 167)-(136, 165), 1
LINE (136, 165)-(122, 165), 1
LINE (122, 165)-(122, 173), 1
LINE (122, 173)-(138, 173), 1
PAINT (130, 172), 1
LINE (134, 173)-(138, 185), 1, BF
LINE (122, 165)-(114, 185), 8, BF
LINE (122, 185)-(107, 181), 8, BF
LINE (107, 181)-(105, 187), 9, BF
LINE (134, 185)-(140, 187), 12, BF
CIRCLE (123, 33), 7, 14
PAINT (123, 33), 14
CIRCLE (120, 30), 13, 4, (90 * 3.14 / 180), (270 * 3.14 / 260)
CIRCLE (125, 30), 13, 4, (180 * 3.14 / 95), (90 * 3.14 / 180)
LINE (107, 33)-(138, 33), 4
LINE (120, 19)-(125, 19), 4
PAINT (120, 22), 4
LINE (120, 19)-(125, 11), 4, BF
LINE (268, 163)-(292, 178), 6
LINE (268, 163)-(268, 85), 6
LINE (292, 178)-(292, 100), 6
LINE (292, 100)-(268, 85), 6
PAINT (280, 110), 6
CIRCLE (287, 140), 4, 7
PAINT (287, 140), 7
LINE (195, 160)-(200, 130), 6, BF
LINE (195, 130)-(245, 135), 6, BF
LINE (245, 135)-(240, 160), 6, BF
LINE (200, 129)-(240, 105), 8, BF
LINE (207, 110)-(232, 113), 7, BF
LINE (213, 120)-(227, 125), 7, BF
LINE (220, 105)-(220, 100), 8
LINE (220, 100)-(230, 90), 8
LINE (220, 100)-(210, 90), 8
LINE (214, 110)-(214, 113), 4
LINE (210, 110)-(210, 113), 4
LINE (218, 110)-(218, 113), 4
LINE (222, 110)-(222, 113), 4
LINE (226, 110)-(226, 113), 4
LINE (230, 110)-(230, 113), 4
COLOR 1
PRINT "         YOU ARE HIDING"
FOR HOLD = 1 TO 400000
NEXT HOLD
GOTO SC23:
RETURN

SC22:
CLS
REM*FIGHT*
REM*DELAWARE SAM*
CIRCLE (200, 80), 11, 12
PAINT (200, 80), 12
LINE (190, 75)-(186, 82), 12
LINE (186, 82)-(190, 82), 12
PAINT (188, 81), 12
CIRCLE (195, 77), .6, 0
PAINT (195, 77), 14, 0
LINE (193, 72)-(200, 60), 1
LINE (193, 72)-(208, 72), 1
LINE (208, 72)-(200, 60), 1
PAINT (195, 71), 1
LINE (190, 86)-(200, 82), 0
LINE (200, 82)-(190, 90), 0
LINE (190, 90)-(190, 86), 0
LINE (205, 90)-(214, 145), 1
LINE (214, 145)-(180, 145), 1
LINE (180, 145)-(195, 90), 1
LINE (195, 90)-(205, 90), 1
PAINT (200, 99), 1
LINE (200, 92)-(167, 82), 1
LINE (167, 82)-(160, 100), 1
LINE (160, 100)-(195, 100), 1
PAINT (180, 90), 1
LINE (160, 97)-(157, 89), 12
LINE (157, 89)-(160, 88), 12
LINE (160, 88)-(161, 84), 12
LINE (161, 84)-(166, 83), 12
LINE (166, 83)-(160, 97), 12
PAINT (160, 90), 12
REM*OHIO SMITH*
CIRCLE (65, 72), 11, 12
PAINT (65, 72), 12
CIRCLE (70, 70), .6, 0
PAINT (70, 70), 14, 0
LINE (76, 70)-(79, 75), 12
LINE (79, 75)-(76, 75), 12
PAINT (77, 74), 12
LINE (60, 63)-(70, 63), 14
LINE (60, 64)-(70, 64), 14
LINE (58, 64)-(59, 64), 14
LINE (71, 64)-(72, 64), 14
LINE (57, 65)-(59, 65), 14
LINE (67, 75)-(74, 77), 0
LINE (67, 75)-(79, 82), 0
LINE (60, 82)-(57, 110), 11
LINE (60, 82)-(71, 82), 11
LINE (75, 85)-(93, 85), 11
LINE (71, 82)-(75, 85), 11
LINE (93, 85)-(100, 90), 11
LINE (100, 90)-(80, 93), 11
LINE (80, 93)-(80, 110), 11
LINE (80, 110)-(57, 110), 11
PAINT (79, 109), 11
LINE (57, 111)-(70, 140), 1, BF
LINE (80, 111)-(89, 140), 1
LINE (89, 140)-(76, 140), 1
LINE (76, 140)-(69, 120), 1
LINE (57, 111)-(80, 111), 1
PAINT (80, 116), 1
LINE (96, 85)-(106, 86), 8
LINE (96, 85)-(97, 80), 8
LINE (97, 80)-(106, 82), 8
LINE (107, 86)-(107, 82), 8
PAINT (103, 84), 8
LINE (100, 90)-(95, 85), 12
LINE (100, 90)-(103, 87), 12
LINE (103, 87)-(101, 86), 12
LINE (101, 86)-(100, 84), 12
LINE (100, 84)-(100, 84), 12
LINE (100, 84)-(95, 85), 12
PAINT (99, 86), 12
LINE (99, 80)-(99, 55), 7
LINE (99, 55)-(102, 49), 7
LINE (102, 49)-(104, 55), 7
LINE (105, 55)-(105, 81), 7
LINE (105, 81)-(99, 80), 7
PAINT (100, 79), 7
FOR X = 1 TO 25
GOSUB FLASHBALL
NEXT X
GOSUB REST
END

FLASHBALL:
CC = 8
C = 0
GOSUB BALL1
FOR HOLD = 1 TO 10000
NEXT HOLD
CC = 0
C = 7
GOSUB BALL1
CC = 8
C = 0
FOR HOLD = 1 TO 10000
NEXT HOLD
RETURN

BALL1:
REM*MOVEMENT*
H = 40
V = 90
LINE (H + 106, V + 8)-(H + 103, V + 4), CC
LINE (H + 103, V + 4)-(H + 114, V), CC
LINE (H + 114, V)-(H + 116, V + 6), CC
LINE (H + 116, V + 6)-(H + 106, V + 8), CC
PAINT (H + 107, V + 7), CC
LINE (H + 105, V + 2)-(H + 95, V - 23), CC
LINE (H + 95, V - 23)-(H + 95, V - 30), CC
LINE (H + 95, V - 30)-(H + 100, V - 27), CC
LINE (H + 100, V - 27)-(H + 111, V), CC
LINE (H + 111, V)-(H + 105, V + 2), CC
PAINT (H + 107, V), CC
LINE (156, 88)-(153, 84), C
LINE (153, 84)-(164, 80), C
LINE (164, 80)-(166, 86), C
LINE (166, 86)-(156, 88), C
PAINT (157, 87), C
LINE (155, 82)-(145, 57), C
LINE (145, 57)-(145, 50), C
LINE (145, 50)-(150, 53), C
LINE (150, 53)-(161, 80), C
LINE (161, 80)-(155, 82), C
PAINT (157, 80), C
V = 57
H = 115
LINE (H - 4, V + 35)-(H + 6, V + 36), CC
LINE (H - 4, V + 35)-(H - 3, V + 30), CC
LINE (H - 3, V + 30)-(H + 6, V + 32), CC
LINE (H + 7, V + 36)-(H + 7, V + 32), CC
PAINT (H + 3, V + 34), CC
LINE (H - 1, V + 30)-(H - 1, V + 5), CC
LINE (H - 1, V + 5)-(H + 2, V - 1), CC
LINE (H + 2, V - 1)-(H + 4, V + 5), CC
LINE (H + 5, V + 5)-(H + 5, V + 31), CC
LINE (H + 5, V + 31)-(H - 1, V + 30), CC
PAINT (H, V + 29), CC
LINE (96, 85)-(106, 86), C
LINE (96, 85)-(97, 80), C
LINE (97, 80)-(106, 82), C
LINE (107, 86)-(107, 82), C
PAINT (103, 84), C
LINE (99, 80)-(99, 55), C
LINE (99, 55)-(102, 49), C
LINE (102, 49)-(104, 55), C
LINE (105, 55)-(105, 81), C
LINE (105, 81)-(99, 80), C
PAINT (100, 79), C



RETURN
 


REST:
PRINT "DELAWARE IS TOO STRONG!!!"
INPUT "DO YOU WISH TO HIDE OR KEEP FIGHTING (H)(F) "; F$
IF F$ = "F" THEN GOTO SC24:
IF F$ = "H" THEN GOTO SC21:  ELSE GOTO SC22:
RETURN

SC23:
CLS
COLOR 15, 0
CIRCLE (105, 95), 20, 12
PAINT (105, 95), 12
CIRCLE (95, 92), 1, 0
PAINT (95, 92), 11, 0
CIRCLE (113, 92), 1, 0
PAINT (113, 92), 11, 0
CIRCLE (105, 101), 6, 4, (180 * 3.14 / 180)
CIRCLE (105, 99), 0, 4
LINE (86, 83)-(124, 83), 6
LINE (86, 83)-(86, 80), 6
LINE (124, 83)-(124, 80), 6
LINE (124, 80)-(86, 80), 6
PAINT (122, 81), 6
LINE (90, 79)-(92, 74), 6
LINE (120, 79)-(117, 74), 6
LINE (92, 74)-(117, 74), 6
PAINT (110, 76), 6
CIRCLE (75, 105), 10, 12
PAINT (75, 105), 12
CIRCLE (70, 104), 0, 0
CIRCLE (80, 104), 0, 0
CIRCLE (75, 107), 4, 4, (180 * 3.14 / 180)
CIRCLE (75, 109), 1.5, 0
PAINT (75, 109), 3, 0
CIRCLE (75, 111), 3, 0
LINE (74, 95)-(74, 96), 14
CIRCLE (145, 100), 20, 14
LINE (125, 105)-(165, 120), 0, BF
LINE (125, 104)-(165, 104), 14
PAINT (145, 100), 14
CIRCLE (74, 93), 2, 14, (180 * 3.14 / 180), (90 * 3.14 / 50)
CIRCLE (145, 100), 15, 12
PAINT (145, 100), 12
CIRCLE (136, 98), 1, 0
PAINT (136, 98), 2, 0
CIRCLE (152, 98), 1, 0
PAINT (152, 98), 2, 0
CIRCLE (145, 102), 0, 4
CIRCLE (145, 104), 6, 4, (180 * 3.14 / 180)
CIRCLE (116, 125), 11, 12
PAINT (116, 125), 12
CIRCLE (110, 123), 0, 0
CIRCLE (120, 123), 0, 0
CIRCLE (116, 127), 5, 4, (180 * 3.14 / 180)
CIRCLE (116, 126), 0, 4
LINE (113, 116)-(119, 116), 14
LINE (111, 117)-(121, 117), 14
LINE (108, 118)-(124, 118), 14
LINE (107, 119)-(125, 119), 14
LOCATE 1, 1
INPUT "DELAWARE HAS LEFT TOWN... YOU HAVE      FINISHED YOUR LONG JOURNEY HOME.YOU     FOUND YOUR FAMILY AND ARE REUNITED AGAIN!!!YOU HAVE BEAT THE GAME!!! WOULD YOU  LIKE TO PLAY AGAIN (Y)(N)"; R$
IF R$ = "Y" THEN GOTO SC3:  ELSE IF R$ = "N" THEN GOTO SC2:  ELSE GOTO SC23:
RETURN

SC24:
CLS
PRINT "DELAWARE SAM WAS TOO STRONG.SORRY YOU   HAVE LOST THE GAME."
COLOR 7, 0
CIRCLE (140, 100), 40, 8, (14 * 3.14 / 180), (165 * 3.14 / 180)
LINE (102, 92)-(178, 92), 8
PAINT (140, 80), 8
LINE (102, 92)-(178, 150), 8, BF
LINE (84, 150)-(195, 150), 2
LINE (84, 150)-(70, 160), 2
LINE (195, 150)-(205, 160), 2
LINE (40, 160)-(240, 160), 2
PAINT (190, 155), 2
LOCATE 11, 17.4
PRINT "IN"
LOCATE 12, 15
PRINT "MEMORY"
LOCATE 13, 17.4
PRINT "OF"
LOCATE 16, 16
PRINT "OHIO"
LOCATE 17, 15.4
PRINT "SMITH"

LOCATE 24, 1
INPUT "WOULD YOU LIKE TO PLAY AGAIN (Y)(N)"; R$
IF R$ = "Y" THEN GOTO SC3:  ELSE IF R$ = "N" THEN GOTO SC2:  ELSE GOTO SC24:
RETURN