DIM HHHH(100): DIM IIII(100): DIM JJJJ(100): DIM OOOO(100): DIM NNNN(100)
DIM HHHHH(100): DIM IIIII(100): DIM JJJJJ(100): DIM OOOOO(100): DIM NNNNN(100)
CLS : SCREEN 12
PALETTE 0, 42
LOCATE 13, 32: PRINT "M A C I N C R A S H": LOCATE 15, 30:
PRINT "SSP PRODUCTIONS -- 1999":
LOCATE 17, 18: PRINT "Visit our website at angelfire.com/ks/qbcentral/": SLEEP 2
LOCATE 13, 32: PRINT "                   ": LOCATE 15, 30:
PRINT "                       ":
LOCATE 17, 18: PRINT "                                                ":

FOR X = 1050 TO 0 STEP -2: LINE (0, X)-(X, 149), 4:
 NEXT
COLOR 4: LOCATE 1, 1: PRINT "SSP PRODUCTIONS": Z = 1.3:
FOR X = 0 TO 130: FOR Y = 0 TO 11
IF X < 60 THEN COL = 2
IF X > 60 THEN COL = 1
IF POINT(X, Y) = 4 THEN
CIRCLE (X * 5 + 2, Y * 5.2 * Z + 103), Z, 12, , , .4: CIRCLE (X * 4.989 + 2, Y * 5 * Z + 100), 2 + Z, 15, , , 3.2:
CIRCLE (X * 4.989 + 2, Y * 5 * Z + 101), 1 + Z, 15:
END IF
Z = Z * 1.00072: NEXT: NEXT
LOCATE 1, 1: COLOR 0:  PRINT "SSP PRODUCTIONS": LOCATE 16, 2:
FOR X = 42 TO 0 STEP -.5: PALETTE 0, X: NEXT X: COLOR 12: SLEEP 2
DO
FOR ign = 235 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 0: BBB = BBB - 1
IF PEC > 20000 THEN GGG = GGG - 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
PEC = PEC + 1: IF PEC > 40000 THEN PEC = 0: GOTO 8302874
NEXT ign: LOOP
8302874 CLS : SCREEN 9
SCREEN 12: RANDOMIZE TIMER
LINE (260, 140)-(380, 270), 7, BF: LINE (260, 140)-(260, 270), 15
LINE -(380, 270), 8: LINE -(380, 140), 8: LINE -(260, 140), 15: PSET (380, 140), 8
LINE (280, 150)-(360, 150), 9: LINE -(365, 155), 9: LINE -(365, 215), 9
LINE -(360, 220), 9: LINE -(280, 220), 9: LINE -(275, 215), 9: LINE -(275, 155), 9
LINE -(280, 150), 9: PAINT (320, 200), 9: LINE (330, 240)-(365, 241), 0, B
LINE (360, 242)-(365, 243), 0, B: LINE (330, 243)-(335, 243), 4, B
CIRCLE (310, 170), 1, 0: CIRCLE (330, 170), 1, 0: CIRCLE (320, 190), 10, 0, 0, 3.14, .4
LINE (280, 160)-(280, 210), 11: LINE (360, 160)-(360, 210), 1:
LINE (270, 255)-(370, 255), 8: LINE (308, 165)-(310, 163), 0: LINE (330, 163)-(332, 165), 0
COLOR 8: LOCATE 1, 1: PRINT "MacinCrash": Z = .15:
FOR X = 0 TO 130
FOR Y = 0 TO 11
IF X < 60 THEN COL = 2
IF X > 60 THEN COL = 1
IF POINT(X, Y) = 8 THEN CIRCLE (X * 5 + 125, Y * 50.2 * Z + 303), 3 + Z, 12, , , .4: CIRCLE (X * 4.989 + 125, Y * 50 * Z + 300), 2 + Z, 4, , , 3.2: CIRCLE (X * 4.989 + 125, Y * 50 * Z + 301), 1 + Z, 15, 0, 3.14, .6
Z = Z * 1: NEXT: NEXT
LOCATE 1, 1: COLOR 0: PRINT "MacinCrash"
X = 650: Y = 210: P = 0
2 P = P - .0001
CIRCLE (X, Y), 9, 4: LINE (X - 12, Y)-(X - 2, Y), 4: LINE (X + 12, Y)-(X + 2, Y), 4
LINE (X, Y - 12)-(X, Y - 2), 4:  LINE (X, Y + 12)-(X, Y + 2), 4
LINE (X - P, Y - 12 - Z)-(X - P, Y - 2 - Z), 0:  LINE (X - P, Y + 12 - Z)-(X - P, Y + 2 - Z), 0
CIRCLE (X - P, Y - Z), 9, 0: PSET (X + 12 - P, Y - Z), 0
CIRCLE (X, Y), 9, 4: LINE (X - 12, Y)-(X - 2, Y), 4: LINE (X + 12, Y)-(X + 2, Y), 4
LINE (X, Y - 12)-(X, Y - 2), 4:  LINE (X, Y + 12)-(X, Y + 2), 4
X = X + P: IF X < 393 THEN GOTO 9098
GOTO 2
9098 X = 320: Y = 180: LINE (381, 190)-(410, 225), 0, BF:
CIRCLE (X, Y), 9, 4: LINE (X - 12, Y)-(X - 2, Y), 4: LINE (X + 12, Y)-(X + 2, Y), 4
LINE (X, Y - 12)-(X, Y - 2), 4:  LINE (X, Y + 12)-(X, Y + 2), 4
LOCATE 29, 30: COLOR 15: COD = 0: PRINT "PRESS ANY KEY TO START",
DO WHILE INKEY$ = (""): SOUND 5000, .3
LOOP
FOR T = 1 TO 10 STEP 1.6
CIRCLE (340, 210), T, 12: CIRCLE (297, 260), T, 12
CIRCLE (274, 210), T, 8: CIRCLE (260, 230), T, 15
CIRCLE (350, 258), T, 15: CIRCLE (281, 265), T, 12
CIRCLE (279, 213), T, 4: CIRCLE (405, 253), T, 7
CIRCLE (380, 251), T, 0: CIRCLE (410, 243), T, 15
CIRCLE (390, 215), T, 12: LEI = INT(RND * 300) + 45: SOUND LEI, .1
d$ = INKEY$: IF d$ = "m" OR d$ = "M" THEN FOR JHG = 45 TO 1000 STEP 100: SOUND JHG, .1: NEXT: COD = 1
NEXT T
FOR T = 10 TO 150 STEP 2
CIRCLE (340, 210), T, 12: CIRCLE (297, 260), T, 4
CIRCLE (274, 210), T, 0: CIRCLE (260, 230), T, 14
CIRCLE (350, 258), T, 14: CIRCLE (281, 265), T, 4
CIRCLE (279, 213), T, 6: CIRCLE (405, 253), T, 8
CIRCLE (380, 251), T, 0: CIRCLE (410, 243), T, 14
CIRCLE (390, 215), T, 4: LEI = INT(RND * 300) + 45: SOUND LEI, .1
d$ = INKEY$: IF d$ = "m" OR d$ = "M" THEN FOR JHG = 45 TO 1000 STEP 100: SOUND JHG, .1: NEXT: COD = 1

NEXT T
FOR T = 150 TO 200 STEP 2.4
CIRCLE (340, 210), T, 12: CIRCLE (297, 260), T, 4
CIRCLE (274, 210), T, 0: CIRCLE (260, 230), T, 14
CIRCLE (350, 258), T, 14: CIRCLE (281, 265), T, 4
CIRCLE (279, 213), T, 6: CIRCLE (405, 253), T, 8
CIRCLE (380, 251), T, 0: CIRCLE (410, 243), T, 14
CIRCLE (390, 215), T, 4: LEI = INT(RND * 300) + 45: SOUND LEI, .1
NEXT T
FOR T = 200 TO 250 STEP 3
CIRCLE (340, 210), T, 4: CIRCLE (297, 260), T, 8
CIRCLE (274, 210), T, 0: CIRCLE (260, 230), T, 12
CIRCLE (350, 258), T, 12: CIRCLE (281, 265), T, 8
CIRCLE (279, 213), T, 0: CIRCLE (405, 253), T, 0
CIRCLE (380, 251), T, 0: CIRCLE (410, 243), T, 12
CIRCLE (390, 215), T, 0:
FOR ign = 235 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 1: BBB = BBB - 1
IF COD = 1 THEN GGG = GGG + 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
PEC = PEC + 1: NEXT ign:
NEXT T
FOR T = 250 TO 400 STEP 3
CIRCLE (340, 210), T, 0: CIRCLE (297, 260), T, 0
CIRCLE (274, 210), T, 0: CIRCLE (260, 230), T, 4
CIRCLE (350, 258), T, 4: CIRCLE (281, 265), T, 0
CIRCLE (279, 213), T, 0: CIRCLE (405, 253), T, 0
CIRCLE (380, 251), T, 0: CIRCLE (410, 243), T, 4
CIRCLE (390, 215), T, 0:
FOR ign = 235 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 1: BBB = BBB - 1
IF COD = 1 THEN GGG = GGG + 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
IF PEC > 20000 THEN GOTO 11042
PEC = PEC + 1: NEXT ign: NEXT T:
11042 PEC = 0: CLS : SCREEN 9:

'MacinCrash
G = INT(RND * 620) + 10: H = -20: TG = INT(RND * 620) + 10: TH = -150
TT = -2: TTT = -3: P = 0: Z = 0: KO = 0: ENDO = 0: PUR = 0: PUR2 = 0: BON = 0: BON2 = 0
SCREEN 12: RANDOMIZE TIMER
X = 320: Y = 240
22 IF SHOT > 0 AND SHOT < 2 THEN KL = 15: KK = 14: SHOT = SHOT + .07:
IF SHOT > 2 AND SHOT < 3 THEN KL = 7: KK = 12: SHOT = SHOT + .07:
IF SHOT > 3 AND SHOT < 4 THEN KL = 8: KK = 4: SHOT = SHOT + .07:
IF SHOT > 4 AND SHOT < 5 THEN KL = 0: KK = 0: SHOT = 0
CIRCLE (X, Y), 9, 4: LINE (X - 12, Y)-(X - 2, Y), 4: LINE (X + 12, Y)-(X + 2, Y), 4
LINE (X, Y - 12)-(X, Y - 2), 4:  LINE (X, Y + 12)-(X, Y + 2), 4
IF COD > 0 THEN
CIRCLE (X, Y), 9, 10: LINE (X - 12, Y)-(X - 2, Y), 10: LINE (X + 12, Y)-(X + 2, Y), 4
LINE (X, Y - 12)-(X, Y - 2), 10:  LINE (X, Y + 12)-(X, Y + 2), 10
END IF
IF X < 12 THEN P = 0: P = P + .25:
IF Y < 12 THEN Z = 0: Z = Z + .25:
IF X > 628 THEN P = 0: P = P - .25:
IF Y > 468 THEN Z = 0: Z = Z - .25:
PPP = PPP + 1: IF PPP > 1000 THEN CLS : PPP = 0
LINE (0, 0)-(640, 3), 0, BF: LINE (0, 477)-(640, 480), 0, BF
CIRCLE (C, B), 3, KK: PAINT (C, B), KK:
FOR ER = 318 TO 322: LINE (ER, 480)-(C, B), KL, , DF: NEXT
CIRCLE (X - P, Y - Z), 9, 0:  LINE (X - 12 - P, Y - Z)-(X - 2 - P, Y - Z), 0: LINE (X + 12 - P, Y - Z)-(X + 2 - P, Y - Z), 0
LINE (X - P, Y - 12 - Z)-(X - P, Y - 2 - Z), 0:  LINE (X - P, Y + 12 - Z)-(X - P, Y + 2 - Z), 0
CIRCLE (X - P, Y - Z), 11, 0: CIRCLE (X - P, Y - Z), 12, 0:
IF MAC < 2 THEN
LINE (G - 13, H - 10)-(G + 13, H + 22), 7, BF
LINE (G - 9, H - 6)-(G + 9, H + 10), 9, BF: PSET (G - 3, H - 1), 0: PSET (G + 3, H - 1), 0
LINE (G - 9, H + 15)-(G + 9, H + 15), 0: CIRCLE (G, H + 3), 4, 0, 3.14, 0, .7
LINE (G + 14, H - 10)-(G + 16, H + 22), 8, BF: LINE (G - 13, H - 12)-(G + 16, H - 10), 0
END IF
IF MAC = 2 THEN
QW = INT(RND * 4): IF QW = 0 THEN QW = 4
IF QW = 1 THEN QW = 12
IF QW = 2 THEN QW = 14
IF QW = 3 THEN QW = 0
IF YU > 34 THEN QW = 0
HGH = RND * 2: AGH = RND * 2
FOR TTTT = 1 TO 100
PSET (HHHH(TTTT) - JJJJ(TTTT), IIII(TTTT) - OOOO(TTTT)), 0
PSET (HHHH(TTTT), IIII(TTTT)), NNNN(TTTT)
HHHH(TTTT) = HHHH(TTTT) + JJJJ(TTTT)
OOOO(TTTT) = OOOO(TTTT) + .35
IIII(TTTT) = IIII(TTTT) + OOOO(TTTT)
HL = HL + 1
IF HL > 5 THEN
IF NNNN(TTTT) = 15 THEN NNNN(TTTT) = 14: GOTO 202
IF NNNN(TTTT) = 14 THEN NNNN(TTTT) = 12: GOTO 202
IF NNNN(TTTT) = 12 THEN NNNN(TTTT) = 4: GOTO 202
IF NNNN(TTTT) = 4 THEN NNNN(TTTT) = 6: GOTO 202
IF NNNN(TTTT) = 6 THEN NNNN(TTTT) = 0:
202 HL = 0
END IF
NEXT
YU = YU + .25: CIRCLE (G + HGH, H), YU, QW, , , HGH: CIRCLE (G, H + AGH), YU + 2, QW, , , AGH: H = H + .1
END IF
IF YU > 40 THEN LINE (G - 50, H - 55)-(G + 50, H + 57), 0, BF: YU = 0: H = -20: MAC = 0: G = INT(RND * 620) + 10: CO = CO + 1
IF X > G - 14 AND X < G + 14 AND Y > H - 11 AND Y < H + 23 AND MAC < 2 THEN X = G: Y = H: SOUND 5000 + DF, .4:  CIRCLE (G, H + 5), 20, 4: CIRCLE (G, H + 5), 21, 0: MAC = 1
IF MAC = 0 OR MAC = 1 THEN H = H + .25
IF H > 510 THEN G = INT(RND * 620) + 10: H = -30: CO = 0: PUR = 1: KO = KO + 1: XXX = 42
VVV = VVV + .75:  PSET (TTT, VVV), QW: PSET (TTT, VVV - .75), 0:
PSET (TTT - 8, VVV * 2.1 - 80), 7: LINE (TTT - 8, VVV * 2.1 - 80.75)-(TTT - 8, VVV * 2.1 - 81.75), 0:
PSET (TTT * .9, VVV * 1.3 - 50), 15: LINE (TTT * .9, VVV * 1.3 - 50.75)-(TTT * .9, VVV * 1.3 - 51.75), 0:
IF MAC = 1 AND H > 477 THEN Y = Y - 10: Z = -1: MAC = 0
IF MAC1 < 2 THEN
LINE (TG - 13, TH - 10)-(TG + 13, TH + 22), 7, BF
LINE (TG - 9, TH - 6)-(TG + 9, TH + 10), 9, BF: PSET (TG - 3, TH - 1), 0: PSET (TG + 3, TH - 1), 0
LINE (TG - 9, TH + 15)-(TG + 9, TH + 15), 0: CIRCLE (TG, TH + 3), 4, 0, 3.14, 0, .7
LINE (TG + 14, TH - 10)-(TG + 16, TH + 22), 8, BF: LINE (TG - 13, TH - 12)-(TG + 16, TH - 10), 0
END IF
IF MAC1 = 2 THEN
QW = INT(RND * 4): IF QW = 0 THEN QW = 4
IF QW = 1 THEN QW = 12
IF QW = 2 THEN QW = 14
IF QW = 3 THEN QW = 0
FOR TTTTT = 1 TO 100
PSET (HHHHH(TTTTT) - JJJJJ(TTTTT), IIIII(TTTTT) - OOOOO(TTTTT)), 0
PSET (HHHHH(TTTTT), IIIII(TTTTT)), NNNNN(TTTTT)
HHHHH(TTTTT) = HHHHH(TTTTT) + JJJJJ(TTTTT)
OOOOO(TTTTT) = OOOOO(TTTTT) + .35
IIIII(TTTTT) = IIIII(TTTTT) + OOOOO(TTTTT)
HEL = HEL + 1
IF HEL > 5 THEN
IF NNNNN(TTTTT) = 15 THEN NNNNN(TTTTT) = 14: GOTO 2029
IF NNNNN(TTTTT) = 14 THEN NNNNN(TTTTT) = 12: GOTO 2029
IF NNNNN(TTTTT) = 12 THEN NNNNN(TTTTT) = 4: GOTO 2029
IF NNNNN(TTTTT) = 4 THEN NNNNN(TTTTT) = 6: GOTO 2029
IF NNNNN(TTTTT) = 6 THEN NNNNN(TTTTT) = 0:
2029 HEL = 0
END IF
NEXT
IF YUK > 34 THEN QW = 0
HGH = RND * 2: AGH = RND * 2
YUK = YUK + .25: CIRCLE (TG + HGH, TH), YUK, QW, , , HGH: CIRCLE (TG, TH + AGH), YUK + 2, QW, , , AGH: TH = TH + .1
END IF
IF YUK > 40 THEN LINE (TG - 50, TH - 55)-(TG + 50, TH + 57), 0, BF: YUK = 0: TH = -20: MAC1 = 0: TG = INT(RND * 620) + 10:  CO = CO + 1
IF X > TG - 14 AND X < TG + 14 AND Y > TH - 11 AND Y < TH + 23 AND MAC1 < 2 THEN X = TG: Y = TH: CIRCLE (TG, TH + 5), 20, 4: CIRCLE (TG, TH + 5), 21, 0: MAC1 = 1: SOUND 5000 + DF, .4:
IF MAC1 = 0 OR MAC1 = 1 THEN TH = TH + .4
IF TH > 510 THEN TG = INT(RND * 620) + 10: TH = -30: CO = 0: PUR2 = 1: KO = KO + 1: XXX = 42
VV = VV + .5: PSET (TT, VV), 7: PSET (TT, VV - .5), 0: PSET (TT + 13, VV * 2 - 120), 7: LINE (TT + 13, VV * 2 - 121)-(TT + 13, VV * 2 - 122), 0
PSET (TT - 4, VV * 1.5 - 80), 15: LINE (TT - 4, VV * 1.5 - 81)-(TT - 4, VV * 1.5 - 82), 0

IF MAC1 = 1 AND TH > 477 THEN Y = Y - 10: Z = -1: MAC1 = 0
CIRCLE (X, Y), 9, 4: LINE (X - 12, Y)-(X - 2, Y), 4: LINE (X + 12, Y)-(X + 2, Y), 4
LINE (X, Y - 12)-(X, Y - 2), 4:  LINE (X, Y + 12)-(X, Y + 2), 4
X = X + P: Y = Y + Z
IF COD = 1 THEN
FOR ign = 255 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 0: BBB = BBB - 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
IF PEC > 20000 THEN COD = .5: PEC = 0
PEC = PEC + 1: NEXT ign:
END IF
IF ENDO = 1 THEN
FOR ign = 255 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 1: BBB = BBB - 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
IF PEC > 20000 THEN GOTO 110042
PEC = PEC + 1: NEXT ign:
END IF
IF PUR = 1 THEN PALETTE 0, XXX: XXX = XXX - 1
IF PUR = 1 AND XXX = 0 THEN PUR = 2: SOUND 45, .5
IF PUR2 = 1 THEN PALETTE 0, XXX: XXX = XXX - 1
IF PUR2 = 1 AND XXX = 0 THEN PUR2 = 2: SOUND 45, .5

IF KO > 9 THEN GOTO 90210
d$ = INKEY$
IF d$ = CHR$(0) + CHR$(72) THEN Z = Z - .05
IF d$ = CHR$(0) + CHR$(75) THEN P = P - .05
IF d$ = CHR$(0) + CHR$(80) THEN Z = Z + .05
IF d$ = CHR$(0) + CHR$(77) THEN P = P + .09
IF d$ = CHR$(27) THEN ENDO = 1
IF d$ = " " THEN
IF MAC = 1 THEN
MAC = 2: VVV = H: TTT = G: M = M + 2000
FOR TTTT = 1 TO 100
JJJJ(TTTT) = RND * 10
OOOO(TTTT) = RND * 10
UIGGG = INT(RND * 5) + 1
IF UIGGG = 1 THEN NNNN(TTTT) = 4
IF UIGGG = 2 THEN NNNN(TTTT) = 6
IF UIGGG = 3 THEN NNNN(TTTT) = 14
IF UIGGG = 4 THEN NNNN(TTTT) = 12
IF UIGGG = 5 THEN NNNN(TTTT) = 15
UIG = INT(RND * 2) + 1
IF UIG = 1 THEN JJJJ(TTTT) = JJJJ(TTTT) * -1
UIGG = INT(RND * 2) + 1
IF UIGG = 1 THEN OOOO(TTTT) = OOOO(TTTT) * -1
HHHH(TTTT) = G + JJJJ(TTTT)
IIII(TTTT) = H + OOOO(TTTT)
NEXT TTTT
END IF
IF MAC1 = 1 THEN
MAC1 = 2: VV = TH: TT = TG: M = M + 2000
FOR TTTTT = 1 TO 100
JJJJJ(TTTTT) = RND * 10
OOOOO(TTTTT) = RND * 10
UIGGG = INT(RND * 5) + 1
IF UIGGG = 1 THEN NNNNN(TTTTT) = 4
IF UIGGG = 2 THEN NNNNN(TTTTT) = 6
IF UIGGG = 3 THEN NNNNN(TTTTT) = 14
IF UIGGG = 4 THEN NNNNN(TTTTT) = 12
IF UIGGG = 5 THEN NNNNN(TTTTT) = 15
UIG = INT(RND * 2) + 1
IF UIG = 1 THEN JJJJJ(TTTTT) = JJJJJ(TTTTT) * -1
UIGG = INT(RND * 2) + 1
IF UIGG = 1 THEN OOOOO(TTTTT) = OOOOO(TTTTT) * -1
HHHHH(TTTTT) = TG + JJJJJ(TTTTT)
IIIII(TTTTT) = TH + OOOOO(TTTTT)
NEXT TTTTT
END IF

CIRCLE (C, B), 3, 0: PAINT (C, B), 0:
FOR ER = 318 TO 322: LINE (ER, 480)-(C, B), 0, , DF: NEXT
KK = 15: C = X: B = Y: DF = INT(RND * 1000) + 10
FOR ER = 318 TO 322: LINE (ER, 480)-(C, B), 14, , DF: NEXT
FOR Q = 200 TO 100 STEP -5:
SOUND Q, .04: NEXT: SHOT = 1:
END IF
UH = INT(RND * 15) + 1
IF CO = 10 THEN LOCATE 18, 35: COLOR 15: PRINT "IBM/PC BONUS": LOCATE 20, 38: COLOR UH: PRINT "$5000": BON = 1
IF BON = 1 THEN M = M + 10: NJ = NJ + 10: SOUND 45, .03
IF BON = 1 AND NJ > 4999 THEN SOUND 3000, .5: NJ = 0: BON = 0: CO = CO + 1
IF CO = 21 THEN LOCATE 18, 34: COLOR 15: PRINT "GATEWAY BONUS": LOCATE 20, 38: COLOR UH: PRINT "$10000": BON = 2
IF BON = 2 THEN M = M + 10: NJ = NJ + 10: SOUND 45, .03
IF BON = 2 AND NJ > 9999 THEN SOUND 3000, .5: NJ = 0: BON = 0: CO = CO + 1
IF CO = 32 THEN LOCATE 18, 36: COLOR 15: PRINT "DELL BONUS": LOCATE 20, 38: COLOR UH: PRINT "$30000": BON = 3
IF BON = 3 THEN M = M + 100: NJ = NJ + 100: SOUND 45, .03
IF BON = 3 AND NJ > 29999 THEN SOUND 3000, .5: NJ = 0: BON = 0:
IF PUR = 2 THEN LOCATE 18, 33: COLOR 15: PRINT "MACINTOSH PURCHASE": LOCATE 20, 38: COLOR 4: PRINT "-$2000": BON = 4
IF BON = 4 THEN M = M - 10: NJ = NJ - 10: SOUND 45, .03
IF BON = 4 AND NJ < -1999 THEN SOUND 45, .5: NJ = 0: PUR = 0: BON = 0
IF PUR2 = 2 THEN LOCATE 18, 33: COLOR 15: PRINT "MACINTOSH PURCHASE": LOCATE 20, 38: COLOR 4: PRINT "-$2000": BON2 = 5
IF BON2 = 5 THEN M = M - 10: NJP = NJP - 10: SOUND 100, .03
IF BON2 = 5 AND NJP < -1999 THEN SOUND 45, .5: NJP = 0: PUR2 = 0: BON2 = 0

LOCATE 29, 38: COLOR 12: PRINT "DAMAGE",
LOCATE 30, 38: COLOR 15: PRINT "$"; M,
GOTO 22
110042 SCREEN 9: PEC = 0
CLS : SCREEN 12:
LINE (260, 140)-(380, 270), 7, BF: LINE (260, 140)-(260, 270), 15
LINE -(380, 270), 8: LINE -(380, 140), 8: LINE -(260, 140), 15: PSET (380, 140), 8
LINE (280, 150)-(360, 150), 9: LINE -(365, 155), 9: LINE -(365, 215), 9
LINE -(360, 220), 9: LINE -(280, 220), 9: LINE -(275, 215), 9: LINE -(275, 155), 9
LINE -(280, 150), 9: PAINT (320, 200), 9: LINE (330, 240)-(365, 241), 0, B
LINE (360, 242)-(365, 243), 0, B: LINE (330, 243)-(335, 243), 4, B
CIRCLE (310, 170), 1, 0: CIRCLE (330, 170), 1, 0: CIRCLE (320, 190), 10, 0, 3.14, 0, .4
LINE (280, 160)-(280, 210), 11: LINE (360, 160)-(360, 210), 1:
LINE (270, 255)-(370, 255), 8: LINE (308, 163)-(310, 165), 0: LINE (330, 165)-(332, 163), 0
COLOR 8: LOCATE 1, 1: PRINT "Really quit? [y/n]": Z = .15:
FOR X = 0 TO 150
FOR Y = 0 TO 15
IF X < 60 THEN COL = 2
IF X > 60 THEN COL = 1
IF POINT(X, Y) = 8 THEN CIRCLE (X * 4.45 + 5, Y * 50.2 * Z + 303), 3 + Z, 12, , , .4: CIRCLE (X * 4.45 + 5, Y * 50 * Z + 300), 2 + Z, 4, , , 3.2: CIRCLE (X * 4.45 + 5, Y * 50 * Z + 301), 1 + Z, 15, 0, 3.14, .6
Z = Z * 1: NEXT: NEXT
LOCATE 1, 1: COLOR 0: PRINT "Really quit? [y/n]"
892 d$ = INKEY$:
IF d$ = "y" OR d$ = "Y" THEN GOTO 1010220
IF d$ = "n" OR d$ = "N" THEN GOTO 8302874
GOTO 892
1010220 LINE (0, 280)-(640, 480), 0, BF: SLEEP 2: LOCATE 18, 34:
COLOR 15: PRINT "Heh heh heh...": FOR T = 1 TO 30:
HUHH = INT(RND * 5000) + 500: SOUND HUHH, .5: NEXT: SLEEP 2:
LINE (0, 274)-(640, 480), 0, BF: SLEEP 2: LOCATE 18, 22:
PRINT "Now EVERY home will have a Macintosh...": FOR T = 1 TO 30:
HUHH = INT(RND * 5000) + 500: SOUND HUHH, .5: NEXT: SLEEP 2:
LINE (0, 274)-(640, 480), 0, BF: SLEEP 2: LOCATE 18, 34:
PRINT "HAH HAH HAH!!!": FOR T = 1 TO 30: HUHH = INT(RND * 5000) + 500:
SOUND HUHH, .5: NEXT: SLEEP 2: LINE (0, 274)-(640, 480), 0, BF:
SLEEP 2:
2237 LJJ = INT(RND * 28) + 1:  JJL = INT(RND * 73) + 1:
BN = INT(RND * 15) + 1: COLOR BN
LOCATE LJJ, JJL: PRINT "GAME OVER",
GGHG = GGHG + 1

IF GGHG > 3000 THEN
FOR ign = 255 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 1: BBB = BBB - 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
PEC = PEC + 1: IF PEC > 20000 THEN END
NEXT ign:
END IF
GOTO 2237

90210 CLS : SCREEN 12
PALETTE 0, 63
COLOR 12: LOCATE 1, 1: PRINT "G A M E  O V E R": Z = .15:
FOR X = 0 TO 150
FOR Y = 0 TO 15
IF X < 60 THEN COL = 2
IF X > 60 THEN COL = 1
IF POINT(X, Y) = 12 THEN CIRCLE (X * 4.45 + 35, Y * 50.2 * Z + 203), 3 + Z, 15, , , .4: CIRCLE (X * 4.45 + 35, Y * 50 * Z + 200), 2 + Z, 4, , , 3.2: CIRCLE (X * 4.45 + 35, Y * 50 * Z + 201), 1 + Z, 15, 0, 3.14, .6
Z = Z * 1: NEXT: NEXT
LOCATE 1, 1: COLOR 0: PRINT "G A M E  O V E R"
LOCATE 20, 27: COLOR 15: PRINT "PRESS SPACE BAR TO PLAY AGAIN"
FOR X = 63 TO 0 STEP -.5: PALETTE 0, X: NEXT X: COLOR 12:
KFC = 11
20002 SLEEP 1: SOUND 2000, 1: SOUND 445, .7: KFC = KFC - 1
LOCATE 23, 40: COLOR 10: PRINT KFC
movin$ = INKEY$
IF movin$ = " " THEN GOTO 8302874
IF KFC = 0 THEN
SLEEP 3: PEC = 0
DO: FOR ign = 255 TO 0 STEP -1: OUT &H3C7, ign: RRR = INP(&H3C9):
GGG = INP(&H3C9): BBB = INP(&H3C9): RRR = RRR - 1: GGG = GGG - 1: BBB = BBB - 1
IF RRR < 0 THEN RRR = 0
IF GGG < 0 THEN GGG = 0
IF BBB < 0 THEN BBB = 0
OUT &H3C8, ign: OUT &H3C9, RRR: OUT &H3C9, GGG: OUT &H3C9, BBB
PEC = PEC + 1: IF PEC > 20000 THEN END
NEXT ign: LOOP
END IF
GOTO 20002