CLS
SCREEN 7
PSET (70, 40), 4
DRAW "R20D50G20L30U15R20E10U45"
PAINT (75, 45), 4
PSET (100, 40), 4
DRAW "D70R15U20R20D20R15U35L15U20L20D20R35U35L50"
PAINT (105, 45), 4
PSET (160, 40), 4
DRAW "D70R15U3E3U3E3U3E3U3E3F3D3F3D3F3D3F3D3R15U70L15D40H12G12U40L15"
PAINT (165, 45), 4
PSET (225, 40), 4
DRAW "R50D15L35D13R35D42L50U15R35U13L35U42"
PAINT (230, 45), 4
PLAY "O2T70AA+AA+T100AA+T150AA+T200AA+AA+AA+T230AA+AA+T250AA+AA+AA+O1GG+"
50 CLS
LOCATE 8, 12: COLOR 4: PRINT "BOB'S JAWS GAME!!"
LOCATE 11, 12: COLOR 4: PRINT "1. PLAY THE GAME"
LOCATE 13, 12: COLOR 4: PRINT "2. CAST OF CHARACTERS"
LOCATE 15, 12: COLOR 4: PRINT "3. END"
LOCATE 18, 12: COLOR 4: INPUT "WHICH ONE"; A
ON A GOTO 150, 250, 350
150 CLS
CIRCLE (77, 37), 4, 4
PAINT (77, 37), 4
CIRCLE (123, 37), 4, 4
PAINT (123, 37), 4
CIRCLE (100, 52), 50, 1, , 3.14, 2
PSET (75, 52), 1
DRAW "R50"
PAINT (100, 37), 9, 1
CIRCLE (100, 52), 20, 1, , 3.14, 2
CIRCLE (100, 52), 30, 0, , 3.14, 2
CIRCLE (100, 52), 21, 0, , 3.14, 2
PSET (75, 52), 0
DRAW "R50"
PAINT (100, 30), 0
PSET (85, 51), 15
DRAW "E2H2D3"
PSET (86, 49), 15
PSET (90, 48), 15
DRAW "H2E2D3"
PSET (89, 46), 15
PSET (85, 45), 15
DRAW "E2H2D3"
PSET (86, 43), 15
PSET (92, 42), 15
DRAW "U1L1U1L1R1U1R1U1D4"
PSET (115, 51), 15
DRAW "H2E2D3"
PSET (114, 49), 15
PSET (110, 48), 15
DRAW "E2H2D3"
PSET (111, 46), 15
PSET (115, 45), 15
DRAW "H2E2D3"
PSET (114, 43), 15
PSET (108, 42), 15
DRAW "U1R1U1R1L1U1L1U1D4"
PSET (85, 39), 15
DRAW "E1R1E1H1L1G1D2"
PAINT (86, 37), 15
PSET (115, 39), 15
DRAW "H1L1H1E1R1F1D2"
PAINT (114, 37), 15
PSET (87, 35), 15
PSET (113, 35), 15
PSET (88, 33), 15
DRAW "E1R1E1H1L1G1D2"
PAINT (89, 31), 15
PSET (90, 29), 15
PSET (112, 33), 15
DRAW "H1L1H1E1R1F1D2"
PAINT (111, 31), 15
PSET (110, 29), 15
PSET (92, 26), 15
DRAW "R1F1R1U4G3"
PAINT (94, 25), 15
PSET (108, 26), 15
DRAW "L1G1L1U4F3"
PAINT (106, 25), 15
PSET (97, 22), 15
DRAW "F3E3L5"
PAINT (100, 23), 15
PSET (93, 36), 15
DRAW "U3R3G3"
PSET (94, 34), 15
PSET (107, 36), 15
DRAW "U3L3F3"
PSET (106, 34), 15
PSET (97, 32), 15
DRAW "E3F3L5"
PAINT (100, 31), 15
DIM JAWS(3000)
REM LINE (58, 0)-(142, 53), 10, B
GET (58, 0)-(142, 53), JAWS
CLS
PSET (100, 100), 7
DRAW "U15L2E3F3L2D15L2"
PAINT (101, 99), 7
DIM SPEAR(1000)
REM LINE (95, 70)-(107, 112), 10, B
GET (95, 70)-(107, 112), SPEAR
CLS
PSET (100, 100), 9
DRAW "F15R50E15L80"
PAINT (110, 102), 9
PSET (137, 99), 6
DRAW "U28R1D28L1"
PSET (143, 99), 6
DRAW "U40R1D40L1"
PSET (136, 73), 15
DRAW "G3L1G3L1G3L1G3L1G3L1G3L1G3L1G3R31U23"
PAINT (130, 80), 15
PSET (145, 61), 15
DRAW "F36L36U36"
PAINT (150, 75), 15
DIM BOAT(1000)
REM LINE (90, 55)-(191, 120), 10, B
GET (90, 55)-(191, 120), BOAT
CLS
6 PAINT (100, 100), 1
CIRCLE (20, 20), 7, 9, , 3.14, .5
CIRCLE (34, 20), 7, 9, 3.14, , .5
CIRCLE (48, 20), 7, 9, , 3.14, .5
CIRCLE (62, 20), 7, 9, 3.14, , .5
CIRCLE (76, 20), 7, 9, , 3.14, .5
CIRCLE (90, 20), 7, 9, 3.14, , .5
CIRCLE (104, 20), 7, 9, , 3.14, .5
CIRCLE (118, 20), 7, 9, 3.14, , .5
CIRCLE (132, 20), 7, 9, , 3.14, .5
CIRCLE (146, 20), 7, 9, 3.14, , .5
CIRCLE (160, 20), 7, 9, , 3.14, .5
CIRCLE (174, 20), 7, 9, 3.14, , .5
CIRCLE (188, 20), 7, 9, , 3.14, .5
CIRCLE (202, 20), 7, 9, 3.14, , .5
CIRCLE (216, 20), 7, 9, , 3.14, .5
CIRCLE (230, 20), 7, 9, 3.14, , .5
CIRCLE (244, 20), 7, 9, , 3.14, .5
CIRCLE (258, 20), 7, 9, 3.14, , .5
CIRCLE (272, 20), 7, 9, , 3.14, .5
CIRCLE (286, 20), 7, 9, 3.14, , .5
CIRCLE (300, 20), 7, 9, , 3.14, .5
CIRCLE (20, 40), 7, 9, , 3.14, .5
CIRCLE (34, 40), 7, 9, 3.14, , .5
CIRCLE (48, 40), 7, 9, , 3.14, .5
CIRCLE (62, 40), 7, 9, 3.14, , .5
CIRCLE (76, 40), 7, 9, , 3.14, .5
CIRCLE (90, 40), 7, 9, 3.14, , .5
CIRCLE (104, 40), 7, 9, , 3.14, .5
CIRCLE (118, 40), 7, 9, 3.14, , .5
CIRCLE (132, 40), 7, 9, , 3.14, .5
CIRCLE (146, 40), 7, 9, 3.14, , .5
CIRCLE (160, 40), 7, 9, , 3.14, .5
CIRCLE (174, 40), 7, 9, 3.14, , .5
CIRCLE (188, 40), 7, 9, , 3.14, .5
CIRCLE (202, 40), 7, 9, 3.14, , .5
CIRCLE (216, 40), 7, 9, , 3.14, .5
CIRCLE (230, 40), 7, 9, 3.14, , .5
CIRCLE (244, 40), 7, 9, , 3.14, .5
CIRCLE (258, 40), 7, 9, 3.14, , .5
CIRCLE (272, 40), 7, 9, , 3.14, .5
CIRCLE (286, 40), 7, 9, 3.14, , .5
CIRCLE (300, 40), 7, 9, , 3.14, .5
CIRCLE (20, 60), 7, 9, , 3.14, .5
CIRCLE (34, 60), 7, 9, 3.14, , .5
CIRCLE (48, 60), 7, 9, , 3.14, .5
CIRCLE (62, 60), 7, 9, 3.14, , .5
CIRCLE (76, 60), 7, 9, , 3.14, .5
CIRCLE (90, 60), 7, 9, 3.14, , .5
CIRCLE (104, 60), 7, 9, , 3.14, .5
CIRCLE (118, 60), 7, 9, 3.14, , .5
CIRCLE (132, 60), 7, 9, , 3.14, .5
CIRCLE (146, 60), 7, 9, 3.14, , .5
CIRCLE (160, 60), 7, 9, , 3.14, .5
CIRCLE (174, 60), 7, 9, 3.14, , .5
CIRCLE (188, 60), 7, 9, , 3.14, .5
CIRCLE (202, 60), 7, 9, 3.14, , .5
CIRCLE (216, 60), 7, 9, , 3.14, .5
CIRCLE (230, 60), 7, 9, 3.14, , .5
CIRCLE (244, 60), 7, 9, , 3.14, .5
CIRCLE (258, 60), 7, 9, 3.14, , .5
CIRCLE (272, 60), 7, 9, , 3.14, .5
CIRCLE (286, 60), 7, 9, 3.14, , .5
CIRCLE (300, 60), 7, 9, , 3.14, .5
CIRCLE (20, 80), 7, 9, , 3.14, .5
CIRCLE (34, 80), 7, 9, 3.14, , .5
CIRCLE (48, 80), 7, 9, , 3.14, .5
CIRCLE (62, 80), 7, 9, 3.14, , .5
CIRCLE (76, 80), 7, 9, , 3.14, .5
CIRCLE (90, 80), 7, 9, 3.14, , .5
CIRCLE (104, 80), 7, 9, , 3.14, .5
CIRCLE (118, 80), 7, 9, 3.14, , .5
CIRCLE (132, 80), 7, 9, , 3.14, .5
CIRCLE (146, 80), 7, 9, 3.14, , .5
CIRCLE (160, 80), 7, 9, , 3.14, .5
CIRCLE (174, 80), 7, 9, 3.14, , .5
CIRCLE (188, 80), 7, 9, , 3.14, .5
CIRCLE (202, 80), 7, 9, 3.14, , .5
CIRCLE (216, 80), 7, 9, , 3.14, .5
CIRCLE (230, 80), 7, 9, 3.14, , .5
CIRCLE (244, 80), 7, 9, , 3.14, .5
CIRCLE (258, 80), 7, 9, 3.14, , .5
CIRCLE (272, 80), 7, 9, , 3.14, .5
CIRCLE (286, 80), 7, 9, 3.14, , .5
CIRCLE (300, 80), 7, 9, , 3.14, .5
CIRCLE (20, 100), 7, 9, , 3.14, .5
CIRCLE (34, 100), 7, 9, 3.14, , .5
CIRCLE (48, 100), 7, 9, , 3.14, .5
CIRCLE (62, 100), 7, 9, 3.14, , .5
CIRCLE (76, 100), 7, 9, , 3.14, .5
CIRCLE (90, 100), 7, 9, 3.14, , .5
CIRCLE (104, 100), 7, 9, , 3.14, .5
CIRCLE (118, 100), 7, 9, 3.14, , .5
CIRCLE (132, 100), 7, 9, , 3.14, .5
CIRCLE (146, 100), 7, 9, 3.14, , .5
CIRCLE (160, 100), 7, 9, , 3.14, .5
CIRCLE (174, 100), 7, 9, 3.14, , .5
CIRCLE (188, 100), 7, 9, , 3.14, .5
CIRCLE (202, 100), 7, 9, 3.14, , .5
CIRCLE (216, 100), 7, 9, , 3.14, .5
CIRCLE (230, 100), 7, 9, 3.14, , .5
CIRCLE (244, 100), 7, 9, , 3.14, .5
CIRCLE (258, 100), 7, 9, 3.14, , .5
CIRCLE (272, 100), 7, 9, , 3.14, .5
CIRCLE (286, 100), 7, 9, 3.14, , .5
CIRCLE (300, 100), 7, 9, , 3.14, .5
CIRCLE (20, 120), 7, 9, , 3.14, .5
CIRCLE (34, 120), 7, 9, 3.14, , .5
CIRCLE (48, 120), 7, 9, , 3.14, .5
CIRCLE (62, 120), 7, 9, 3.14, , .5
CIRCLE (76, 120), 7, 9, , 3.14, .5
CIRCLE (90, 120), 7, 9, 3.14, , .5
CIRCLE (104, 120), 7, 9, , 3.14, .5
CIRCLE (118, 120), 7, 9, 3.14, , .5
CIRCLE (132, 120), 7, 9, , 3.14, .5
CIRCLE (146, 120), 7, 9, 3.14, , .5
CIRCLE (160, 120), 7, 9, , 3.14, .5
CIRCLE (174, 120), 7, 9, 3.14, , .5
CIRCLE (188, 120), 7, 9, , 3.14, .5
CIRCLE (202, 120), 7, 9, 3.14, , .5
CIRCLE (216, 120), 7, 9, , 3.14, .5
CIRCLE (230, 120), 7, 9, 3.14, , .5
CIRCLE (244, 120), 7, 9, , 3.14, .5
CIRCLE (258, 120), 7, 9, 3.14, , .5
CIRCLE (272, 120), 7, 9, , 3.14, .5
CIRCLE (286, 120), 7, 9, 3.14, , .5
CIRCLE (300, 120), 7, 9, , 3.14, .5
CIRCLE (20, 140), 7, 9, , 3.14, .5
CIRCLE (34, 140), 7, 9, 3.14, , .5
CIRCLE (48, 140), 7, 9, , 3.14, .5
CIRCLE (62, 140), 7, 9, 3.14, , .5
CIRCLE (76, 140), 7, 9, , 3.14, .5
CIRCLE (90, 140), 7, 9, 3.14, , .5
CIRCLE (104, 140), 7, 9, , 3.14, .5
CIRCLE (118, 140), 7, 9, 3.14, , .5
CIRCLE (132, 140), 7, 9, , 3.14, .5
CIRCLE (146, 140), 7, 9, 3.14, , .5
CIRCLE (160, 140), 7, 9, , 3.14, .5
CIRCLE (174, 140), 7, 9, 3.14, , .5
CIRCLE (188, 140), 7, 9, , 3.14, .5
CIRCLE (202, 140), 7, 9, 3.14, , .5
CIRCLE (216, 140), 7, 9, , 3.14, .5
CIRCLE (230, 140), 7, 9, 3.14, , .5
CIRCLE (244, 140), 7, 9, , 3.14, .5
CIRCLE (258, 140), 7, 9, 3.14, , .5
CIRCLE (272, 140), 7, 9, , 3.14, .5
CIRCLE (286, 140), 7, 9, 3.14, , .5
CIRCLE (300, 140), 7, 9, , 3.14, .5
CIRCLE (20, 160), 7, 9, , 3.14, .5
CIRCLE (34, 160), 7, 9, 3.14, , .5
CIRCLE (48, 160), 7, 9, , 3.14, .5
CIRCLE (62, 160), 7, 9, 3.14, , .5
CIRCLE (76, 160), 7, 9, , 3.14, .5
CIRCLE (90, 160), 7, 9, 3.14, , .5
CIRCLE (104, 160), 7, 9, , 3.14, .5
CIRCLE (118, 160), 7, 9, 3.14, , .5
CIRCLE (132, 160), 7, 9, , 3.14, .5
CIRCLE (146, 160), 7, 9, 3.14, , .5
CIRCLE (160, 160), 7, 9, , 3.14, .5
CIRCLE (174, 160), 7, 9, 3.14, , .5
CIRCLE (188, 160), 7, 9, , 3.14, .5
CIRCLE (202, 160), 7, 9, 3.14, , .5
CIRCLE (216, 160), 7, 9, , 3.14, .5
CIRCLE (230, 160), 7, 9, 3.14, , .5
CIRCLE (244, 160), 7, 9, , 3.14, .5
CIRCLE (258, 160), 7, 9, 3.14, , .5
CIRCLE (272, 160), 7, 9, , 3.14, .5
CIRCLE (286, 160), 7, 9, 3.14, , .5
CIRCLE (300, 160), 7, 9, , 3.14, .5
CIRCLE (20, 180), 7, 9, , 3.14, .5
CIRCLE (34, 180), 7, 9, 3.14, , .5
CIRCLE (48, 180), 7, 9, , 3.14, .5
CIRCLE (62, 180), 7, 9, 3.14, , .5
CIRCLE (76, 180), 7, 9, , 3.14, .5
CIRCLE (90, 180), 7, 9, 3.14, , .5
CIRCLE (104, 180), 7, 9, , 3.14, .5
CIRCLE (118, 180), 7, 9, 3.14, , .5
CIRCLE (132, 180), 7, 9, , 3.14, .5
CIRCLE (146, 180), 7, 9, 3.14, , .5
CIRCLE (160, 180), 7, 9, , 3.14, .5
CIRCLE (174, 180), 7, 9, 3.14, , .5
CIRCLE (188, 180), 7, 9, , 3.14, .5
CIRCLE (202, 180), 7, 9, 3.14, , .5
CIRCLE (216, 180), 7, 9, , 3.14, .5
CIRCLE (230, 180), 7, 9, 3.14, , .5
CIRCLE (244, 180), 7, 9, , 3.14, .5
CIRCLE (258, 180), 7, 9, 3.14, , .5
CIRCLE (272, 180), 7, 9, , 3.14, .5
CIRCLE (286, 180), 7, 9, 3.14, , .5
CIRCLE (300, 180), 7, 9, , 3.14, .5
PUT (5, 130), BOAT, XOR
X = 5: A = 0: B = 1
LOCATE 23, 35: PRINT S
10 A = A + B
IF A < 1 THEN B = -B
IF A > 220 THEN B = -B
PUT (A, 5), JAWS, XOR
PUT (A, 5), JAWS, XOR
A$ = INKEY$
T = T + 1
LOCATE 23, 26: PRINT T
IF T > 3000 THEN 300
IF A$ = "" THEN 10
IF ASC(RIGHT$(A$, 1)) = 75 THEN PUT (X, 130), BOAT, XOR: X = X - 5: PUT (X, 130), BOAT, XOR
IF ASC(RIGHT$(A$, 1)) = 77 THEN PUT (X, 130), BOAT, XOR: X = X + 5: PUT (X, 130), BOAT, XOR
IF ASC(RIGHT$(A$, 1)) = 32 THEN 100
IF X < 5 THEN X = 5: PUT (0, 130), BOAT, XOR: PUT (0, 130), BOAT, XOR
IF X > 200 THEN X = 200: PUT (130, 130), BOAT, XOR: PUT (130, 130), BOAT, XOR
GOTO 10
100 FOR D = 140 TO 30 STEP -2
PUT (X + 50, D), SPEAR, XOR
PUT (X + 50, D), SPEAR, XOR
NEXT D
IF X + 50 > A AND X + 50 < A + 60 THEN 200 ELSE 10
200 FOR Z = 1 TO 350
CIRCLE (A + 40, 30), Z, 4
NEXT Z
FOR M = 1 TO 50000: NEXT M
S = S + 1
CLS
GOTO 6
300 CLS
INPUT "WHAT IS YOUR NAME"; N$
OPEN "R", 1, "SCORE", 22
FIELD 1, 20 AS N$, 2 AS S$
Y = 1
305 GET 1, Y
B$ = N$: B$ = LEFT$(B$, 1): IF B$ < "A" OR B$ > "z" THEN 310 ELSE X = X + 1: GOTO 305
310 LSET N$ = N1$: LSET S$ = MKI$(S1)
PUT 1, Y
CLOSE : T = 0: S = 0
CLS : GOTO 50
250 CLS
CIRCLE (77, 37), 4, 4
PAINT (77, 37), 4
CIRCLE (123, 37), 4, 4
PAINT (123, 37), 4
CIRCLE (100, 52), 50, 1, , 3.14, 2
PSET (75, 52), 1
DRAW "R50"
PAINT (100, 37), 9, 1
CIRCLE (100, 52), 20, 1, , 3.14, 2
CIRCLE (100, 52), 30, 0, , 3.14, 2
CIRCLE (100, 52), 21, 0, , 3.14, 2
PSET (75, 52), 0
DRAW "R50"
PAINT (100, 30), 0
PSET (85, 51), 15
DRAW "E2H2D3"
PSET (86, 49), 15
PSET (90, 48), 15
DRAW "H2E2D3"
PSET (89, 46), 15
PSET (85, 45), 15
DRAW "E2H2D3"
PSET (86, 43), 15
PSET (92, 42), 15
DRAW "U1L1U1L1R1U1R1U1D4"
PSET (115, 51), 15
DRAW "H2E2D3"
PSET (114, 49), 15
PSET (110, 48), 15
DRAW "E2H2D3"
PSET (111, 46), 15
PSET (115, 45), 15
DRAW "H2E2D3"
PSET (114, 43), 15
PSET (108, 42), 15
DRAW "U1R1U1R1L1U1L1U1D4"
PSET (85, 39), 15
DRAW "E1R1E1H1L1G1D2"
PAINT (86, 37), 15
PSET (115, 39), 15
DRAW "H1L1H1E1R1F1D2"
PAINT (114, 37), 15
PSET (87, 35), 15
PSET (113, 35), 15
PSET (88, 33), 15
DRAW "E1R1E1H1L1G1D2"
PAINT (89, 31), 15
PSET (90, 29), 15
PSET (112, 33), 15
DRAW "H1L1H1E1R1F1D2"
PAINT (111, 31), 15
PSET (110, 29), 15
PSET (92, 26), 15
DRAW "R1F1R1U4G3"
PAINT (94, 25), 15
PSET (108, 26), 15
DRAW "L1G1L1U4F3"
PAINT (106, 25), 15
PSET (97, 22), 15
DRAW "F3E3L5"
PAINT (100, 23), 15
PSET (93, 36), 15
DRAW "U3R3G3"
PSET (94, 34), 15
PSET (107, 36), 15
DRAW "U3L3F3"
PSET (106, 34), 15
PSET (97, 32), 15
DRAW "E3F3L5"
PAINT (100, 31), 15
DIM JAWS2(3000)
REM LINE (58, 0)-(142, 53), 10, B
GET (58, 0)-(142, 53), JAWS
CLS
PSET (100, 100), 7
DRAW "U15L2E3F3L2D15L2"
PAINT (101, 99), 7
DIM SPEAR2(1000)
REM LINE (95, 70)-(107, 112), 10, B
GET (95, 70)-(107, 112), SPEAR
CLS
PSET (100, 100), 9
DRAW "F15R50E15L80"
PAINT (110, 102), 9
PSET (137, 99), 6
DRAW "U28R1D28L1"
PSET (143, 99), 6
DRAW "U40R1D40L1"
PSET (136, 73), 15
DRAW "G3L1G3L1G3L1G3L1G3L1G3L1G3L1G3R31U23"
PAINT (130, 80), 15
PSET (145, 61), 15
DRAW "F36L36U36"
PAINT (150, 75), 15
DIM BOAT2(1000)
REM LINE (90, 55)-(191, 120), 10, B
GET (90, 55)-(191, 120), BOAT
CLS
LOCATE 1, 19: PRINT "JAWS"
PUT (120, 100), JAWS, PSET
LOCATE 25, 1: INPUT "HIT ENTER TO MOVE ON", M$
CLS
LOCATE 1, 16: PRINT "SAILBOAT"
PUT (110, 100), BOAT, PSET
LOCATE 25, 1: INPUT "HIT ENTER TO MOVE ON", M1$
CLS
LOCATE 1, 12: PRINT "THE BELOVED SPEAR"
PUT (150, 80), SPEAR, PSET
LOCATE 25, 1: INPUT "HIT ENTER TO RETURN TO MENU", M2$
CLS : GOTO 50
350 END

    Source: geocities.com/southbeach/pier/7423

               ( geocities.com/southbeach/pier)                   ( geocities.com/southbeach)