'===========================================================================
' Subject: POPULATION ZERO: SIDE SHOOTER      Date: 07-25-99 (12:02)       
'  Author: Marc Santa                         Code: QB, QBasic, PDS        
'  Origin: santa@tir.com                    Packet: GAMES.ABC
'===========================================================================
DECLARE SUB desert ()
DECLARE SUB rainstorm ()
SCREEN 13: CLS : YU = 16
DIM KK(200): DIM JJ(200): DIM CC(200)
FOR T = 1 TO 200: RANDOMIZE TIMER: KK(T) = INT(RND * 320) + 1
JJ(T) = INT(RND * 1000) + 1: CC(T) = INT(RND * 31) + 1
IF CC(T) < 16 THEN CC(T) = CC(T) + 16
IF JJ(T) < 300 THEN JJ(T) = JJ(T) + 320
NEXT
22 COLOR 31: LOCATE 13, 4: PRINT "P O P U L A T I O N   :   Z E R O"
LOCATE 15, 5: PRINT "Select your BONUS level (1 or 2) "
A$ = INKEY$
IF A$ = "1" THEN CALL rainstorm
IF A$ = "2" THEN CALL desert
FOR T = 1 TO 200
IF T > 179 THEN CIRCLE (KK(T), JJ(T)), 1, CC(T):
PSET (KK(T), JJ(T)), CC(T):
IF T > 179 THEN CIRCLE (KK(T), JJ(T) + 4), 1, 0: PSET (KK(T), JJ(T) + 4), 0: JJ(T) = JJ(T) - 4
IF T < 150 AND T > 30 THEN PSET (KK(T), JJ(T) + 1), 0: JJ(T) = JJ(T) - 1:
IF T > 149 AND T < 180 THEN PSET (KK(T), JJ(T) + 2), 0: JJ(T) = JJ(T) - 2:
IF T < 31 AND T > 10 THEN PSET (KK(T), JJ(T) + 1), 0: JJ(T) = JJ(T) - .52:
IF T < 11 THEN PSET (KK(T), JJ(T) + 1), 0: JJ(T) = JJ(T) - .22:
IF JJ(T) < -20 THEN JJ(T) = 240: KK(T) = INT(RND * 320) + 1

NEXT
GOTO 22

SUB desert
SCREEN 7, 0, 1, 0: X = 12: C = 0: SIDE = 2: PP = -100: START = 1: G = 14
8973337 CLS : RANDOMIZE TIMER: IP = INT(RND * 2) + 1
IF G = 14 THEN G = 12: GOTO 899045
IF G = 12 THEN G = 6: GOTO 899045
IF G = 6 THEN G = 14
899045 PAINT (1, 1), 11:
IF P < 0 THEN C = C + 4
IF C > 149 THEN C = 150
CIRCLE (230, 169), 30, 6, , , .2: PAINT (230, 169), 6: CIRCLE (20, 169), 30, 6, , , .1:
PAINT (20, 169), 6: CIRCLE (KXZ + 30, 100), 40, 15, , , .1: PAINT (KXZ + 30, 100), 15
LINE (0, 168)-(320, 200), 14, BF: KXZ = KXZ + .1: IF KXZ > 350 THEN KXZ = -50
IF GUN = 0 THEN
LINE (153, 158)-(156, 155), 6: LINE (154, 158)-(157, 155), 6
LINE -(168, 155), 7: LINE (157, 156)-(167, 156), 12: PSET (154 + G, 156), 4:
END IF
IF CROUCH = 0 AND SIDE = 2 AND DEAD = 0 THEN
IF GUN = 1 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 6: LINE (X + 4, C + 8)-(X + 7, C + 5), 6
LINE -(X + 18, C + 5), 7: LINE (X + 7, C + 6)-(X + 17, C + 6), 12: PSET (X + 4 + G, C + 6), 4:
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF GUN = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: LINE (X - 3, C + 10)-(X + 2, C + 10), 8
LINE (X - 3, C + 7)-(X - 3, C + 10), 14
END IF
END IF
IF CROUCH = 0 AND SIDE = 1 AND DEAD = 0 THEN
IF GUN = 1 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 6: LINE (X - 4, C + 8)-(X - 7, C + 5), 6
LINE -(X - 18, C + 5), 7: LINE (X - 7, C + 6)-(X - 17, C + 6), 12: PSET (X - 4 - G, C + 6), 4
END IF
IF GUN = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: LINE (X + 3, C + 10)-(X - 2, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14
END IF
END IF
IF CROUCH = 1 AND DEAD = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF X < 10 THEN X = 5
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10:
IF ASO = 1 THEN PP = PP - 10:
LINE (PP + 3, CC)-(PP - 3, CC), G: LINE (PP + 1, CC - 1)-(PP - 1, CC - 1), G:
LINE (PP + 1, CC + 1)-(PP - 1, CC + 1), G
IF CACT = 0 THEN
LINE (280, 100)-(290, 169), 2, BF: LINE (260, 130)-(310, 138), 2, BF
LINE (260, 110)-(270, 130), 2, BF: LINE (300, 115)-(310, 130), 2, BF
END IF
IF CACT = 1 THEN
LINE (240, 165)-(320, 170), 10, BF: LINE (260, 166)-(263, 171), 2, BF
LINE (280, 164)-(284, 170), 2, BF: LINE (300, 166)-(306, 171), 2, BF
END IF
IF DEAD = 1 THEN
LINE (257, 166)-(268, 169), 9, BF: LINE (268, 168)-(276, 169), 8, BF
CIRCLE (255, 167), 2, 14: PAINT (255, 167), 14: LINE (268, 166)-(276, 166), 8:
PSET (268, 167), 8: FOR TU = 255 TO 275 STEP 5: LINE (TU, 165)-(TU, 166), 15: NEXT
PSET (IK, PU), 4: CIRCLE ((IK * -1) + 530, PU - 2), 1, 4
PSET ((IK * -1) + 540, PU + 2), 4: PSET (IK - 14, PU + 1), 4
IK = IK + UI: PU = PU + UJK: UJK = UJK + 1: ILO = ILO + 1
IF ILO > 150 THEN END
IF PU > 173 THEN
IK = 265: UJK = -7: PU = 166: UI = RND * 3:
IF IP = 2 THEN UI = UI * -1
END IF
END IF
IF X > 275 AND CACT = 0 AND DEAD = 0 THEN
DEAD = 1: IK = 265: UJK = -7: PU = 166: FOR HU = 300 TO 100 STEP -30:
SOUND HU, .6: NEXT: UI = RND * 3: IF IP = 2 THEN UI = UI * -1
END IF
IF PP > 280 AND PP < 291 AND CACT = 0 THEN CACT = 1: FOR HJ = 400 TO 100 STEP -30: SOUND HJ, .2: NEXT
IF START = 1 THEN C = C + 10
IF C = 150 THEN START = 0
IF X > 315 THEN X = 5: ASO = 0: PP = 340: ZZ = 200: Z = 253: GOTO 897798
IF X > 150 AND X < 170 AND C > 135 AND GUN = 0 THEN SOUND 3000, .07: LOCATE 10, 6: PRINT " YOU PICKED UP A FLAMETHROWER ": PCOPY 1, 0: SLEEP 2: GUN = 1
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEAD = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEAD = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEAD = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEAD = 0 AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND GUN = 1 AND DEAD = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 8973337
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
CROUCH = 0
END IF
GOTO 8973337
897798 CLS : RANDOMIZE TIMER: IP = RND * 3: UO = INT(RND * 2) + 1: B = 148: BB = 148
OU = INT(RND * 2) + 1: PI = RND * 3: IOUI = INT(RND * 30) + 1
IF G = 14 THEN G = 12: GOTO 8990111
IF G = 12 THEN G = 6: GOTO 8990111
IF G = 6 THEN G = 14
8990111 PAINT (1, 1), 11:
IF P < 0 THEN C = C + 4
IF C > 149 THEN C = 150
IF DERE = 0 THEN
IF IOUI = 2 THEN B = B - PI: SOUND 3000, .04
IF IOUI > 12 THEN PI = PI * -1
IF Z > 300 THEN Z = 298
IF Z < 70 THEN Z = 73
Z = Z + IP:
END IF
IF DERER = 0 THEN
IF IOUI = 4 THEN BB = BB - IP: SOUND 3000, .04
IF IOUI < 5 AND IOUI > 16 THEN IP = IP * -1
IF ZZ > 300 THEN ZZ = 298
IF ZZ < 70 THEN ZZ = 73
ZZ = ZZ + PI
END IF
CIRCLE (50, 169), 60, 6, , , .1: PAINT (50, 169), 6: CIRCLE (205, 169), 40, 6, , , .2:
PAINT (205, 169), 6: CIRCLE (KXZ + 100, 130), 100, 15, , , .2: PAINT (KXZ + 100, 130), 15
PAINT (KXZ + 1, 130), 15: PAINT (KXZ + 199, 130), 15
LINE (229, 150)-(233, 167), 2, BF: LINE (223, 163)-(239, 163), 2, BF
LINE (223, 159)-(225, 163), 2, BF: LINE (239, 161)-(237, 163), 2, BF
LINE (0, 168)-(320, 200), 14, BF: PSET (160, 171), 6: PSET (156, 172), 6: PSET (162, 173), 6
KXZ = KXZ + .1: IF KXZ > 300 THEN KXZ = -50
IF DERE = 1 THEN
CIRCLE (Z, 170), 60, 4, , , .05: PAINT (Z, 170), 4
LINE (Z - 12, B + 24)-(Z + 2, B + 22), 0: LINE -(Z + 10 - PI, B + 20), 8
LINE (Z + 3, B + 15)-(Z + 10, B + 21), 7: LINE -(Z + 21, B + 20), 8
LINE (Z, B + 25)-(Z - 2, B + 11), 8: LINE -(Z - 5, B + 20), 7
LINE (Z - 1, B + 25)-(Z - 5, B + 15), 8: LINE -(Z - 9, B + 20), 7
CIRCLE (Z, B + 24), 2, 0, , , .5: PAINT (Z, B + 24), 0
END IF
IF CROUCH = 0 AND SIDE = 2 AND DEAD = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 6: LINE (X + 4, C + 8)-(X + 7, C + 5), 6
LINE -(X + 18, C + 5), 7: LINE (X + 7, C + 6)-(X + 17, C + 6), 12: PSET (X + 4 + G, C + 6), 4:
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF CROUCH = 0 AND SIDE = 1 AND DEAD = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 6: LINE (X - 4, C + 8)-(X - 7, C + 5), 6
LINE -(X - 18, C + 5), 7: LINE (X - 7, C + 6)-(X - 17, C + 6), 12: PSET (X - 4 - G, C + 6), 4
END IF
IF CROUCH = 1 AND DEAD = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF UO = 2 AND DERE = 0 THEN
LINE (Z, B)-(Z + 2, B - 3), 8: LINE -(Z + 6, B + 20), 7
LINE (Z + 1, B + 1)-(Z + 4, B - 3), 8: LINE -(Z + 10, B + 20), 7
LINE (Z + 2, B + 1)-(Z + 7, B - 2), 8: LINE -(Z + 15, B + 20), 7
LINE (Z + 3, B + 1)-(Z + 10, B - 1), 8: LINE -(Z + 19, B + 20), 7
LINE (Z, B + 1)-(Z - 2, B - 3), 7: LINE -(Z - 3, B + 20), 8
LINE (Z - 1, B + 1)-(Z - 5, B - 4), 7: LINE -(Z - 7, B + 20), 8
LINE (Z - 2, B + 1)-(Z - 8, B - 2), 7: LINE -(Z - 12, B + 20), 8
LINE (Z - 3, B + 1)-(Z - 12, B - 3), 7: LINE -(Z - 16, B + 20), 8
CIRCLE (Z, B), 2, 8, , , .5: PAINT (Z, B), 8
END IF
IF UO = 1 AND DERE = 0 THEN
LINE (Z, B + 4)-(Z + 2, B - 1), 8: LINE -(Z + 10, B + 20), 7
LINE (Z + 1, B + 5)-(Z + 4, B - 1), 8: LINE -(Z + 12, B + 20), 7
LINE (Z + 2, B + 5)-(Z + 7, B), 8: LINE -(Z + 17, B + 20), 7
LINE (Z + 3, B + 5)-(Z + 10, B + 1), 8: LINE -(Z + 21, B + 20), 7
LINE (Z, B + 5)-(Z - 2, B - 1), 7: LINE -(Z - 5, B + 20), 8
LINE (Z - 1, B + 5)-(Z - 5, B - 2), 7: LINE -(Z - 9, B + 20), 8
LINE (Z - 2, B + 5)-(Z - 8, B), 7: LINE -(Z - 14, B + 20), 8
LINE (Z - 3, B + 5)-(Z - 12, B - 1), 7: LINE -(Z - 18, B + 20), 8
CIRCLE (Z, B + 4), 2, 8, , , .5: PAINT (Z, B + 4), 8
END IF
IF OU = 2 AND DERER = 0 THEN
LINE (ZZ, BB + 1)-(ZZ + 2, BB - 3), 8: LINE -(ZZ + 6, BB + 20), 7
LINE (ZZ + 1, BB + 2)-(ZZ + 4, BB - 3), 8: LINE -(ZZ + 10, BB + 20), 7
LINE (ZZ + 2, BB + 2)-(ZZ + 7, BB - 2), 8: LINE -(ZZ + 15, BB + 20), 7
LINE (ZZ + 3, BB + 2)-(ZZ + 10, BB - 1), 8: LINE -(ZZ + 19, BB + 20), 7
LINE (ZZ, BB + 2)-(ZZ - 2, BB - 3), 7: LINE -(ZZ - 3, BB + 20), 8
LINE (ZZ - 1, BB + 2)-(ZZ - 5, BB - 4), 7: LINE -(ZZ - 7, BB + 20), 8
LINE (ZZ - 2, BB + 2)-(ZZ - 8, BB - 2), 7: LINE -(ZZ - 12, BB + 20), 8
LINE (ZZ - 3, BB + 2)-(ZZ - 12, BB - 3), 7: LINE -(ZZ - 16, BB + 20), 8
CIRCLE (ZZ, BB + 1), 2, 8, , , .5: PAINT (ZZ, BB + 1), 8
END IF
IF OU = 1 AND DERER = 0 THEN
LINE (ZZ, BB + 5)-(ZZ + 2, BB - 1), 8: LINE -(ZZ + 10, BB + 20), 7
LINE (ZZ + 1, BB + 6)-(ZZ + 4, BB - 1), 8: LINE -(ZZ + 12, BB + 20), 7
LINE (ZZ + 2, BB + 6)-(ZZ + 7, BB), 8: LINE -(ZZ + 17, BB + 20), 7
LINE (ZZ + 3, BB + 6)-(ZZ + 10, BB + 1), 8: LINE -(ZZ + 21, BB + 20), 7
LINE (ZZ, BB + 6)-(ZZ - 2, BB - 1), 7: LINE -(ZZ - 5, BB + 20), 8
LINE (ZZ - 1, BB + 6)-(ZZ - 5, BB - 2), 7: LINE -(ZZ - 9, BB + 20), 8
LINE (ZZ - 2, BB + 6)-(ZZ - 8, BB), 7: LINE -(ZZ - 14, BB + 20), 8
LINE (ZZ - 3, BB + 6)-(ZZ - 12, BB - 1), 7: LINE -(ZZ - 18, BB + 20), 8
CIRCLE (ZZ, BB + 5), 2, 8, , , .5: PAINT (ZZ, BB + 5), 8
END IF
IF DERER = 1 THEN
CIRCLE (ZZ, 172), 80, 4, , , .03: PAINT (ZZ, 172), 4
LINE (ZZ - 14, B + 24)-(ZZ + 4, B + 22), 7: LINE -(ZZ + 10, B + 20), 8
LINE (ZZ + 6, B + 14)-(ZZ + 10, B + 25), 7: LINE -(ZZ + 21, B + 22), 8
LINE (ZZ, B + 22)-(ZZ - 3, B + 10), 8: LINE -(ZZ - 5 - PI, B + 23), 0
LINE (ZZ - 1, B + 25)-(ZZ - 5, B + 20), 8: LINE -(ZZ - 13, B + 18), 7
CIRCLE (ZZ, B + 27), 2, 0, , , .5: PAINT (ZZ, B + 27), 0
END IF
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10:
IF ASO = 1 THEN PP = PP - 10:
LINE (PP + 3, CC)-(PP - 3, CC), G: LINE (PP + 1, CC - 1)-(PP - 1, CC - 1), G:
LINE (PP + 1, CC + 1)-(PP - 1, CC + 1), G
IF X < 5 THEN X = 315: ASO = 0: PP = 340: GOTO 8973337
IF X > 315 THEN X = 5: ASO = 0: PP = 340: P = -1: GOTO 897333337
IF PP > Z - 20 AND PP < Z + 20 AND CC > 143 AND DERE = 0 THEN
ASO = 0: SOUND 45, .7: HIT = HIT + 1
CIRCLE (PP, CC), 5, 4: PAINT (PP, CC), 4: CIRCLE (PP, CC), 4, 12: PAINT (PP, CC), 12
CIRCLE (PP, CC), 3, 14: PAINT (PP, CC), 14: CIRCLE (PP, CC), 2, 15: PAINT (PP, CC), 15: PP = 370
END IF
IF PP > ZZ - 20 AND PP < ZZ + 20 AND CC > 143 AND DERER = 0 THEN
ASO = 0: SOUND 45, .7: HITT = HITT + 1
CIRCLE (PP, CC), 5, 4: PAINT (PP, CC), 4: CIRCLE (PP, CC), 4, 12: PAINT (PP, CC), 12
CIRCLE (PP, CC), 3, 14: PAINT (PP, CC), 14: CIRCLE (PP, CC), 2, 15: PAINT (PP, CC), 15: PP = 370
END IF
IF X > Z - 30 AND DEAD = 0 AND DERE = 0 OR X > ZZ - 30 AND DEAD = 0 AND DERER = 0 THEN
DIM UUU(80): DIM YUU(80):  DIM IUU(80): DIM OUU(80): DIM HUU(80)
FOR T = 1 TO 80: RANDOMIZE TIMER: YUU(T) = RND * 167 + 1: IUU(T) = RND * .6 + 1
OUU(T) = RND * 5 + 1: UUU(T) = X - IUU(T): OUU(T) = OUU(T) * -1: IF YUU(T) < 100 THEN YUU(T) = YUU(T) + 67
NEXT: DEAD = 1: SOUND 345, 1: SOUND 245, 1: SOUND 145, 1: SOUND 45, 1
END IF
IF DEAD = 1 THEN
CIRCLE (X, 170), 50, 4, , , .05: PAINT (X, 170), 4
FOR T = 1 TO 80: PSET (UUU(T), YUU(T)), 4:
IF YUU(T) > 170 THEN HUU(T) = 1: CIRCLE (UUU(T), YUU(T)), IUU(T) + 3, 4, , , .2: PAINT (UUU(T), YUU(T)), 4
IF HUU(T) = 0 THEN OUU(T) = OUU(T) + .1: UUU(T) = UUU(T) - IUU(T): YUU(T) = YUU(T) + OUU(T)
NEXT T:
CFG = CFG + 1: IF CFG > 200 THEN END
END IF
IF HIT > 4 THEN DERE = 1
IF HITT > 4 THEN DERER = 1
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEAD = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEAD = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEAD = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEAD = 0 AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND GUN = 1 AND DEAD = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 897798
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
CROUCH = 0
END IF
GOTO 897798
897333337 CLS : RANDOMIZE TIMER: IP = INT(RND * 2) + 1
IF G = 14 THEN G = 12: GOTO 893390
IF G = 12 THEN G = 6: GOTO 893390
IF G = 6 THEN G = 14
893390 PAINT (1, 1), 11:
IF C > 155 AND X > 230 THEN X = 230
IF C > 155 AND X < 200 THEN X = 200
IF P < 0 THEN C = C + 4
IF C > 149 AND X > 230 OR X < 200 AND C > 149 THEN C = 150
IF C > 179 AND X > 195 AND X < 230 THEN C = 180
IF C > 178 AND X > 195 THEN X = 205: SIDE = 2: C = 180: DEAD = 1
IF DEAD = 0 THEN RED = 232
IF RED < 201 THEN RED = 200: DEAD = 2:
IF DEAD = 2 AND POPZ = 0 THEN FOR YU = 200 TO 45 STEP -10: SOUND YU, .1: NEXT: POPZ = 1
IF DEAD = 1 THEN RED = RED - .5: SOUND 45, .03
IF RED < 206 AND DEAD = 1 THEN X = X - 1: SOUND 100, IP * .5:
IF RED < 204 AND DEAD = 1 THEN X = X - 1
CIRCLE (290, 169), 40, 6, , , .2: PAINT (290, 169), 6: CIRCLE (50, 169), 20, 6, , , .3:
PAINT (50, 169), 6: CIRCLE (KXZ - 10, 30), 70, 15, , , .1: PAINT (KXZ - 10, 30), 15
LINE (0, 168)-(320, 200), 14, BF: LINE (200, 167)-(230, 197), 11, BF
LINE (130, 158)-(131, 167), 2, B: LINE (127, 163)-(134, 163), 2
LINE (127, 159)-(128, 163), 2, B: LINE (133, 161)-(134, 163), 2, B
CIRCLE (179, 172), 20, 1, , , .13: PAINT (179, 172), 1
CIRCLE (179, 170), 20, 9, , , .13: PAINT (179, 170), 9
CIRCLE (232, 180), 1, 0: CIRCLE (232, 188), 1, 0: CIRCLE (232, 195), 1, 0
KXZ = KXZ + .1: IF KXZ > 320 THEN KXZ = -50
IF CROUCH = 0 AND SIDE = 2 AND DEAD < 2 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 6: LINE (X + 4, C + 8)-(X + 7, C + 5), 6
LINE -(X + 18, C + 5), 7: LINE (X + 7, C + 6)-(X + 17, C + 6), 12: PSET (X + 4 + G, C + 6), 4:
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF CROUCH = 0 AND SIDE = 1 AND DEAD < 2 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 6: LINE (X - 4, C + 8)-(X - 7, C + 5), 6
LINE -(X - 18, C + 5), 7: LINE (X - 7, C + 6)-(X - 17, C + 6), 12: PSET (X - 4 - G, C + 6), 4
END IF
IF CROUCH = 1 AND DEAD < 2 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF DEAD = 2 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 12, BF
CIRCLE (X - 2, C), 2, 14: PAINT (X - 2, C), 14: LINE (X - 1, C + 10)-(X - 2, C + 18), 4, BF
LINE (X + 1, C + 10)-(X + 3, C + 16), 4, BF: PSET (X, C + 10), 4
LINE (X + 3, C + 11)-(X + 6, C + 7), 6: LINE (X + 4, C + 9)-(X + 7, C + 10), 6
LINE -(X + 18, C + 7), 7: LINE (X + 7, C + 8)-(X + 17, C + 8), 12: PSET (X + 4 + G, C + 8), 4:
LINE (X - 2, C + 7)-(X + 4, C + 9), 12:
END IF
LINE (233, 180)-(RED, 180), 7: LINE (233, 188)-(RED, 188), 7: LINE (233, 195)-(RED, 195), 7
IF RED < 207 THEN LINE (RED + 4, 180)-(RED, 180), 4: LINE (RED + 3, 188)-(RED, 188), 4: LINE (RED + 5, 195)-(RED, 195), 4
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10:
IF ASO = 1 THEN PP = PP - 10:
LINE (PP + 3, CC)-(PP - 3, CC), G: LINE (PP + 1, CC - 1)-(PP - 1, CC - 1), G:
LINE (PP + 1, CC + 1)-(PP - 1, CC + 1), G
IF X < 5 THEN X = 315: ASO = 0: PP = 340: C = 150: GOTO 897798
IF X > 315 THEN X = 5: ASO = 0: PP = 340: GOTO 897334443337
IF DEAD = 2 THEN PCOPY 1, 0: SLEEP 5: END
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEAD = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEAD = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEAD = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEAD = 0 AND C > 149 AND C < 151 THEN
IF X > 160 AND X < 200 THEN P = P - 50: FOR T = 1045 TO 3000 STEP 20: SOUND T, .05: NEXT
P = P - 20: CROUCH = 0
END IF
IF movin$ = " " AND GUN = 1 AND DEAD = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 897333337
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
CROUCH = 0
END IF
GOTO 897333337
897334443337 CLS : RANDOMIZE TIMER: IP = INT(RND * 2) + 1
IF G = 14 THEN G = 12: GOTO 8933900000
IF G = 12 THEN G = 6: GOTO 8933900000
IF G = 6 THEN G = 14
8933900000 PAINT (1, 1), 11:
IF P < 0 THEN C = C + 4
IF C > 149 THEN C = 150
LINE (120, 167)-(200, 167), 15: LINE (120, 166)-(200, 166), 14
LINE (120, 165)-(200, 165), 12: LINE (120, 164)-(200, 164), 4
LINE (120, 163)-(200, 163), 8
CIRCLE (210, 167), 24, 6, , , .2: PAINT (210, 167), 6:
CIRCLE (KXZ + 100, 60), 20, 15, , , .1: PAINT (KXZ + 100, 60), 15
CIRCLE (KXZ + 120, 66), 10, 15, , , .1: PAINT (KXZ + 120, 66), 15
LINE (200, 168)-(230, 168), 15: LINE -(228, 140), 15: LINE -(212, 142), 15
LINE -(201, 141), 15: LINE -(200, 168), 15: PAINT (215, 160), 15
LINE (150, 90)-(170, 120), 15, BF: CIRCLE (150, 164), 4, 15: PAINT (150, 164), 15
CIRCLE (159, 166), 6, 7, , , .7: PAINT (159, 166), 7:  CIRCLE (170, 165), 3, 15: PAINT (170, 165), 15
LINE (214, 143)-(215, 167), 7, B: CIRCLE (80, 100), 80, 0, , , 1
PAINT (80, 100), 0: CIRCLE (50, 97), 78, 8, , , 1: PAINT (50, 97), 8
CIRCLE (50, 97), 40, 12, , , 1: CIRCLE (50, 97), 34, 12
PAINT (50, 136), 12
LINE (0, 90)-(50, 94), 7: LINE (0, 94)-(50, 98), 7: LINE -(51, 94), 7
PAINT (1, 92), 7
LINE (0, 168)-(320, 200), 14, BF
KXZ = KXZ + .1: IF KXZ > 450 THEN KXZ = -200
IF CROUCH = 0 AND SIDE = 2 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 6: LINE (X + 4, C + 8)-(X + 7, C + 5), 6
LINE -(X + 18, C + 5), 7: LINE (X + 7, C + 6)-(X + 17, C + 6), 12: PSET (X + 4 + G, C + 6), 4:
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF CROUCH = 0 AND SIDE = 1 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 6: LINE (X - 4, C + 8)-(X - 7, C + 5), 6
LINE -(X - 18, C + 5), 7: LINE (X - 7, C + 6)-(X - 17, C + 6), 12: PSET (X - 4 - G, C + 6), 4
END IF
IF CROUCH = 1 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10:
IF ASO = 1 THEN PP = PP - 10:
LINE (PP + 3, CC)-(PP - 3, CC), G: LINE (PP + 1, CC - 1)-(PP - 1, CC - 1), G:
LINE (PP + 1, CC + 1)-(PP - 1, CC + 1), G
IF X < 5 THEN X = 315: ASO = 0: PP = 340: C = 150: GOTO 897333337
IF X > 315 THEN X = 15: ASO = 0: PP = 340: FAT = 140: LARD = 141: START = 1: GOTO 8977334443337
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEAD = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEAD = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEAD = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEAD = 0 AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND GUN = 1 AND DEAD = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 897334443337
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
CROUCH = 0
END IF
GOTO 897334443337
8977334443337 CLS : RANDOMIZE TIMER: IP = INT(RND * 2) + 1
IF G = 14 THEN G = 12: SH = 15: GOTO 89339000000
IF G = 12 THEN G = 6: SH = 9: GOTO 89339000000
IF G = 6 THEN G = 14: SH = 1
89339000000 PAINT (1, 1), 11:
IF START = 1 THEN START = 0: Z = 300
IF P < 0 THEN C = C + 4
IF C > 149 THEN C = 150
LK = INT(RND * 2) + 1: KIL = INT(RND * 2) + 1: PO = RND * 1: OP = RND * 1
IF X < 10 AND DEAD = 0 THEN DEAD = 1:
IF DEAD = 1 THEN SOUND 1045 + FRY + (PO * 20), .1 + OP:
IF LK = 1 THEN PO = PO * -1
IF KIL = 2 THEN OP = OP * -1
IF LARD > 158 THEN LARD = 158
IF FAT > 158 THEN FAT = 158
IF LARD < 130 THEN LARD = 130
IF FAT < 130 THEN FAT = 130
CIRCLE (100, 168), 50, 6, , , .1: PAINT (100, 168), 6
IF DEAD = 3 THEN
LINE (X + 7, 164)-(X + 18, 167), 9, BF: LINE (X + 18, 166)-(X + 26, 167), 8, BF
CIRCLE (X + 5, 165), 2, 14: PAINT (X + 5, 165), 14: LINE (X + 18, 164)-(X + 26, 164), 8: PSET (X + 18, 164), 8: Z = Z - .5
END IF
IF DEAA = 0 THEN
CIRCLE (Z - 50, 160), 8, 2, 2, 5, .8: LINE (Z - 50, 167)-(Z + 70, 167), 2
LINE -(Z + 50, 160), 2: LINE -(Z + 30, 157), 2: LINE -(Z - 52, 154), 2
PAINT (Z, 165), 2: LINE (Z - 55, 160)-(Z - 65, FAT), 2: CIRCLE (Z - 65, FAT), 1, 2
LINE (Z - 49, 160)-(Z - 52, LARD), 2: CIRCLE (Z - 52, LARD), 1, 2
END IF
IF DEAA = 1 THEN CIRCLE (Z, 168), 100, 12, , , GI: PAINT (Z, 168), 12: GI = GI - .05:
IF GI < .1 AND DEAA = 1 THEN DEAA = 2
CIRCLE (Z, 150), 30, 6: PAINT (Z, 150), 6: CIRCLE (Z, 150), 17, 4
CIRCLE (Z, 150), 5, 4
IF DEAA = 0 THEN Z = Z - .5: LARD = LARD + PO: FAT = FAT + OP
LINE (0, 168)-(320, 200), 14, BF: LINE (0, 0)-(4, 167), SH, BF
PSET (300, 169), 6: PSET (304, 171), 6: PSET (306, 170), 6
IF DEAD = 3 THEN UUGH = UUGH + 1: CIRCLE (X + 20, 169), UUGH, 4, , , .03: PAINT (X + 20, 169), 4
IF UUGH > 130 THEN END
IF DEAD = 1 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), SH + 8, BF
CIRCLE (X, C), 2, SH + 8: PAINT (X, C), SH + 8: LINE (X + 1, C + 10)-(X + 3, C + 18), SH + 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), SH + 8, BF: PSET (X, C + 10), SH + 8
LINE (X + 3, C + 7)-(X + 3, C + 10), SH + 8: LINE (X - 3, C + 7)-(X - 6, C + 7), SH + 8
LINE (X - 3, C + 8)-(X - 6, C + 5), SH: LINE (X - 4, C + 8)-(X - 7, C + 5), SH + 8
LINE -(X - 18, C + 5), SH + 8: LINE (X - 7, C + 6)-(X - 17, C + 6), SH: PSET (X - 4 - G, C + 6), SH + 8
FRY = FRY + 1: IF FRY > 60 THEN DEAD = 1.5
END IF
IF DEAD = 1.5 THEN LINE (X - 20, 168)-(X + 20, 168), 0: FRY = FRY + 1
IF FRY > 100 THEN END
IF CROUCH = 0 AND SIDE = 2 AND DEAD = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 6: LINE (X + 4, C + 8)-(X + 7, C + 5), 6
LINE -(X + 18, C + 5), 7: LINE (X + 7, C + 6)-(X + 17, C + 6), 12: PSET (X + 4 + G, C + 6), 4:
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF CROUCH = 0 AND SIDE = 1 AND DEAD = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 6: LINE (X - 4, C + 8)-(X - 7, C + 5), 6
LINE -(X - 18, C + 5), 7: LINE (X - 7, C + 6)-(X - 17, C + 6), 12: PSET (X - 4 - G, C + 6), 4
END IF
IF CROUCH = 1 AND DEAD = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF FON = 0 THEN C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10:
IF ASO = 1 THEN PP = PP - 10:
LINE (PP + 3, CC)-(PP - 3, CC), G: LINE (PP + 1, CC - 1)-(PP - 1, CC - 1), G:
LINE (PP + 1, CC + 1)-(PP - 1, CC + 1), G
IF PP > Z - 60 AND CC > 153 AND DEAA = 0 THEN
CIRCLE (PP, CC), 5, 4: PAINT (PP, CC), 4: CIRCLE (PP, CC), 2, 12: PAINT (PP, CC), 12
PSET (PP - 10, CC - 8), 4: PSET (PP + 17, CC + 10), 4: PSET (PP + 1, CC + 12), 12
PP = -340: ASO = 0: SOUND 135, .9: HIT = HIT + 1
END IF
IF HIT > 24 AND DEAA = 0 THEN DEAA = 1: GI = .8
IF PP > Z - 30 AND CC < 154 THEN ASO = 1: SOUND 2035, 1
IF PP > Z - 30 AND PP < Z - 15 AND DEAA > 0 THEN ASO = 1: SOUND 2035, 1
IF PP < X + 6 AND PP > X - 6 AND CC > C - 5 AND CC < C + 20 AND CROUCH = 0 THEN
CIRCLE (PP, CC), 5, 4: PAINT (PP, CC), 4: CIRCLE (PP, CC), 4, 12: PAINT (PP, CC), 12
CIRCLE (PP, CC), 3, 14: PAINT (PP, CC), 14: CIRCLE (PP, CC), 2, 15: PAINT (PP, CC), 15: PP = 370
SOUND 45, 1: PP = -367.6: ASO = 0: FON = 1
END IF
IF X > Z - 63 AND C > 137 AND DEAD = 0 AND DEAA = 0 THEN DEAD = 3: FOR W = 300 TO 45 STEP -1: SOUND W, .03: NEXT: X = X - 35
IF FON = 1 AND DEAD = 0 THEN X = X - 10
IF FON = 1 AND X < 5 THEN X = 5: FON = 0: DEAD = 1
IF X > 315 THEN X = 5: ASO = 0: PP = 340: C = 150: DIE = INT(RND * 120) + 200: GOTO 8973457
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEAD = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEAD = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEAD = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEAD = 0 AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND GUN = 1 AND DEAD = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 8977334443337
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
CROUCH = 0
END IF
GOTO 8977334443337

8973457 CLS : RANDOMIZE TIMER: IP = INT(RND * 2) + 1
IF G = 14 THEN G = 12: WWP = 13: GOTO 893000390
IF G = 12 THEN G = 6: WWP = 5: GOTO 893000390
IF G = 6 THEN G = 14: WWP = 5
893000390 PAINT (1, 1), 11:
IF C > 155 AND X < 200 THEN X = 200
IF C > 155 AND X > 315 THEN X = 315
IF X > 200 THEN C = C + 5
IF P < 0 THEN C = C + 4
IF C > 149 AND X < 200 AND C > 149 THEN C = 150
CIRCLE (10, 169), 50, 6, , , .2: PAINT (10, 169), 6:
CIRCLE (KXZ - 40, 80), 20, 15, , , .5: PAINT (KXZ - 40, 80), 15
LINE (0, 168)-(320, 200), 14, BF: LINE (200, 167)-(320, 200), 11, BF
KXZ = KXZ + .2: IF KXZ > 320 THEN KXZ = -50
CIRCLE (179, 172), 20, 1, , , .13: PAINT (179, 172), 1
CIRCLE (179, 170), 20, 9, , , .13: PAINT (179, 170), 9
IF CROUCH = 0 AND SIDE = 2 AND WARP = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 6: LINE (X + 4, C + 8)-(X + 7, C + 5), 6
LINE -(X + 18, C + 5), 7: LINE (X + 7, C + 6)-(X + 17, C + 6), 12: PSET (X + 4 + G, C + 6), 4:
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF CROUCH = 0 AND SIDE = 1 AND WARP = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 6: LINE (X - 4, C + 8)-(X - 7, C + 5), 6
LINE -(X - 18, C + 5), 7: LINE (X - 7, C + 6)-(X - 17, C + 6), 12: PSET (X - 4 - G, C + 6), 4
END IF
IF CROUCH = 1 AND WARP = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10:
IF ASO = 1 THEN PP = PP - 10:
LINE (PP + 3, CC)-(PP - 3, CC), G: LINE (PP + 1, CC - 1)-(PP - 1, CC - 1), G:
LINE (PP + 1, CC + 1)-(PP - 1, CC + 1), G
IF WARP = 0 THEN FOR WCV = 1 TO 75 STEP 5: CIRCLE (270, 180), WCV, WWP - 4, , , .15: NEXT
IF WARP = 1 THEN LIKE = LIKE + 10: FOR CV = LIKE TO 75 + LIKE STEP LIKE / 5: CIRCLE (270, 180), CV, WWP - 4, , , .15: NEXT
IF C > 165 THEN WARP = 1
IF X < 5 THEN X = 315: ASO = 0: PP = 340: GOTO 8977334443337
TY = INT(RND * 3000) + 1000: UY = RND * .8: SOUND TY, UY
PSET (DIE, YYUT), 6: PSET (YYUT + 20 * 3, 166), 6
YYUT = YYUT + 30: IF YYUT > 160 THEN YYUT = 0: DIE = INT(RND * 120) + 200:
IF LIKE > 260 THEN END
LINE (107, 180)-(109, 200), 8, BF: LINE (33, 180)-(31, 200), 8, BF
LINE (10, 180)-(70, 160), 15: LINE -(130, 180), 15: LINE -(70, 205), 15
LINE -(10, 180), 15: PAINT (70, 180), 15: LINE (50, 170)-(90, 171), 9, B
LINE (50, 190)-(90, 191), 9: LINE (60, 195)-(80, 196), 9, B
LOCATE 23, 5: COLOR 12: PRINT "Las Vegas": COLOR 15: X = X + (X * .03)
IF PP > 200 THEN CC = CC + 2
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND C > 149 AND C < 151 THEN
IF X > 160 AND X < 200 THEN P = P - 50: FOR T = 1045 TO 3000 STEP 20: SOUND T, .05: NEXT
P = P - 20: CROUCH = 0
END IF
IF movin$ = " " AND WARP = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 8973457
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 300 TO 100 STEP -10: SOUND HU, .06: NEXT
CROUCH = 0
END IF
GOTO 8973457

END SUB

SUB rainstorm
DIM U(20): DIM Y(20): DIM C(20): DIM I(20): DIM O(20)
FOR T = 1 TO 20
RANDOMIZE TIMER
U(T) = RND * 320 + 1
Y(T) = RND * 200 + 1
I(T) = RND * 1
O(T) = RND * 5: IF O(T) < 3 THEN O(T) = O(T) + 3
NEXT
SCREEN 7, 0, 1, 0: X = 12: C = 0: SIDE = 2: PP = -100: START = 1: G = 15
8977 CLS : RANDOMIZE TIMER: U = INT(RND * 320) + 1: I = INT(RND * 70) + 1: FLASH = 0
IF G = 15 THEN G = 13: GOTO 8990
IF G = 13 THEN G = 15
8990 PAINT (1, 1), 0: IF P < 0 THEN C = C + 4
IF PP + 40 > X AND PP - 40 < X THEN FLASH = 2
IF C > 149 THEN C = 150
LINE (0, 168)-(320, 200), 8, BF:
IF I = 25 THEN
LINE (U, 0)-(U + 40, 70), 9: LINE -(U + 80, 75), 9: LINE (U + 40, 70)-(U + 20, 100), 9:
LINE -(U - 30, 130), 9: LINE (U + 20, 100)-(U + 70, 140), 9: FLASH = 1
END IF
IF I = 35 THEN
LINE (U, 30)-(U + 100, 50), 9: LINE -(U + 80, 75), 9: LINE (U + 100, 50)-(U + 200, 70), 9:
LINE -(U + 200, 100), 9: LINE (U + 80, 75)-(U + 70, 90), 9: FLASH = 1
END IF
IF I = 45 THEN
LINE (U, 30)-(U + 10, 100), 9: LINE -(U - 30, 130), 9
LINE -(U + 10, 100), 9: LINE -(U + 80, 167), 9: FLASH = 1
END IF
IF FLASH = 1 THEN LINE (0, 168)-(320, 169), 11, BF: LINE (0, 170)-(320, 200), 7, BF
IF CROUCH = 0 AND SIDE = 2 THEN
IF FLASH > 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 8: LINE (X + 4, C + 8)-(X + 7, C + 5), 8
LINE -(X + 13, C + 6), 13, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF FLASH = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X - 1, C + 10)-(X - 3, C + 18), 0, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 8)-(X + 6, C + 5), 0: LINE (X + 4, C + 8)-(X + 7, C + 5), 0
LINE -(X + 13, C + 6), 4, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 6:
END IF
END IF
IF CROUCH = 0 AND SIDE = 1 THEN
IF FLASH > 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 8: LINE (X - 4, C + 8)-(X - 7, C + 5), 8
LINE -(X - 13, C + 6), 13, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
IF FLASH = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X + 1, C + 10)-(X + 3, C + 18), 0, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 7)-(X + 3, C + 10), 6: LINE (X - 3, C + 7)-(X - 6, C + 7), 6
LINE (X - 3, C + 8)-(X - 6, C + 5), 0: LINE (X - 4, C + 8)-(X - 7, C + 5), 0
LINE -(X - 13, C + 6), 4, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
END IF
IF CROUCH = 1 THEN
IF FLASH > 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF FLASH = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 1, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 0, BF:
CIRCLE (X, C + 10), 2, 6: PAINT (X, C + 10), 6
LINE (X + 3, C + 14)-(X + 1, C + 18), 0, BF
END IF
END IF
CIRCLE (150, 13), 200, 8, , , .1: PAINT (120, 13), 8:
IF FLASH = 1 THEN CIRCLE (150, 13), 200, 9, , , .1: PAINT (120, 13), 9:
IF X < 10 THEN X = 5
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10
IF ASO = 1 THEN PP = PP - 10
LINE (PP + 5, CC)-(PP - 5, CC), G:
LINE (PP - 25, 169)-(PP + 25, 169), 4: LINE (PP - 15, 169)-(PP + 15, 169), 13
LINE (PP - 2, 169)-(PP + 2, 169), G
IF START = 1 THEN C = C + 10
IF C = 150 THEN START = 0
IF X > 315 THEN X = 5: ASO = 0: PP = 360: Z = 148: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 2268
FOR T = 1 TO 20: IF FLASH = 0 OR FLASH = 2 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 8:
IF FLASH = 1 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 11:
IF Y(T) > 167 THEN Y(T) = 0
IF U(T) > 320 THEN U(T) = 0
U(T) = U(T) + I(T): Y(T) = Y(T) + O(T)
NEXT T:
PCOPY 1, 0: movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " THEN
IF PP > 5 AND PP < 315 THEN GOTO 8977
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
CROUCH = 0
END IF
GOTO 8977
2268 CLS : RANDOMIZE TIMER: U = INT(RND * 320) + 1: I = INT(RND * 70) + 1:
FLASH = 0: FLASHQ = 0: QQW = RND * 5: IF DERE = 1 THEN QQW = 0
IF G = 15 THEN G = 13: GOTO 8990000
IF G = 13 THEN G = 15
8990000 PAINT (1, 1), 0: IF P < 0 THEN C = C + 4
IF PP + 40 > X AND PP - 40 < X THEN FLASH = 2
IF PP + 40 > Z AND PP - 40 < Z THEN FLASHQ = 2
IF I > 35 THEN QQW = QQW * -1
Z = Z + QQW: IF Z > 300 THEN Z = 300
IF C > 149 THEN C = 150
LINE (0, 168)-(320, 200), 8, BF: B = 148:
IF I = 25 THEN
LINE (U, 0)-(U + 40, 70), 9: LINE -(U + 80, 75), 9: LINE (U + 40, 70)-(U + 20, 100), 9:
LINE -(U - 30, 130), 9: LINE (U + 20, 100)-(U + 70, 140), 9: FLASH = 1: FLASHQ = 1
END IF
IF I = 35 THEN
LINE (U, 30)-(U + 100, 50), 9: LINE -(U + 80, 75), 9: LINE (U + 100, 50)-(U + 200, 70), 9:
LINE -(U + 200, 100), 9: LINE (U + 80, 75)-(U + 70, 90), 9: FLASH = 1: FLASHQ = 1
END IF
IF I = 45 THEN
LINE (U, 30)-(U + 10, 100), 9: LINE -(U - 30, 130), 9
LINE -(U + 10, 100), 9: LINE -(U + 80, 167), 9: FLASH = 1: FLASHQ = 1
END IF
IF FLASH = 1 THEN LINE (0, 168)-(320, 169), 11, BF: LINE (0, 170)-(320, 200), 7, BF
IF DERE > 0 THEN
IF FLASHQ = 0 THEN
CIRCLE (Z, 170), 60, 4, , , .05: PAINT (Z, 170), 4
LINE (Z - 12, B + 24)-(Z + 2, B + 22), 0: LINE -(Z + 10, B + 20), 8
LINE (Z + 3, B + 15)-(Z + 10, B + 21), 0: LINE -(Z + 21, B + 20), 8
LINE (Z, B + 25)-(Z - 2, B + 11), 8: LINE -(Z - 5, B + 20), 0
LINE (Z - 1, B + 25)-(Z - 5, B + 15), 8: LINE -(Z - 9, B + 20), 0
CIRCLE (Z, B + 24), 2, 0, , , .5: PAINT (Z, B + 24), 0
END IF
IF FLASHQ > 0 THEN
CIRCLE (Z, 170), 60, 12, , , .05: PAINT (Z, 170), 12
LINE (Z - 12, B + 24)-(Z + 2, B + 22), 8: LINE -(Z + 10, B + 20), 7
LINE (Z + 3, B + 15)-(Z + 10, B + 21), 8: LINE -(Z + 21, B + 20), 7
LINE (Z, B + 25)-(Z - 2, B + 11), 7: LINE -(Z - 5, B + 20), 8
LINE (Z - 1, B + 25)-(Z - 5, B + 15), 7: LINE -(Z - 9, B + 20), 8
CIRCLE (Z, B + 24), 2, 8, , , .5: PAINT (Z, B + 24), 8
END IF
END IF
IF CROUCH = 0 AND SIDE = 2 AND DEAD = 0 THEN
IF FLASH > 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 8: LINE (X + 4, C + 8)-(X + 7, C + 5), 8
LINE -(X + 13, C + 6), 13, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF FLASH = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X - 1, C + 10)-(X - 3, C + 18), 0, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 8)-(X + 6, C + 5), 0: LINE (X + 4, C + 8)-(X + 7, C + 5), 0
LINE -(X + 13, C + 6), 4, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 6:
END IF
END IF
IF G = 15 AND DERE = 0 THEN
IF FLASHQ > 0 THEN
LINE (Z, B)-(Z + 2, B - 3), 8: LINE -(Z + 6, B + 20), 7
LINE (Z + 1, B + 1)-(Z + 4, B - 3), 8: LINE -(Z + 10, B + 20), 7
LINE (Z + 2, B + 1)-(Z + 7, B - 2), 8: LINE -(Z + 15, B + 20), 7
LINE (Z + 3, B + 1)-(Z + 10, B - 1), 8: LINE -(Z + 19, B + 20), 7
LINE (Z, B + 1)-(Z - 2, B - 3), 7: LINE -(Z - 3, B + 20), 8
LINE (Z - 1, B + 1)-(Z - 5, B - 4), 7: LINE -(Z - 7, B + 20), 8
LINE (Z - 2, B + 1)-(Z - 8, B - 2), 7: LINE -(Z - 12, B + 20), 8
LINE (Z - 3, B + 1)-(Z - 12, B - 3), 7: LINE -(Z - 16, B + 20), 8
CIRCLE (Z, B), 2, 8, , , .5: PAINT (Z, B), 8
END IF
IF FLASHQ = 0 THEN
LINE (Z, B)-(Z + 2, B - 3), 0: LINE -(Z + 6, B + 20), 8
LINE (Z + 1, B + 1)-(Z + 4, B - 3), 0: LINE -(Z + 10, B + 20), 8
LINE (Z + 2, B + 1)-(Z + 7, B - 2), 0: LINE -(Z + 15, B + 20), 8
LINE (Z + 3, B + 1)-(Z + 10, B - 1), 0: LINE -(Z + 19, B + 20), 8
LINE (Z, B + 1)-(Z - 2, B - 3), 8: LINE -(Z - 3, B + 20), 0
LINE (Z - 1, B + 1)-(Z - 5, B - 4), 8: LINE -(Z - 7, B + 20), 0
LINE (Z - 2, B + 1)-(Z - 8, B - 2), 8: LINE -(Z - 12, B + 20), 0
LINE (Z - 3, B + 1)-(Z - 12, B - 3), 8: LINE -(Z - 16, B + 20), 0
CIRCLE (Z, B), 2, 8, , , .5: PAINT (Z, B), 8
END IF
END IF
IF G = 13 AND DERE = 0 THEN
IF FLASHQ > 0 THEN
LINE (Z, B + 4)-(Z + 2, B - 1), 8: LINE -(Z + 10, B + 20), 7
LINE (Z + 1, B + 5)-(Z + 4, B - 1), 8: LINE -(Z + 12, B + 20), 7
LINE (Z + 2, B + 5)-(Z + 7, B), 8: LINE -(Z + 17, B + 20), 7
LINE (Z + 3, B + 5)-(Z + 10, B + 1), 8: LINE -(Z + 21, B + 20), 7
LINE (Z, B + 5)-(Z - 2, B - 1), 7: LINE -(Z - 5, B + 20), 8
LINE (Z - 1, B + 5)-(Z - 5, B - 2), 7: LINE -(Z - 9, B + 20), 8
LINE (Z - 2, B + 5)-(Z - 8, B), 7: LINE -(Z - 14, B + 20), 8
LINE (Z - 3, B + 5)-(Z - 12, B - 1), 7: LINE -(Z - 18, B + 20), 8
CIRCLE (Z, B + 4), 2, 8, , , .5: PAINT (Z, B + 4), 8
END IF
IF FLASHQ = 0 THEN
LINE (Z, B + 4)-(Z + 2, B - 1), 0: LINE -(Z + 10, B + 20), 8
LINE (Z + 1, B + 5)-(Z + 4, B - 1), 0: LINE -(Z + 12, B + 20), 8
LINE (Z + 2, B + 5)-(Z + 7, B), 0: LINE -(Z + 17, B + 20), 8
LINE (Z + 3, B + 5)-(Z + 10, B + 1), 0: LINE -(Z + 21, B + 20), 8
LINE (Z, B + 5)-(Z - 2, B - 1), 8: LINE -(Z - 5, B + 20), 0
LINE (Z - 1, B + 5)-(Z - 5, B - 2), 8: LINE -(Z - 9, B + 20), 0
LINE (Z - 2, B + 5)-(Z - 8, B), 8: LINE -(Z - 14, B + 20), 0
LINE (Z - 3, B + 5)-(Z - 12, B - 1), 8: LINE -(Z - 18, B + 20), 0
CIRCLE (Z, B + 4), 2, 0, , , .5: PAINT (Z, B + 4), 0
END IF
END IF
IF CROUCH = 0 AND SIDE = 1 AND DEAD = 0 THEN
IF FLASH > 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 8: LINE (X - 4, C + 8)-(X - 7, C + 5), 8
LINE -(X - 13, C + 6), 13, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
IF FLASH = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X + 1, C + 10)-(X + 3, C + 18), 0, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 7)-(X + 3, C + 10), 6: LINE (X - 3, C + 7)-(X - 6, C + 7), 6
LINE (X - 3, C + 8)-(X - 6, C + 5), 0: LINE (X - 4, C + 8)-(X - 7, C + 5), 0
LINE -(X - 13, C + 6), 4, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
END IF
IF CROUCH = 1 AND DEAD = 0 THEN
IF FLASH > 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF FLASH = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 1, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 0, BF:
CIRCLE (X, C + 10), 2, 6: PAINT (X, C + 10), 6
LINE (X + 3, C + 14)-(X + 1, C + 18), 0, BF
END IF
END IF
CIRCLE (70, 43), 100, 8, , , .1: PAINT (70, 43), 8:
CIRCLE (130, 13), 200, 8, , , .1: PAINT (130, 13), 8:
CIRCLE (230, 43), 120, 8, , , .1: PAINT (230, 43), 8:
IF FLASH = 1 THEN CIRCLE (70, 43), 100, 9, , , .08: PAINT (70, 43), 9: CIRCLE (130, 13), 200, 9, , , .1: PAINT (130, 13), 9: CIRCLE (230, 43), 120, 9, , , .1: PAINT (230, 43), 9:
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10
IF ASO = 1 THEN PP = PP - 10
LINE (PP + 5, CC)-(PP - 5, CC), G:
LINE (PP - 25, 169)-(PP + 25, 169), 4: LINE (PP - 15, 169)-(PP + 15, 169), 13
LINE (PP - 2, 169)-(PP + 2, 169), G
IF START = 1 THEN C = C + 10
IF C = 150 THEN START = 0
IF X < 5 THEN X = 315: ASO = 0: PP = 360: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 8977
IF X > 315 THEN X = 5: ASO = 0: PP = 360: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 897777
IF PP > Z - 20 AND PP < Z + 20 AND CC > 143 AND DERE = 0 THEN
ASO = 0: SOUND 45, .7: HITY = HITY + 1
CIRCLE (PP, CC), 5, 4: PAINT (PP, CC), 4: CIRCLE (PP, CC), 4, 12: PAINT (PP, CC), 12
CIRCLE (PP, CC), 3, 14: PAINT (PP, CC), 14: CIRCLE (PP, CC), 2, 15: PAINT (PP, CC), 15:
LINE (PP - 25, 169)-(PP + 25, 169), 8: LINE (PP - 45, 169)-(PP, 169), 4
LINE (PP - 35, 169)-(PP, 169), 12: LINE (PP - 20, 169)-(PP, 169), 14: LINE (PP - 10, 169)-(PP + 25, 169), 15
PP = 3000
END IF
IF X > Z - 30 AND DEAD = 0 AND DERE = 0 THEN
DIM UUU(80): DIM YUU(80):  DIM IUU(80): DIM OUU(80): DIM HUU(80)
FOR T = 1 TO 80: RANDOMIZE TIMER: YUU(T) = RND * 167 + 1: IUU(T) = RND * .6 + 1
OUU(T) = RND * 5 + 1: UUU(T) = X - IUU(T): OUU(T) = OUU(T) * -1: IF YUU(T) < 100 THEN YUU(T) = YUU(T) + 67
NEXT: DEAD = 1: SOUND 345, 1: SOUND 245, 1: SOUND 145, 1: SOUND 45, 1
END IF
IF DEAD = 1 THEN
CIRCLE (X, 170), 50, 4, , , .05: PAINT (X, 170), 4
FOR T = 1 TO 80: PSET (UUU(T), YUU(T)), 4: IF FLASH > 0 THEN PSET (UUU(T), YUU(T) - 1), 12:  CIRCLE (X, 170), 50, 12, , , .05: PAINT (X, 170), 12
IF YUU(T) > 170 THEN HUU(T) = 1: CIRCLE (UUU(T), YUU(T)), IUU(T) + 3, 4, , , .2: PAINT (UUU(T), YUU(T)), 4
IF FLASH > 0 AND HUU(T) = 1 THEN CIRCLE (UUU(T), YUU(T)), IUU(T) + 3, 12, , , .2: PAINT (UUU(T), YUU(T)), 12
IF HUU(T) = 0 THEN OUU(T) = OUU(T) + .1: UUU(T) = UUU(T) - IUU(T): YUU(T) = YUU(T) + OUU(T)
NEXT T:
CFG = CFG + 1: IF CFG > 200 THEN END
END IF
IF HITY > 9 THEN DERE = 1
FOR T = 1 TO 20: IF FLASH = 0 OR FLASH = 2 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 8:
IF FLASH = 1 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 11:
IF Y(T) > 167 THEN Y(T) = 0
IF U(T) > 320 THEN U(T) = 0
U(T) = U(T) + I(T): Y(T) = Y(T) + O(T)
NEXT T:
PCOPY 1, 0
movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEAD = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEAD = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEAD = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEAD = 0 AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND DEAD = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 2268
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
CROUCH = 0
END IF
GOTO 2268
897777 CLS : RANDOMIZE TIMER: U = INT(RND * 320) + 1: I = INT(RND * 70) + 1: FLASH = 0
IF G = 15 THEN G = 13: GOTO 8998870
IF G = 13 THEN G = 15
8998870 PAINT (1, 1), 0: IF P < 0 THEN C = C + 4
IF PP + 40 > X AND PP - 40 < X THEN FLASH = 2
IF C > 149 THEN C = 150
LINE (0, 168)-(320, 200), 8, BF:
IF I = 25 THEN
LINE (U, 0)-(U + 40, 70), 9: LINE -(U + 80, 75), 9: LINE (U + 40, 70)-(U + 20, 100), 9:
LINE -(U - 30, 130), 9: LINE (U + 20, 100)-(U + 70, 140), 9: FLASH = 1
END IF
IF I = 35 THEN
LINE (U, 30)-(U + 100, 50), 9: LINE -(U + 80, 75), 9: LINE (U + 100, 50)-(U + 200, 70), 9:
LINE -(U + 200, 100), 9: LINE (U + 80, 75)-(U + 70, 90), 9: FLASH = 1
END IF
IF I = 45 THEN
LINE (U, 30)-(U + 10, 100), 9: LINE -(U - 30, 130), 9
LINE -(U + 10, 100), 9: LINE -(U + 80, 167), 9: FLASH = 1
END IF
IF FLASH = 1 THEN LINE (0, 168)-(320, 169), 11, BF: LINE (0, 170)-(320, 200), 7, BF
IF CROUCH = 0 AND SIDE = 2 THEN
IF FLASH > 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 8: LINE (X + 4, C + 8)-(X + 7, C + 5), 8
LINE -(X + 13, C + 6), 13, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF FLASH = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X - 1, C + 10)-(X - 3, C + 18), 0, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 8)-(X + 6, C + 5), 0: LINE (X + 4, C + 8)-(X + 7, C + 5), 0
LINE -(X + 13, C + 6), 4, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 6:
END IF
END IF
IF CROUCH = 0 AND SIDE = 1 THEN
IF FLASH > 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 8: LINE (X - 4, C + 8)-(X - 7, C + 5), 8
LINE -(X - 13, C + 6), 13, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
IF FLASH = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X + 1, C + 10)-(X + 3, C + 18), 0, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 7)-(X + 3, C + 10), 6: LINE (X - 3, C + 7)-(X - 6, C + 7), 6
LINE (X - 3, C + 8)-(X - 6, C + 5), 0: LINE (X - 4, C + 8)-(X - 7, C + 5), 0
LINE -(X - 13, C + 6), 4, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
END IF
IF CROUCH = 1 THEN
IF FLASH > 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF FLASH = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 1, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 0, BF:
CIRCLE (X, C + 10), 2, 6: PAINT (X, C + 10), 6
LINE (X + 3, C + 14)-(X + 1, C + 18), 0, BF
END IF
END IF
CIRCLE (110, 13), 300, 8, , , .1: PAINT (110, 13), 8:
IF FLASH = 1 THEN CIRCLE (110, 13), 300, 9, , , .1: PAINT (110, 13), 9:
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10
IF ASO = 1 THEN PP = PP - 10
LINE (PP + 5, CC)-(PP - 5, CC), G:
LINE (PP - 25, 169)-(PP + 25, 169), 4: LINE (PP - 15, 169)-(PP + 15, 169), 13
LINE (PP - 2, 169)-(PP + 2, 169), G
IF START = 1 THEN C = C + 10
IF C = 150 THEN START = 0
IF X < 5 THEN X = 315: ASO = 0: PP = 360: Z = 148: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 2268
IF X > 315 THEN X = 5: ASO = 0: PP = 360: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 8977777
FOR T = 1 TO 20: IF FLASH = 0 OR FLASH = 2 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 8:
IF FLASH = 1 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 11:
IF Y(T) > 167 THEN Y(T) = 0
IF U(T) > 320 THEN U(T) = 0
U(T) = U(T) + I(T): Y(T) = Y(T) + O(T)
NEXT T:
PCOPY 1, 0
movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " THEN
IF PP > 5 AND PP < 315 THEN GOTO 897777
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
CROUCH = 0
END IF
GOTO 897777
8977777 CLS : RANDOMIZE TIMER: U = INT(RND * 320) + 1: I = INT(RND * 70) + 1: FLASH = 0: FLASHWW = 0
IF G = 15 THEN G = 13: GOTO 89988870
IF G = 13 THEN G = 15
89988870 PAINT (1, 1), 0: IF P < 0 THEN C = C + 4
IF PP + 40 > X AND PP - 40 < X THEN FLASH = 2
IF PP + 40 > 180 AND PP - 40 < 300 THEN FLASHWW = 2
IF C > 149 THEN C = 150
LINE (0, 168)-(320, 200), 8, BF:
IF I = 25 THEN
LINE (U, 0)-(U + 40, 70), 9: LINE -(U + 80, 75), 9: LINE (U + 40, 70)-(U + 20, 100), 9:
LINE -(U - 30, 130), 9: LINE (U + 20, 100)-(U + 70, 140), 9: FLASH = 1: FLASHWW = 1
END IF
IF I = 35 THEN
LINE (U, 30)-(U + 100, 50), 9: LINE -(U + 80, 75), 9: LINE (U + 100, 50)-(U + 200, 70), 9:
LINE -(U + 200, 100), 9: LINE (U + 80, 75)-(U + 70, 90), 9: FLASH = 1: FLASHWW = 1
END IF
IF I = 45 THEN
LINE (U, 30)-(U + 10, 100), 9: LINE -(U - 30, 130), 9
LINE -(U + 10, 100), 9: LINE -(U + 80, 167), 9: FLASH = 1: FLASHWW = 1
END IF
IF FLASH = 1 THEN LINE (0, 168)-(320, 169), 11, BF: LINE (0, 170)-(320, 200), 7, BF
IF CROUCH = 0 AND SIDE = 2 AND DEATHQ = 0 THEN
IF FLASH > 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 8: LINE (X + 4, C + 8)-(X + 7, C + 5), 8
LINE -(X + 13, C + 6), 13, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF FLASH = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X - 1, C + 10)-(X - 3, C + 18), 0, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 8)-(X + 6, C + 5), 0: LINE (X + 4, C + 8)-(X + 7, C + 5), 0
LINE -(X + 13, C + 6), 4, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 6:
END IF
END IF
IF CROUCH = 0 AND SIDE = 1 AND DEATHQ = 0 THEN
IF FLASH > 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 8: LINE (X - 4, C + 8)-(X - 7, C + 5), 8
LINE -(X - 13, C + 6), 13, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
IF FLASH = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X + 1, C + 10)-(X + 3, C + 18), 0, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 7)-(X + 3, C + 10), 6: LINE (X - 3, C + 7)-(X - 6, C + 7), 6
LINE (X - 3, C + 8)-(X - 6, C + 5), 0: LINE (X - 4, C + 8)-(X - 7, C + 5), 0
LINE -(X - 13, C + 6), 4, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
END IF
IF CROUCH = 1 AND DEATHQ = 0 THEN
IF FLASH > 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF FLASH = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 1, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 0, BF:
CIRCLE (X, C + 10), 2, 6: PAINT (X, C + 10), 6
LINE (X + 3, C + 14)-(X + 1, C + 18), 0, BF
END IF
END IF
CIRCLE (170, 23), 200, 8, , , .2: PAINT (170, 23), 8:
IF FLASH = 1 THEN CIRCLE (170, 23), 200, 9, , , .2: PAINT (170, 23), 9:
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10
IF ASO = 1 THEN PP = PP - 10
LINE (PP + 5, CC)-(PP - 5, CC), G:
LINE (PP - 25, 169)-(PP + 25, 169), 4: LINE (PP - 15, 169)-(PP + 15, 169), 13
LINE (PP - 2, 169)-(PP + 2, 169), G
IF START = 1 THEN C = C + 10
IF C = 150 THEN START = 0
IF X < 5 THEN X = 315: ASO = 0: PP = 360: Z = 148: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 897777
FOR T = 1 TO 20:
IF HOPPER = 0 THEN
IF FLASH = 0 OR FLASH = 2 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 8:
IF FLASH = 1 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 11:
END IF
IF HOPPER > 0 THEN
IF FLASH = 0 OR FLASH = 2 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 4:
IF FLASH = 1 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 12:
END IF
IF Y(T) > 167 THEN Y(T) = 0
IF U(T) > 320 THEN U(T) = 0
U(T) = U(T) + I(T): Y(T) = Y(T) + O(T)
NEXT T:
IF HOPPER = 0 THEN
IF FLASHWW = 0 THEN
CIRCLE (260, 151), 61, 2, , , .1: PAINT (260, 151), 2: CIRCLE (215, 151), 15, 0, , , .2: PAINT (215, 151), 0
CIRCLE (200, 150), 5, 2, , , .4: PAINT (200, 150), 2: CIRCLE (195, 149), 1, 0
CIRCLE (199, 149), 1, 0: PSET (195, 149), 0: PSET (199, 149), 0
LINE (250, 147)-(270, 152), 8, BF: LINE (255, 147)-(290, 115), 8: LINE -(310, 170), 8
LINE (313, 170)-(303, 167), 8: LINE -(288, 130), 8: LINE -(270, 147), 8: PAINT (260, 145), 8
FOR J = 220 TO 260 STEP 10: LINE (J, 155)-(J + 10, 168), 8: NEXT
CIRCLE (153, 138), 50, 8, 6, 1, .7: CIRCLE (151, 140), 48, 8, 6, 1, .6
END IF
IF FLASHWW = 1 OR FLASHWW = 2 THEN
LINE (230, 147)-(250, 152), 8, BF: LINE (235, 147)-(270, 115), 8: LINE -(290, 167), 8
LINE (293, 167)-(283, 167), 8: LINE -(268, 130), 8: LINE -(250, 147), 8: PAINT (240, 145), 8
FOR J = 220 TO 270 STEP 10: LINE (J - 4, 155)-(J - 14, 168), 8: NEXT
CIRCLE (260, 151), 61, 10, , , .1: PAINT (260, 151), 10: CIRCLE (215, 151), 15, 8, , , .2: PAINT (215, 151), 8
CIRCLE (200, 150), 5, 10, , , .4: PAINT (200, 150), 10:
IF FLASHWW = 2 THEN CIRCLE (195, 149), 1, G: CIRCLE (199, 149), 1, G: PSET (195, 149), G: PSET (199, 149), G
IF FLASHWW = 1 THEN CIRCLE (195, 149), 1, 9: CIRCLE (199, 149), 1, 9: PSET (195, 149), 9: PSET (199, 149), 9
LINE (250, 147)-(270, 152), 2, BF: LINE (255, 147)-(290, 115), 2: LINE -(310, 170), 2
LINE (313, 170)-(303, 167), 2: LINE -(288, 130), 2: LINE -(270, 147), 2: PAINT (260, 145), 2
FOR J = 220 TO 260 STEP 10: LINE (J, 155)-(J + 10, 168), 7: NEXT
CIRCLE (153, 138), 50, 7, 6, 1, .7: CIRCLE (151, 140), 48, 7, 6, 1, .6
END IF
END IF
IF PP > 200 AND HOPPER = 0 AND CC > 140 THEN
CIRCLE (PP, CC), 10, 0: PAINT (PP, CC), 0: CIRCLE (PP, CC), 8, 8: PAINT (PP, CC), 8
CIRCLE (PP, CC), 6, 4: PAINT (PP, CC), 4: CIRCLE (PP, CC), 4, 12: PAINT (PP, CC), 12
CIRCLE (PP, CC), 2, 14: PAINT (PP, CC), 14: PSET (PP, CC), 15: LINE (PP - 30, 169)-(PP + 30, 169), 7
LINE (PP - 10, 169)-(PP + 10, 169), 15: HITT = HITT + 1: PP = -370: ASO = 0:
SOUND 45, .33: SOUND 245, .33: SOUND 445, .33
END IF
IF HOPPER = 0 AND X > 190 THEN DEATHQ = 1: SOUND 45, 2: RUCK = -5: XXX = X: C = 150
IF HOPPER = 0 AND I < 5 AND FORREST < 0 THEN FORREST = 195: SOUND 245, .3
IF HOPPER = 0 AND I > 65 AND FORRT < 0 THEN FORRT = 195: SOUND 120, .3
PSET (FORREST, 150), G - 2: PSET (FORRT, 150), G - 2
FORREST = FORREST - 2: FORRT = FORRT - 1.5
IF X + 3 > FORREST AND X - 3 < FORREST AND DEATHQ = 0 AND CROUCH = 0 AND C > 135 OR X + 3 > FORRT AND X - 3 < FORRT AND DEATHQ = 0 AND CROUCH = 0 AND C > 135 THEN
SOUND 100, 1: DEATHQ = 1: RUCK = -5: XXX = X: C = 150
END IF
IF DEATHQ = 1 THEN
JL = RND * 6: SIDE = 2: IF I > 35 THEN JL = JL * -1
IF JL < 0 THEN SIDE = 1
IF FLASH = 0 THEN
IF SIDE = 1 THEN
LINE (XXX - 2, C + 2)-(XXX + 3, C + 10), 1, BF: LINE (XXX + 1, C + 10)-(XXX + 3, C + 18), 0, BF
LINE (XXX - 1, C + 10)-(XXX - 2, C + 18), 0, BF: PSET (XXX, C + 10), 0
LINE (XXX + 3, C + 7)-(XXX + 3, C + 10), 6: LINE (XXX - 3, C + 7)-(XXX - 6, C + 7), 6
LINE (XXX - 3, C + 8)-(XXX - 6, C + 5), 0: LINE (XXX - 4, C + 8)-(XXX - 7, C + 5), 0
LINE -(XXX - 13, C + 6), 4, BF: FOR KLI = XXX - 7 TO XXX - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
CIRCLE (X, 168), 2, 6: PAINT (X, 168), 6
END IF
IF SIDE = 2 THEN
LINE (XXX + 2, C + 2)-(XXX - 3, C + 10), 1, BF: LINE (XXX - 1, C + 10)-(XXX - 3, C + 18), 0, BF
LINE (XXX + 1, C + 10)-(XXX + 2, C + 18), 0, BF: PSET (XXX, C + 10), 0
LINE (XXX + 3, C + 8)-(XXX + 6, C + 5), 0: LINE (XXX + 4, C + 8)-(XXX + 7, C + 5), 0
LINE -(XXX + 13, C + 6), 4, BF: FOR KLI = XXX + 7 TO XXX + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (XXX - 2, C + 7)-(XXX + 4, C + 7), 6: CIRCLE (X, 168), 2, 6: PAINT (X, 168), 6
END IF
PSET (XXX - 2 + G, 145 - G), 4: PSET (XXX - 14 + G, 158 - G), 4
PSET (XXX + 12 - G, 165 - G), 4: PSET (XXX - 14 + G, 138), 4
PSET (XXX - 4 + G, 149 - G), 4: PSET (XXX - 11 + G, 129 + G), 4
PSET (XXX - 12 + G, 155 - G), 4: PSET (XXX - 14 + G, 138), 4
LINE (XXX - 2, C + 1)-(XXX + 2, C + 1), 4
END IF
IF FLASH > 0 THEN
IF SIDE = 1 THEN
LINE (XXX - 2, C + 2)-(XXX + 3, C + 10), 9, BF: LINE (XXX + 1, C + 10)-(XXX + 3, C + 18), 8, BF
LINE (XXX - 1, C + 10)-(XXX - 2, C + 18), 8, BF: PSET (XXX, C + 10), 8
LINE (XXX + 3, C + 7)-(XXX + 3, C + 10), 14: LINE (XXX - 3, C + 7)-(XXX - 6, C + 7), 14
LINE (XXX - 3, C + 8)-(XXX - 6, C + 5), 8: LINE (XXX - 4, C + 8)-(XXX - 7, C + 5), 8
LINE -(XXX - 13, C + 6), 13, BF: FOR KLI = XXX - 7 TO XXX - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
CIRCLE (X, 168), 2, 14: PAINT (X, 168), 14
END IF
IF SIDE = 2 THEN
LINE (XXX + 2, C + 2)-(XXX - 3, C + 10), 9, BF: LINE (XXX - 1, C + 10)-(XXX - 3, C + 18), 8, BF
LINE (XXX + 1, C + 10)-(XXX + 2, C + 18), 8, BF: PSET (XXX, C + 10), 8
LINE (XXX + 3, C + 8)-(XXX + 6, C + 5), 8: LINE (XXX + 4, C + 8)-(XXX + 7, C + 5), 8
LINE -(XXX + 13, C + 6), 13, BF: FOR KLI = XXX + 7 TO XXX + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (XXX - 2, C + 7)-(XXX + 4, C + 7), 14: CIRCLE (X, 168), 2, 14: PAINT (X, 168), 14
END IF
PSET (XXX - 2 + G, 145 - G), 12: PSET (XXX - 14 + G, 158 - G), 12
PSET (XXX + 12 - G, 165 - G), 12: PSET (XXX - 14 + G, 138), 12
PSET (XXX - 4 + G, 149 - G), 12: PSET (XXX - 11 + G, 129 + G), 12
PSET (XXX - 12 + G, 155 - G), 12: PSET (XXX - 14 + G, 138), 12
LINE (XXX - 2, C + 1)-(XXX + 2, C + 1), 12
END IF
RUCK = RUCK + .25: IF RUCK > -.1 THEN RUCK = 0
X = X + RUCK: XXX = XXX + JL: SPIKE = SPIKE + 1: IF SPIKE > 200 THEN END
END IF
IF HOPPER = 1 THEN
IF FLASHWW = 0 THEN CIRCLE (250, 170), 100, 4, , , .05: PAINT (250, 170), 4: LINE (200, 169)-(260, 170), 2, B
IF FLASHWW > 0 THEN CIRCLE (250, 170), 100, 12, , , .05: PAINT (250, 170), 12: LINE (200, 169)-(260, 170), 10, B
END IF
IF HITT > 19 AND HOPPER = 0 THEN HOPPER = 1: PAINT (1, 1), 4: FOR QWY = 1000 TO 45 STEP -30: SOUND QWY, .1: NEXT
IF DEATHQ > 0 AND X < 10 THEN X = 10
IF X > 315 THEN X = 5: ASO = 0: PP = 360: Z = 148: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 7777
PCOPY 1, 0
movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) AND DEATHQ = 0 THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) AND DEATHQ = 0 THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) AND DEATHQ = 0 THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND DEATHQ = 0 AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND DEATHQ = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 8977777
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
CROUCH = 0
END IF
GOTO 8977777
7777 CLS : RANDOMIZE TIMER: U = INT(RND * 320) + 1: I = INT(RND * 70) + 1: FLASH = 0
IF G = 15 THEN G = 13: GOTO 8999888870
IF G = 13 THEN G = 15
8999888870 PAINT (1, 1), 0: IF P < 0 THEN C = C + 4
IF PP + 40 > X AND PP - 40 < X THEN FLASH = 2
IF C > 149 THEN C = 150
LINE (0, 168)-(320, 200), 8, BF:
IF I = 25 THEN
LINE (U, 0)-(U + 40, 70), 9: LINE -(U + 80, 75), 9: LINE (U + 40, 70)-(U + 20, 100), 9:
LINE -(U - 30, 130), 9: LINE (U + 20, 100)-(U + 70, 140), 9: FLASH = 1
END IF
IF I = 35 THEN
LINE (U, 30)-(U + 100, 50), 9: LINE -(U + 80, 75), 9: LINE (U + 100, 50)-(U + 200, 70), 9:
LINE -(U + 200, 100), 9: LINE (U + 80, 75)-(U + 70, 90), 9: FLASH = 1
END IF
IF I = 45 THEN
LINE (U, 30)-(U + 10, 100), 9: LINE -(U - 30, 130), 9
LINE -(U + 10, 100), 9: LINE -(U + 80, 167), 9: FLASH = 1
END IF
IF FLASH = 1 THEN LINE (0, 168)-(320, 169), 11, BF: LINE (0, 170)-(320, 200), 7, BF
IF CROUCH = 0 AND SIDE = 2 AND WARP = 0 THEN
IF FLASH > 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X - 1, C + 10)-(X - 3, C + 18), 8, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 8)-(X + 6, C + 5), 8: LINE (X + 4, C + 8)-(X + 7, C + 5), 8
LINE -(X + 13, C + 6), 13, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 14:
END IF
IF FLASH = 0 THEN
LINE (X + 2, C + 2)-(X - 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X - 1, C + 10)-(X - 3, C + 18), 0, BF
LINE (X + 1, C + 10)-(X + 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 8)-(X + 6, C + 5), 0: LINE (X + 4, C + 8)-(X + 7, C + 5), 0
LINE -(X + 13, C + 6), 4, BF: FOR KLI = X + 7 TO X + 13 STEP 2: PSET (KLI, C + 6), G - 1: NEXT
LINE (X - 2, C + 7)-(X + 4, C + 7), 6:
END IF
END IF
IF CROUCH = 0 AND SIDE = 1 AND WARP = 0 THEN
IF FLASH > 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 9, BF
CIRCLE (X, C), 2, 14: PAINT (X, C), 14: LINE (X + 1, C + 10)-(X + 3, C + 18), 8, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 8, BF: PSET (X, C + 10), 8
LINE (X + 3, C + 7)-(X + 3, C + 10), 14: LINE (X - 3, C + 7)-(X - 6, C + 7), 14
LINE (X - 3, C + 8)-(X - 6, C + 5), 8: LINE (X - 4, C + 8)-(X - 7, C + 5), 8
LINE -(X - 13, C + 6), 13, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
IF FLASH = 0 THEN
LINE (X - 2, C + 2)-(X + 3, C + 10), 1, BF
CIRCLE (X, C), 2, 6: PAINT (X, C), 6: LINE (X + 1, C + 10)-(X + 3, C + 18), 0, BF
LINE (X - 1, C + 10)-(X - 2, C + 18), 0, BF: PSET (X, C + 10), 0
LINE (X + 3, C + 7)-(X + 3, C + 10), 6: LINE (X - 3, C + 7)-(X - 6, C + 7), 6
LINE (X - 3, C + 8)-(X - 6, C + 5), 0: LINE (X - 4, C + 8)-(X - 7, C + 5), 0
LINE -(X - 13, C + 6), 4, BF: FOR KLI = X - 7 TO X - 13 STEP -2: PSET (KLI, C + 6), G - 1: NEXT
END IF
END IF
IF CROUCH = 1 AND WARP = 0 THEN
IF FLASH > 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 9, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 8, BF:
CIRCLE (X, C + 10), 2, 14: PAINT (X, C + 10), 14
LINE (X + 3, C + 14)-(X + 1, C + 18), 8, BF
END IF
IF FLASH = 0 THEN
LINE (X - 3, C + 9)-(X + 3, C + 14), 1, BF: LINE (X - 3, C + 14)-(X - 1, C + 18), 0, BF:
CIRCLE (X, C + 10), 2, 6: PAINT (X, C + 10), 6
LINE (X + 3, C + 14)-(X + 1, C + 18), 0, BF
END IF
END IF
CIRCLE (110, 13), 300, 8, , , .1: PAINT (110, 13), 8:
IF FLASH = 1 THEN CIRCLE (110, 13), 300, 9, , , .1: PAINT (110, 13), 9:
IF PP > 235 THEN PP = 340
TY = INT(RND * 3000) + 1000: UY = RND * .8: SOUND TY, UY
IF X > 230 THEN WARP = 1:
C = C + P: P = P / 2
IF ASO = 2 THEN PP = PP + 10
IF ASO = 1 THEN PP = PP - 10
LINE (PP + 5, CC)-(PP - 5, CC), G:
LINE (PP - 25, 169)-(PP + 25, 169), 4: LINE (PP - 15, 169)-(PP + 15, 169), 13
LINE (PP - 2, 169)-(PP + 2, 169), G
IF START = 1 THEN C = C + 10
IF C = 150 THEN START = 0
FOR T = 1 TO 20: IF FLASH = 0 OR FLASH = 2 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 8:
IF FLASH = 1 THEN LINE (U(T), Y(T))-(U(T), Y(T) + 1), 11:
IF Y(T) > 167 THEN Y(T) = 0
IF U(T) > 320 THEN U(T) = 0
U(T) = U(T) + I(T): Y(T) = Y(T) + O(T):
IF Y(T) > 100 AND U(T) < 235 THEN U(T) = U(T) + 10
NEXT T: X = X + 4
IF WARP = 0 THEN FOR CV = 1 TO 40 STEP 3: CIRCLE (240, 140), CV, G - 4, , , 3: NEXT
IF WARP = 1 THEN LIKE = LIKE + 10: FOR CV = LIKE TO 40 + LIKE STEP LIKE / 5: CIRCLE (240, 140), CV, G - 4, , , 3: NEXT
IF LIKE > 260 THEN END
IF X < 5 THEN X = 315: ASO = 0: PP = 360: Z = 148: FOR T = 1 TO 20: U(T) = U(T) - 4: Y(T) = Y(T) + 23: NEXT: GOTO 8977777
PCOPY 1, 0
movin$ = INKEY$:
IF movin$ = CHR$(0) + CHR$(75) THEN X = X - 5: SIDE = 1: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(77) THEN X = X + 5: SIDE = 2: CROUCH = 0
IF movin$ = CHR$(0) + CHR$(80) THEN CROUCH = 1
IF movin$ = CHR$(0) + CHR$(72) AND C > 149 THEN P = P - 20: CROUCH = 0
IF movin$ = " " AND WARP = 0 THEN
IF PP > 5 AND PP < 315 THEN GOTO 7777
IF SIDE = 2 THEN PP = X + 10: ASO = 2: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
IF SIDE = 1 THEN PP = X - 10: ASO = 1: CC = C + 5: FOR HU = 3000 TO 1000 STEP -100: SOUND HU, .03: NEXT
CROUCH = 0
END IF
GOTO 7777

END SUB