DECLARE SUB PART1SCREEN2 () : DECLARE SUB DOORCODE ()
DECLARE SUB HOLD () : DECLARE SUB OPTIONS ()
DECLARE SUB COVER () : DECLARE SUB MENU ()
DECLARE SUB LOADING () : DECLARE SUB ABOUT ()
DECLARE SUB CREDITS () : DECLARE SUB MISSIONOHIO ()
DECLARE SUB CONSTANTS () : DECLARE SUB DROPGUY ()
DECLARE SUB BRIEFING () : DECLARE SUB INVENTORY ()
DECLARE SUB STARTMISSION () : DECLARE SUB PART1SCREEN1 ()
DECLARE SUB DIRLEFT () : DECLARE SUB DIRRIGHT ()
DECLARE SUB DECISION () : DECLARE SUB PART1SCREEN3 ()
DECLARE SUB NONSENSE () : DECLARE SUB QUITER1 ()
DECLARE SUB QUITER2 () : DECLARE SUB SUSGUY ()
DECLARE SUB LOSER ()

' ***** FOLLOWING STATEMENTS MAKE VARIABLES MAINTAIN THEIR *****
' ***** VALUE WHEN JUMPING FROM SUBROUTINE TO SUBROUTINE.. *****
COMMON SHARED PI AS INTEGER, MONEY AS INTEGER, WEAPON AS STRING
COMMON SHARED ITEM1 AS STRING, ITEM2 AS STRING, ITEM3 AS STRING
COMMON SHARED ITEM4 AS STRING, ITEM5 AS STRING, op AS INTEGER
COMMON SHARED DECAN AS INTEGER, saver AS INTEGER, X2 AS INTEGER
COMMON SHARED Y2 AS INTEGER, NAMES AS STRING, UNUM AS INTEGER

' ***** SETS STACK SPACE IN ORDER TO REDUCE PROBLEMS *****
CLEAR , , 20000

' ***** DIMENSIONS ARRAYS USED IN MAIN MODULE *****
DIM SHARED RGUY2(15, 15): DIM SHARED UGUY2(15, 15)
DIM SHARED DGUY2(15, 15): DIM SHARED LGUY2(15, 15)
DIM SHARED play1a(25, 25): DIM SHARED play1b(25, 25)
DIM SHARED play2a(25, 25): DIM SHARED play2b(25, 25)
DIM SHARED play3a(25, 25): DIM SHARED play3b(25, 25)
DIM SHARED play4a(25, 25): DIM SHARED play4b(25, 25)
DIM SHARED CARGUY(70, 22)

' ***** FOLLOWING STATEMENTS SET CONSTANTS THROUGHOUT PROGRAM *****
MONEY = 30500: WEAPON = "Glock 9mm"
ITEM1 = "Blank": ITEM2 = "Blank"
ITEM3 = "Blank": ITEM4 = "Blank"
ITEM5 = "Blank": NAMES = "No Name"
UNUM = 0

' ***** FOLLOWING STATEMENTS LOAD DRAWINGS USE IN ARRAYS *****
CLS
GOSUB MENULOAD
GOSUB CARPIC


' ***** FOLLOWING STATEMENTS INITIATE PROGRAM AND MUSIC CROSSOVER *****
CLS
CALL CONSTANTS
CALL NONSENSE
  PLAY "T150 o2Mb L32D"
  PLAY "T150o2 Mb L32D+DD+DD+         DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+DD+L32DEF+ L4GG         L5A+o3C o2L4GG L5FF+ L4GG L5A+ o3C o2 L4GG L5 FF+ L10 o3A+G L1D P16 L10A+G L1D- P16 L10A+G L1C P16 o2L10B- o3C o2L4GG L5A+o3C o2L4GG L5FF+"
CALL DROPGUY
  PLAY " L16o3A+Do4L1D L16o3A+Do4L1C+ L16o3A+Do4L1C L16o3B-o4CL4C+C+ L5C+DC+"
  PLAY "P4 o4L16FL1G"
CALL LOADING
CALL MENU
CALL STARTMISSION

END                                              ' <----- SELF EXPLANATORY

' ***** FOLLOWING BLANK REM LINES DECLARE THE LINE BETWEEN LINES FOR *****
' ***** PROGRAM EXECUTION AND LINES FOR SUBROUTINES................. *****
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
' ***** THE FOLLOWING LINES LOAD THE BUTTONS USED IN SUB "MENU" INTO *****
' ***** THE APPROPRIATE ARRAYS, AND CLEAR........................... *****
MENULOAD: SCREEN 12: CLS

PI = 4 * ATN(1) ' ***** FORMULA FOR PI *****

'PLAY GAME RED
LOCATE 3, 8: PRINT "Play Game"
CIRCLE (30, 39), 10, 4, PI * .5, PI * 1.5
CIRCLE (150, 39), 10, 4, PI * 1.5, PI * .5
LINE (30, 29)-(150, 29), 4
LINE (29, 49)-(150, 49), 4
'LINE (19, 28)-(161, 50), 4, B
GET (19, 28)-(161, 50), play1a

'PLAY GAME WHITE
LOCATE 5, 8: PRINT "Play Game"
CIRCLE (30, 71), 10, 15, PI * .5, PI * 1.5
CIRCLE (150, 71), 10, 15, PI * 1.5, PI * .5
LINE (30, 61)-(150, 61), 15
LINE (29, 81)-(150, 81), 15
'LINE (19, 60)-(161, 82), 4, B
GET (19, 60)-(161, 82), play1b

'PLAY GAME RED
LOCATE 3, 34: PRINT "Options"
CIRCLE (230, 39), 10, 4, PI * .5, PI * 1.5
CIRCLE (350, 39), 10, 4, PI * 1.5, PI * .5
LINE (230, 29)-(350, 29), 4
LINE (229, 49)-(350, 49), 4
'LINE (219, 28)-(361, 50), 4, B
GET (219, 28)-(361, 50), play2a

'PLAY GAME WHITE
LOCATE 5, 34: PRINT "Options"
CIRCLE (230, 71), 10, 15, PI * .5, PI * 1.5
CIRCLE (350, 71), 10, 15, PI * 1.5, PI * .5
LINE (230, 61)-(350, 61), 15
LINE (229, 81)-(350, 81), 15
'LINE (219, 60)-(361, 82), 4, B
GET (219, 60)-(361, 82), play2b

'PLAY GAME RED
LOCATE 9, 10: PRINT "About"
CIRCLE (30, 134), 10, 4, PI * .5, PI * 1.5
CIRCLE (150, 134), 10, 4, PI * 1.5, PI * .5
LINE (30, 124)-(150, 124), 4
LINE (29, 144)-(150, 144), 4
'LINE (19, 124)-(161, 144), 4, B
GET (19, 124)-(161, 144), play3a

'PLAY GAME WHITE
LOCATE 11, 10: PRINT "About"
CIRCLE (30, 166), 10, 15, PI * .5, PI * 1.5
CIRCLE (150, 166), 10, 15, PI * 1.5, PI * .5
LINE (30, 156)-(150, 156), 15
LINE (29, 176)-(150, 176), 15
'LINE (19, 156)-(161, 176), 4, B
GET (19, 156)-(161, 178), play3b

'PLAY GAME RED
LOCATE 9, 34: PRINT "Credits"
CIRCLE (230, 134), 10, 4, PI * .5, PI * 1.5
CIRCLE (350, 134), 10, 4, PI * 1.5, PI * .5
LINE (230, 124)-(350, 124), 4
LINE (229, 144)-(350, 144), 4
'LINE (219, 124)-(361, 144), 4, B
GET (219, 124)-(361, 144), play4a

'PLAY GAME WHITE
LOCATE 11, 34: PRINT "Credits"
CIRCLE (230, 166), 10, 15, PI * .5, PI * 1.5
CIRCLE (350, 166), 10, 15, PI * 1.5, PI * .5
LINE (230, 156)-(350, 156), 15
LINE (229, 176)-(350, 176), 15
'LINE (219, 156)-(361, 176), 4, B
GET (219, 156)-(361, 178), play4b
RETURN

' ***** THE FOLLOWING LINES LOAD THE CAR DRAWING INTO THE APPROPRIATE *****
' ***** ARRAYS FOR USE IN THE SCREENS PART1SCREEN1 - PART1SCREEN3.... *****
CARPIC: CLS

COLOR 15
PSET (50, 50), 15
DRAW "c15r5c0r10c15r25"
CIRCLE (60, 50), 5, 15, PI * 1.1, PI * 2
CIRCLE (90, 55), 5, 15, PI * .15, PI * .5
PSET (95, 53), 15
DRAW "m+2,+10l6l1c0l7c15l29l1c0l7c15l5m+2,-8"
CIRCLE (87, 63), 4
CIRCLE (50, 63), 4
CIRCLE (48, 54), 4, 15, PI * .48, PI * 1.05
CIRCLE (70, 62), 6, 15, PI * .5, PI * 1.1
CIRCLE (72.5, 63.5), 5, 15, PI * .5, PI * .9
PSET (72, 59), 15
DRAW "r10m+1,-1u1m-1,-1l12r3m-3,-6 r5m+3,+6r5m-3,-6"
CIRCLE (60, 49), 4
PAINT (60, 48), 7, 15
PAINT (60, 60), 4, 15
PAINT (71, 57), 8, 15
PAINT (70, 60), 4, 15
PAINT (74, 53), 4, 15
PAINT (78, 53), 4, 15
CIRCLE (60, 49), 4, 1, PI * 0, PI * 1
PSET (60, 49), 1
DRAW "r4l12u1r12l1u1l5r1u1r3u1c15u1l3d1l2l1d2l5d2r13u3l1u1l5u1"
PAINT (87, 63), 7, 15
PAINT (50, 63), 7, 15
PAINT (1, 1), 9, 15
'LINE (35, 45)-(105, 67), 3, B
GET (35, 45)-(105, 67), CARGUY

CLS

CIRCLE (40, 37), 10, 4, , , .25
PAINT (40, 37), 4, 4
CIRCLE (40, 43), 10, 4, , , .25
PAINT (40, 43), 4, 4
LINE (30, 33)-(40, 47), 8, BF
CIRCLE (40, 40), 10, 15, , , 1.5
PAINT (40, 40), 9, 15
LINE (30, 33)-(45, 35), 8, BF
LINE (30, 45)-(45, 47), 8, BF
CIRCLE (40, 40), 5
PAINT (40, 40), 14, 15

LINE (99, 40)-(81, 50), 8, BF
CIRCLE (87, 35), 4, 4, , , 2
PAINT (87, 35), 4, 4
CIRCLE (94, 35), 4, 4, , , 2
PAINT (93, 35), 4, 4
CIRCLE (90, 40), 12, 15, , , .5
PAINT (90, 40), 9, 15
LINE (99, 50)-(97, 35), 8, BF
LINE (81, 50)-(83, 35), 8, BF
CIRCLE (90, 40), 5
PAINT (90, 40), 14, 15

x = 50
LINE (99 + x, 30)-(81 + x, 40), 8, BF
CIRCLE (87 + x, 45), 4, 4, , , 2
PAINT (87 + x, 45), 4, 4
CIRCLE (94 + x, 45), 4, 4, , , 2
PAINT (93 + x, 45), 4, 4
CIRCLE (90 + x, 40), 12, 15, , , .5
PAINT (90 + x, 40), 9, 15
LINE (99 + x, 45)-(97 + x, 35), 8, BF
LINE (81 + x, 45)-(83 + x, 35), 8, BF
CIRCLE (90 + x, 40), 5
PAINT (90 + x, 40), 14, 15

x = 150
CIRCLE (40.75 + x, 37), 10, 4, , , .25
PAINT (40.75 + x, 37), 4, 4
CIRCLE (40.75 + x, 43), 10, 4, , , .25
PAINT (40.75 + x, 43), 4, 4
LINE (40 + x, 33)-(55 + x, 47), 0, BF
LINE (40 + x, 33)-(50 + x, 47), 8, BF
CIRCLE (40 + x, 40), 10, 15, , , 1.5
PAINT (40 + x, 40), 9, 15
LINE (35 + x, 33)-(45 + x, 35), 8, BF
LINE (35 + x, 45)-(45 + x, 47), 8, BF
CIRCLE (40 + x, 40), 5
PAINT (40 + x, 40), 14, 15

GET (25, 25)-(55, 55), RGUY2: x = 50
GET (25 + x, 25)-(55 + x, 55), UGUY2: x = 100
GET (25 + x, 25)-(55 + x, 55), DGUY2: x = 150
GET (25 + x, 25)-(55 + x, 55), LGUY2
RETURN

' ***** THIS LINE IS THE ABSOLUTE LAST LINE IN THE MAIN MODULE...... *****

SUB ABOUT
CLS
SCREEN 12
LINE (0, 50)-(555, 50), 15
LINE (0, 58)-(552, 58), 15
CIRCLE (555, 65), 15, 15, PI * 0, PI * .5
CIRCLE (552, 68), 10, 15, PI * 0, PI * .5
LINE (570, 65)-(570, 400), 15
LINE (562, 69)-(562, 395), 15
CIRCLE (555, 400), 15, 15, PI * 1.5, PI * .05
CIRCLE (552, 395), 10, 15, PI * 1.5, PI * .05
LINE (553, 405)-(0, 405), 15
LINE (552, 415)-(0, 415), 15
PAINT (30, 55), 8, 15
LINE (-1, 160)-(550, 390), 4, B

' ABOUT
PSET (35, 150), 15
DRAW "r40m+20,-20r10d20r270u40r30u30l80d30r20l20d20u50l30d30l10u30l30d70u70"
DRAW "l20d1 c0 d19 c15 d20u20l20r20u1 c0 u19 c15 l50d30r10d40l20u1 c0 u9 c15"
DRAW "u20l1 c0 l9u10 c15 u21 c0 u9 c15 r20l50d70u70l30m-70,+70"
PSET (110, 100), 15: DRAW "d10l10": PSET (420, 90), 15: DRAW "d20r20u20l20"
PSET (420, 120), 15: DRAW "d20r20u20l20"
PAINT (425, 125), 7, 15: PAINT (425, 95), 7, 15
PAINT (400, 95), 8, 15: PAINT (200, 95), 8, 15
PAINT (150, 95), 8, 15: PAINT (120, 95), 8, 15

LOCATE 12, 2: PRINT "    A graphics project was given to my fourth hour Qbasic class"
LOCATE 13, 2: PRINT "that involved creating a game with a minimum of six screens, "
LOCATE 14, 2: PRINT "two animated screens, one music program and two cross-over music"
LOCATE 15, 2: PRINT "screens in order to obtain a C. Adding extra screens and animation "
LOCATE 16, 2: PRINT "would greatly increase your chances for an A. The entire project"
LOCATE 17, 2: PRINT "was to be completed within six to seven weeks and would greatly"
LOCATE 18, 2: PRINT "effect your final grade. It counts as six test grades and is said"
LOCATE 19, 2: PRINT "to be very important for our understanding of programming. I agree,"
LOCATE 20, 2: PRINT "this project has taught me not only how to program but how to teach"
LOCATE 21, 2: PRINT "myself. I now know more and understand a great deal about the"
LOCATE 22, 2: PRINT "planning and steps necessary in order to create a good program."
LOCATE 24, 20: PRINT " Press enter to go back."

DO UNTIL INKEY$ = CHR$(13)
LOOP

END SUB

SUB BRIEFING
PI = 4 * ATN(1)
SCREEN 12

ERASE play1a: ERASE play1b
ERASE play2a: ERASE play2b
ERASE play3a: ERASE play3b
ERASE play4a: ERASE play4b
CLS
LOCATE 15, 27: PRINT "mission briefing loading..."
FOR hld = 1 TO 50000: NEXT
CLS
PSET (15, 15): DRAW "r610d410l610u410"
PSET (30, 30): DRAW "r250d195l250u195d175r250"
DRAW "l25u100l70d100u120l20u20d140u140l20u20d20l20d140u120l20d120u30"
DRAW "l60d30r10u10r40d10r40u10r20d10r40u20r50d20l10u10l30d10l50u11c0"
DRAW "u9c15u110l20d110r20"
CIRCLE (145, 42), 3, 15
PAINT (130, 100), 7, 15: PAINT (110, 100), 8, 15: PAINT (100, 200), 7, 15
PAINT (180, 100), 8, 15: PAINT (200, 130), 7, 15: PAINT (150, 100), 9, 15
PAINT (150, 200), 8, 15: PAINT (203, 200), 8, 15: PAINT (220, 200), 7, 15
PAINT (90, 200), 9, 15
LINE (195, 120)-(205, 130), 9, BF: LINE (215, 120)-(225, 130), 9, BF: LINE (235, 120)-(245, 130), 9, BF
LINE (195, 140)-(205, 150), 9, BF: LINE (215, 140)-(225, 150), 9, BF: LINE (235, 140)-(245, 150), 9, BF
LINE (195, 160)-(205, 170), 9, BF: LINE (215, 160)-(225, 170), 9, BF: LINE (235, 160)-(245, 170), 9, BF
LINE (195, 120)-(205, 130), 15, B: LINE (215, 120)-(225, 130), 15, B: LINE (235, 120)-(245, 130), 15, B
LINE (195, 140)-(205, 150), 15, B: LINE (215, 140)-(225, 150), 15, B: LINE (235, 140)-(245, 150), 15, B
LINE (195, 160)-(205, 170), 15, B: LINE (215, 160)-(225, 170), 15, B: LINE (235, 160)-(245, 170), 15, B
PSET (285, 30), 15
DRAW "r325d50l325u50d51c0d4c15r325d285l580u140r255u144"
PAINT (25, 25), 8, 15
LOCATE 14, 10: PRINT "O.H.I.O. Headquarters"
PSET (345, 35), 15
DRAW "d40r30u20l15r15u20l30r10d1c0d3c15r10d10l10u10d11c0d10c15r10d10l10u10"
PSET (375, 35), 15
DRAW "r30d40l10m-8,-10d10l12u30r1c0r10c15r10d10l10u11c0u9c15r30d40l10r40"
DRAW "u40l40r40d15l20r20d10l20r20u25r30d10l20r10d10l10d20l20"
DRAW "r21c0r19c15u40r10d40l10r20u20d20r20u40l10d20u20l25r40r30d10l20d20"
DRAW "r10u5l5u5r15d20l35"
PAINT (350, 38), 1, 15: PAINT (385, 38), 9, 15: PAINT (410, 38), 1, 15
PAINT (420, 38), 9, 15: PAINT (450, 38), 1, 15: PAINT (480, 38), 9, 15
PAINT (490, 38), 1, 15: PAINT (525, 38), 9, 15


LOCATE 7, 38: PRINT NAMES; ", your mission should you"
LOCATE 8, 38: PRINT "choose to accept it:  Break into the"
LOCATE 9, 38: PRINT "OHIO headquarters and hack into their"
LOCATE 10, 38: PRINT "computer. Retrieve as much information"
LOCATE 11, 38: PRINT "as possible, especially the info that"
LOCATE 12, 38: PRINT "can be used against O.H.I.O. If by any"
LOCATE 13, 38: PRINT "chance you are captured all knowledge"
LOCATE 14, 38: PRINT "of you and your mission will be erased"
LOCATE 15, 38: PRINT "as if you never existed. We have been"
LOCATE 16, 6: PRINT "watching O.H.I.O very closely. Here is some important information that"
LOCATE 17, 6: PRINT "you could use. O.H.I.O means (Outcast Hackers Intelligence Operatives)"
LOCATE 18, 6: PRINT "We have inside men who will help you in your mission but you must be"
LOCATE 19, 6: PRINT "able to answer their questions in order for them to assist you. There"
LOCATE 20, 6: PRINT "are no second chances if you screw up. We have also tapped their lines"
LOCATE 21, 6: PRINT "and found out the login/pass for the master computer. When you enter "
LOCATE 22, 6: PRINT "the pass be careful it is CASE SENSITIVE. L/P:";
COLOR 4: PRINT "root";
COLOR 15: PRINT "/";
COLOR 4: PRINT "godsp33d. ": COLOR 15
LOCATE 23, 17: PRINT " Use <- and -> to choose and enter to continue."

PSET (40, 385), 15
DRAW "d30r10u10r10d10r10u30l30r31c8r9c15d30r30u10l20u10r20u10l30"
DRAW "r31c8r9c15d30r30u10l20u10r20u10l30r31c8r9c15d30r30u10l20r10"
DRAW "u10l10r20u10l30r31c8r9c15d30r10u10r20u20l30r31c8r9c15d10r10d20r10"
DRAW "u20r10u10l30r31c8  r75 c15d30r30u30l30r31c8r9c15d30r30u10l20r10u10"
DRAW "l10r20u10l30r31c8r9c15d30r30u10l20u10r20u10l30r31c8r9c15d30r30u10l20"
DRAW "u20l10r11c8r29c15d30r10u30l10r11c8r9c15d30r10u20d20r20u30l10d20u20l20"
DRAW "r31c8r9c15d30r30u10l20r10u10l10r20u10l30"

PAINT (44, 390), 4, 15: PAINT (88, 390), 4, 15: PAINT (125, 390), 4, 15
PAINT (175, 390), 4, 15: PAINT (225, 390), 4, 15: PAINT (250, 390), 4, 15

PAINT (350, 390), 7, 15: PAINT (400, 390), 7, 15: PAINT (440, 390), 7, 15
PAINT (470, 390), 7, 15: PAINT (515, 390), 7, 15: PAINT (530, 390), 7, 15
PAINT (580, 390), 7, 15:
GOSUB accept
DO UNTIL a$ = CHR$(13)
     a$ = INKEY$
     IF RIGHT$(a$, 1) = "M" THEN GOSUB decline
     IF RIGHT$(a$, 1) = "K" THEN GOSUB accept
LOOP

IF tval = 1 THEN CALL INVENTORY
IF tval = 2 THEN GOSUB CEND

END

accept:
PAINT (44, 390), 4, 15: PAINT (88, 390), 4, 15: PAINT (125, 390), 4, 15
PAINT (175, 390), 4, 15: PAINT (225, 390), 4, 15: PAINT (250, 390), 4, 15
PAINT (350, 390), 7, 15: PAINT (400, 390), 7, 15: PAINT (440, 390), 7, 15
PAINT (470, 390), 7, 15: PAINT (515, 390), 7, 15: PAINT (530, 390), 7, 15
PAINT (580, 390), 7, 15:
tval = 1
RETURN

decline:
PAINT (44, 390), 7, 15: PAINT (88, 390), 7, 15: PAINT (125, 390), 7, 15
PAINT (175, 390), 7, 15: PAINT (225, 390), 7, 15: PAINT (250, 390), 7, 15

PAINT (350, 390), 4, 15: PAINT (400, 390), 4, 15: PAINT (440, 390), 4, 15
PAINT (470, 390), 4, 15: PAINT (515, 390), 4, 15: PAINT (530, 390), 4, 15
PAINT (580, 390), 4, 15:
tval = 2
RETURN

CEND:
RANDOMIZE TIMER
num = RND * 3
num = INT(num)
IF num < 1 THEN num = 1
IF num > 2 THEN num = 2
IF num = 1 THEN CALL QUITER1
IF num = 2 THEN CALL QUITER2
RETURN

321
END SUB

SUB CONSTANTS

SCREEN 12
PI = 4 * ATN(1)
SAV = 1

END SUB

SUB CREDITS
CLS

DIM DGUYMAG(15, 15)
LINE (29, 25)-(60, 35), 15, B
LINE (30, 26)-(59, 34), 1, BF
LINE (59, 30)-(48, 30), 15
LINE (57, 26)-(57, 34), 15
LINE (45, 26)-(45, 35), 15
LINE (18, 27)-(30, 35), 15, B
LINE (18, 31)-(22, 31), 15
LINE (18, 27)-(16, 27), 15
LINE (18, 30)-(16, 30), 15
LINE (18, 32)-(16, 32), 15
LINE (18, 35)-(16, 35), 15
LINE (16, 27)-(16, 35), 15
PSET (19, 33), 14
PAINT (19, 32), 3, 15
PAINT (42, 28), 3, 15
CIRCLE (28, 27), 6, 14
CIRCLE (28, 26), 6, 14
CIRCLE (28, 28), 6, 7
PAINT (28, 28), 7, 7
CIRCLE (28, 28), 6, 15
PSET (25, 27), 1: PSET (26, 27), 1
PSET (25, 28), 1: PSET (26, 28), 1
LINE (23, 30)-(25, 30), 0
'LINE (16, 17)-(60, 36), 4, B
GET (16, 17)-(60, 35), DGUYMAG

CLS

LOCATE 26, 29: PRINT "Press enter to go back."
PSET (40, 40), 7: DRAW "d60r60u25r440d25r60u60l60d25l440u25l60"
PAINT (42, 42), 8, 7
PSET (40, 390), 7: DRAW "d60r60u25r440d25r60u60l60d25l440u25l60"
PAINT (42, 392), 8, 7
PSET (215, 55), 15
DRAW "u30r30d10l20d10r20d10l30r50m-10,-10d10c0r10l10c15u10m+10,+10r10u30l30r10d1c0d4c15d10r10u10l10"
DRAW "u1c0u4c15r50d10l20d5r5d5l5d5r20d5l30r60u30l30d30u30r10d1c0d9c15r5d10l5u10u1c0u9c15"
DRAW "r30d30l10r10u30r30d10l10d20l10u20l10u10r60d10l20r20d20l30u10r20l20u20"
PAINT (217, 30), 4, 15: PAINT (250, 30), 4, 15: PAINT (300, 30), 4, 15
PAINT (320, 30), 4, 15: PAINT (360, 30), 4, 15: PAINT (340, 30), 4, 15
PAINT (380, 30), 4, 15

CIRCLE (570, 115), 25, 15, PI * 0, PI * 1
CIRCLE (570, 118), 10, 15, PI * 0, PI * 1
PSET (545, 110), 15: DRAW "d30r15u5l15r15u18r1c0r19c15u2d25r15u5l15r15u20"
CIRCLE (70, 115), 25, 15, PI * 0, PI * 1
CIRCLE (70, 118), 10, 15, PI * 0, PI * 1
PSET (45, 110), 15: DRAW "d30r15u5l15r15u18r1c0r19c15u2d25r15u5l15r15u20"
PAINT (55, 118), 4, 15: PAINT (555, 118), 4, 15
CIRCLE (570, 375), 25, 15, PI * 1, PI * .05
CIRCLE (570, 375), 10, 15, PI * 1, PI * .05
PSET (545, 380), 15: DRAW "u30r15d5l15r15d18r1c0r19c15d2u25r15d5l15r15d20"
CIRCLE (70, 375), 25, 15, PI * 1, PI * .05
CIRCLE (70, 375), 10, 15, PI * 1, PI * .05
PSET (45, 380), 15: DRAW "u30r15d5l15r15d18r1c0r19c15d2u25r15d5l15r15d20"
PAINT (49, 382), 4, 15: PAINT (549, 382), 4, 15:



LOCATE 7, 25: PRINT "Class Teacher       Mr. Knighton"
LOCATE 8, 23: PRINT "Game Programmer       Bobby Segurola"
LOCATE 9, 21: PRINT "Suggestions/Ideas       David Eiriz"
LOCATE 10, 45: PRINT "Andre Rasul"
LOCATE 11, 45: PRINT "Sean Fogel"
LOCATE 12, 31: PRINT "Testing       Max Amster"
LOCATE 13, 45: PRINT "David Eiriz"
LOCATE 14, 29: PRINT "Debugging       Bobby Segurola"
LOCATE 15, 23: PRINT "Music Assistant       Paul Maridue¤a"



y = 100
DO UNTIL key$ = CHR$(13)
      key$ = INKEY$
   FOR y = 160 TO 310
      IF INKEY$ = CHR$(13) THEN GOTO 2020
      PUT (48, y), DGUYMAG, PSET
      PUT (548, y), DGUYMAG, PSET
      FOR hld = 1 TO 500: NEXT

   NEXT
   FOR y = 310 TO 160 STEP -1
      IF INKEY$ = CHR$(13) THEN GOTO 2020
      PUT (48, y), DGUYMAG, PSET
      PUT (548, y), DGUYMAG, PSET
      LINE (48, y + 19)-(92, y + 30), 0, BF
      LINE (548, y + 19)-(592, y + 30), 0, BF
      FOR hld = 1 TO 500: NEXT
   NEXT
LOOP

2020
ERASE DGUYMAG
END SUB

SUB DECISION
DECAN = 0
LINE (50, 320)-(350, 420), 15, B
LINE (51, 321)-(349, 419), 0, BF

LOCATE 22, 10: PRINT "A) Answer A Question"
LOCATE 23, 10: PRINT "B) Pay him off"
LOCATE 24, 10: PRINT "C) Tell him you owe him one"
LOCATE 26, 10: PRINT "Press the key of your choice."

DO UNTIL DECAN = 1 OR DECAN = 2 OR DECAN = 3
   key$ = INKEY$
   IF key$ = CHR$(65) OR key$ = CHR$(97) THEN DECAN = 1    'A
   IF key$ = CHR$(66) OR key$ = CHR$(98) THEN DECAN = 2    'B
   IF key$ = CHR$(67) OR key$ = CHR$(99) THEN DECAN = 3    'C
LOOP

LINE (50, 430)-(350, 450), 15, B
LINE (51, 431)-(349, 449), 0, BF

END SUB

SUB DIRLEFT

COLOR 12
LOCATE 2, 14: PRINT "(west) "
COLOR 15

END SUB

SUB DIRRIGHT

COLOR 9
LOCATE 2, 14: PRINT "(east) "
COLOR 15


END SUB

SUB DOORCODE

saver = 1
CLS

DIM CODE$(10)
GOSUB BUTTONs

LOCATE 8, 58
i = 0
key$ = "vkjs"
DO UNTIL key$ = CHR$(13)
 key$ = INKEY$
 IF key$ = CHR$(48) THEN GOSUB BUT0
 IF key$ = CHR$(49) THEN GOSUB BUT1
 IF key$ = CHR$(50) THEN GOSUB BUT2
 IF key$ = CHR$(51) THEN GOSUB BUT3
 IF key$ = CHR$(52) THEN GOSUB BUT4
 IF key$ = CHR$(53) THEN GOSUB BUT5
 IF key$ = CHR$(54) THEN GOSUB BUT6
 IF key$ = CHR$(55) THEN GOSUB BUT7
 IF key$ = CHR$(56) THEN GOSUB BUT8
 IF key$ = CHR$(57) THEN GOSUB BUT9
 IF i >= 4 THEN GOSUB toomany
LOOP

DIM num$(10)
num$(1) = CHR$(54): num$(2) = CHR$(52)
num$(3) = CHR$(52): num$(4) = CHR$(54)

c = 0
FOR i = 1 TO 4
 IF CODE$(i) = num$(i) THEN c = c + 1
NEXT

UNUM = UNUM + 1
IF UNUM > 3 AND c <> 4 THEN CALL LOSER

IF c = 4 THEN GOSUB CORRECT ELSE CALL PART1SCREEN3


END

toomany:
DO UNTIL x = 1
  IF INKEY$ = CHR$(13) THEN x = 1
  key$ = CHR$(13)
LOOP
RETURN

CORRECT:
LOCATE 8, 58
COLOR 14: PRINT "ALARM DISABLED! "
RETURN

WRONG:
LOCATE 8, 58
COLOR 14: PRINT "WRONG! TRY AGAIN!": COLOR 15
FOR hld = 1 TO 100000: NEXT
RETURN

BUT0:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT1:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT2:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT3:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT4:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT5:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT6:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT7:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT8:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUT9:
PRINT "*";
 i = i + 1
 CODE$(i) = key$
RETURN

BUTTONs:
x = 347: y = 48
LINE (95 + x, 40 + y)-(260 + x, 330 + y), 15, B
LINE (105 + x, 80 + y)-(250 + x, 60 + y), 15, B
PAINT (100 + x, 50 + y), 8, 15
LINE (400, 0)-(400, 480), 15
PAINT (1, 1), 8, 15: PAINT (401, 1), 7, 15
CIRCLE (335, 280), 50, 0
PAINT (350, 300), 0, 0
CIRCLE (325, 250), 50, 7
PAINT (325, 250), 7, 7
LINE (-1, -1)-(150, 150), 0, BF
LINE (-1, -1)-(130, 130), 9, BF
LINE (-1, -1)-(150, 150), 15, B
LINE (-1, -1)-(130, 130), 15, B
LINE (-1, -1)-(151, 151), 15, B
LINE (-1, -1)-(131, 131), 15, B

FOR xy = 1 TO 140 STEP 20
 LINE (0 + xy, 0)-(130, 130 - xy)
 LINE (-2 + xy, 130)-(130, -2 + xy)
 LINE (0, 130 - xy)-(130 - xy, 0)
 LINE (0, -2 + xy)-(132 - xy, 130)
NEXT

LOCATE 1, 54: PRINT " Use the numeric keypad. "

x = 416: y = 128
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 465: y = 128
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 515: y = 128
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 415: y = 176
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 465: y = 176
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 515: y = 176
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 416: y = 224
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 465: y = 224
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 515: y = 224
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 416: y = 272
' button 1
LINE (39 + x, 35 + y)-(79 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(78 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r40m+3,+3m-3,-3l40d40m+3,+3"
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15

x = 465: y = 272
' button enter
LINE (39 + x, 35 + y)-(129 + x, 75 + y), 15, B
LINE (40 + x, 36 + y)-(128 + x, 74 + y), 0, BF
PSET (39 + x, 35 + y), 15
DRAW "m-3,-3r90m+3,+3m-3,-3l90d40m+3,+3"
'LINE (30+X, 25+y)-(85+X, 80+y), 4, B
PAINT (37 + x, 34 + y), 7, 15
PAINT (42 + x, 33 + y), 7, 15
PAINT (35 + x, 31 + y), 8, 15


LOCATE 12, 60: PRINT "1"
LOCATE 12, 66: PRINT "2"
LOCATE 12, 72: PRINT "3"
LOCATE 15, 60: PRINT "4"
LOCATE 15, 66: PRINT "5"
LOCATE 15, 72: PRINT "6"
LOCATE 18, 60: PRINT "7"
LOCATE 18, 66: PRINT "8"
LOCATE 18, 72: PRINT "9"
LOCATE 21, 60: PRINT "0"
LOCATE 21, 67: PRINT "ENTER"

RETURN

END SUB

SUB DROPGUY
CLS

SCREEN 12

DIM DGUY(15, 15)
LINE (29, 25)-(60, 35), 15, B
LINE (30, 26)-(59, 34), 1, BF
LINE (59, 30)-(48, 30), 15
LINE (57, 26)-(57, 34), 15
LINE (45, 26)-(45, 35), 15
LINE (18, 27)-(30, 35), 15, B
LINE (18, 31)-(22, 31), 15
LINE (18, 27)-(16, 27), 15
LINE (18, 30)-(16, 30), 15
LINE (18, 32)-(16, 32), 15
LINE (18, 35)-(16, 35), 15
LINE (16, 27)-(16, 35), 15
PSET (19, 33), 14
PAINT (19, 32), 4, 15
PAINT (42, 28), 4, 15
CIRCLE (28, 27), 6, 14
CIRCLE (28, 26), 6, 14
CIRCLE (28, 28), 6, 7
PAINT (28, 28), 7, 7
CIRCLE (28, 28), 6, 15
PSET (25, 27), 1: PSET (26, 27), 1
PSET (25, 28), 1: PSET (26, 28), 1
LINE (23, 30)-(25, 30), 0
LINE (40, 17)-(40, 24), 8: LINE (41, 17)-(41, 24), 8
'LINE (16, 17)-(60, 36), 4, B
GET (16, 17)-(60, 35), DGUY

DIM COMP(30, 30)
'computer
LINE (140, 30)-(145, 60), 8, B
LINE (140, 30)-(125, 40), 8
LINE (140, 60)-(125, 50), 8
LINE (125, 40)-(125, 50), 8
LINE (130, 55)-(130, 57), 8
LINE (130, 57)-(128, 60), 8
LINE (120, 60)-(150, 70), 8, B
LINE (150, 67)-(153, 68), 8, B
LINE (153, 65)-(153, 70), 8
LINE (153, 70)-(165, 70), 8
LINE (165, 70)-(165, 68), 8
LINE (165, 68)-(153, 65), 8
PAINT (142, 32), 7, 8
PAINT (138, 38), 7, 8
PAINT (132, 62), 7, 8
PAINT (132, 58), 7, 8
PAINT (156, 68), 7, 8
'LINE (120, 30)-(165, 70), 4, B
GET (120, 30)-(165, 70), COMP

CLS

COLOR 15

PUT (220, 300), COMP, PSET
DRAW "bd42r55d50l5u40l45d40l5u50d50l300r800"
DRAW "l250u390l330d390"
PSET (350, 390), 0
DRAW "c15d2u90r60d90"
PAINT (260, 345), 6, 15
PAINT (1, 1), 3, 15
PAINT (1, 479), 7, 15
CIRCLE (400, 355), 4
PAINT (390, 340), 6, 15
PSET (420, 355), 15
DRAW "u10r20d10l20"
DRAW "bu5r3u3r5d6l5u3"
PAINT (425, 350), 4, 15
PAINT (438, 350), 8, 15

FOR hld = 1 TO 75000 STEP .75: NEXT

 
FOR y = 3 TO 320 STEP 1
    PUT (260, y), DGUY, PSET
    FOR hld = 1 TO 700: NEXT
    CALL HOLD
    IF INKEY$ = CHR$(13) THEN CALL MENU
NEXT

ERASE COMP
ERASE DGUY

END SUB

SUB HOLD

FOR x = 1 TO 350: NEXT

END SUB

SUB INVENTORY
CLS
COLOR 7: LOCATE 16, 38: PRINT "  RUN HACKBOOK.EXE": COLOR 15
PSET (15, 15):
DRAW "r610d410l610u410d10r1c0r9c15r250d230l250u230"
DRAW "d231c0d9c15r590d150l590u150r260u1c0u9c15u230"
DRAW "r330d230l330": PAINT (17, 17), 8, 15
LOCATE 3, 8: PRINT "Personal-Inventory:"
LOCATE 3, 42: PRINT "Common Hacking Terms:"
LOCATE 5, 38: PRINT "If they begin to trace you type:"
COLOR 7: LOCATE 6, 38: PRINT "  KILL -S 56000": COLOR 15
LOCATE 7, 38: PRINT "To go back to the home directory type:"
COLOR 7: LOCATE 8, 38: PRINT "  CD /home": COLOR 15
LOCATE 9, 38: PRINT "To search through files type:"
COLOR 7: LOCATE 10, 38: PRINT "  DIR /P": COLOR 15
LOCATE 11, 38: PRINT "To copy files to A: (disk) type:"
COLOR 7: LOCATE 12, 38: PRINT "  RM filename.blah A:": COLOR 15
LOCATE 13, 38: PRINT "To log off type:"
COLOR 7: LOCATE 14, 38: PRINT "  EXIT /DEL LOG": COLOR 15
LOCATE 15, 38: PRINT "To view the hacking book type:"

LOCATE 5, 6: PRINT "Money: $"; : COLOR 7: PRINT MONEY: COLOR 15
LOCATE 7, 6: PRINT "Weapon:"
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 10, 6: PRINT "Extra items:"
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 15

LOCATE 18, 5: PRINT "A.H.W.-Inventory:          Do not pick non-weapon items for a weapon."
COLOR 7: LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard": COLOR 15


' ACTUAL INPUT AND INVENTORY CHECKING
LOCATE 28, 5: PRINT "Use the arrow keys and press enter to choose. Press (D) when done."

GOSUB CHANGEI

END

CHANGEI:
LOCATE 8, 6: PRINT "1)  "; : COLOR 14: PRINT WEAPON: COLOR 15
a$ = "": iop = 1
DO UNTIL a$ = CHR$(13)
  a$ = INKEY$
  IF a$ = CHR$(68) OR a$ = CHR$(100) THEN CALL STARTMISSION
  IF RIGHT$(a$, 1) = "H" THEN GOSUB UPOP
  IF RIGHT$(a$, 1) = "P" THEN GOSUB DOWNOP
LOOP
9999
x = 1: y = 1: a$ = ""
GOSUB CHOOSE1
DO UNTIL a$ = CHR$(13)
  a$ = INKEY$
  IF a$ = CHR$(68) OR a$ = CHR$(100) THEN CALL STARTMISSION
  IF RIGHT$(a$, 1) = "H" THEN GOSUB UPY      'up
  IF RIGHT$(a$, 1) = "P" THEN GOSUB DOWNY    'down
  IF RIGHT$(a$, 1) = "M" THEN GOSUB RIGHTX   'right
  IF RIGHT$(a$, 1) = "K" THEN GOSUB LEFTX    'left
LOOP

GOSUB REASSIGN
GOSUB ITEMRECOVER
GOTO CHANGEI
123
RETURN

UPY:
y = y - 1
IF y < 1 THEN y = 3
IF x = 1 AND y = 1 THEN GOSUB CHOOSE1
IF x = 1 AND y = 2 THEN GOSUB CHOOSE2
IF x = 1 AND y = 3 THEN GOSUB CHOOSE3
IF x = 2 AND y = 1 THEN GOSUB CHOOSE4
IF x = 2 AND y = 2 THEN GOSUB CHOOSE5
IF x = 2 AND y = 3 THEN GOSUB CHOOSE6
IF x = 3 AND y = 1 THEN GOSUB CHOOSE7
IF x = 3 AND y = 2 THEN GOSUB CHOOSE8
IF x = 3 AND y = 3 THEN GOSUB CHOOSE9
IF x = 4 AND y = 1 THEN GOSUB CHOOSE10
IF x = 4 AND y = 2 THEN GOSUB CHOOSE11
IF x = 4 AND y = 3 THEN GOSUB CHOOSE12
IF x = 5 AND y = 1 THEN GOSUB CHOOSE13
IF x = 5 AND y = 2 THEN GOSUB CHOOSE14
IF x = 5 AND y = 3 THEN GOSUB CHOOSE15
RETURN

DOWNY:
y = y + 1
IF y > 3 THEN y = 1
IF x = 1 AND y = 1 THEN GOSUB CHOOSE1
IF x = 1 AND y = 2 THEN GOSUB CHOOSE2
IF x = 1 AND y = 3 THEN GOSUB CHOOSE3
IF x = 2 AND y = 1 THEN GOSUB CHOOSE4
IF x = 2 AND y = 2 THEN GOSUB CHOOSE5
IF x = 2 AND y = 3 THEN GOSUB CHOOSE6
IF x = 3 AND y = 1 THEN GOSUB CHOOSE7
IF x = 3 AND y = 2 THEN GOSUB CHOOSE8
IF x = 3 AND y = 3 THEN GOSUB CHOOSE9
IF x = 4 AND y = 1 THEN GOSUB CHOOSE10
IF x = 4 AND y = 2 THEN GOSUB CHOOSE11
IF x = 4 AND y = 3 THEN GOSUB CHOOSE12
IF x = 5 AND y = 1 THEN GOSUB CHOOSE13
IF x = 5 AND y = 2 THEN GOSUB CHOOSE14
IF x = 5 AND y = 3 THEN GOSUB CHOOSE15
RETURN

LEFTX:
x = x - 1
IF x < 1 THEN x = 5
IF x = 1 AND y = 1 THEN GOSUB CHOOSE1
IF x = 1 AND y = 2 THEN GOSUB CHOOSE2
IF x = 1 AND y = 3 THEN GOSUB CHOOSE3
IF x = 2 AND y = 1 THEN GOSUB CHOOSE4
IF x = 2 AND y = 2 THEN GOSUB CHOOSE5
IF x = 2 AND y = 3 THEN GOSUB CHOOSE6
IF x = 3 AND y = 1 THEN GOSUB CHOOSE7
IF x = 3 AND y = 2 THEN GOSUB CHOOSE8
IF x = 3 AND y = 3 THEN GOSUB CHOOSE9
IF x = 4 AND y = 1 THEN GOSUB CHOOSE10
IF x = 4 AND y = 2 THEN GOSUB CHOOSE11
IF x = 4 AND y = 3 THEN GOSUB CHOOSE12
IF x = 5 AND y = 1 THEN GOSUB CHOOSE13
IF x = 5 AND y = 2 THEN GOSUB CHOOSE14
IF x = 5 AND y = 3 THEN GOSUB CHOOSE15
RETURN

RIGHTX:
x = x + 1
IF x > 5 THEN x = 1
IF x = 1 AND y = 1 THEN GOSUB CHOOSE1
IF x = 1 AND y = 2 THEN GOSUB CHOOSE2
IF x = 1 AND y = 3 THEN GOSUB CHOOSE3
IF x = 2 AND y = 1 THEN GOSUB CHOOSE4
IF x = 2 AND y = 2 THEN GOSUB CHOOSE5
IF x = 2 AND y = 3 THEN GOSUB CHOOSE6
IF x = 3 AND y = 1 THEN GOSUB CHOOSE7
IF x = 3 AND y = 2 THEN GOSUB CHOOSE8
IF x = 3 AND y = 3 THEN GOSUB CHOOSE9
IF x = 4 AND y = 1 THEN GOSUB CHOOSE10
IF x = 4 AND y = 2 THEN GOSUB CHOOSE11
IF x = 4 AND y = 3 THEN GOSUB CHOOSE12
IF x = 5 AND y = 1 THEN GOSUB CHOOSE13
IF x = 5 AND y = 2 THEN GOSUB CHOOSE14
IF x = 5 AND y = 3 THEN GOSUB CHOOSE15
RETURN

UPOP:
  iop = iop - 1    ' up
  IF iop < 1 THEN iop = 1
  IF iop = 1 THEN GOSUB IOP1
  IF iop = 2 THEN GOSUB IOP2
  IF iop = 3 THEN GOSUB IOP3
  IF iop = 4 THEN GOSUB IOP4
  IF iop = 5 THEN GOSUB IOP5
  IF iop = 6 THEN GOSUB IOP6
RETURN

DOWNOP:
  iop = iop + 1    ' down
  IF iop > 6 THEN iop = 6
  IF iop = 1 THEN GOSUB IOP1
  IF iop = 2 THEN GOSUB IOP2
  IF iop = 3 THEN GOSUB IOP3
  IF iop = 4 THEN GOSUB IOP4
  IF iop = 5 THEN GOSUB IOP5
  IF iop = 6 THEN GOSUB IOP6
RETURN

IOP1:
LOCATE 8, 6: PRINT "1)  "; : COLOR 14: PRINT WEAPON: COLOR 15
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 15
RETURN

IOP2:
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 11, 6: PRINT "1)  "; : COLOR 14: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 15
RETURN

IOP3:
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 14: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 15
RETURN

IOP4:
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 14: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 15
RETURN

IOP5:
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 14: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 15
RETURN

IOP6:
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 14: PRINT ITEM5: COLOR 15
RETURN

ITEMRECOVER:
COLOR 7
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "
LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"
LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard": COLOR 15
RETURN

CHOOSE1:
COLOR 14: LOCATE 20, 6: PRINT "Glock 9mm": COLOR 7
LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE2:
COLOR 7
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 ":

COLOR 14: LOCATE 22, 6: PRINT "Silencer": COLOR 7
LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE3:
COLOR 7
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

COLOR 14: LOCATE 24, 6: PRINT "Hacking Book": COLOR 7
LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE4:
LOCATE 20, 6: PRINT "Glock 9mm":
COLOR 14: LOCATE 20, 25: PRINT "M-16": COLOR 7
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE5:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer":
COLOR 14: LOCATE 22, 25: PRINT "Knife": COLOR 7
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE6:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book":
COLOR 14: LOCATE 24, 25: PRINT "Doritos": COLOR 7
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE7:
LOCATE 20, 6: PRINT "Glock 9mm"
LOCATE 20, 25: PRINT "M-16"
COLOR 14: LOCATE 20, 36: PRINT "Shotgun": COLOR 7
LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer":
LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000":
LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book"
LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key"
LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard"
RETURN

CHOOSE8:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
COLOR 14: LOCATE 22, 36: PRINT "$5,000": COLOR 7
LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE9:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
COLOR 14: LOCATE 24, 36: PRINT "Master Key": COLOR 7
LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE10:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun":
COLOR 14:  LOCATE 20, 48: PRINT "Grenades": COLOR 7
LOCATE 20, 64: PRINT "Colt .45 "


LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE11:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000":
COLOR 14:  LOCATE 22, 48: PRINT "Paintball Gun": COLOR 7
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE12:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key":
COLOR 14: LOCATE 24, 48: PRINT "TAG Watch": COLOR 7
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE13:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
COLOR 14: LOCATE 20, 64: PRINT "Colt .45 ": COLOR 7

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE14:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000":
LOCATE 22, 48: PRINT "Paintball Gun"
COLOR 14: LOCATE 22, 64: PRINT "Z8 BMW": COLOR 7

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch": COLOR 7
LOCATE 24, 64: PRINT "Skateboard":
RETURN

CHOOSE15:
LOCATE 20, 6: PRINT "Glock 9mm": LOCATE 20, 25: PRINT "M-16"
LOCATE 20, 36: PRINT "Shotgun": LOCATE 20, 48: PRINT "Grenades"
LOCATE 20, 64: PRINT "Colt .45 "

LOCATE 22, 6: PRINT "Silencer": LOCATE 22, 25: PRINT "Knife"
LOCATE 22, 36: PRINT "$5,000": LOCATE 22, 48: PRINT "Paintball Gun"
LOCATE 22, 64: PRINT "Z8 BMW"

LOCATE 24, 6: PRINT "Hacking Book": LOCATE 24, 25: PRINT "Doritos"
LOCATE 24, 36: PRINT "Master Key": LOCATE 24, 48: PRINT "TAG Watch"
COLOR 14: LOCATE 24, 64: PRINT "Skateboard": COLOR 7
RETURN

REASSIGN:
IF iop = 1 AND x = 1 AND y = 1 THEN WEAPON = "Glock 9mm"
IF iop = 1 AND x = 1 AND y = 2 THEN GOTO 9999
IF iop = 1 AND x = 1 AND y = 3 THEN GOTO 9999
IF iop = 1 AND x = 2 AND y = 1 THEN WEAPON = "M-16         "
IF iop = 1 AND x = 2 AND y = 2 THEN WEAPON = "Knife        "
IF iop = 1 AND x = 2 AND y = 3 THEN GOTO 9999
IF iop = 1 AND x = 3 AND y = 1 THEN WEAPON = "Shotgun      "
IF iop = 1 AND x = 3 AND y = 2 THEN GOTO 9999
IF iop = 1 AND x = 3 AND y = 3 THEN GOTO 9999
IF iop = 1 AND x = 4 AND y = 1 THEN WEAPON = "Grenades     "
IF iop = 1 AND x = 4 AND y = 2 THEN WEAPON = "Paintball Gun"
IF iop = 1 AND x = 4 AND y = 3 THEN GOTO 9999
IF iop = 1 AND x = 5 AND y = 1 THEN WEAPON = "Colt .45  Pistol "
IF iop = 1 AND x = 5 AND y = 2 THEN GOTO 9999
IF iop = 1 AND x = 5 AND y = 3 THEN GOTO 9999

IF iop = 2 AND x = 1 AND y = 1 THEN ITEM1 = "Glock 9mm Pistol"
IF iop = 2 AND x = 1 AND y = 2 THEN ITEM1 = "Silencer      "
IF iop = 2 AND x = 1 AND y = 3 THEN ITEM1 = "Hacking Book  "
IF iop = 2 AND x = 2 AND y = 1 THEN ITEM1 = "M-16          "
IF iop = 2 AND x = 2 AND y = 2 THEN ITEM1 = "Knife         "
IF iop = 2 AND x = 2 AND y = 3 THEN ITEM1 = "Doritos       "
IF iop = 2 AND x = 3 AND y = 1 THEN ITEM1 = "Shotgun       "
IF iop = 2 AND x = 3 AND y = 2 THEN ITEM1 = "$5,000        "
IF iop = 2 AND x = 3 AND y = 3 THEN ITEM1 = "Master Key    "
IF iop = 2 AND x = 4 AND y = 1 THEN ITEM1 = "Grenades      "
IF iop = 2 AND x = 4 AND y = 2 THEN ITEM1 = "Paintball Gun "
IF iop = 2 AND x = 4 AND y = 3 THEN ITEM1 = "TAG Watch     "
IF iop = 2 AND x = 5 AND y = 1 THEN ITEM1 = "Colt .45  Pistol  "
IF iop = 2 AND x = 5 AND y = 2 THEN ITEM1 = "Z8 BMW     "
IF iop = 2 AND x = 5 AND y = 3 THEN ITEM1 = "Skateboard    "

IF iop = 3 AND x = 1 AND y = 1 THEN ITEM2 = "Glock 9mm Pistol"
IF iop = 3 AND x = 1 AND y = 2 THEN ITEM2 = "Silencer      "
IF iop = 3 AND x = 1 AND y = 3 THEN ITEM2 = "Hacking Book  "
IF iop = 3 AND x = 2 AND y = 1 THEN ITEM2 = "M-16          "
IF iop = 3 AND x = 2 AND y = 2 THEN ITEM2 = "Knife         "
IF iop = 3 AND x = 2 AND y = 3 THEN ITEM2 = "Doritos       "
IF iop = 3 AND x = 3 AND y = 1 THEN ITEM2 = "Shotgun       "
IF iop = 3 AND x = 3 AND y = 2 THEN ITEM2 = "$5,000        "
IF iop = 3 AND x = 3 AND y = 3 THEN ITEM2 = "Master Key    "
IF iop = 3 AND x = 4 AND y = 1 THEN ITEM2 = "Grenades      "
IF iop = 3 AND x = 4 AND y = 2 THEN ITEM2 = "Paintball Gun "
IF iop = 3 AND x = 4 AND y = 3 THEN ITEM2 = "TAG Watch     "
IF iop = 3 AND x = 5 AND y = 1 THEN ITEM2 = "Colt .45  Pistol  "
IF iop = 3 AND x = 5 AND y = 2 THEN ITEM2 = "Z8 BMW     "
IF iop = 3 AND x = 5 AND y = 3 THEN ITEM2 = "Skateboard    "

IF iop = 4 AND x = 1 AND y = 1 THEN ITEM3 = "Glock 9mm Pistol"
IF iop = 4 AND x = 1 AND y = 2 THEN ITEM3 = "Silencer      "
IF iop = 4 AND x = 1 AND y = 3 THEN ITEM3 = "Hacking Book  "
IF iop = 4 AND x = 2 AND y = 1 THEN ITEM3 = "M-16          "
IF iop = 4 AND x = 2 AND y = 2 THEN ITEM3 = "Knife         "
IF iop = 4 AND x = 2 AND y = 3 THEN ITEM3 = "Doritos       "
IF iop = 4 AND x = 3 AND y = 1 THEN ITEM3 = "Shotgun       "
IF iop = 4 AND x = 3 AND y = 2 THEN ITEM3 = "$5,000        "
IF iop = 4 AND x = 3 AND y = 3 THEN ITEM3 = "Master Key    "
IF iop = 4 AND x = 4 AND y = 1 THEN ITEM3 = "Grenades      "
IF iop = 4 AND x = 4 AND y = 2 THEN ITEM3 = "Paintball Gun "
IF iop = 4 AND x = 4 AND y = 3 THEN ITEM3 = "TAG Watch     "
IF iop = 4 AND x = 5 AND y = 1 THEN ITEM3 = "Colt .45  Pistol  "
IF iop = 4 AND x = 5 AND y = 2 THEN ITEM3 = "Z8 BMW     "
IF iop = 4 AND x = 5 AND y = 3 THEN ITEM3 = "Skateboard    "

IF iop = 5 AND x = 1 AND y = 1 THEN ITEM4 = "Glock 9mm Pistol"
IF iop = 5 AND x = 1 AND y = 2 THEN ITEM4 = "Silencer      "
IF iop = 5 AND x = 1 AND y = 3 THEN ITEM4 = "Hacking Book  "
IF iop = 5 AND x = 2 AND y = 1 THEN ITEM4 = "M-16          "
IF iop = 5 AND x = 2 AND y = 2 THEN ITEM4 = "Knife         "
IF iop = 5 AND x = 2 AND y = 3 THEN ITEM4 = "Doritos       "
IF iop = 5 AND x = 3 AND y = 1 THEN ITEM4 = "Shotgun       "
IF iop = 5 AND x = 3 AND y = 2 THEN ITEM4 = "$5,000        "
IF iop = 5 AND x = 3 AND y = 3 THEN ITEM4 = "Master Key    "
IF iop = 5 AND x = 4 AND y = 1 THEN ITEM4 = "Grenades      "
IF iop = 5 AND x = 4 AND y = 2 THEN ITEM4 = "Paintball Gun "
IF iop = 5 AND x = 4 AND y = 3 THEN ITEM4 = "TAG Watch     "
IF iop = 5 AND x = 5 AND y = 1 THEN ITEM4 = "Colt .45  Pistol  "
IF iop = 5 AND x = 5 AND y = 2 THEN ITEM4 = "Z8 BMW     "
IF iop = 5 AND x = 5 AND y = 3 THEN ITEM4 = "Skateboard    "

IF iop = 6 AND x = 1 AND y = 1 THEN ITEM5 = "Glock 9mm Pistol"
IF iop = 6 AND x = 1 AND y = 2 THEN ITEM5 = "Silencer      "
IF iop = 6 AND x = 1 AND y = 3 THEN ITEM5 = "Hacking Book  "
IF iop = 6 AND x = 2 AND y = 1 THEN ITEM5 = "M-16          "
IF iop = 6 AND x = 2 AND y = 2 THEN ITEM5 = "Knife         "
IF iop = 6 AND x = 2 AND y = 3 THEN ITEM5 = "Doritos       "
IF iop = 6 AND x = 3 AND y = 1 THEN ITEM5 = "Shotgun       "
IF iop = 6 AND x = 3 AND y = 2 THEN ITEM5 = "$5,000        "
IF iop = 6 AND x = 3 AND y = 3 THEN ITEM5 = "Master Key    "
IF iop = 6 AND x = 4 AND y = 1 THEN ITEM5 = "Grenades      "
IF iop = 6 AND x = 4 AND y = 2 THEN ITEM5 = "Paintball Gun "
IF iop = 6 AND x = 4 AND y = 3 THEN ITEM5 = "TAG Watch     "
IF iop = 6 AND x = 5 AND y = 1 THEN ITEM5 = "Colt .45  Pistol  "
IF iop = 6 AND x = 5 AND y = 2 THEN ITEM5 = "Z8 BMW     "
IF iop = 6 AND x = 5 AND y = 3 THEN ITEM5 = "Skateboard    "

COLOR 7
LOCATE 8, 6: PRINT "1)  "; : COLOR 7: PRINT WEAPON: COLOR 15
LOCATE 10, 6: PRINT "Extra items:"
LOCATE 11, 6: PRINT "1)  "; : COLOR 7: PRINT ITEM1: COLOR 15
LOCATE 12, 6: PRINT "2)  "; : COLOR 7: PRINT ITEM2: COLOR 15
LOCATE 13, 6: PRINT "3)  "; : COLOR 7: PRINT ITEM3: COLOR 15
LOCATE 14, 6: PRINT "4)  "; : COLOR 7: PRINT ITEM4: COLOR 15
LOCATE 15, 6: PRINT "5)  "; : COLOR 7: PRINT ITEM5: COLOR 7
RETURN

END SUB

SUB LOADING

LINE (50, 80)-(550, 180), 0, BF
LINE (48, 79)-(552, 181), 15, B
LINE (47, 78)-(553, 182), 15, B
LINE (100, 120)-(500, 140), 15, B
LINE (99, 120)-(501, 140), 15, B

FOR x = 122 TO 501 STEP 5
  LINE (102, 122)-(x, 138), 1, BF
  FOR hld = 1 TO 2000: NEXT
  LOCATE 7, 30: PRINT "Loading Game."
NEXT

LOCATE 7, 30: PRINT "  Game Ready.   "

FOR hld = 1 TO 100000: NEXT
CLS

END SUB

SUB LOSER
CLS

SCREEN 13
LOCATE 10, 10
PRINT "GAME OVER.... YOU LOSE!!!"

END

END SUB

SUB MENU
CLS

IF op = 1 THEN GOTO 555
op = 1

CLS

PUT (200, 260), play1a, PSET
PUT (200, 290), play2a, PSET
PUT (200, 320), play3a, PSET
PUT (200, 350), play4a, PSET

LOCATE 25, 19: PRINT "Use the (UP) and (DOWN) arrow keys."
LOCATE 26, 21: PRINT "Hit the [ENTER] key to choose."

CALL MISSIONOHIO
 
DO UNTIL a$ = CHR$(13)
  a$ = INKEY$
  IF RIGHT$(a$, 1) = "H" THEN op = op - 1
  IF RIGHT$(a$, 1) = "P" THEN op = op + 1
  IF RIGHT$(a$, 1) = "H" THEN SOUND 1500, 2
  IF RIGHT$(a$, 1) = "P" THEN SOUND 1500, 2
  IF op = 1 THEN GOSUB OP1
  IF op = 2 THEN GOSUB OP2
  IF op = 3 THEN GOSUB OP3
  IF op = 4 THEN GOSUB OP4
  IF op < 1 THEN op = 4
  IF op > 4 THEN op = 1
  IF a$ = CHR$(27) THEN END
LOOP

IF op = 1 THEN CALL BRIEFING
IF op = 2 THEN CALL OPTIONS
IF op = 3 THEN CALL ABOUT
IF op = 4 THEN CALL CREDITS
CALL MENU

END

OP1:
PUT (200, 260), play1b, PSET
PUT (200, 290), play2a, PSET
PUT (200, 320), play3a, PSET
PUT (200, 350), play4a, PSET
op = 1
RETURN

OP2:
PUT (200, 260), play1a, PSET
PUT (200, 290), play2b, PSET
PUT (200, 320), play3a, PSET
PUT (200, 350), play4a, PSET
op = 2
RETURN

OP3:
PUT (200, 260), play1a, PSET
PUT (200, 290), play2a, PSET
PUT (200, 320), play3b, PSET
PUT (200, 350), play4a, PSET
op = 3
RETURN

OP4:
PUT (200, 260), play1a, PSET
PUT (200, 290), play2a, PSET
PUT (200, 320), play3a, PSET
PUT (200, 350), play4b, PSET
op = 4
RETURN

555
END SUB

SUB MISSIONOHIO

c = 15

LINE (190, 100)-(130, 160), c: LINE (190, 100)-(530, 100), c
LINE (530, 100)-(470, 160), c: LINE (130, 160)-(470, 160), c
PAINT (195, 105), 8, c: PSET (160, 160), 15

DRAW "c15m+20,-20r40l40m-10,-20m+20,-20m+70,0m-20,+20l40r40m+10,+20"
DRAW "r40l40m-20,+20"
DRAW "m+70,0m+20,-20m-10,-20l40r40m+20,-20r30m-60,+60r80m+60,-60"
DRAW "c8m-50,+20c15l20m-20,+20r20m+20,-20c8m+50,-20c15l20r20m+50,0"
DRAW "m-30,+30c8l20c15m-30,+30"
PSET (560, 105), 15
DRAW "l30m-20,+20r30m+20,-20c0d50l50c15l30m+20,-20r30m-20,+20"
PSET (340, 90), 15: DRAW "r30m+20,-20l30m-20,+20l1c0l109c15l30"
DRAW "m+20,-20r30m-20,+20": PAINT (240, 75), 8, c: PAINT (380, 75), 8, c
PAINT (375, 130), 0, c
PSET (190, 100), 15
DRAW "m+5,-5l100m-65,+65r100l31m+40,-40c0l30c15m-40,+40": PAINT (110, 110), 8, c
PSET (130, 160), 15: DRAW "r100m-65,+65l100m+65,-65r50d1c0m-25,+25c15l15m-15,+15"
DRAW "r30m+15,-15l15r16c0r20r13c15m+15,-15r70m-54,+54l70r35m+20,-20c0m+13,-13"
DRAW "c15m+21,-21r65m-54,+54l30r100m+54,-54l70r35d1c0m-20,+20c15l10m-15,+15r20"
DRAW "m+15,-15l10": PAINT (300, 210), 8, c
PAINT (270, 210), 8, c: PAINT (220, 210), 8, c: PAINT (150, 210), 8, c
PSET (425, 225), 15: DRAW "u65r10d265l325u180r315u50"
PAINT (540, 120), 8, c
PAINT (500, 150), 8, c

END SUB

SUB NONSENSE

CLS
SCREEN 7
SCREEN 0
LOCATE 7, 8
PRINT "Somewhere in russia..."
LOCATE 21, 3
COLOR 4

END SUB

SUB OPTIONS
CLS

PSET (167, 134), 14
FOR D = 0 TO 360 STEP 12
  DRAW "C14TA=" + VARPTR$(D)
  DRAW "c14NU8"
NEXT
CIRCLE (167, 137), 8.75, 15, , , 1.25
PAINT (167, 137), 7, 15
LINE (150, 100)-(160, 135), 0, BF
LINE (150, 100)-(159, 145), 0, BF
LINE (174, 100)-(190, 134), 0, BF
LINE (175, 100)-(190, 145), 0, BF
PSET (167, 137), 4
DRAW "r2u2r4d3l4u1l3d1l4u3r4d1r6d1l3u1l6d1r3"
LINE (165, 142)-(169, 142), 0
CIRCLE (167, 155), 9.75, 15, , , .75
LINE (150, 155)-(180, 175), 0, BF
PSET (157, 155), 15
DRAW "d15r20u16"
LINE (150, 153)-(177, 159), 0, BF
DRAW "u7c15m+3,+3d10m-3,+3d2l20u10c0u8c15m-3,+3d10m+3,+3"
DRAW "d25r10u10d10r10u22d22l3m+3,+4l10u4l7m-3,+3d1r10u4r10u21"
DRAW "l20u1r1c7r18"
PAINT (160, 160), 1, 15
PAINT (160, 180), 8, 15
PAINT (162, 195), 9, 15
PAINT (172, 195), 9, 15
DIM opguy(30, 70)
'LINE (154, 120)-(180, 200), 4, B
GET (154, 120)-(180, 200), opguy

CLS
' ------------------------ Options --------------------
LINE (0, 40)-(450, 40), 15
LINE (0, 45)-(450, 45), 15
CIRCLE (450, 65), 20, 15, PI * 1.5, PI * .5
CIRCLE (450, 65), 25, 15, PI * 1.55, PI * .55
CIRCLE (200, 65), 20, 15, PI * .65, PI * 1.55
CIRCLE (200, 65), 25, 15, PI * .73, PI * 1.55
LINE (200, 85)-(450, 85), 15
LINE (199, 90)-(450, 90), 15
LINE (186, 45)-(193, 45), 0
PAINT (5, 43), 8, 15

' ------------------------ Computer -------------------
PSET (60, 100), 15
DRAW "r460m+20,+10d20m+30,+10d190m-30,+10d30l170d10m+70,+20d20l300u20"
DRAW "m+70,-20u10l120m-30,-10"
DRAW "u260r20d1c0d19c15r420d220l420u220d220 "
DRAW "d1c0d19c15l20r150d10u10r160d10u10r150m+20,+10m-20,-10u260"
DRAW "u1c0r20d30c15d210u228"
PAINT (65, 105), 8, 15: PAINT (525, 250), 8, 15
PAINT (545, 260), 8, 15: PAINT (370, 400), 8, 15
PAINT (410, 365), 8, 15: PAINT (170, 365), 8, 15
LINE (0, 420)-(650, 420), 15
PAINT (1, 425), 7, 15

' ---------------- option text -----
PSET (225, 80), 15
DRAW "u30r200d30l200r30u30l20d1c0d9c15d10r10u10l10u1c0u9c15r20"
DRAW "r30d20l20d10u10u1c0u4c15u10r10d10l10d1c0d4c15d10r30u20l10u10r30d10"
DRAW "l10d20r10u30r15d30r30u30l20d1c0d9c15d10r10u10l10u1c0u9c15r40d20u20r10"
DRAW "d30l20u20d20r55u20l20r20u10l35d20r20"
PAINT (230, 75), 4, 15: PAINT (260, 75), 12, 15
PAINT (300, 75), 4, 15: PAINT (325, 75), 12, 15
PAINT (350, 75), 4, 15: PAINT (375, 75), 12, 15
PAINT (420, 75), 4, 15

' ------------------------ options menu --------------
diff$ = "1"

LINE (191, 131)-(374, 309), 4, B
LINE (190, 130)-(375, 310), 4, B
LINE (189, 129)-(376, 311), 12, B
PUT (260, 150), opguy, PSET
COLOR 15
LOCATE 17, 27: PRINT "Type your name."
LOCATE 18, 27: INPUT "Name: ", NAMES

CALL MENU

END SUB

SUB PART1SCREEN1

CLS
DIM SPIKES(40, 40)
PAINT (1, 1), 9
y = 100
LINE (331, 100)-(431, 100), 15
PSET (351, y), 15
DRAW "m+5,+20m+5,-20"
DRAW "m+5,+20m+5,-20": DRAW "m+5,+20m+5,-20"
DRAW "m+5,+20m+5,-20": DRAW "m+5,+20m+5,-20"
DRAW "m+5,+20m+5,-20": DRAW "m+5,+20m+5,-20"
PAINT (356, y + 3), 8, 15
PAINT (366, y + 3), 8, 15: PAINT (376, y + 3), 8, 15
PAINT (386, y + 3), 8, 15: PAINT (396, y + 3), 8, 15
PAINT (406, y + 3), 8, 15: PAINT (416, y + 3), 8, 15
LINE (351, 100)-(421, 95), 7, BF
LINE (351, 100)-(421, 95), 15, B
'LINE (351, 120)-(421, 95), 4, B
GET (351, 123)-(421, 95), SPIKES

CLS

SCREEN 12

LINE (0, 300)-(640, 300), 15

LINE (5, 13)-(165, 48), , B
LOCATE 2, 3: PRINT "Direction: Stopped"
LOCATE 3, 3: PRINT "Money: $";
COLOR 14: PRINT MONEY: COLOR 15


PAINT (300, 30), 9, 15
PAINT (15, 315), 2, 15

PSET (250, 30), 14
FOR D = 0 TO 360 STEP 5
  DRAW "C14TA=" + VARPTR$(D)
  DRAW "NU30"
NEXT

PSET (340, 270), 15
DRAW "u100r93d100l93r20u1c9u24c15u50r55d50l55"
PAINT (370, 240), 0, 15
LOCATE 14, 47: PRINT "HOVER"
LOCATE 15, 47: PRINT "GUARD"
PAINT (345, 265), 7, 15
PSET (340, 270), 15
DRAW "l30u5r30l10u20l10d20r5u10d8l5r10l5d2l5u20u15r10d15u3m+3,-3u6m-3,-3"
DRAW "l10m-3,+3d6m+3,+3u12r4u1r2d1r1u1c7u3l2c15r2l4"
CIRCLE (325, 222), 5, 14
CIRCLE (325, 223), 5, 14
CIRCLE (325, 224), 5, 15
PAINT (325, 224), 7, 15
PAINT (335, 268), 8, 15
PSET (324, 223), 1
PSET (326, 223), 1
PAINT (326, 235), 4, 15
PAINT (332, 235), 4, 15
PAINT (318, 235), 4, 15
PAINT (326, 249), 8, 15
PSET (340, 180), 15
DRAW "l6m-3,-2m+3,+2m+2,+2m-10,+10m-5,-5m+9,-10"
PSET (322, 189), 15
DRAW "m-2,+2m+3,+3m+2,-2"
PAINT (322, 192), 8, 15
PAINT (330, 181), 8, 15
LINE (345, 271)-(426, 250), 9, BF
LINE (345, 270)-(426, 250), 15, B
LINE (346, 270)-(425, 270), 9
PUT (351, 270), SPIKES, PSET
LINE (380, 270)-(390, 250), 15, B
LINE (381, 270)-(389, 249), 7, BF

PUT (15, 277), CARGUY, PSET

x = 15

DO UNTIL x >= 265
     a$ = INKEY$
     IF RIGHT$(a$, 1) = "M" THEN num = 1    ' Left cursor key
     IF RIGHT$(a$, 1) = "K" THEN num = 10   ' Right cursor key
     IF num = 1 THEN x = x + 3
     IF num = 10 THEN x = x - 3
     IF x <= 15 THEN x = 15
     PUT (x, 277), CARGUY, PSET
     IF num = 1 THEN GOSUB DIRRIGHT
     IF num = 10 THEN GOSUB dirlef
     FOR hld = 1 TO 250: NEXT
     IF num = 1 THEN GOSUB DIRRIGHT
     IF num = 10 THEN GOSUB dirlef
LOOP


CIRCLE (150, 150), 125, 15, PI * 1.85, PI * 1.8, .5
CIRCLE (252, 190), 25, 15, PI * 1.15, PI * 1.6
CIRCLE (268, 194), 25, 15, PI * 1.03, PI * 1.38
PAINT (150, 150), 0, 15
COLOR 15
LOCATE 7, 13: PRINT "Hey Stop!"
LOCATE 8, 9: PRINT "You have a few options"
LOCATE 9, 6: PRINT "here buddy. Decided what you"
LOCATE 10, 5: PRINT "are gonna do fast or I'll kick"
LOCATE 11, 6: PRINT "outta here real fast. You'll"
LOCATE 12, 9: PRINT "never even have get in"
LOCATE 13, 16: PRINT "bucko."

1010
CALL DECISION

IF DECAN = 1 THEN GOSUB ANS1
IF DECAN = 2 THEN GOSUB ANS2
IF DECAN = 3 THEN GOSUB ANS3

y = 270
FOR y = 270 TO 250 STEP -1
PSET (351, y), 15
LINE (380, 270)-(390, 250), 15, B
PUT (351, y), SPIKES, PSET
LINE (381, y)-(389, 249), 7, BF
FOR hld = 1 TO 5000: NEXT
NEXT

a$ = "lfg"
num = 0
DO UNTIL x >= 558
     a$ = INKEY$
     IF RIGHT$(a$, 1) = "M" THEN num = 1    ' Left cursor key
     IF RIGHT$(a$, 1) = "K" THEN num = 10   ' Right cursor key
     IF num = 1 THEN x = x + 3
     IF num = 10 THEN x = x - 3
     IF x <= 15 THEN x = 15
     PUT (x, 277), CARGUY, PSET
     IF num = 1 THEN GOSUB DIRRIGHT
     IF num = 10 THEN GOSUB dirlef
     FOR hld = 1 TO 250: NEXT
     IF num = 1 THEN GOSUB DIRRIGHT
     IF num = 10 THEN GOSUB dirlef
LOOP

CALL PART1SCREEN2

END

dirlef:
COLOR 12
LOCATE 2, 14: PRINT "(west) "
COLOR 15
RETURN

DIRRIGHT:
COLOR 9
LOCATE 2, 14: PRINT "(east) "
COLOR 15
RETURN

ANS1:
PAINT (150, 150), 0, 15
COLOR 15
LOCATE 7, 13: PRINT "   Who was  "
LOCATE 8, 9: PRINT " the 16th president of "
LOCATE 9, 6: PRINT "     the United States?     "
LOCATE 10, 5: PRINT "                              "
LOCATE 11, 6: PRINT "      Last Name Only.       "
LOCATE 12, 9: PRINT "      (lower case)    "
LOCATE 13, 16: PRINT "      "
LOCATE 28, 9: PRINT "Answer: "; : COLOR 14: INPUT "", ans$: COLOR 15
LINE (50, 320)-(350, 420), 2, BF
LINE (50, 430)-(350, 450), 2, BF
 IF ans$ = "lincoln" THEN
 LOCATE 7, 13: PRINT "            "
 LOCATE 8, 9: PRINT "                       "
 LOCATE 9, 6: PRINT "    Damn, you got it right "
 LOCATE 10, 5: PRINT "  I guess you can go by....  "
 LOCATE 11, 6: PRINT "                            "
 LOCATE 12, 9: PRINT "     (Use arrows)    "
 LOCATE 13, 16: PRINT "      "
 GOTO 579
 END IF
 SHOTS = SHOTS + 1
 IF SHOTS >= 2 THEN CALL LOSER
 LOCATE 7, 13: PRINT "            "
 LOCATE 8, 9: PRINT "                       "
 LOCATE 9, 6: PRINT "    Nope, wrong, make sure "
 LOCATE 10, 5: PRINT "  you used lower case only.  "
 LOCATE 11, 6: PRINT "   This is your last shot.  "
 LOCATE 12, 9: PRINT "    Pick again.      "
 LOCATE 13, 16: PRINT "      "
 GOTO 1010
579
RETURN

ANS2:
PAINT (150, 150), 0, 15
COLOR 15
LOCATE 7, 13: PRINT "         "
LOCATE 8, 9: PRINT "                      "
LOCATE 9, 6: PRINT "   You tryin to bribe me?   "
LOCATE 10, 5: PRINT "    How much you got on ya?   "
LOCATE 11, 6: PRINT "                            "
LOCATE 12, 9: PRINT "        (no commas)   "
LOCATE 13, 16: PRINT "      "
LOCATE 28, 9: PRINT "How much: $"; : COLOR 14: INPUT "", mon
COLOR 15
LINE (50, 430)-(350, 450), 2, BF
LOCATE 7, 13: PRINT "         "
LOCATE 8, 9: PRINT "                      "
LOCATE 9, 6: PRINT "   You got youself a deal.  "
LOCATE 10, 5: PRINT "    Go ahead and pass boss.   "
LOCATE 11, 6: PRINT "                            "
LOCATE 12, 9: PRINT "        Use arrows.  "
LOCATE 13, 16: PRINT "      "
MONEY = MONEY - mon
LOCATE 3, 3: PRINT "Money: $";
COLOR 14: PRINT MONEY; "   ": COLOR 15
LINE (50, 320)-(350, 420), 2, BF
LINE (50, 430)-(350, 450), 2, BF
RETURN

ANS3:
LINE (50, 430)-(350, 450), 2, BF
LOCATE 7, 13: PRINT "         "
LOCATE 8, 9: PRINT "                      "
LOCATE 9, 6: PRINT "   Do you really think I'm  "
LOCATE 10, 5: PRINT "  that stupid man, try again. "
LOCATE 11, 6: PRINT "                            "
LOCATE 12, 9: PRINT "    Choose again...   "
LOCATE 13, 16: PRINT "      "
GOTO 1010
RETURN

7777
END SUB

SUB PART1SCREEN2

CLS

SCREEN 12

LINE (0, 300)-(640, 300), 15

PAINT (300, 30), 9, 15
PAINT (15, 315), 2, 15

PSET (100, 30), 14
FOR D = 0 TO 360 STEP 5
  DRAW "C14TA=" + VARPTR$(D)
  DRAW "NU30"
NEXT

LINE (5, 13)-(165, 48), , B
LINE (6, 14)-(164, 47), 0, BF
LOCATE 2, 3: PRINT "Direction: Stopped"
LOCATE 3, 3: PRINT "Money: $";
COLOR 14: PRINT MONEY: COLOR 15

PSET (620, 300), 15
DRAW "u40l10r30l10d40u40l20u130r30l30d120l30d10r30"

PSET (610, 260), 15
DRAW "l30u10r30l10u20l10d20r5u10d8l5r10l5d2l5u20u15r10d15u3m+3,-3u6m-3,-3"
DRAW "l10m-3,+3d6m+3,+3u12r4u1r2d1r1u1c7u3l2c15r2l4"
CIRCLE (595, 207), 5, 3
CIRCLE (595, 208), 5, 3
CIRCLE (595, 209), 5, 15
PAINT (595, 209), 7, 15
PAINT (605, 253), 8, 15
PSET (594, 208), 1
PSET (596, 208), 1
PAINT (596, 225), 1, 15
PAINT (602, 223), 1, 15
PAINT (589, 223), 1, 15
PAINT (596, 239), 7, 15
PSET (610, 180), 15
DRAW "l6m-3,-2m+3,+2m+2,+2m-10,+10m-5,-5m+9,-10"
PSET (592, 189), 15
DRAW "m-2,+2m+3,+3m+2,-2"
PAINT (592, 192), 8, 15
PAINT (600, 181), 8, 15
PAINT (620, 250), 8, 15
PAINT (625, 270), 7, 15

PUT (15, 277), CARGUY, PSET

x = 15

DO UNTIL x >= 540
     a$ = INKEY$
     IF RIGHT$(a$, 1) = "M" THEN num = 1    ' Left cursor key
     IF RIGHT$(a$, 1) = "K" THEN num = 10   ' Right cursor key
     IF num = 1 THEN x = x + 3
     IF num = 10 THEN x = x - 3
     IF x <= 15 THEN x = 15
     PUT (x, 277), CARGUY, PSET
     IF num = 1 THEN GOSUB DIRRIGHT1
     IF num = 10 THEN GOSUB dirlef1
     FOR hld = 1 TO 250: NEXT
     IF num = 1 THEN GOSUB DIRRIGHT1
     IF num = 10 THEN GOSUB dirlef1
LOOP


CIRCLE (430, 150), 125, 15, PI * 1.85, PI * 1.8, .5
CIRCLE (532, 190), 25, 15, PI * 1.15, PI * 1.6
CIRCLE (548, 194), 25, 15, PI * 1.03, PI * 1.38
PAINT (430, 150), 0, 15
COLOR 15
LOCATE 7, 50: PRINT "Hey Stop!"
LOCATE 8, 44: PRINT "I've never seen you   "
LOCATE 9, 41: PRINT "here man. Who the heck are u"
LOCATE 10, 40: PRINT "anyways? You had better have "
LOCATE 11, 41: PRINT "a good reason for being here"
LOCATE 12, 44: PRINT "or you're a goner pal."
LOCATE 13, 51: PRINT "      "

10101
CALL DECISION

IF DECAN = 1 THEN GOSUB ANS1a
IF DECAN = 2 THEN GOSUB ans2a
IF DECAN = 3 THEN GOSUB ANS3a


FOR hld = 1 TO 25000: NEXT
FOR y = 299 TO 261 STEP -1
LINE (620, y)-(630, 299), 9, BF
LINE (620, y)-(630, y), 15
LINE (620, y - 170)-(630, 130), 7, BF
LINE (620, y - 170)-(630, 130), 15, B
FOR hld = 1 TO 5000: NEXT
NEXT

a$ = "lfg"
num = 0
DO UNTIL x >= 558
     a$ = INKEY$
     IF RIGHT$(a$, 1) = "M" THEN num = 1    ' Left cursor key
     IF RIGHT$(a$, 1) = "K" THEN num = 10   ' Right cursor key
     IF num = 1 THEN x = x + 3
     IF num = 10 THEN x = x - 3
     IF x <= 15 THEN x = 15
     PUT (x, 277), CARGUY, PSET
     IF num = 1 THEN GOSUB DIRRIGHT1
     IF num = 10 THEN GOSUB dirlef1
     FOR hld = 1 TO 250: NEXT
     IF num = 1 THEN GOSUB DIRRIGHT1
     IF num = 10 THEN GOSUB dirlef1
LOOP

CALL PART1SCREEN3

END

dirlef1:
COLOR 12
LOCATE 2, 14: PRINT "(west) "
COLOR 15
RETURN

DIRRIGHT1:
COLOR 9
LOCATE 2, 14: PRINT "(east) "
COLOR 15
RETURN

ANS1a:
PAINT (450, 150), 0, 15
COLOR 15
LOCATE 7, 50: PRINT "Ok, Mr.  "
LOCATE 8, 44: PRINT "SmartGuy. Tell me this,"
LOCATE 9, 41: PRINT "on what continent is Bosnia-"
LOCATE 10, 40: PRINT "Herzegovinia located? Good  "
LOCATE 11, 41: PRINT "luck buddy. Make sure you   "
LOCATE 12, 44: PRINT "  use all lower case  "
LOCATE 13, 51: PRINT "letters."
LOCATE 28, 9: PRINT "Answer: "; : COLOR 14: INPUT "", ans$: COLOR 15
LINE (50, 320)-(350, 420), 2, BF
LINE (50, 430)-(350, 450), 2, BF
 IF ans$ = "europe" THEN
 LOCATE 7, 50: PRINT "            "
 LOCATE 8, 44: PRINT "                       "
 LOCATE 9, 41: PRINT "    Damn, you got it right  "
 LOCATE 10, 40: PRINT "  I guess you can go by...."
 LOCATE 11, 41: PRINT "                            "
 LOCATE 12, 44: PRINT "     (Use arrows)    "
 LOCATE 13, 51: PRINT "        "
 GOTO 5790
 END IF
 SHOTS = SHOTS + 1
 IF SHOTS >= 2 THEN CALL LOSER
 LOCATE 7, 50: PRINT "            "
 LOCATE 8, 44: PRINT "                       "
 LOCATE 9, 41: PRINT "    Nope, wrong, make sure  "
 LOCATE 10, 40: PRINT "  you used lower case only.   "
 LOCATE 11, 41: PRINT "   This is your last shot.  "
 LOCATE 12, 44: PRINT "    Pick again.      "
 LOCATE 13, 51: PRINT "        "
 GOTO 10101
5790
RETURN

ans2a:
PAINT (450, 150), 0, 15
COLOR 15
LOCATE 7, 50: PRINT "         "
LOCATE 8, 44: PRINT "                      "
LOCATE 9, 41: PRINT "   You tryin to bribe me?   "
LOCATE 10, 40: PRINT "    How much you got on ya?   "
LOCATE 11, 41: PRINT "                            "
LOCATE 12, 44: PRINT "        (no commas)   "
LOCATE 13, 51: PRINT "      "
LOCATE 28, 9: PRINT "How much: $"; : COLOR 14: INPUT "", mon
COLOR 15
IF mon >= 10000 THEN
LOCATE 7, 50: PRINT "         "
LOCATE 8, 44: PRINT "                      "
LOCATE 9, 41: PRINT "   You got youself a deal.  "
LOCATE 10, 40: PRINT "    Go ahead and pass boss.   "
LOCATE 11, 41: PRINT "                            "
LOCATE 12, 44: PRINT "        Use arrows.  "
LOCATE 13, 51: PRINT "      "
GOTO 4500
END IF
LINE (50, 430)-(350, 450), 2, BF
LOCATE 7, 50: PRINT "         "
LOCATE 8, 44: PRINT "                      "
LOCATE 9, 41: PRINT "   Yea right buddy, I make  "
LOCATE 10, 40: PRINT "    more than that an hour.   "
LOCATE 11, 41: PRINT "                            "
LOCATE 12, 44: PRINT "     choose again.   "
LOCATE 13, 51: PRINT "      "
GOTO 10101
4500 MONEY = MONEY - mon
LOCATE 3, 3: PRINT "Money: $";
COLOR 14: PRINT MONEY; "   ": COLOR 15
LINE (50, 320)-(350, 420), 2, BF
LINE (50, 430)-(350, 450), 2, BF
RETURN

ANS3a:
LINE (50, 430)-(350, 450), 2, BF
LOCATE 7, 50: PRINT "         "
LOCATE 8, 44: PRINT "                      "
LOCATE 9, 41: PRINT "   Do you really think I'm  "
LOCATE 10, 40: PRINT "  that stupid man, try again. "
LOCATE 11, 41: PRINT "                            "
LOCATE 12, 44: PRINT "    Choose again...   "
LOCATE 13, 51: PRINT "      "
GOTO 10101
RETURN


END SUB

SUB PART1SCREEN3
SCREEN 12
 PI = 4 * ATN(1)
CIRCLE (40, 37), 10, 4, , , .25
PAINT (40, 37), 4, 4
CIRCLE (40, 43), 10, 4, , , .25
PAINT (40, 43), 4, 4
LINE (30, 33)-(40, 47), 8, BF
CIRCLE (40, 40), 10, 15, , , 1.5
PAINT (40, 40), 9, 15
LINE (30, 33)-(45, 35), 8, BF
LINE (30, 45)-(45, 47), 8, BF
CIRCLE (40, 40), 5
PAINT (40, 40), 14, 15

LINE (99, 40)-(81, 50), 8, BF
CIRCLE (87, 35), 4, 4, , , 2
PAINT (87, 35), 4, 4
CIRCLE (94, 35), 4, 4, , , 2
PAINT (93, 35), 4, 4
CIRCLE (90, 40), 12, 15, , , .5
PAINT (90, 40), 9, 15
LINE (99, 50)-(97, 35), 8, BF
LINE (81, 50)-(83, 35), 8, BF
CIRCLE (90, 40), 5
PAINT (90, 40), 14, 15

x = 50
LINE (99 + x, 30)-(81 + x, 40), 8, BF
CIRCLE (87 + x, 45), 4, 4, , , 2
PAINT (87 + x, 45), 4, 4
CIRCLE (94 + x, 45), 4, 4, , , 2
PAINT (93 + x, 45), 4, 4
CIRCLE (90 + x, 40), 12, 15, , , .5
PAINT (90 + x, 40), 9, 15
LINE (99 + x, 45)-(97 + x, 35), 8, BF
LINE (81 + x, 45)-(83 + x, 35), 8, BF
CIRCLE (90 + x, 40), 5
PAINT (90 + x, 40), 14, 15

x = 150
CIRCLE (40.75 + x, 37), 10, 4, , , .25
PAINT (40.75 + x, 37), 4, 4
CIRCLE (40.75 + x, 43), 10, 4, , , .25
PAINT (40.75 + x, 43), 4, 4
LINE (40 + x, 33)-(55 + x, 47), 0, BF
LINE (40 + x, 33)-(50 + x, 47), 8, BF
CIRCLE (40 + x, 40), 10, 15, , , 1.5
PAINT (40 + x, 40), 9, 15
LINE (35 + x, 33)-(45 + x, 35), 8, BF
LINE (35 + x, 45)-(45 + x, 47), 8, BF
CIRCLE (40 + x, 40), 5
PAINT (40 + x, 40), 14, 15

CLS


'****** WALLS AND DOORS ******
PSET (20, 20), 15
DRAW "r550d420l550u180l10u60r10u180r550d130r10d50l10d100r10d100l10"
PAINT (1, 1), 7, 15
PSET (574, 205), 15
DRAW "r3d4l3u4r1d1c4d2r1u2"
PSET (574, 405), 15
DRAW "r3d4l3u4r1d1c2d2r1u2"

'****** BIG TRUCK *****
PSET (50, 330), 15
DRAW "d40r10m+20,+20r50l10d5l30u5r40u80l50r10u5r30d5l40m-20,+20l10r10"
DRAW "d1c0d9c15d20m+20,+20u60m-20,+20m+20,-20r1c0r49c15r10d60l10r10d20"
DRAW "r10d5r40u5l40r40r110d5r40u5l40r40r20u100l20u5l40d5r40l40l110u5l40"
DRAW "d5r40l40l10d20r1c0r219c15r150d60l150"

PAINT (370, 330), 7, 15
FOR i = 1 TO 140 STEP 10
 LINE (370 + i, 320)-(370 + i, 380), 15
NEXT

CIRCLE (90, 330), 3, 15
CIRCLE (90, 340), 3, 15
CIRCLE (90, 350), 3, 15
CIRCLE (90, 360), 3, 15
CIRCLE (90, 370), 3, 15
CIRCLE (120, 380), 5

PAINT (100, 335), 8, 15
PAINT (70, 335), 7, 15
PAINT (135, 335), 7, 15
PAINT (160, 335), 8, 15
'***** parking spaces *****
FOR x = 1 TO 480 STEP 90
 LINE (30 + x, 30)-(110 + x, 40), , B
 LINE (31 + x, 31)-(109 + x, 39), 8, BF
NEXT

FOR x = 1 TO 380 STEP 90
 LINE (115 + x, 30)-(115 + x, 130), 15
NEXT
'***** cars *****
PSET (55, 50), 15
DRAW "R30c0M+10,+10c15R2D15L2U15D15d40r2d15l2u15d15m-10,+20l30m-10,-20"
DRAW "l2u15r2d15u15u40l2u15r2d15u15c0m+10,-10c15d2r10u2r10d2r10u2"
PI = 4 * ATN(1)
CIRCLE (85, 60), 10, 15, PI * 0, PI * .5
CIRCLE (55, 60), 10, 15, PI * .5, PI * 1
CIRCLE (80, 90), 10, 15, PI * 0, PI * .5
CIRCLE (60, 90), 10, 15, PI * .5, PI * 1
CIRCLE (60, 110), 10, 15, PI * 1, PI * 1.5
CIRCLE (80, 110), 10, 15, PI * 1.5, PI * .1
LINE (80, 80)-(60, 80), 15
LINE (80, 120)-(59, 120), 15
LINE (50, 110)-(50, 90)
LINE (90, 110)-(90, 90)
CIRCLE (85, 85), 10, 15, PI * .05, PI * .6
CIRCLE (85, 80), 10, 15, PI * .05, PI * .6
CIRCLE (85, 75), 10, 15, PI * .05, PI * .6
CIRCLE (55, 85), 10, 15, PI * .4, PI * .9
CIRCLE (55, 80), 10, 15, PI * .4, PI * .9
CIRCLE (55, 75), 10, 14, PI * .4, PI * .9
LINE (50, 110)-(90, 110), 15
LINE (53, 110)-(67, 105), 15, B
LINE (73, 110)-(87, 105), 15, B
LINE (50, 88)-(90, 88), 15, B
CIRCLE (60, 93), 5, 15, , , .6
LINE (60, 93)-(60, 85), 15
PAINT (65, 85), 7, 15
PAINT (65, 115), 8, 15
PAINT (60, 60), 4, 15

'**** car 2 ****
COLOR 7: LOCATE 8, 31: PRINT "STU": COLOR 15
PSET (220, 50), 7
DRAW "r60d100l60u100d100m+10,-10r40m+10,+10m-10,-10u40m+10,-10"
DRAW "m-10,+10l40m-10,-10m+10,+10d40m-10,+10u5l4u30r4u30l4u30r4u5r60d5r4d30l4d30r4d30l4"
DRAW "u55l60"


FOR y = 1 TO 30 STEP 10
  PSET (230, 65 + y), 7
  DRAW "m+10,-10"
  PSET (260, 55 + y), 7
  DRAW "m+10,+10"
NEXT
PAINT (260, 63), 14, 7
PAINT (260, 95), 9, 7
PAINT (260, 105), 14, 7
PAINT (260, 145), 14, 7
PAINT (225, 130), 14, 7
PAINT (275, 130), 14, 7

COLOR 7: LOCATE 8, 41: PRINT "JUNKY": COLOR 15
PSET (310, 50), 7
DRAW "r60d100l60u100d100m+10,-10r40m+10,+10m-10,-10u40m+10,-10"
DRAW "m-10,+10l40m-10,-10m+10,+10d40m-10,+10u5l4u30r4u30l4u30r4u5r60d5r4d30l4d30r4d30l4"
DRAW "u55l60"

x = 90: c = 1
FOR y = 1 TO 30 STEP 10
  PSET (230 + x, 65 + y), c
  DRAW "m+10,-10"
  PSET (260 + x, 55 + y), 1
  DRAW "m+10,+10"
NEXT

PAINT (260 + x, 63), c, 7
PAINT (260 + x, 95), 15, 7
PAINT (260 + x, 105), c, 7
PAINT (260 + x, 145), c, 7
PAINT (225 + x, 130), c, 7
PAINT (275 + x, 130), c, 7
PUT (396, 288), UGUY2, PSET: PAINT (410, 305), 6, 15

IF saver <> 1 THEN x = 60
IF saver <> 1 THEN y = 170
IF saver <> 1 THEN PUT (x, y), DGUY2, PSET
IF saver = 1 THEN y = Y2
IF saver = 1 THEN x = X2
IF saver = 1 THEN PUT (x, y), DGUY2, PSET

DO UNTIL UNINUM
  X2 = x: Y2 = y
  a$ = INKEY$
  IF RIGHT$(a$, 1) = "H" THEN GOSUB MOVE1      'uP
  IF RIGHT$(a$, 1) = "P" THEN GOSUB MOVE2      'down
  IF RIGHT$(a$, 1) = "M" THEN GOSUB MOVE3      'right
  IF RIGHT$(a$, 1) = "K" THEN GOSUB MOVE4       'left
  IF x = 528 AND y = 170 THEN CALL DOORCODE
  IF x = 396 AND y = 242 THEN CALL SUSGUY
  IF x = 396 AND y = 242 THEN x = x - 3 AND y = y - 3
  IF x >= 540 OR x <= 30 OR y >= 253 OR y <= 165 THEN GOSUB WALLBOUNCE
LOOP

END

MOVE1:
FOR L = 1 TO 4
  y = y - 3
  PUT (x, y), UGUY2, PSET
NEXT
RETURN

MOVE2:
FOR L = 1 TO 4
  y = y + 3
  PUT (x, y), DGUY2, PSET
NEXT
RETURN

MOVE3:
FOR L = 1 TO 4
  x = x + 3
  PUT (x, y), RGUY2, PSET
NEXT
RETURN
MOVE4:
FOR L = 1 TO 4
  x = x - 3
  PUT (x, y), LGUY2, PSET
NEXT
RETURN

WALLBOUNCE:
 IF x <= 30 OR x < 528 AND y >= 251 THEN GOSUB MOVE3
 IF x >= 540 AND y <> 251 THEN GOSUB MOVE4
 IF y <= 170 THEN GOSUB MOVE2
 IF y >= 253 AND x <> 528 THEN GOSUB MOVE1
 IF y >= 398 THEN GOSUB MOVE1
 COLOR 15
 PSET (20, 20), 15
 DRAW "r550d420l550u180l10u60r10u180r550d130r10d50l10d100r10d100l10"
 PAINT (1, y), 7, 15
RETURN
END SUB

SUB QUITER1

SCREEN 0
CLS

COLOR 0, 9
LOCATE 9, 8: PRINT "                                                                "
LOCATE 10, 8: PRINT "  ": LOCATE 10, 70: PRINT "  "
LOCATE 11, 8: PRINT "                                                                "

FOR hld = 1 TO 20000: NEXT

LOCATE 10, 10:

FOR x = 1 TO 60
COLOR 2, 12
 PRINT " ";
 FOR hld = 1 TO 2500: NEXT
NEXT

LOCATE 10, 10:

DIM ABC$(300)

ABC$(1) = "Q": ABC$(2) = "U": ABC$(3) = "I": ABC$(4) = "T"
ABC$(5) = "E": ABC$(6) = "R": ABC$(7) = "S": ABC$(8) = " "
ABC$(9) = "N": ABC$(10) = "E": ABC$(11) = "V": ABC$(12) = "E"
ABC$(13) = "R": ABC$(14) = " ": ABC$(15) = "W": ABC$(16) = "I"
ABC$(17) = "N": ABC$(18) = ".": ABC$(19) = ".": ABC$(20) = "."

FOR x = 1 TO 60
COLOR 4, 0
 IF x < 26 THEN PRINT " ";
 IF x = 20 THEN GOSUB wordsub
 IF x > 40 THEN PRINT " ";
 FOR hld = 1 TO 2500: NEXT
NEXT

COLOR 15, 0

LOCATE 20, 15: PRINT "Press any key to quit..."; ""

COLOR 0, 0

END

wordsub:
COLOR 15, 0
FOR y = 1 TO 20
 x = x + 1
 PRINT ABC$(y);
 FOR hld = 1 TO 2500: NEXT
NEXT
COLOR 0, 4
RETURN


END SUB

SUB QUITER2

SCREEN 13
CLS

LOCATE 25, 1: PRINT "Press any key to continue."

FOR hld = 1 TO 1000: NEXT

FOR x = 16 TO 31
COLOR x
LINE (25, 67)-(230, 83), 0, BF
LINE (25, 67)-(230, 83), x, B
LOCATE 10, 5: PRINT "QUITERS NEVER WIN... "
FOR hld = 1 TO 30000: NEXT
NEXT x

FOR hld = 1 TO 200000: NEXT hld

COLOR 15

FOR y = 31 TO 16 STEP -1
COLOR y
LINE (25, 67)-(230, 83), 0, BF
LINE (25, 67)-(230, 83), y, B
LOCATE 10, 5: PRINT "QUITERS NEVER WIN... "
FOR hld = 1 TO 20000: NEXT
NEXT y

END SUB

SUB STARTMISSION

CLS
SCREEN 12


LINE (100, 210)-(500, 238), 15, B
LINE (101, 211)-(499, 237), 8, BF
LINE (90, 204)-(490, 227), 15, B
LINE (91, 205)-(489, 226), 0, BF

LOCATE 14, 13: PRINT "Part I: Break into the O.H.I.O Building";

FOR hld = 1 TO 25000: NEXT
FOR dot = 1 TO 5
   PRINT ". ";
   FOR hld = 1 TO 50000: NEXT
NEXT
FOR hld = 1 TO 15000: NEXT

CLS

SCREEN 12
LINE (0, 300)-(640, 300), 15
PAINT (15, 315), 2, 15
LOCATE 2, 3: PRINT "Direction: Stopped"
LOCATE 3, 3: PRINT "Money: $";
COLOR 14: PRINT MONEY: COLOR 15
LINE (5, 13)-(165, 48), , B



PSET (0, 300), 15
DRAW "u120r120d70l110d50u51c0u10c15u50r105d53l105u3"
LOCATE 13, 3: PRINT "Now Leaving"
LOCATE 14, 3: PRINT "   AHW"
LOCATE 15, 3: PRINT "Headquarters"
PAINT (5, 290), 7, 15
PAINT (300, 100), 9, 15

PSET (600, 30)
FOR D = 0 TO 360 STEP 5
  DRAW "C14TA=" + VARPTR$(D)
  DRAW "NU30"
NEXT

PUT (15, 277), CARGUY, PSET

FOR x = 1 TO 25000: NEXT
PSET (250, 175), 15
DRAW "r150u25m+50,+50m-50,+50u25l150u50"
PAINT (255, 180), 4, 15
FOR x = 1 TO 25000: NEXT
PAINT (255, 180), 12, 15
FOR x = 1 TO 25000: NEXT
PAINT (255, 180), 4, 15
FOR x = 1 TO 25000: NEXT
PAINT (255, 180), 12, 15
FOR x = 1 TO 25000: NEXT
PAINT (255, 180), 9, 15
PSET (250, 175), 9
DRAW "r150u25m+50,+50m-50,+50u25l150u50"
COLOR 15

x = 15

DO UNTIL x >= 545
     a$ = INKEY$
     IF RIGHT$(a$, 1) = "M" THEN num = 1    ' Left cursor key
     IF RIGHT$(a$, 1) = "K" THEN num = 10   ' Right cursor key
     IF num = 1 THEN x = x + 3
     IF num = 10 THEN x = x - 3
     IF x <= 15 THEN x = 15
     PUT (x, 277), CARGUY, PSET
     IF num = 1 THEN CALL DIRRIGHT
     IF num = 10 THEN CALL DIRLEFT
     FOR hld = 1 TO 250: NEXT
     IF num = 1 THEN CALL DIRRIGHT
     IF num = 10 THEN CALL DIRLEFT
LOOP

CALL PART1SCREEN1

END

END SUB

SUB SUSGUY
saver = 1

' PINK PANTHER MUSIC
'PLAY "T120 o2 MN L8C  L10 C+ P16 L8D  L1 D+ P2P4 L8D+  L10 D P16 L8C+  L1 C P2P4  L8C  L10 C+ P16 L8D  L1 D+ P2P4 L8D+  L10 D P16 L8C+  L1 C P2P4"
'PLAY "o2 L8C  L10 C+ P16 L8D  L2 D+ P32 L8F L10G P4P8 L8D L10 D+ P16 L8F L10G P16 o3L8C o2L10B- P16 L8E- L10G P16 L8A+ L1A L8G+ L10G F E- L4F   P2 L8C  L10 C+ P16 L8D  L2 D+ P32 L8F L10G P4P8 L8D L10 D+ P16 L8F L10G P16 o3L8C o2L10B- P16 L8E- L10G P16 o4L8D+o4L1D P16 L8D L10D o3 C A+ o4L4D P2 L8E- L10E- P16 L8E- L10E- P16 L8D o3 L10C P16 L10o2 B- P16 o3   ML L8C+L16C+ L16C L8C+L16C+ L16C L8C+L16C+ L16C L8C+L16C+ L16C "
'PLAY "MS o3 T90 L8G L16G L8G L16F L4G "

DIM ABC$(300)
DIM ABC2$(300)

ABC$(1) = "Y": ABC$(2) = "o": ABC$(3) = "u": ABC$(4) = " "
ABC$(5) = "h": ABC$(6) = "e": ABC$(7) = "a": ABC$(8) = "r"
ABC$(9) = " ": ABC$(10) = "a": ABC$(11) = " ": ABC$(12) = "v"
ABC$(13) = "o": ABC$(14) = "i": ABC$(15) = "c": ABC$(16) = "e"
ABC$(17) = ".": ABC$(18) = ".": ABC$(19) = "."

ABC2$(1) = "A": ABC2$(2) = " ": ABC2$(3) = "g": ABC2$(4) = "u"
ABC2$(5) = "y": ABC2$(6) = " ": ABC2$(7) = "w": ABC2$(8) = "a"
ABC2$(9) = "l": ABC2$(10) = "k": ABC2$(11) = "s": ABC2$(12) = " "
ABC2$(13) = "u": ABC2$(14) = "p": ABC2$(15) = " ": ABC2$(16) = "t"
ABC2$(17) = "o": ABC2$(18) = " ": ABC2$(19) = "y": ABC2$(20) = "o"
ABC2$(21) = "u": ABC2$(22) = ".": ABC2$(23) = ".": ABC2$(24) = "."
ABC2$(25) = " ": ABC2$(26) = " "

SCREEN 0: CLS : COLOR 0, 9

FOR hld = 1 TO 20000: NEXT

LOCATE 10, 10:

FOR x = 1 TO 59
COLOR 2, 12
 PRINT " ";
 FOR hld = 1 TO 500: NEXT
NEXT

LOCATE 10, 10:

FOR x = 1 TO 60
COLOR 4, 0
 IF x < 26 THEN PRINT " ";
 IF x = 20 THEN GOSUB words
 IF x > 40 THEN PRINT " ";
 FOR hld = 1 TO 500: NEXT
NEXT

FOR hld = 1 TO 150000: NEXT

LOCATE 10, 10:

FOR x = 1 TO 59
COLOR 2, 12
 PRINT " ";
 FOR hld = 1 TO 500: NEXT
NEXT

LOCATE 10, 10:

FOR x = 1 TO 60
COLOR 4, 0
 IF x < 26 THEN PRINT " ";
 IF x = 18 THEN GOSUB words2
 IF x > 40 THEN PRINT " ";
 FOR hld = 1 TO 500: NEXT
NEXT


FOR hld = 1 TO 50000: NEXT

CLS

x = 0: COLOR 15


LOCATE 6, 25: PRINT "Use the up/down arrow keys to move"
LOCATE 7, 25: PRINT "and press enter to choose."
LOCATE 9, 25: PRINT "You:"
LOCATE 10, 30: PRINT " A) Shoot him with your "; WEAPON; " "
LOCATE 11, 30: PRINT " B) Wait and talk to him"
LOCATE 12, 30: PRINT " C) Run away like a coward"

DO UNTIL a$ = CHR$(13)
  a$ = INKEY$
  IF RIGHT$(a$, 1) = "H" THEN GOSUB X1      'uP
  IF RIGHT$(a$, 1) = "P" THEN GOSUB X2      'down
  IF x = 1 THEN GOSUB option1
  IF x = 2 THEN GOSUB option2
  IF x = 3 THEN GOSUB option3
LOOP

IF x = 1 THEN CALL LOSER
IF x = 2 THEN GOTO 1110
IF x = 3 THEN CALL QUITER1

1110
CLS

COLOR 3
LOCATE 2, 2: PRINT "Suspicous Guy: "; : COLOR 15
PRINT "Hey, you look like you could use a little help"
LOCATE 3, 2: PRINT "  gettin into this place, well you look like you've got the right"
LOCATE 4, 2: PRINT "  intentions. You see, this crappy OHIO group kicked me out today"
LOCATE 5, 2: PRINT "  and I'm looking for a little revenge. I know who you are and I"
LOCATE 6, 2: PRINT "  know what you're here to do. You'll never get in without the code"
LOCATE 7, 2: PRINT "  to that door. I'll give you a hint, if you were looking at a telephone"
LOCATE 8, 2: PRINT "  and tried to spell OHIO on the keys, the numbers you would press"
LOCATE 9, 2: PRINT "  is what the code is. If you can't figure that out then you are hopeless."
LOCATE 10, 2: PRINT "  Oh! Most importantly you can't get the code wrong more than 3 times or"
LOCATE 11, 2: PRINT "  the security will come and get you."
COLOR 3
LOCATE 13, 2: PRINT " Press enter to continue..."
COLOR 15

DO UNTIL key$ = CHR$(13)
 key$ = INKEY$
LOOP

CALL PART1SCREEN3

END

words:
COLOR 15, 0
FOR y = 1 TO 20
 x = x + 1
 PRINT ABC$(y);
 FOR hld = 1 TO 500: NEXT
NEXT
COLOR 0, 4
RETURN

words2:
COLOR 15, 0
FOR y = 1 TO 22
 x = x + 1
 PRINT ABC2$(y);
 FOR hld = 1 TO 500: NEXT
NEXT
COLOR 0, 4
RETURN

X2:
x = x + 1
IF x > 3 THEN x = 1
RETURN

X1:
x = x - 1
IF x < 1 THEN x = 3
RETURN

option1:
COLOR 3, 1:
LOCATE 10, 30: PRINT " A) Shoot him with your "; WEAPON; " ": COLOR 15, 0
LOCATE 11, 30: PRINT " B) Wait and talk to him "
LOCATE 12, 30: PRINT " C) Run away like a coward "
RETURN

option2:
COLOR 3, 1:
LOCATE 11, 30: PRINT " B) Wait and talk to him ": COLOR 15, 0
LOCATE 10, 30: PRINT " A) Shoot him with your "; WEAPON; " "
LOCATE 12, 30: PRINT " C) Run away like a coward "
RETURN

option3:
COLOR 3, 1:
LOCATE 12, 30: PRINT " C) Run away like a coward ": COLOR 15, 0
LOCATE 10, 30: PRINT " A) Shoot him with your "; WEAPON; " "
LOCATE 11, 30: PRINT " B) Wait and talk to him "
RETURN

1012
END SUB