'=========================================================================== ' Subject: TRUCKIN' USA (DRIVING GAME) Date: 07-25-99 (12:15) ' Author: Leif Starbuck & Sean Carlile Code: QB, QBasic, PDS ' Origin: santa@tir.com Packet: GAMES.ABC '=========================================================================== DECLARE SUB endin () DECLARE SUB menu () DECLARE SUB traps () DECLARE SUB cliff () DIM SHARED DEATHWISH: DEATHWISH = 0 CALL menu CLS : SCREEN 12 FOR L = 2 TO 34 COLOR 15: LOCATE 1, L: PRINT "TRUCKIN' USA!": LOCATE 2, L: PRINT "_____________" LOCATE 1, L - 1: PRINT " ": LOCATE 2, L - 1: PRINT " " FOR Y = 1 TO 2000: NEXT Y: NEXT L LOCATE 4, 34: COLOR 12: PRINT "DRIVING GAME" COLOR 7: LOCATE 6, 6: PRINT _ "You are a new truck driver. You're known on the CB as 'Rookie'. But a new challenge has been presented to you. Instead of taking the highway, your companyasks you to take the shortcut to New Jersey. But beware, for the roads contain obstacles, such as cliffs, boulders, lakes, and even terrorist helicopters. Yourgoal, 'Rookie', is to take the correct routes to New Jersey and avoid all obstacles." _ SLEEP 2 DO WHILE INKEY$ = ("") LOCATE 14, 1: COLOR 12: PRINT "HINT: ": COLOR 15: LOCATE 14, 7: PRINT "To turn left, get in the left lane. To turn right, get in the right lane. If youhear a chime after turning, you chose the correct direction." LOCATE 18, 1: COLOR 15: PRINT "Press any key to start" LOOP FOR Y = 63 TO 0 STEP -1 PALETTE 0, Y: SOUND Y * 4 + 45, .03 IF Y = 63 THEN COLOR 0: LOCATE 1, L: PRINT "TRUCKIN' USA!": LOCATE 2, L: PRINT "_____________" LOCATE 1, L - 1: PRINT " ": LOCATE 2, L - 1: PRINT " " LOCATE 4, 34: PRINT "DRIVING GAME" LOCATE 6, 6: PRINT _ "You are a new truck driver. You're known on the CB as 'Rookie'. But a new challenge has been presented to you. Instead of taking the highway, your companyasks you to take the shortcut to New Jersey. But beware, for the roads contain obstacles, such as cliffs, boulders, lakes, and even terrorist helicopters. Yourgoal, 'Rookie', is to take the correct routes to New Jersey and avoid all obstacles." _ LOCATE 14, 1: PRINT "HINT: ": LOCATE 14, 7: PRINT "To turn left, get in the left lane. To turn right, get in the right lane. If youhear a chime after turning, you chose the correct direction." LOCATE 18, 1: PRINT "Press any key to start" END IF NEXT Y SLEEP 2 SCREEN 7, 0, 1, 0: J = 64 6411 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (J / 4, 50), 30, 15, , , .3: PAINT ((J / 4) + 20, 50), 15: CIRCLE ((J / 4) + 200, 70), 20, 15, , , .2: PAINT ((J / 4) + 200, 70), 15 IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF Y > 100 AND Y < 150 THEN LOCATE 12, 12: COLOR 12: PRINT " SELECT A LANE ": SOUND 3000, .5 IF Y > 200 THEN IF J > 99 THEN ROUTE = 1: J = 145 IF J < 100 THEN ROUTE = 2: J = 35 IF Y > 230 THEN GOTO 11212 END IF IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6411 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6411 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1 GOTO 6411 11212 D = 101 K = 35 SCREEN 7, 0, 1, 0 6412 CLS RANDOMIZE TIMER G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (K, 50), 30, 15, , , .3: PAINT (K - 20, 50), 15: CIRCLE (K + 200, 70), 20, 15, , , .2: PAINT (K + 200, 70), 15 IF Y < 300 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D), 7: LINE (0, D + .5)-(340, D + .5), 7 IF Y > 299 AND Y < 330 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D + 5)-(340, (D * .94) + 5), 7, BF: IF Y > 329 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D + 20), 7, BF: LINE (0, D + 9)-(340, D + 10), 14, BF: LINE (0, 150)-(340, 170), 0, BF: LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: _ LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: _ PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6412 IF SIDE = 1 THEN SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6412 IF SIDE = 2 THEN SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF Y = Y + 1 IF Y < 300 THEN D = D + .1 IF Y > 299 AND D < 160 THEN D = D + .6: SOUND D, .1 IF D > 160 THEN SOUND 45, .1 D = D + 0: IF ROUTE = 1 THEN K = K + 7: SIDE = 1 IF ROUTE = 2 THEN K = K - 7: SIDE = 2 IF K = -280 OR K = 280 THEN GOTO 111231212 END IF GOTO 6412 111231212 IF ROUTE = 2 THEN SCREEN 7, 0, 1, 0: Y = 0: J = 64: D = 101: DE = 101: SIDE = 0 64231 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: IF Y > 29 AND D < 149 THEN D = D + 4: LINE (0, 101)-(340, D), 6, BF: IF D > 136 THEN LINE (0, 101)-(340, 150), 6, BF LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 4) + 20, 50), 13, 15, , , .2: PAINT ((J / 4) + 20, 50), 15: CIRCLE ((J / 4) + 120, 70), 40, 15, , , .2: PAINT ((J / 4) + 120, 70), 15: CIRCLE ((J / 4) + 270, 20), 10, 15, , , .4: _ PAINT ((J / 4) + 265, 20), 15 IF Y > 80 AND DE < 150 THEN DE = DE + 1: IF Y > 90 AND DE < 150 THEN DE = DE + 1.2: IF Y > 110 AND DE < 150 THEN DE = DE + 1.5: IF Y > 140 AND DE < 150 THEN DE = DE + 3: IF DE > 149 THEN CALL cliff LINE (0, 101)-(340, DE), 11, BF IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 64231 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 64231 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1: GOTO 64231 END IF IF ROUTE = 1 THEN SCREEN 7, 0, 1, 0: J = 145: Y = 0: SIDE = 0 6413 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (J / 4, 20), 15, 15, , , .3: PAINT ((J / 4) + 14, 20), 15: CIRCLE ((J / 6) + 140, 80), 40, 15, , , .3: PAINT ((J / 6) + 140, 80), 15 IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF Y = 2 OR Y = 5 THEN PLAY "L10>BL20 50 AND Y < 100 THEN LOCATE 12, 12: COLOR 12: PRINT " SELECT A LANE ": SOUND 3000, .5 IF Y > 150 THEN IF J > 99 THEN ROUTE = 2: J = 145 IF J < 100 THEN ROUTE = 1: J = 35 IF Y > 180 THEN GOTO 9348 END IF IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6413 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6413 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1 GOTO 6413 END IF 9348 D = 101 K = 35 SCREEN 7, 0, 1, 0 6415 CLS RANDOMIZE TIMER G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (K, 20), 15, 15, , , .3: PAINT (K + 14, 20), 15: CIRCLE (K + 140, 80), 40, 15, , , .3: PAINT (K + 140, 80), 15 IF Y < 200 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D), 7: LINE (0, D + .5)-(340, D + .5), 7 IF Y > 199 AND Y < 330 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D + 5)-(340, (D * .94) + 5), 7, BF: IF Y > 229 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D + 20), 7, BF: LINE (0, D + 9)-(340, D + 10), 14, BF: LINE (0, 150)-(340, 170), 0, BF: LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: _ LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: _ PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6415 IF SIDE = 1 THEN SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6415 IF SIDE = 2 THEN SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF Y = Y + 1 IF Y < 200 THEN D = D + .1 IF Y > 199 AND D < 160 THEN D = D + .6: SOUND D, .1 IF D > 160 THEN SOUND 45, .1 D = D + 0: IF ROUTE = 1 THEN K = K - 7: SIDE = 2 IF ROUTE = 2 THEN K = K + 7: SIDE = 1 IF K = -280 OR K = 280 THEN GOTO 1112311 END IF GOTO 6415 1112311 IF ROUTE = 2 THEN SCREEN 7, 0, 1, 0: Y = 0: J = 64: D = 101: DE = 101: SIDE = 0 642315 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 40) + 100, 50), 13, 14: PAINT ((J / 40) + 100, 50), 14: IF Y > 80 AND DE < 150 THEN DE = DE + 1: IF Y > 90 AND DE < 150 THEN DE = DE + 1.2: IF Y > 110 AND DE < 150 THEN DE = DE + 1.5: IF Y > 140 AND DE < 150 THEN DE = DE + 3: IF Y > 110 THEN DEATHWISH = 1: CALL cliff: LINE (0, 101)-(340, DE), 11, BF IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 642315 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 642315 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1: GOTO 642315 END IF IF ROUTE = 1 THEN SCREEN 7, 0, 1, 0 Y = 0: SIDE = 0: J = 64 6419 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 4) + 10, 50), 30, 15, , , .3: PAINT ((J / 4) + 30, 50), 15: CIRCLE ((J / 4) + 210, 70), 20, 15, , , .2: PAINT ((J / 4) + 210, 70), 15 IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF Y > 100 AND Y < 150 THEN LOCATE 12, 12: COLOR 12: PRINT " SELECT A LANE ": SOUND 3000, .5 IF Y > 200 THEN IF J > 99 THEN ROUTE = 1: J = 145 IF J < 100 THEN ROUTE = 2: J = 35 IF Y > 230 THEN GOTO 11011 END IF IF Y = 2 OR Y = 5 THEN PLAY "L10>BL20 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6419 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6419 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1 GOTO 6419 END IF 11011 D = 101 K = 35 SCREEN 7, 0, 1, 0 6420 CLS RANDOMIZE TIMER G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (K + 10, 50), 30, 15, , , .3: PAINT (K + 30, 50), 15: CIRCLE (K + 210, 70), 20, 15, , , .2: PAINT (K + 210, 70), 15 IF Y < 230 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D), 7: LINE (0, D + .5)-(340, D + .5), 7 IF Y > 229 AND Y < 270 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D + 5)-(340, (D * .94) + 5), 7, BF: IF Y > 269 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D + 20), 7, BF: LINE (0, D + 9)-(340, D + 10), 14, BF: LINE (0, 150)-(340, 170), 0, BF: LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: _ LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: _ PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6420 IF SIDE = 1 THEN SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6420 IF SIDE = 2 THEN SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF Y = Y + 1 IF Y < 200 THEN D = D + .1 IF Y > 199 AND D < 160 THEN D = D + .6: SOUND D, .1 IF D > 160 THEN SOUND 45, .1 D = D + 0: IF ROUTE = 1 THEN K = K + 7: SIDE = 1 IF ROUTE = 2 THEN K = K - 7: SIDE = 2 IF K = -280 OR K = 280 THEN GOTO 1111 END IF GOTO 6420 1111 IF ROUTE = 1 THEN SCREEN 7, 0, 1, 0: Y = 0: J = 145: D = 101: DE = 93: SIDE = 0 642317 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 4) - 10, 20), 15, 15, , , .3: PAINT ((J / 4) + 4, 20), 15: CIRCLE ((J / 6) + 130, 80), 40, 15, , , .3: PAINT ((J / 6) + 130, 80), 15 IF Y > 30 AND Y < 40 THEN D = D + .5: CIRCLE (150, D), 10, 6, , , .2: PAINT (150, D), 6 IF Y > 39 AND Y < 50 THEN D = D + .5: CIRCLE (150, D), 30, 6, , , .3: PAINT (150, D), 6 IF Y > 49 AND Y < 70 THEN D = D + .5: CIRCLE (150, D), 60, 6, , , .4: PAINT (150, D), 6 IF Y > 69 AND Y < 90 THEN D = D + .5: CIRCLE (150, D - 10), 100, 6, , , .3: PAINT (150, D), 6 IF Y > 89 THEN CALL traps IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 642317 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 642317 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1: GOTO 642317 END IF IF ROUTE = 2 THEN SCREEN 7, 0, 1, 0: Y = 0: J = 64: D = 101: DE = 101: DED = -101: DEAD = 101: SIDE = 0: K = 0 6423114 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: IF Y > 29 AND D < 149 THEN D = D + 4: LINE (0, 101)-(340, D), 6, BF: IF D > 136 THEN LINE (0, 101)-(340, 150), 6, BF IF Y > 100 AND DE < 149 THEN DE = DE + 4: LINE (0, 101)-(340, DE), 10, BF: IF DE > 136 THEN LINE (0, 101)-(340, 150), 10, BF IF LEFT = 0 THEN LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: _ LINE (149, 101)-(J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: IF LEFT = 0 THEN CIRCLE ((J / 4) + 20, 50), 13, 15, , , .2: PAINT ((J / 4) + 20, 50), 15: CIRCLE ((J / 4) + 120, 70), 40, 15, , , .2: PAINT ((J / 4) + 120, 70), 15: CIRCLE ((J / 4) + 270, 20), 10, 15, , , .4: PAINT ((J / 4) + 265, 20), 15 IF Y = 170 THEN DED = 101 IF Y > 170 THEN DED = DED + .5 IF Y > 170 AND Y < 200 THEN LINE (0, DED)-(145, DED), 7: LINE (0, DED + .5)-(145, DED + .5), 7: IF Y > 199 AND Y < 230 THEN LINE (0, DED + 5)-(145, (DED * .94) + 5), 7, BF: SOUND 45, .07 IF Y > 229 AND Y < 250 THEN LINE (0, DED)-(145, DED + 20), 7, BF: SOUND 45, .07: LINE (0, 150)-(340, 170), 0, BF: LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)- _ (133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: _ LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B IF Y > 400 THEN LINE (0, 101)-(30, DEAD), 2, BF: LINE (300, 101)-(340, DEAD), 2, BF: LINE (30, 101)-(300, DEAD), 9, BF IF Y = 450 THEN DEATHWISH = 1: CALL traps IF Y = 2 OR Y = 5 THEN PLAY "L10>BL20 220 THEN DEATHWISH = 3: CALL cliff IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF Y = 250 THEN 18251 LOCATE 12, 12: COLOR 12: SOUND 3000, .8: PRINT " TURN LEFT HERE? ": PCOPY 1, 0: DO: L$ = INKEY$: LOOP UNTIL L$ <> "" IF L$ = "y" OR L$ = "Y" THEN LEFT = 1: GOTO 911 IF L$ = "n" OR L$ = "N" THEN Y = 301: GOTO 6423114 GOTO 18251 END IF PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6423114 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6423114 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 911 IF LEFT = 1 THEN K = K + 7: SOUND 45, .07: SIDE = 1: CIRCLE (K + 20, 50), 13, 15, , , .2: PAINT (K + 20, 50), 15: CIRCLE (K + 120, 70), 40, 15, , , .2: PAINT (K + 120, 70), 15: CIRCLE (K + 270, 20), 10, 15, , , .4: PAINT (K + 265, 20), 15: LINE _ (K + 140, 101)-((J - 60) + K, 150), 7: LINE (K + 160, 101)-((J + 160) + K, 150), 7: LINE (K + 140, 101)-(K + 160, 101), 7: LINE ((J - 60) + K, 150)-((J + 160) + K, 150), 7: PAINT (K + 150, 149), 7: LINE (K + 150, 101)-((J + 48) + K, 150), 14: LINE ( _ K + 150, 101)-((J + 52) + K, 150), 14: LINE (K + 149, 101)-((J + 47) + K, 150), 14: LINE (K + 151, 101)-((J + 53) + K, 150), 14: PCOPY 1, 0 IF K = 280 THEN GOTO 12353 IF Y > 400 AND DEAD < 151 THEN DEAD = DEAD + 1 Y = Y + 1: GOTO 6423114 END IF: 12353 SCREEN 7, 0, 1, 0: J = 145: LE = 200: Y = 0 641100 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1: LE = LE + (J / 105) LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 10, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 4) - 10, 50), 30, 15, , , .3: PAINT ((J / 4) + 10, 50), 15: CIRCLE ((J / 4) + 190, 70), 20, 15, , , .2: PAINT ((J / 4) + 190, 70), 15 IF Y < 170 THEN CIRCLE (LE, 40), 10, 0: PAINT (LE - 9, 40), 0: CIRCLE (LE, 40), 8, 7, 0, 3.14: LINE (LE - 9, 40)-(LE + 9, 40), 7: PAINT (LE - 6, 39), 7: LINE (LE - 1, 30)-(LE + 1, 45), 0, BF: LINE (LE, 38)-(LE - 8, 50), 0: LINE (LE, 40)-(LE + 8, 50) _ , 0: CIRCLE (LE + 8, 51), 1, 0: CIRCLE (LE - 8, 51), 1, 0: SOUND 45, .07: SOUND 145, .07: LINE (LE - 15, 30)-(LE + 15, 30), 0, B: IF Y > 169 AND Y < 2100 THEN CIRCLE (LE - 5, 40), 10, 0: PAINT (LE + 4, 40), 0: CIRCLE (LE - 5, 40), 8, 7, 1.5, 3.5: LINE (LE - 13, 42)-(LE - 4, 42), 7: LINE -(LE - 4, 34), 7: PAINT (LE - 5, 36), 7: LINE (LE - 5, 45)-(LE - 5, 50), 0: LINE (LE - 15, _ 50)-(LE + 20, 50), 0: LINE (LE, 35)-(LE + 20, 41), 0, BF: LINE (LE + 15, 41)-(LE + 20, 30), 0, BF: CIRCLE (LE + 17, 33), 6, 0: LINE (LE - 23, 30)-(LE + 8, 30), 0, B: SOUND 45, .07: SOUND 145, .07 IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF G = 1 OR G = 3 OR G = 5 OR G = 7 OR G = 9 OR G = 11 OR G = 13 OR G = 15 OR G = 17 OR G = 19 THEN LINE (LE - 23, 30)-(LE + 15, 30), 11, B IF Y = 2 OR Y = 5 THEN PLAY "L10>BL20 150 AND Y < 200 THEN LOCATE 12, 12: COLOR 12: PRINT " SELECT A LANE ": SOUND 3000, .5 IF Y > 250 THEN IF J > 99 THEN ROUTE = 1: J = 145 IF J < 100 THEN ROUTE = 2: J = 35 IF LE < -25 THEN GOTO 2232 END IF IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 641100 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 641100 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF Y < 170 THEN K = .6 IF Y > 169 THEN K = 4 Y = Y + 1: LE = LE - K: GOTO 641100 2232 D = 101: K = 35: SCREEN 7, 0, 1, 0 642000 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 10, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (K + 10, 50), 30, 15, , , .3: PAINT (K + 30, 50), 15: CIRCLE (K + 210, 70), 20, 15, , , .2: PAINT (K + 210, 70), 15 IF Y < 100 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D), 7: LINE (0, D + .5)-(340, D + .5), 7 IF Y > 99 AND Y < 130 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D + 5)-(340, (D * .94) + 5), 7, BF: IF Y > 129 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D + 20), 7, BF: LINE (0, D + 9)-(340, D + 10), 14, BF: LINE (0, 150)-(340, 170), 0, BF: LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: _ LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: _ PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 642000 IF SIDE = 1 THEN SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 642000 IF SIDE = 2 THEN SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF Y = Y + 1 IF Y < 100 THEN D = D + .1 IF Y > 99 AND D < 160 THEN D = D + .6: SOUND D, .1 IF D > 160 THEN SOUND 45, .1 D = D + 0: IF ROUTE = 1 THEN K = K + 7: SIDE = 1 IF ROUTE = 2 THEN K = K - 7: SIDE = 2 IF K = -280 OR K = 280 THEN GOTO 1007 END IF GOTO 642000 1007 IF ROUTE = 1 THEN SCREEN 7, 0, 1, 0: J = 145: LE = 200: IFS = 40: Y = 0 64110000 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1: LE = INT(J): LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 4) - 20, 50), 30, 15, , , .3: PAINT (J / 4, 50), 15: CIRCLE (J / 4 + 180, 70), 20, 15, , , .2: PAINT (J / 4 + 180, 70), 15 CIRCLE (LE, IFS), 10, 0: PAINT (LE - 9, IFS), 0: CIRCLE (LE, IFS), 8, 7, 0, 3.14: LINE (LE - 9, IFS)-(LE + 9, IFS), 7: PAINT (LE - 6, IFS - 1), 7: LINE (LE - 1, IFS - 10)-(LE + 1, IFS + 5), 0, BF: LINE (LE, IFS - 2)-(LE - 8, IFS + 10), 0: LINE (LE, _ IFS)-(LE + 8, IFS + 10), 0: CIRCLE (LE + 8, IFS + 11), 1, 0: CIRCLE (LE - 8, IFS + 11), 1, 0: SOUND 45, .07: SOUND 145, .07: LINE (LE - 15, IFS - 10)-(LE + 15, IFS - 10), 0, B: IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF G = 1 OR G = 3 OR G = 5 OR G = 7 OR G = 9 OR G = 11 OR G = 13 OR G = 15 OR G = 17 OR G = 19 THEN LINE (LE - 23, IFS - 10)-(LE + 15, IFS - 10), 11, B IF Y = 50 THEN DEATHWISH = 2: CALL traps IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 64110000 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 64110000 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF Y < 170 THEN K = .6 IF Y > 169 THEN K = 4 IFS = J / 8 + 50 Y = Y + 1: LE = LE - K: GOTO 64110000 END IF IF ROUTE = 2 THEN SCREEN 7, 0, 1, 0: Y = 0: J = 64: D = 101: DE = 101: SIDE = 0 642311105 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 4) + 20, 50), 13, 15, , , .2: PAINT ((J / 4) + 20, 50), 15: CIRCLE ((J / 4) + 120, 70), 40, 15, , , .2: PAINT ((J / 4) + 120, 70), 15: CIRCLE ((J / 4) + 270, 20), 10, 15, , , .4: _ PAINT ((J / 4) + 265, 20), 15 LINE (0, 101)-(340, DE), 11, BF IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF Y = 2 OR Y = 5 THEN PLAY "L10>BL20 10 AND Y < 60 THEN LOCATE 12, 12: COLOR 12: PRINT " SELECT A LANE ": SOUND 3000, .5 IF Y > 110 THEN IF J > 99 THEN ROUTE = 1: J = 145 IF J < 100 THEN ROUTE = 2: J = 35 IF Y > 130 THEN GOTO 167008 END IF IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 642311105 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 642311105 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1: GOTO 642311105 END IF 167008 D = 101: K = 35: Y = 0: SCREEN 7, 0, 1, 0 6420000 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE (K + 20, 50), 13, 15, , , .2: PAINT (K + 20, 50), 15: CIRCLE (K + 120, 70), 40, 15, , , .2: PAINT (K + 120, 70), 15: CIRCLE (K + 270, 20), 10, 15, , , .4: PAINT (K + 265, 20), 15 IF Y < 100 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D), 7: LINE (0, D + .5)-(340, D + .5), 7 IF Y > 99 AND Y < 130 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D + 5)-(340, (D * .94) + 5), 7, BF: IF Y > 129 THEN LINE (0, 101)-(340, D - 1), 2, BF: LINE (0, D)-(340, D + 20), 7, BF: LINE (0, D + 9)-(340, D + 10), 14, BF: LINE (0, 150)-(340, 170), 0, BF: LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: _ LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: _ PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6420000 IF SIDE = 1 THEN SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6420000 IF SIDE = 2 THEN SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF Y = Y + 1 IF Y < 100 THEN D = D + .1 IF Y > 99 AND D < 160 THEN D = D + .6: SOUND D, .1 IF D > 160 THEN SOUND 45, .1 D = D + 0: IF ROUTE = 1 THEN K = K + 7: SIDE = 1 IF ROUTE = 2 THEN K = K - 7: SIDE = 2 IF K = -280 OR K = 280 THEN GOTO 100007 END IF GOTO 6420000 100007 IF ROUTE = 2 THEN SCREEN 7, 0, 1, 0: Y = 0: J = 64: D = 101: DE = 101: SIDE = 0 6315 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (140, 101)-(160, 101), 7: LINE (J - 60, 150)-(J + 160, 150), 7: PAINT (J + 50, 149), 7: LINE (150, 101)-(J + 48, 150), 14: LINE (150, 101)-(J + 52, 150), 14: LINE (149, 101)-( _ J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: CIRCLE ((J / 40) + 120, 50), 13, 14: PAINT ((J / 40) + 120, 50), 14: IF Y > 80 AND DE < 150 THEN DE = DE + 1: IF Y > 90 AND DE < 150 THEN DE = DE + 1.2: IF Y > 110 AND DE < 150 THEN DE = DE + 1.5: IF Y > 140 AND DE < 150 THEN DE = DE + 3: IF Y > 110 THEN CALL cliff LINE (0, 101)-(340, DE), 11, BF IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF J < -15 THEN DEATHWISH = 2: CALL cliff IF J > 220 THEN DEATHWISH = 3: CALL cliff PCOPY 1, 0 movin$ = INKEY$ IF movin$ = CHR$(0) + CHR$(75) THEN IF SIDE = 2 THEN SIDE = 0: GOTO 6315 IF SIDE = 1 THEN J = J + 6: SIDE = 1 IF SIDE = 0 THEN SIDE = 1 END IF IF movin$ = CHR$(0) + CHR$(77) THEN IF SIDE = 1 THEN SIDE = 0: GOTO 6315 IF SIDE = 2 THEN J = J - 6: SIDE = 2 IF SIDE = 0 THEN SIDE = 2 END IF IF SIDE = 0 THEN J = J IF SIDE = 1 THEN J = J + 2 IF SIDE = 2 THEN J = J - 2 O = INT(RND * 5) + 1: IF O = 1 THEN J = J - .5 IF O = 2 THEN J = J + .5 Y = Y + 1: GOTO 6315 END IF IF ROUTE = 1 THEN SCREEN 7, 0, 1, 0: J = 145: Y = 0 64119999 CLS : RANDOMIZE TIMER: G = INT(RND * 20) + 1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B: LINE (0, 15)-( _ 340, 100), 11, BF: LINE (0, 101)-(340, 150), 2, BF: LINE (140, 101)-(J - 60, 150), 7: LINE (160, 101)-(J + 160, 150), 7: LINE (180, 101)-(J + 360, 150), 7: LINE (140, 101)-(180, 101), 7: LINE (J - 60, 150)-(J + 360, 150), 7: PAINT (J + 50, 149), 7: CIRCLE ((J / 4) - 20, 50), 30, 15, , , .3: PAINT _ ((J / 4), 50), 15: CIRCLE ((J / 4) + 180, 70), 20, 15, , , .2: PAINT ((J / 4) + 180, 70), 15: PAINT (150, 105), 7: PAINT (170, 105), 7: PAINT (174, 103), 7: PAINT (145, 103), 7 LINE (160, 101)-(J + 160, 150), 15: LINE (159, 101)-(J + 157, 150), 15: LINE (161, 101)-(J + 163, 150), 15: LINE (170, 101)-(J + 260, 150), 14: LINE (169, 101)-(J + 257, 150), 14: LINE (171, 101)-(J + 263, 150), 14: LINE (150, 101)-(J + 52, 150), _ 14: LINE (149, 101)-(J + 47, 150), 14: LINE (151, 101)-(J + 53, 150), 14: IF SIDE = 0 THEN LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180 _ ), 8: LINE (68, 144)-(72, 146), 15, BF IF SIDE = 1 THEN LINE (96, 154)-(40, 210), 15: LINE (90, 150)-(40, 200), 15: LINE (90, 150)-(96, 154), 15: LINE (40, 210)-(40, 200), 15: PAINT (68, 180), 15: LINE (73, 185)-(140, 230), 15: LINE (78, 180)-(145, 225), 15: LINE (73, 185)-(78, 180), 15 _ : LINE (140, 230)-(145, 225), 15: PAINT (90, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (38, 154)-(41, 157), 15, BF IF SIDE = 2 THEN LINE (44, 154)-(100, 210), 15: LINE (50, 150)-(100, 200), 15: LINE (50, 150)-(44, 154), 15: LINE (100, 210)-(100, 200), 15: PAINT (72, 180), 15: LINE (67, 185)-(0, 230), 15: LINE (62, 180)-(5, 225), 15: LINE (67, 185)-(62, 180), 15 _ : LINE (0, 230)-(5, 225), 15: PAINT (50, 190), 15: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 41, 8: CIRCLE (70, 180), 45, 8: PAINT (70, 145), 8: PAINT (112, 180), 8: LINE (102, 154)-(99, 157), 15, BF IF G = 2 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 167), 15: IF G = 8 THEN LINE (55, 170)-(56, 165), 0: LINE (55, 170)-(55, 165), 15: IF G = 5 THEN LINE (85, 170)-(91, 168), 0: LINE (85, 170)-(91, 169), 15: IF J < -200 THEN DEATHWISH = 2: IF J > 220 THEN DEATHWISH = 3: IF Y > 50 AND Y < 75 THEN LINE (10, 90)-(20, 100), 9, BF: LINE (60, 85)-(80, 100), 9, BF: LINE (160, 90)-(190, 100), 9, BF: LINE (230, 90)-(270, 100), 9, BF: LINE (300, 90)-(340, 100), 9, BF IF Y > 74 AND Y < 100 THEN LINE (7, 87)-(18, 100), 9, BF: LINE (58, 83)-(78, 100), 9, BF: LINE (162, 87)-(192, 100), 9, BF: LINE (233, 87)-(273, 100), 9, BF: LINE (303, 87)-(343, 100), 9, BF IF Y > 99 AND Y < 125 THEN LINE (4, 83)-(14, 100), 9, BF: LINE (56, 79)-(76, 100), 9, BF: LINE (164, 84)-(194, 100), 9, BF: LINE (236, 84)-(276, 100), 9, BF: LINE (306, 84)-(340, 100), 9, BF IF Y > 124 THEN GOTO 6661666 IF Y = 2 OR Y = 5 THEN PLAY "L10>BL20 20000 THEN GOTO 130909 PEC = PEC + 1: NEXT i: LOOP 130909 SCREEN 13: CLS : SCREEN 12: CLS : CALL endin SUB cliff IF DEATHWISH = 1 THEN SCREEN 7, 0, 1, 0 FOR X = -10 TO 60 STEP 2 CLS PAINT (1, 1), 11: LINE (0, 20)-(55, 20), 2: LINE -(50, 45), 2: LINE -(30, 100), 2: LINE -(60, 150), 2 LINE -(70, 156), 2: LINE -(72, 256), 2: PAINT (10, 30), 2: CIRCLE (220, 170), 40, 15, , , .2: PAINT (220, 170), 15 LINE (X - 20, 10)-(X - 2, 18), 7, BF: LINE (X, 10)-(X + 3, 18), 1, BF: LINE (X + 4, 12)-(X + 4, 18), 1: LINE (X + 5, 14)-(X + 5, 18), 1: LINE (X + 6, 16)-(X + 7, 18), 7, B CIRCLE (X - 18, 17), 2, 8: PAINT (X - 18, 17), 8: CIRCLE (X - 4, 17), 2, 8: PAINT (X - 4, 17), 8: CIRCLE (X + 2, 17), 2, 8: PAINT (X + 3, 17), 8 PCOPY 1, 0 NEXT X T = 30 FOR X = 88 TO 300 STEP 5 CLS PAINT (1, 1), 11: LINE (0, 20)-(55, 20), 2: LINE -(50, 45), 2: LINE -(30, 100), 2: LINE -(60, 150), 2 LINE -(70, 156), 2: LINE -(72, 256), 2: PAINT (10, 30), 2: CIRCLE (220, 170), 40, 15, , , .2: PAINT (220, 170), 15 LINE (X - 20, T)-(X - 10, T + 10), 7: LINE (X - 27, T + 6)-(X - 17, T + 16), 7: LINE (X - 10, T + 10)-(X - 17, T + 16), 7: LINE (X - 20, T)-(X - 27, T + 6), 7: PAINT (X - 20, T + 5), 7 CIRCLE (X - 24, T + 7), 2, 8: PAINT (X - 24, T + 7), 8: CIRCLE (X - 18, T + 13), 2, 8: PAINT (X - 18, T + 13), 8 LINE (X - 8, T + 12)-(X - 15, T + 18), 1: LINE (X - 6, T + 12)-(X - 14, T + 18), 1: LINE (X - 10, T + 12)-(X - 16, T + 18), 1 CIRCLE (X - 13, T + 18), 4, 1, , , .2: PAINT (X - 13, T + 18), 1: CIRCLE (X - 13, T + 16), 3, 1, , , .2: PAINT (X - 13, T + 16), 1: CIRCLE (X - 14, T + 17), 2, 8: PAINT (X - 14, T + 17), 8 IF T < 230 THEN T = T + 5 IF T > 227 THEN GOTO 1253 PCOPY 1, 0 NEXT X 1253 FOR Y = 1000 TO 45 STEP -5: SOUND Y, .1: NEXT Y: FOR qqw = 1 TO 10: SOUND 45, .1: PAINT (150, 100), 15: PCOPY 1, 0: PAINT (150, 100), 0: PCOPY 1, 0: NEXT qqw FOR Y = 200 TO -30 STEP -7 CLS IF Y > 130 THEN QBA = 18 IF Y < 130 THEN QBA = 20 IF Y < 100 THEN QBA = 30 IF Y < 80 THEN QBA = 40 IF Y < 40 THEN QBA = 50 IF Y < 10 THEN QBA = 70 FOR U = 0 TO QBA STEP 2 PAINT (1, 1), 11: LINE (0, 20)-(55, 20), 2: LINE -(50, 45), 2: LINE -(30, 100), 2: LINE -(60, 150), 2 LINE -(70, 156), 2: LINE -(72, 256), 2: PAINT (10, 30), 2: CIRCLE (220, 170), 40, 15, , , .2: PAINT (220, 170), 15 LINE (X - 20, T)-(X - 10, T + 10), 0: LINE (X - 27, T + 6)-(X - 17, T + 16), 0: LINE (X - 10, T + 10)-(X - 17, T + 16), 0: LINE (X - 20, T)-(X - 27, T + 6), 0: PAINT (X - 20, T + 5), 0 CIRCLE (X - 26, T + 7), 2, 0: PAINT (X - 26, T + 7), 0: CIRCLE (X - 18, T + 13), 2, 0: PAINT (X - 18, T + 13), 0 LINE (X - 8, T + 12)-(X - 15, T + 18), 0: LINE (X - 6, T + 12)-(X - 14, T + 18), 0: LINE (X - 10, T + 12)-(X - 16, T + 18), 0 CIRCLE (X - 13, T + 18), 4, 0, , , .2: PAINT (X - 13, T + 18), 0: CIRCLE (X - 13, T + 16), 3, 0, , , .2: PAINT (X - 13, T + 16), 0: CIRCLE (X - 14, T + 17), 2, 0: PAINT (X - 14, T + 17), 0 CIRCLE (255, Y), U + 3, 7, , , .7: CIRCLE (257, Y + 1), U + 2, 0, , , .7: CIRCLE (254, Y - 1), U, 8, , , .6: CIRCLE (253, Y + 2), U, 0, , , .8: NEXT U PCOPY 1, 0 NEXT Y: GOTO 987 END IF IF DEATHWISH = 0 THEN SCREEN 7, 0, 1, 0 FOR X = -10 TO 40 STEP 2 CLS PAINT (1, 1), 11: LINE (0, 20)-(35, 20), 6: LINE -(40, 25), 6: LINE -(30, 100), 6: LINE -(60, 150), 6 LINE -(70, 146), 6: LINE -(72, 156), 6: LINE -(85, 170), 6: LINE -(94, 175), 6: LINE -(300, 175), 6: LINE -(340, 165), 6 PAINT (10, 30), 6: CIRCLE (120, 70), 20, 15, , , .2: PAINT (120, 70), 15 LINE (X - 20, 10)-(X - 2, 18), 7, BF: LINE (X, 10)-(X + 3, 18), 1, BF: LINE (X + 4, 12)-(X + 4, 18), 1: LINE (X + 5, 14)-(X + 5, 18), 1: LINE (X + 6, 16)-(X + 7, 18), 7, B CIRCLE (X - 18, 17), 2, 8: PAINT (X - 18, 17), 8: CIRCLE (X - 4, 17), 2, 8: PAINT (X - 4, 17), 8: CIRCLE (X + 2, 17), 2, 8: PAINT (X + 3, 17), 8 PCOPY 1, 0 NEXT X T = 10 FOR X = 68 TO 80 STEP .1 CLS PAINT (1, 1), 11: LINE (0, 20)-(35, 20), 6: LINE -(40, 25), 6: LINE -(30, 100), 6: LINE -(60, 150), 6 LINE -(70, 146), 6: LINE -(72, 156), 6: LINE -(85, 170), 6: LINE -(94, 175), 6: LINE -(300, 175), 6: LINE -(340, 165), 6 PAINT (10, 30), 6: CIRCLE (120, 70), 20, 15, , , .2: PAINT (120, 70), 15 LINE (X - 20, T)-(X - 10, T + 10), 7: LINE (X - 27, T + 6)-(X - 17, T + 16), 7: LINE (X - 10, T + 10)-(X - 17, T + 16), 7: LINE (X - 20, T)-(X - 27, T + 6), 7: PAINT (X - 20, T + 5), 7 CIRCLE (X - 24, T + 7), 2, 8: PAINT (X - 24, T + 7), 8: CIRCLE (X - 18, T + 13), 2, 8: PAINT (X - 18, T + 13), 8 LINE (X - 8, T + 12)-(X - 15, T + 18), 1: LINE (X - 6, T + 12)-(X - 14, T + 18), 1: LINE (X - 10, T + 12)-(X - 16, T + 18), 1 CIRCLE (X - 13, T + 18), 4, 1, , , .2: PAINT (X - 13, T + 18), 1: CIRCLE (X - 13, T + 16), 3, 1, , , .2: PAINT (X - 13, T + 16), 1: CIRCLE (X - 14, T + 17), 2, 8: PAINT (X - 14, T + 17), 8 IF T < 128 THEN T = T + 2 IF T > 127 THEN GOTO 125263 PCOPY 1, 0 NEXT X 125263 FOR qqw = 1 TO 10: SOUND 45, .1: PAINT (150, 100), 15: PCOPY 1, 0: PAINT (150, 100), 0: PCOPY 1, 0: NEXT qqw FOR Y = 120 TO -30 STEP -7 CLS IF Y < 130 THEN QBA = 20 IF Y < 100 THEN QBA = 30 IF Y < 80 THEN QBA = 40 IF Y < 40 THEN QBA = 50 IF Y < 10 THEN QBA = 70 FOR U = 0 TO QBA STEP 2 PAINT (1, 1), 11: LINE (0, 20)-(35, 20), 6: LINE -(40, 25), 6: LINE -(30, 100), 6: LINE -(60, 150), 6 LINE -(70, 146), 6: LINE -(72, 156), 6: LINE -(85, 170), 6: LINE -(94, 175), 6: LINE -(300, 175), 6: LINE -(340, 165), 6 PAINT (10, 30), 6: CIRCLE (120, 70), 20, 15, , , .2: PAINT (120, 70), 15 LINE (X - 20, T)-(X - 10, T + 10), 0: LINE (X - 27, T + 6)-(X - 17, T + 16), 0: LINE (X - 10, T + 10)-(X - 17, T + 16), 0: LINE (X - 20, T)-(X - 27, T + 6), 0: PAINT (X - 20, T + 5), 0 CIRCLE (X - 26, T + 7), 2, 0: PAINT (X - 26, T + 7), 0: CIRCLE (X - 18, T + 13), 2, 0: PAINT (X - 18, T + 13), 0 LINE (X - 8, T + 12)-(X - 15, T + 18), 0: LINE (X - 6, T + 12)-(X - 14, T + 18), 0: LINE (X - 10, T + 12)-(X - 16, T + 18), 0 CIRCLE (X - 13, T + 18), 4, 0, , , .2: PAINT (X - 13, T + 18), 0: CIRCLE (X - 13, T + 16), 3, 0, , , .2: PAINT (X - 13, T + 16), 0: CIRCLE (X - 14, T + 17), 2, 0: PAINT (X - 14, T + 17), 0 CIRCLE (55, Y), U + 3, 0, , , .7: CIRCLE (57, Y + 1), U + 2, 4, , , .7: CIRCLE (54, Y - 1), U, 12, , , .6: CIRCLE (53, Y + 2), U, 14, , , .8: NEXT U PCOPY 1, 0 NEXT Y: GOTO 987 END IF IF DEATHWISH = 2 THEN FOR Y = 1 TO 10: SOUND 4000, 1: SOUND 4300, 1: NEXT Y: SCREEN 7, 0, 1, 0: CLS : LINE (0, 0)-(340, 16), 7, BF: LINE (0, 146)-(340, 210), 7, BF: LINE (10, 5)-(300, 7), 4: LINE (10, 162)-(310, 160), 1: LINE (123, 165)-(135, 190), 0, BF: LINE (10, 163)-(25, 190), 0, BF: CIRCLE (55, 170), 6, 0, 0, 3.14: CIRCLE (85, 170), 6, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(83, 170), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 174)-(200, 200), 8, BF: LINE (250, 176)-(300, 201), 8, B: LINE (0, 21)-( _ 100, 150), 11, BF: LINE (101, 21)-(340, 150), 2, BF: LINE (35, 178)-(76, 182), 15, BF: LINE (76, 178)-(115, 182), 15, BF: LINE (72, 180)-(77, 230), 15, BF: CIRCLE (75, 180), 7, 8: PAINT (75, 180), 8: CIRCLE (75, 180), 40, 8: CIRCLE (75, 180), 44, 8: PAINT (75, 146), 8: PAINT (115, 180), 8: LINE (73, _ 144)-(77, 146), 15, BF LINE (0, 20)-(340, 100), 9: LINE (176, 60)-(340, 45), 9: LINE (340, 100)-(200, 150), 9: LINE (0, 120)-(120, 150), 9: LINE (0, 100)-(130, 95), 9: LINE -(140, 55), 9: LINE (130, 95)-(156, 148), 9 PCOPY 1, 0: FOR U = 100 TO 45 STEP -4: SOUND U, .4: NEXT U FOR Y = 340 TO -50 STEP -.5: T = INT(RND * 200 + 1): SOUND T + 45, .07: CIRCLE (Y, T), 2, 8: CIRCLE (Y - 40, T - 20), 3, 7: CIRCLE (Y + 30, T + 5), 4, 0: CIRCLE (Y + 50, T + 10), 4, 4: CIRCLE (Y + 80, T - 20), 5, 12: CIRCLE (Y + 100, T + 5), 6, 14: CIRCLE (Y + 120, T - 10), 10, 14, , , .2: PCOPY 1, 0 _ : NEXT Y: GOTO 987 END IF IF DEATHWISH = 3 THEN FOR Y = 1 TO 10: SOUND 4000, 1: SOUND 4300, 1: NEXT Y: SCREEN 7, 0, 1, 0: CLS : LINE (0, 0)-(340, 16), 7, BF: LINE (0, 146)-(340, 210), 7, BF: LINE (10, 5)-(300, 7), 4: LINE (10, 162)-(310, 160), 1: LINE (123, 165)-(135, 190), 0, BF: LINE (10, 163)-(25, 190), 0, BF: CIRCLE (55, 170), 6, 0, 0, 3.14: CIRCLE (85, 170), 6, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(83, 170), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 174)-(200, 200), 8, BF: LINE (250, 176)-(300, 201), 8, B: LINE (0, 21)-( _ 240, 150), 2, BF: LINE (240, 21)-(340, 150), 11, BF: LINE (35, 178)-(76, 182), 15, BF: LINE (76, 178)-(115, 182), 15, BF: LINE (72, 180)-(77, 230), 15, BF: CIRCLE (75, 180), 7, 8: PAINT (75, 180), 8: CIRCLE (75, 180), 40, 8: CIRCLE (75, 180), 44, 8: PAINT (75, 146), 8: PAINT (115, 180), 8: LINE (73, _ 144)-(77, 146), 15, BF LINE (0, 20)-(340, 100), 9: LINE (176, 60)-(340, 45), 9: LINE (340, 100)-(200, 150), 9: LINE (0, 120)-(120, 150), 9: LINE (0, 100)-(130, 95), 9: LINE -(140, 55), 9: LINE (130, 95)-(156, 148), 9 PCOPY 1, 0: FOR U = 100 TO 45 STEP -4: SOUND U, .4: NEXT U FOR Y = 0 TO 350 STEP .5: T = INT(RND * 200 + 1): SOUND T + 45, .07: CIRCLE (Y, T), 2, 8: CIRCLE (Y + 40, T - 20), 3, 7: CIRCLE (Y - 30, T + 5), 4, 0: CIRCLE (Y - 50, T + 10), 4, 4: CIRCLE (Y - 80, T - 20), 5, 12: CIRCLE (Y - 100, T + 5), 6, 14: CIRCLE (Y - 120, T - 10), 10, 14, , , .2: PCOPY 1, 0 _ : NEXT Y: GOTO 987 END IF 987 DO: FOR i = 255 TO 0 STEP -1: OUT &H3C7, i: R = INP(&H3C9): G = INP(&H3C9): B = INP(&H3C9): R = R - 1: G = G - 1: B = B - 1 IF R < 0 THEN R = 0 IF G < 0 THEN G = 0 IF B < 0 THEN B = 0 OUT &H3C8, i: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, B IF PEC > 20000 THEN GOTO 110042 PEC = PEC + 1: NEXT i: LOOP 110042 CLS : SCREEN 13: FOR KL = 63 TO 0 STEP -1: LOCATE 1, 1: PRINT " " PALETTE 0, KL COLOR 15: LOCATE 12, 13: PRINT "G A M E O V E R" SOUND (KL + 45) * 2, .7 NEXT KL FOR U = 31 TO 16 STEP -1 COLOR U: LOCATE 12, 13: PRINT "G A M E O V E R" SOUND (U + 45), .7: NEXT U: END END SUB SUB endin X = 160 200002 SCREEN 7, 0, 1, 0: COLOR 15, 11: FOR NUO = 450 TO -70 STEP -5: CLS : PAINT (1, 1), 11: RANDOMIZE TIMER: V = RND * 1 + .01: U = INT(RND * 2) + 1 IF TITL = 0 THEN LOCATE 7, 15: COLOR 8: PRINT "TRUCKIN' USA" IF TITL = 1 THEN LOCATE 6, 17: COLOR 8: PRINT "A GAME BY": LOCATE 8, 15: PRINT "LEIF STARBUCK": LOCATE 9, 20: PRINT "AND": LOCATE 10, 15: PRINT "SEAN CARLILE" IF TITL = 2 THEN LOCATE 6, 10: COLOR 8: PRINT "On the internet, visit": LOCATE 8, 6: PRINT "www.angelfire.com/ks/qbcentral/" IF TITL = 3 THEN LOCATE 7, 14: COLOR 8: PRINT "HAPPY TRUCKING!" IF TITL > 3 THEN GOTO 93765 LINE (0, 120)-(340, 200), 2, BF: LINE (0, 138)-(340, 140), 7, BF CIRCLE (NUO / 1.2, 30), 50, 15, , , .2: PAINT ((NUO - 30) / 1.2, 30), 15 LINE ((NUO - 14) / 1.1, 50)-((NUO - 16) / 1.1, 123), 6, BF: LINE (NUO * 4 - 1000, 180)-((NUO + 75) * 4 - 1000, 200), 8, BF LINE (NUO * 4 - 500, 190)-((NUO + 85) * 4 - 500, 200), 7, BF CIRCLE ((NUO - 15) / 1.1, 50), 40, 10, , , 2: PAINT ((NUO - 15) / 1.1, 50), 10: LINE (NUO, 130)-(NUO + 70, 70), 8, BF LINE (X - 20, 130)-(X - 2, 138), 7, BF: LINE (X, 130)-(X + 3, 138), 1, BF: LINE (X + 4, 132)-(X + 4, 138), 1: LINE (X + 5, 134)-(X + 5, 138), 1: LINE (X + 6, 136)-(X + 7, 138), 7, B CIRCLE (X - 18, 137), 2, 8: PAINT (X - 18, 137), 8: CIRCLE (X - 4, 137), 2, 8: PAINT (X - 4, 137), 8: CIRCLE (X + 2, 137), 2, 8: PAINT (X + 3, 137), 8 LINE (NUO * 9 - 1200, 50)-((NUO + 5) * 9 - 1200, 200), 8, BF movin$ = INKEY$ IF movin$ = " " OR movin$ = CHR$(13) THEN TITL = TITL + 1 IF U = 2 THEN V = V * -1 X = X + V PCOPY 1, 0: NEXT NUO: GOTO 200002 93765 PEC = 0 DO: FOR i = 255 TO 0 STEP -1: OUT &H3C7, i: R = INP(&H3C9): G = INP(&H3C9): B = INP(&H3C9): R = R - 1: G = G - 1: B = B - 1 IF R < 0 THEN R = 0 IF G < 0 THEN G = 0 IF B < 0 THEN B = 0 OUT &H3C8, i: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, B IF PEC > 20000 THEN CALL menu PEC = PEC + 1: NEXT i: LOOP END SUB SUB menu CLS : SCREEN 13 FOR X = 16 TO 31: LOCATE 1, 1: PRINT " " COLOR X: LOCATE 11, 13: PRINT "MARAK PRODUCTIONS" LOCATE 13, 17: PRINT "PRESENTS" SOUND (X + 45) * 3, .7: NEXT X SLEEP 1 FOR X = 31 TO 16 STEP -1: COLOR X: LOCATE 11, 13: PRINT "MARAK PRODUCTIONS" LOCATE 13, 17: PRINT "PRESENTS" SOUND (X + 45) * 3, .7: FOR T = 1 TO 100: NEXT T NEXT X SLEEP 1 CLS : SCREEN 13 881 LINE (5, 5)-(315, 195), 4, B FOR Y = 0 TO 63 PALETTE 0, Y aa$ = INKEY$ IF aa$ <> "" THEN GOTO dri COLOR 15: LOCATE 12, 9: PRINT "T R U C K I N ' U S A !" NEXT Y FOR Y = 63 TO 0 STEP -1 PALETTE 0, Y aa$ = INKEY$ IF aa$ <> "" THEN GOTO dri COLOR 15: LOCATE 12, 9: PRINT "T R U C K I N ' U S A !" NEXT Y AGAIN: COLOR 4: LOCATE 20, 8: PRINT "PRESS ANY KEY TO START" FOR J = 0 TO 63 PALETTE 0, J FOR W = 1 TO 50 aa$ = INKEY$ IF aa$ <> "" THEN GOTO dri NEXT: NEXT FOR J = 63 TO 0 STEP -1 PALETTE 0, J FOR W = 1 TO 50 aa$ = INKEY$ IF aa$ <> "" THEN GOTO dri NEXT: NEXT GOTO AGAIN dri: FOR Y = 63 TO 0 STEP -1 SOUND (Y + 45) * 4, .3 LINE (5, 5)-(315, 195), 16, B: COLOR 16: LOCATE 20, 8: PRINT "PRESS ANY KEY TO START" PALETTE 0, Y COLOR 15: LOCATE 12, 9: PRINT "T R U C K I N ' U S A !" NEXT Y SLEEP 2 22121 CLS : SCREEN 12 LINE (0, 0)-(730, 400), 11, BF: LINE (0, 400)-(730, 500), 7, BF LINE (450, 220)-(440, 330), 8, BF: LINE (0, 450)-(580, 463), 0, BF LINE (400, 420)-(460, 427), 8, BF: LINE (450, 250)-(540, 430), 12, BF: LINE (540, 340)-(580, 430), 12, BF: LINE (540, 250)-(580, 340), 12: PAINT (541, 260), 12: LINE (490, 270)-(530, 330), 0, BF LINE (0, 240)-(410, 430), 8, BF: LINE (0, 241)-(409, 429), 7, BF LINE (1, 310)-(400, 420), 15, B, 9: LINE (1, 250)-(400, 290), 15, B, 9 CIRCLE (520, 430), 34, 8: PAINT (520, 430), 8: CIRCLE (520, 430), 12, 7: PAINT (520, 430), 7: CIRCLE (520, 430), 3, 8: PAINT (520, 430), 8 CIRCLE (370, 430), 34, 8: PAINT (370, 431), 8: PAINT (370, 429), 8: CIRCLE (370, 430), 12, 7: PAINT (370, 430), 7: CIRCLE (370, 430), 3, 8: PAINT (370, 430), 8 CIRCLE (20, 430), 34, 8: PAINT (20, 431), 8: PAINT (20, 429), 8: CIRCLE (20, 430), 12, 7: PAINT (20, 430), 7: CIRCLE (20, 430), 3, 8: PAINT (20, 430), 8 LINE (580, 430)-(585, 350), 8, BF: LINE (567, 400)-(590, 430), 8, BF CIRCLE (570, 373), 10, 15, , , 2: PAINT (570, 373), 15: LINE (480, 340)-(540, 390), 7, BF LINE (0, 300)-(410, 302), 9, BF: LINE (530, 300)-(535, 330), 7, BF CIRCLE (444, 390), 30, 8, , , 6: PAINT (444, 390), 8: CIRCLE (430, 413), 20, 8, , , .3 PAINT (430, 413), 8: LINE (565, 390)-(575, 396), 14, BF LINE (4, 30)-(347, 145), 12, BF LOCATE 3, 2: PRINT " " LOCATE 4, 2: PRINT " Select one of " LOCATE 5, 2: PRINT " 1) START the following " LOCATE 6, 2: PRINT " " LOCATE 7, 2: PRINT " 2) QUIT " LOCATE 8, 2: PRINT " " LOCATE 9, 2: PRINT " " LINE (100, 30)-(101, 145), 12, BF: LINE (213, 100)-(243, 130), 9, B 293 LOCATE 8, 29: PRINT " ": LOCATE 8, 29: INPUT "", n: IF n < 1 OR n > 2 THEN GOTO 293 IF n = 1 THEN GOTO 999 IF n = 2 THEN 918 LINE (388, 30)-(635, 145), 12, BF LOCATE 3, 50: PRINT " " COLOR 10: LOCATE 4, 50: PRINT " Really Quit? " COLOR 15: LOCATE 5, 50: PRINT " " LOCATE 6, 50: PRINT " (y/n) " LOCATE 7, 50: PRINT " " LOCATE 8, 50: PRINT " " LOCATE 9, 50: PRINT " " LINE (494, 100)-(524, 130), 9, B LOCATE 8, 64: INPUT "", G$ IF G$ = "y" OR G$ = "Y" THEN FOR O = 1 TO 20: FOR Y = 1 TO 700 STEP 10: LINE (Y + O, 0)-(Y + O, 200), 11: NEXT Y: NEXT O LINE (210, 50)-(436, 125), 10, BF LOCATE 5, 29: PRINT " " LOCATE 6, 29: PRINT " 0 0 : 0 0 : 0 0 " LOCATE 7, 29: PRINT " " LOCATE 6, 48: PRINT "5": SOUND 45, 3: SLEEP 1: LOCATE 6, 48: PRINT "4": SOUND 45, 3: SLEEP 1 LOCATE 6, 48: PRINT "3": SOUND 45, 3: SLEEP 1: LOCATE 6, 48: PRINT "2": SOUND 45, 3: SLEEP 1 LOCATE 6, 48: PRINT "1": SOUND 45, 3: SLEEP 1: LOCATE 6, 48: PRINT "0": SOUND 125, 30: SLEEP 1 CLS : SCREEN 12 LINE (0, 0)-(720, 350), 11, BF: LINE (0, 350)-(720, 560), 2, BF LINE (0, 360)-(720, 380), 7, BF: LINE (300, 355)-(330, 365), 7, BF LINE (333, 356)-(340, 365), 12, BF: LINE (340, 362)-(343, 365), 12, BF CIRCLE (338, 365), 2, 8: PAINT (338, 365), 8: CIRCLE (328, 365), 2, 8: PAINT (328, 365), 8 CIRCLE (307, 365), 2, 8: PAINT (307, 365), 8: LINE (300, 367)-(343, 367), 0 SOUND 125, 10: SLEEP 1 RANDOMIZE TIMER FOR G = 1 TO 29: J = INT(RND * 10) + 1: FOR T = 0 TO 20 + J STEP 6: SOUND (J + 45) * 3, .07: CIRCLE (315 + J, 362), T, 0, 0, 3.14, .5: CIRCLE (318 + J, 354), T, 4, 0, 3.14, .5: CIRCLE (317 + J, 359), T, 12, 0, 3.14, .5: CIRCLE (312 + J, 355), T, 14 _ , 0, 3.14, .5: CIRCLE (313 + J, 358), T, 14, 0, 3.14, .5: CIRCLE (315 + J, 360), T, 0, 0, 3.14, .5: CIRCLE (319 + J, 358), T, 12, 0, 3.14, .5: NEXT T: NEXT LINE (300, 355)-(330, 365), 8, BF: LINE (333, 356)-(340, 365), 8, BF: LINE (340, 362)-(343, 365), 8, BF CIRCLE (338, 365), 2, 8: PAINT (338, 365), 8: CIRCLE (328, 365), 2, 8: PAINT (328, 365), 8 CIRCLE (307, 365), 2, 8: PAINT (307, 365), 8: LINE (300, 367)-(343, 367), 8 FOR G = 1 TO 19: J = INT(RND * 30) + 1: FOR T = 0 TO 30 + J STEP 5: SOUND (J + 45) * 3, .07: CIRCLE (315 + J, 362), T, 0, 0, 3.14, .5: CIRCLE (318 + J, 354), T, 4, 0, 3.14, .5: CIRCLE (317 + J, 359), T, 12, 0, 3.14, .5: CIRCLE (312 + J, 355), T, 14 _ , 0, 3.14, .5: CIRCLE (313 + J, 358), T, 14, 0, 3.14, .5: CIRCLE (315 + J, 360), T, 0, 0, 3.14, .5: CIRCLE (319 + J, 358), T, 12, 0, 3.14, .5: NEXT T: NEXT LINE (300, 358)-(330, 365), 0, BF: LINE (333, 358)-(340, 365), 0, BF: LINE (340, 363)-(343, 365), 0 CIRCLE (338, 368), 2, 0: PAINT (338, 365), 0: CIRCLE (328, 365), 2, 0: PAINT (328, 365), 0 CIRCLE (307, 365), 2, 0: PAINT (307, 365), 0: LINE (300, 367)-(343, 367), 0 FOR G = 1 TO 5: J = INT(RND * 100) + 1: FOR T = 0 TO 100 + J STEP 6: SOUND (J + 45) * 3, .07: CIRCLE (315 + J, 362), T, 0, 0, 3.14, .5: CIRCLE (318 + J, 354), T, 4, 0, 3.14, .5: CIRCLE (317 + J, 359), T, 12, 0, 3.14, .5: CIRCLE (312 + J, 355), T, 14 _ , 0, 3.14, .5: CIRCLE (313 + J, 358), T, 14, 0, 3.14, .5: CIRCLE (315 + J, 360), T, 0, 0, 3.14, .5: CIRCLE (319 + J, 358), T, 12, 0, 3.14, .5: NEXT T: NEXT CLS : SCREEN 13 FOR KL = 63 TO 0 STEP -1 PALETTE 0, KL COLOR 15: LOCATE 12, 13: PRINT "G A M E O V E R" SOUND (KL + 45) * 2, .7 NEXT KL FOR U = 31 TO 16 STEP -1 COLOR U: LOCATE 12, 13: PRINT "G A M E O V E R" SOUND (U + 45), .7: NEXT U: END END IF END IF IF G$ = "n" OR G$ = "N" THEN LINE (388, 30)-(635, 145), 11, BF: GOTO 293 GOTO 918 999 END SUB SUB traps IF DEATHWISH = 0 THEN SCREEN 7, 0, 1, 0: FOR X = 360 TO 150 STEP -4: CLS LINE (0, 0)-(340, 100), 11, BF: LINE (0, 101)-(340, 200), 2, BF: LINE (0, 120)-(340, 130), 7, BF: LINE (0, 124)-(340, 124), 14 IF X <> 154 THEN LINE (X + 110, 80)-(X, 118), 7, BF: LINE (X - 2, 80)-(X - 16, 118), 1, BF: LINE (X - 16, 100)-(X - 30, 118), 1, BF: LINE (X - 16, 80)-(X - 30, 100), 1: PAINT (X - 20, 90), 1: LINE (X - 30, 110)-(X - 35, 118), 7, BF: CIRCLE (X - 30, _ 105), 3, 15, , , 2: PAINT (X - 30, 105), 15: LINE (X - 10, 100)-(X - 23, 100), 0: LINE -(X - 10, 82), 0: LINE -(X - 10, 100), 0: PAINT (X - 15, 95), 0 IF X < 155 THEN LINE (X + 111, 79)-(X, 118), 7, BF: LINE (X + 3, 75)-(X - 16, 119), 1, BF: LINE (X - 16, 90)-(X - 20, 120), 1, BF: LINE (X - 16, 90)-(X - 20, 120), 1: PAINT (X - 18, 100), 1: LINE (X - 30, 108)-(X - 31, 121), 7, BF: CIRCLE (X - 28, _ 105), 3, 0, , , 3: PAINT (X - 28, 105), 0: LINE (X - 10, 103)-(X - 20, 100), 0: LINE -(X - 8, 82), 0: LINE -(X - 10, 103), 0: PAINT (X - 15, 95), 0: SOUND 45, 1 CIRCLE (X - 17, 118), 9, 8: PAINT (X - 17, 118), 8: CIRCLE (X - 17, 118), 4, 7: PAINT (X - 17, 118), 7: CIRCLE (X + 12, 118), 9, 8: PAINT (X + 12, 118), 8: CIRCLE (X + 12, 118), 4, 7: PAINT (X + 12, 118), 7: CIRCLE (X + 95, 118), 9, 8: PAINT (X + 95 _ , 118), 8: CIRCLE (X + 95, 118), 4, 7: PAINT (X + 95, 118), 7: LINE (X + 107, 119)-(X + 107, 124), 8 CIRCLE (84, 122), 50, 0, 0, 3.14, 1.2: CIRCLE (84, 122), 41, 0, 3.14, 0, .1: PAINT (84, 122), 0: CIRCLE (80, 120), 50, 6, 0, 3.14, 1.2: CIRCLE (80, 120), 41, 6, 3.14, 0, .1: PAINT (80, 120), 6: CIRCLE (80, 100), 10, 0, 1.5, 5, 3: CIRCLE (70, 90), 10 _ , 0, 1.5, 5, 3 PCOPY 1, 0: SOUND 45, .1: NEXT X: SLEEP 1: PAINT (150, 100), 15: PCOPY 1, 0: FOR i = 1 TO 500: RANDOMIZE TIMER: H = INT(RND * 300 + 45): SOUND H, .1: NEXT i SCREEN 7, 0, 1, 0: FOR Y = 122 TO -30 STEP -4: CLS LINE (0, 0)-(340, 100), 11, BF: LINE (0, 101)-(340, 200), 2, BF: LINE (0, 120)-(340, 130), 7, BF: LINE (0, 124)-(340, 124), 14 LINE (X + 111, 79)-(X, 118), 0, BF: LINE (X + 3, 75)-(X - 16, 119), 0, BF: LINE (X - 16, 90)-(X - 20, 120), 0, BF: LINE (X - 16, 90)-(X - 20, 120), 0: PAINT (X - 18, 100), 0: LINE (X - 30, 108)-(X - 31, 121), 0, BF: CIRCLE (X - 28, 105), 3, 0, , , 3 _ : PAINT (X - 28, 105), 0: LINE (X - 10, 103)-(X - 20, 100), 0: LINE -(X - 8, 82), 0: LINE -(X - 10, 103), 0: PAINT (X - 15, 95), 0: CIRCLE (X - 17, 118), 8, 0: PAINT (X - 17, 118), 0: CIRCLE (X + 12, 118), 11, 0: PAINT (X + 12, 118), 0: CIRCLE (X + 95, 118), 9, 0: PAINT (X + 95, 118), 0: CIRCLE (84, 122), 50, 0, 0, 3.14, 1.2: CIRCLE (84, 122), 41, 0, 3.14, 0, .1: PAINT (84, 122), 0: CIRCLE (80, 120), 50, 0, 0, 3.14, 1.2: CIRCLE (80, 120), 41, 0, 3.14, 0, .1: PAINT (80, 120), 0: CIRCLE (80, 100), 10, 0, 1.5, 5, 3: CIRCLE (70, 90), 10 _ , 0, 1.5, 5, 3 CIRCLE (150, Y), 100, 8, , , .5: PAINT (150, Y), 8: CIRCLE (150, Y), 90, 4, , , .5: PAINT (150, Y), 4: CIRCLE (150, Y), 80, 12, , , .5: PAINT (150, Y), 12: CIRCLE (150, Y), 70, 14, , , .5: PAINT (150, Y), 14: CIRCLE (150, Y), 50, 7, , , .5: PAINT ( _ 150, Y), 7: CIRCLE (150, Y), 30, 15, , , .5: PAINT (150, Y), 15 PCOPY 1, 0: X = X - .5: NEXT Y: GOTO 9876 END IF IF DEATHWISH = 1 THEN SCREEN 7, 0, 1, 0: FOR X = -10 TO 30 STEP 2: CLS PAINT (1, 1), 11: LINE (10, 50)-(340, 200), 9, BF: LINE (0, 20)-(25, 20), 2: LINE -(20, 45), 2: LINE -(30, 100), 2: LINE -(60, 150), 2: LINE -(70, 156), 2: LINE -(72, 256), 2: PAINT (1, 30), 2: LINE (X - 20, 10)-(X - 2, 18), 7, BF: LINE (X, 10)-(X + 3, 18), 1, BF: LINE (X + 4, 12)-(X + 4, 18), 1: LINE (X + 5, 14)-(X + 5, 18), 1: LINE (X + 6, 16)-(X + 7, 18), 7, B CIRCLE (X - 18, 17), 2, 8: PAINT (X - 18, 17), 8: CIRCLE (X - 4, 17), 2, 8: PAINT (X - 4, 17), 8: CIRCLE (X + 2, 17), 2, 8: PAINT (X + 3, 17), 8 PCOPY 1, 0: NEXT X: T = 30 FOR X = 55 TO 70 STEP 5: CLS PAINT (1, 1), 11: LINE (10, 50)-(340, 200), 9, BF: LINE (0, 20)-(25, 20), 2: LINE -(20, 45), 2: LINE -(30, 100), 2: LINE -(60, 150), 2: LINE -(70, 156), 2: LINE -(72, 256), 2: PAINT (1, 30), 2: LINE (X - 20, T)-(X - 10, T + 10), 7: LINE (X - 27, T + 6)-(X - 17, T + 16), 7: LINE (X - 10, T + 10)-(X - 17, T + 16), 7: LINE (X - 20, T)-(X - 27, T + 6), 7: PAINT (X - 20, T + 5), 7 CIRCLE (X - 24, T + 7), 2, 8: PAINT (X - 24, T + 7), 8: CIRCLE (X - 18, T + 13), 2, 8: PAINT (X - 18, T + 13), 8 LINE (X - 8, T + 12)-(X - 15, T + 18), 1: LINE (X - 6, T + 12)-(X - 14, T + 18), 1: LINE (X - 10, T + 12)-(X - 16, T + 18), 1 CIRCLE (X - 13, T + 18), 4, 1, , , .2: PAINT (X - 13, T + 18), 1: CIRCLE (X - 13, T + 16), 3, 1, , , .2: PAINT (X - 13, T + 16), 1: CIRCLE (X - 14, T + 17), 2, 8: PAINT (X - 14, T + 17), 8 IF T < 230 THEN T = T + 3 IF T > 227 THEN GOTO 12588 PCOPY 1, 0: NEXT X: T = 46 12588 FOR X = 70 TO 90 STEP 1 CLS : IF T = 46 THEN T = 47: GOTO 779 IF T = 47 THEN T = 46 779 PAINT (1, 1), 11: LINE (10, 49)-(340, 200), 9, BF: CIRCLE (57, 51), (X - 69) * 3, 1, , , .04: LINE (0, 20)-(25, 20), 2: LINE -(20, 45), 2: LINE -(30, 100), 2: LINE -(60, 150), 2: LINE -(70, 156), 2: LINE -(72, 256), 2: PAINT (1, 30), 2: LINE (X - 20, T)-(X - 10, T + 10), 7: LINE (X - 27, T + 6)-(X - 17, T + 16), 7: LINE (X - 10, T + 10)-(X - 17, T + 16), 7: LINE (X - 20, T)-(X - 27, T + 6), 7: PAINT (X - 20, T + 5), 7 CIRCLE (X - 24, T + 7), 2, 8: PAINT (X - 24, T + 7), 8: CIRCLE (X - 18, T + 13), 2, 8: PAINT (X - 18, T + 13), 8 LINE (X - 8, T + 12)-(X - 15, T + 18), 1: LINE (X - 6, T + 12)-(X - 14, T + 18), 1: LINE (X - 10, T + 12)-(X - 16, T + 18), 1 CIRCLE (X - 13, T + 18), 4, 1, , , .2: PAINT (X - 13, T + 18), 1: CIRCLE (X - 13, T + 16), 3, 1, , , .2: PAINT (X - 13, T + 16), 1: CIRCLE (X - 14, T + 17), 2, 8: PAINT (X - 14, T + 17), 8 PCOPY 1, 0: NEXT X SCREEN 7, 0, 1, 0: FOR K = 220 TO 1 STEP -2: CLS : RANDOMIZE TIMER: HJ = INT(RND * 1000 + 45): SOUND HJ, .1 LINE (0, 0)-(340, 10), 7, BF: LINE (0, 160)-(340, 210), 7, BF: LINE (10, 5)-(310, 5), 4: LINE (10, 162)-(310, 162), 1: LINE (120, 165)-(133, 190), 0, BF: LINE (10, 165)-(23, 190), 0, BF: CIRCLE (55, 170), 7, 0, 0, 3.14: CIRCLE (85, 170), 7, 0, 0, _ 3.14: LINE (48, 171)-(62, 171), 0: LINE (78, 171)-(92, 171), 0: PAINT (60, 170), 0: PAINT (90, 170), 0: LINE (85, 170)-(91, 168), 15: LINE (55, 170)-(56, 165), 15: LINE (150, 170)-(200, 200), 8, BF: LINE (250, 170)-(300, 201), 8, B LINE (0, 15)-(340, 150), 9, BF: CIRCLE (100, 140), 5, 11: CIRCLE (100, 130), 3, 11: CIRCLE (100, 122), 1, 11: CIRCLE (300, 80), 6, 11: CIRCLE (300, 70), 3, 11: CIRCLE (300, 52), 1, 11: LINE (30, 178)-(71, 182), 15, BF: LINE (71, 178)-(110, 182), 15, BF: LINE (68, 180)-(72, 230), 15, BF: CIRCLE (70, 180), 7, 8: PAINT (70, 180), 8: CIRCLE (70, 180), 40, 8: CIRCLE (70, 180), 44, 8: PAINT (70, 146), 8: PAINT (110, 180), 8: LINE (68, _ 144)-(72, 146), 15, BF LINE (0, 220)-(330, K), 11, BF: CIRCLE (130, K + 20), 2, 1: CIRCLE (130, K + 40), 6, 1: CIRCLE (130, K + 62), 10, 1: CIRCLE (250, K + 100), 20, 6: PAINT (250, K + 100), 6: LINE (240, K + 100)-(280, K + 87), 6: LINE (240, K + 100)-(280, K + 113), 6: LINE (280, K + 87)-(280, K + 113), 6: PAINT (275, K + 100), 6: CIRCLE (240, K + 96), 1, 0 PCOPY 1, 0: NEXT K: GOTO 9876 END IF IF DEATHWISH = 2 THEN SCREEN 7, 0, 1, 0: FOR X = 400 TO 90 STEP -4: CLS : IF i = 0 THEN i = 1: GOTO 63 IF i = 1 THEN i = 0 63 LINE (0, 0)-(340, 100), 11, BF: LINE (0, 101)-(340, 200), 2, BF: LINE (0, 120)-(340, 130), 7, BF: LINE (0, 124)-(340, 124), 14 IF X > 90 THEN LINE (X + 110, 80)-(X, 118), 7, BF: LINE (X - 2, 80)-(X - 16, 118), 1, BF: LINE (X - 16, 100)-(X - 30, 118), 1, BF: LINE (X - 16, 80)-(X - 30, 100), 1: PAINT (X - 20, 90), 1: LINE (X - 30, 110)-(X - 35, 118), 7, BF: CIRCLE (X - 30, 105), 3, 15, , , _ 2: PAINT (X - 30, 105), 15: LINE (X - 10, 100)-(X - 23, 100), 0: LINE -(X - 10, 82), 0: LINE -(X - 10, 100), 0: PAINT (X - 15, 95), 0 CIRCLE (X - 17, 118), 9, 8: PAINT (X - 17, 118), 8: CIRCLE (X - 17, 118), 4, 7: PAINT (X - 17, 118), 7: CIRCLE (X + 12, 118), 9, 8: PAINT (X + 12, 118), 8: CIRCLE (X + 12, 118), 4, 7: PAINT (X + 12, 118), 7: CIRCLE (X + 95, 118), 9, 8: PAINT (X + 95 _ , 118), 8: CIRCLE (X + 95, 118), 4, 7: PAINT (X + 95, 118), 7: LINE (X + 107, 119)-(X + 107, 124), 8 END IF CIRCLE (X / 2, 40), 10, 0: PAINT (X / 2 - 9, 40), 0: CIRCLE (X / 2, 40), 8, 7, 0, 3.14: LINE (X / 2 - 9, 40)-(X / 2 + 9, 40), 7: PAINT (X / 2 - 6, 39), 7: LINE (X / 2 - 1, 30)-(X / 2 + 1, 45), 0, BF: LINE (X / 2, 38)-(X / 2 - 8, 50), 0: LINE (X / 2 _ , 40)-(X / 2 + 8, 50), 0: CIRCLE (X / 2 + 8, 51), 1, 0: CIRCLE (X / 2 - 8, 51), 1, 0: SOUND 45, .07 IF i = 1 THEN LINE (X / 2 - 15, 30)-(X / 2 + 15, 30), 0, B: IF i = 0 THEN LINE (X / 2 - 15, 30)-(X / 2 + 15, 30), 11, B: IF X = 300 OR X = 297 OR X = 294 OR X = 200 OR X = 197 OR X = 194 OR X = 100 OR X = 97 OR X = 94 THEN LINE (X / 2, 46)-(X + 55, 82), 7: SOUND 45, 3: IF X < 295 THEN LINE (X + 110, 80)-(X, 80), 0: IF X < 195 THEN LINE (X + 110, 80)-(X, 86), 0, BF IF X < 100 THEN LINE (X + 110, 80)-(X, 91), 0, BF IF X < 95 THEN FOR Y = 500 TO 45 STEP -5: SOUND Y, .2: NEXT Y: FOR T = 1 TO 500: RANDOMIZE TIMER: J = INT(RND * 20 + 1): H = INT(RND * 140 + 80): i = INT(RND * 80 + 70): R = INT(RND * 300 + 45): SOUND R, .1: CIRCLE (H, i), J, 0: CIRCLE (H - 4, i + 3 _ ), J + 1, 4: CIRCLE (H + 3, i - 2), J + 4, 12: CIRCLE (H + 5, i + 6), J + 1, 14: CIRCLE (H - 2, i - 5), J + 1.2, 0: PCOPY 1, 0: NEXT PCOPY 1, 0: NEXT X: SCREEN 7, 0, 1, 0: FOR X = 600 TO 10 STEP -4: CLS : IF i = 0 THEN i = 1: GOTO 8863 IF i = 1 THEN i = 0 8863 LINE (0, 0)-(340, 100), 11, BF: LINE (0, 101)-(340, 200), 2, BF: LINE (0, 120)-(340, 130), 7, BF: LINE (0, 124)-(340, 124), 14: CIRCLE (20, 50), 40, 15, , , .2: PAINT (20, 50), 15 IF X > 149 THEN CIRCLE (X, 118), 9, 8: PAINT (X, 118), 8: CIRCLE (X, 118), 4, 0: PAINT (X, 118), 0: LINE (X, 111)-(X + 3, 105), 14: LINE -(X + 2, 112), 14: LINE -(X, 108), 14: PAINT (X + 2, 109), 14 IF X < 150 THEN CIRCLE (X, 124), 13, 8, , , .2: PAINT (X, 124), 8: LINE (X, 116)-(X + 3, 110), 14: LINE -(X + 2, 117), 14: LINE -(X, 113), 14: PAINT (X + 2, 114), 14 IF X < 180 THEN CIRCLE (X / 2, 40), 10, 0: PAINT (X / 2 - 9, 40), 0: CIRCLE (X / 2, 40), 8, 7, 0, 3.14: LINE (X / 2 - 9, 40)-(X / 2 + 9, 40), 7: PAINT (X / 2 - 6, 39), 7: LINE (X / 2 - 1, 30)-(X / 2 + 1, 45), 0, BF: LINE (X / 2, 38)-(X / 2 - 8, 50) _ , 0: LINE (X / 2, 40)-(X / 2 + 8, 50), 0: CIRCLE (X / 2 + 8, 51), 1, 0: CIRCLE (X / 2 - 8, 51), 1, 0: SOUND 45, .07 IF X > 179 THEN CIRCLE (X / 2 - 5, 40), 10, 0: PAINT (X / 2 + 4, 40), 0: CIRCLE (X / 2 - 5, 40), 8, 7, 1.5, 3.5: LINE (X / 2 - 13, 42)-(X / 2 - 4, 42), 7: LINE -(X / 2 - 4, 34), 7: PAINT (X / 2 - 5, 36), 7: LINE (X / 2 - 5, 45)-(X / 2 - 5, 50), 0: _ LINE (X / 2 - 15, 50)-(X / 2 + 20, 50), 0: LINE (X / 2, 35)-(X / 2 + 20, 41), 0, BF: LINE (X / 2 + 15, 41)-(X / 2 + 20, 30), 0, BF: CIRCLE (X / 2 + 17, 33), 6, 0: LINE (X / 2 - 23, 30)-(X / 2 + 8, 30), 0, B: SOUND 45, .07: SOUND 145, .07 IF X < 110 THEN X = X + 4 IF i = 1 THEN LINE (X / 2 - 23, 30)-(X / 2 + 23, 30), 0, B: IF i = 0 THEN LINE (X / 2 - 23, 30)-(X / 2 + 23, 30), 11, B: IF X > 150 AND X < 158 THEN LINE (X / 2, 46)-(X, 118), 7: SOUND 45, 3: IF X < 116 THEN GOTO 9876 PCOPY 1, 0: NEXT X: END IF 9876 DO: FOR i = 255 TO 0 STEP -1: OUT &H3C7, i: R = INP(&H3C9): G = INP(&H3C9): B = INP(&H3C9): R = R - 1: G = G - 1: B = B - 1 IF R < 0 THEN R = 0 IF G < 0 THEN G = 0 IF B < 0 THEN B = 0 OUT &H3C8, i: OUT &H3C9, R: OUT &H3C9, G: OUT &H3C9, B IF PEC > 20000 THEN GOTO 90090 PEC = PEC + 1: NEXT i: LOOP 90090 CLS : SCREEN 13: LOCATE 1, 1: PRINT " " FOR KL = 63 TO 0 STEP -1 PALETTE 0, KL COLOR 15: LOCATE 12, 13: PRINT "G A M E O V E R" SOUND (KL + 45) * 2, .7 NEXT KL FOR U = 31 TO 16 STEP -1 COLOR U: LOCATE 12, 13: PRINT "G A M E O V E R" SOUND (U + 45), .7: NEXT U: END END SUB