P693 ORACLE 693 Mon12 Oct C4 1750:40 |F2201221|a35Racer1111|i28ASCBASIC3AMS10 REM **************************÷e÷b20 RE M * *÷e÷b30 D RACER *÷e÷b40 BD *÷e÷b50 DD * ÷e÷b60 REM * *÷e÷b70 REM * *÷e÷b80 REM * *÷e÷b90 REM *****Hi-Sue&Sarah *********÷e÷b100 SYMBOL AFTER 256:MEMORY 39999:POKE 40000,1:POKE 40001,1:POKE 40 002,1÷e÷b110 SYMBOL AF$FR 100:GOSUB 3090 :ENV 1,7,-1,10:ENV 2,7,-1,1:ENV 3,7,-1,5 0:ENV 4,3,5,1,50,0,2,15,-1,5:ENV 5,5,-1, 2÷e÷b120 DEFINTa-z:cht$="off":GOSUB 2160 :GOTO 130÷e÷b130 GOSUB 4690:dis=skill*3: SPEED KEY 12,12:SPEED INK 200,200:MODE 0 :BORDER 0:FOR i=0 TO 11:INK i,0:NEXT:PAP ER 0:PEN 0:CLS÷e÷b140 DIM rat$(15):rat$( 1)=" KERB CRAWLER":rat$(3)=" PITSTOP PUSHOVER":rat$(5)=" MEDIUM MOVER":ra t$(7)=" COOL CORNERER":rat$(9)=" RI GHT RACER":rat$(11)=" TARMAC TEARE|c
P693 ORACLE 693 Mon12 Oct C4 1751:00 |F2202221|a35Racer1111|i28ASCBASIC3AMSR" :rat$(13)=" ROUGH REVVER":rat$(15)=" BRILL BURNER"÷e÷b150 DIM sha(10)÷e÷b1 60 rat$(0)=rat$(1):rat$(2)=rat$(1):rat$(  7):rat$(10)=rat$(9):rat$(198=rat$H000:ra t$(14)=rat$(13)÷e÷b170 ca$=CHR$(182)+CHR $(183):cb$=CHR$(184)+CHR$(185)+CHR$(186) :cc$=CHR$(187)+CHR$(188)+CHR$(189)+CHR$( 190):cd$=CHR$(191)+CHR$(192)+CHR$(193)+C HR$(19 WINBOW WINDOW£2,9,12,18,19:WINDOW£1,1,20,21,27: PAPER 0:CLS:PAPER£1,6:PAPFR£2,5:CLS£1:PE N£2,7÷e÷b190 cf$=CHR$(220)+CHR$(221)+CHR $(222)+CHR$(223)+CHR$(224)+CHR$(225)+CHR $(226)+CHR$(224)÷e÷b200 cl$=CHR$H0Z4)+CH R$(155)+CHR$H0:6)+CHR$(157)+CHR$(224)+CH R$(225)+CHR$(226)+CHR$H0Z8)÷e÷b210 cr$=C HR$(150)+CHR$(151)+CHR$H0:2)+CHR$H0:3)+C HR$(158)+CHR$(225)+CHR$(226)+CHR$(224):c loud$=CHR$(130)+CHR$(131)+CHR$(13  20 pin=0:carpas=0:car=0:dam=0:a=9:b=12:s o=3000:r1=9:r2=8:r3=7:r 6÷e÷b230 st|c
P693 ORACLE 693 Mon12 Oct C4 1751:10 |F2203221|a35Racer1111|i28ASCBASIC3AMSar t$=CHR$(200)+CHR$(201)+CHR$(202)+CHR$(20 3)+CHR$(204)+CHR$(205)+CHR$(206)+CHR$(20 7)+CHR$(208)+CHR$(209)÷e÷b240 m1$=CHR$(2 10)+CHR$(211)+CHR$(216)+CHR$(210)+CHR$(2 CHRCHRCHRCHR 16)+CHR$(210)+CHR$(211)+CHR$(216)+CHR$(2 10)+CHR$(211)+CHR$(216)+CHR$(210)+CHR$(2 11)+CHR$(216)+CHR$(210)+CHR$(2  REM * Set Up Scree> *÷e÷b260 e=PEEK(400 00):IF dem$="on"THEN ab$="X"ELSE ab$="!" ÷e÷b270 FOR i=1 TO 3:PAPER 6:PRINT" ";:NEXT:PAPER 0:LOCATE 3, 5:PEN 2:PRINT cloud$:LOCATE 11,8:PRINT c loud$:LOCATE 5,9:PRINT cloud$:LOCATE 16, 7:PRINT cloud$:PEN 7:PAPER 0:LOCATE 1,11 :PRINT m1$;÷e÷b280 FOR i=12 TO 20:PAPER 4:LOCATE 1,i:PRINT" " ;:NEXT÷e÷b290 PAPER 6:LOCATE 1,1:PEN 1:P UINT" RACER";:PEN 7:PRINT" by K.Murfitt" :PAPER 4:MOVE 0,362:DRAW 639,362,7:DRAW 639,390,7:DRAW 0,390,7:DRAW 0,362,7÷e÷b3 00 IF dem$="on"THEN LOCATE 2,2:PEN 1|c
P693 ORACLE 693 Mon12 Oct C4 1751:57 |F2204221|a35Racer1111|i28ASCBASIC3AMS:P APER 6:PRINT"PUSH FIRE TO ABORT":PAPER 4 ÷e÷b310 qq=32:ww=229:ee=46:rr=235:op=96: FOR i=1 TO 7ZNOVE qq,wwzDRAg ee,rr,2:qq= qq+op:ee=ee+op:NEXT:LOCATE£1,1,2:PEN 0:P RINT£1,"Score 0 MPH 0":LOCATE£1,1,4: PRINT£1,"Damage";:PEN£1,1÷e÷b320 ON e GO TO 330,340,350,360÷e÷b330 LOCATE£1,9,3:P RINT£1,CHR$(160);CHR$(161);CHR$(162):LOC ATE£1,9,4:HRINT£1,CHR$(163);CHR$(164);CH R$(165):RESTORE 4520:GOTO 370÷e÷b340 LOC ATE£1,10,3:PRINT£1,CHR$(166):LOCATE£1,9, 4:PRINT£1,CHR$(167);CHR$(168);CHR$(169): RESTORE 4540:GOTO 370÷e÷b350 LOCATE£1,10 ,3:PRINT£1,CHR$(170);CHR$(171):LOCA$D 1, 10,4:PRINT£1,CHR$(172);CHR$(173):RESTORE 4560:GOTO 370÷e÷b360 LOCATE£1,9,3:PRINT £1,CHR$(174);CHR$(175);CHR$(176):LOCATE£ 1,9,4:PRINT£1,CHR$(177);CHR$(178);CHR$(1 79):RESTORE 4580÷e÷b370 PEN£1,1:MOVE 0,2 25:DRAg 640,225,7ZNOVE 0,0:DRAW 639,0,7: DRAW 639,10,7:DRAW 0,10,7:DRAW 0,0,7:w=8 :x=1:y=19:z=16÷e÷b380 FOR i=20 TO 12|c
P693 ORACLE 693 Mon12 Oct C4 1700:00 |F2205221|a35Racer1111xh08ASCBASIC3AMS S TEP-1:w=w+18IF w=10 THEN w=8÷e÷b390 PEN w:LOCA D x,i:PRINT CHR$(214);:PAPER 5:PR INT CHR$(21 FORFTO@RINTNE XT:LOCATE y,i:PPHNT CHR$(213);:PAPER 4:P RINT CHR$(00 NEXT ÷b400 IF PEEK(40 ANDPDEK  >4 THEN INK 8,6,26:INK 9,26,6 ELSE INK 8 ,3,13:INK 9,13,3÷e÷b410 MOVE 200,2:DRAW 200,8,7:MOVE 497,2:DRAW 497,8,7:MOVE 0,8 1:DRAW 0,351,7:DRAW 639,351,7:DRAW 639,8 1,7:DRAW 0,81,7:PEN£2,10:PRINT£0,cf$;÷e÷ b420 ON PEEK(400 GOTO e÷b430 bak=1  0:—rivv=0:cloud=26:grass=18:GOTO 470÷e÷b 440 bak=128pex=24:road=23:sky=14:driv=0: drivv=0:cloud=26:grass=26:GOTO 470÷e÷b45 0 b—k=0:tex=24:road=0:sky=0:cloud=08gras s=0:driv=2:drivv=1:GOTO 470÷e÷b460 bak=0 :tex=24:road=0:sky=0:cloud=0:gr!rr80:dri v=2:drivv=1÷e÷b470 BORDDR bak:INK 6,bak: INK 1,tex:INK 0,sky:INK 2,cloud:INK 3,6: INK 4,grass:INK 5,road:INK 7,drivv:IxB
P693 ORACLE 693 Mon12 Oct C4 1700:00 |F2206221|a35Racer1111|i28ASCBASIC3AMSNK 10,driv:INK 11,16:INK 12,18:o=0÷e÷b480 PAPER 0:PEN 7:FOR i=21 TO 11 STEP-1:LOCA D i,6:PRINT MID$(start$,1,o):o=o+1:FOR u=0 TO 99:NEXT:NEXT÷e÷b490 o$=INKEY$:IB o$=ab$THEN 4670÷e÷b500 FOR i=10 TO 1 STE P-1:LOCATE 20,6: HNTCHRLOCATE ,6:PRINT start$;" ":FOR q=0 TO 99:NEXT:I F i= THEN FOR y=1 TO 3:SOUND 4,400,60,7 ,1:S DND 1,400,60,7,1:NDXT:SOUND 4,200,6 0,7,1:SOUND 1,200,60,7,1÷e÷b510 NEXT÷e÷b 520 o$=INK $:IF o$=ab$THEN 4670÷e÷b530 FOR i=9 TO 0 STEP-1:LOCATE 20,6:PRINT CH R$(181):LOCATE 1,6:PRINT RIGHT$(start$,i );" ":FOR u=0 TO 998NEXT:NEXT÷e÷b540 o$= INKEY$:IF o$=ab$THEN 4670÷d÷b550 LOCATE 1,6:PRINT CH FORTONEXT e÷b560 EVERY 6,0 GOSUB 610÷e÷" EVERY 30,1 GOSUB 1490÷e÷b580 EVERY 40,2 GOSUB 1140÷e÷b590 GOTO 590÷e÷b600 REM * Move P l!xdp *÷e÷b610 o <@NK@X$:IF o$="!"THEN 4 670÷e÷b620 DI:LOCATE 1,16:PAPER 4:PEN 7: PRINT CHR$(180);" ";:SOUND 129,so,|c
P693 ORACLE 693 Mon12 Oct C4 1700:00 |F2208221|a35Racer1111|i28ASCBASIC3AMSIF mph>150 THEN SPEED INK 4,4:GOTO 860÷e÷b 820 IF mph>80 THEN SPEED INK 5,5:GGTO 86 0÷e÷b830 IF mph>20 THEN SPEED INK 10,10: GOTO 860÷e÷b840 IF mph>0 THEN SPEED INK 20,20:GOTO 860÷e÷b850 IF mph=0 THEN SPEE D INK 255,255÷e÷b860 so 2o-30:mph=mph+2: IF mph>226 THDN mph=226÷e÷b8 IF THEN so=610÷e÷b880 IF mp(<0 THEN o+1000÷e÷b8 0 IF mph=120 THEN EVERY 300, 3 GOSUB 4370÷e÷b900 IF mph=226 THDN sc92 c-1÷e÷b910 LOCATE£1,12,2: PHNT£1," MPH"; mph;:RETURN÷e÷b920 DDS @F mph>200 THEN SPEED INK 1,18GGTO 1000 ÷e÷b940 IF mph>170 THEN QPEED INA 2,2:GG TO 1000÷e÷b950 IF mph>150 THEN SPEED INK 4,4:GOTO 1000÷e÷b960 IF mph>80 THEN SPE ED INK 5,5:GOTO 1000÷e÷b970 IF mph>20 TH EN SPEED INK 10,10:GOTO 1000÷e÷b980 IF m ph>0 THEN SPEED INK 20,20:GGTO 1000÷f÷b9 90 IF mph=0 THEN SPEED INK 255,255:GOTO 1000÷e÷b1000 so=so+30:mph=mph-2:IF mph<0 THEN mph=0÷e÷b1010 IF so>3000 THEN |c
P693 ORACLE 693 Mon12 Oct C4 1700:00 |F2209221x— RASCBASICAMS =3000÷d÷b1020 IF mph=150 THEN so=so-1000 ÷e÷b1030 IF mph=120 THEN s= @MAIN 1040 LOCATE£1,12,2:PRINT£1," MPH";mph:RE TURN÷d÷b1050 REM * Check Damage Colours *÷e÷b1060 IF dem$="on"T@EN 1080÷e÷b1070 IF cht$="on"THEN RETURN÷e÷b1080 IF dam>= 500 THEN pe=3÷e÷b1090 IF dam<=499 AND da m>=200 THEN pe=1÷e÷b1100 IF dam<200 THEN pe=12÷e÷b1110 MOVE 200,2:DRAW 200,8,7:M OVE 497,2:DRAC 497,8,7÷e÷b1120 MOVE dam, 2:DRAW dam,8,pe÷e÷"0  @F dam>=632 T@EN 1900 ELSE RETURN÷e÷b1140 REM * Road Mov ement *÷e÷" ZIFTHEN IF q=1 THEN 1290÷e÷"0 IFTHEN 0 90÷e÷b1180 RETURN÷e÷"0 IF THENR ETURN÷e÷b1200 IF r1>9 THEN r1=r DELSE IF r1<9 THEN r1=r1+1÷e÷b1210 HF r2>8 THE N r2=r2-1 ELSE IF r2<8 THEN r0 p2+1÷e÷b1 220 IF r3>7 THEN r3=r3-1 ELSE IF r3<7 T@ EN r3=r3+1÷e÷b1230 IF r4>6 THEN r4=r4-1 ELSE IF r4<6 THDN r4=r4+1÷e÷b1240 LOCATE r1-1,12:@APER 4:PEN 9:PRINT" ";CHR$|c
P693 ORACLE 693 Mon12 Oct C4 1701:10 |F220A221 10); PAPER 5:PRINT CHR$(212);CHR$(213);: PAPER 4:PRINT CHR$(215);" "÷e÷b1250 LOC ATE r2-1,13:PEN 8:PAPER 4:PRINT" ";CHR$( 214);8@APDR 5:PRINT CHR$(212);" ";CHR$( 213);:PAPDR 4:PRINT CHR$(215);" "÷e÷b12 60 LOCATE r3-1,14:PEN 9:@APER 4:PRINT" " ;CHR$(214);:@APER 5:@RINT CHR$(212);" ";CHR$(213);:PAPER 4 PRINT CHR$(215);" "÷e÷b1270 LOCATE r4-1,15:PEN 8:PAP R 4: PRINT" ";CHR$(214);:PA@ER 5:@RINT CHR$(2 12);" ";CHR$(213);:PAPER 4:@RINT CH R$(215);" "÷e÷b1280 RETURN÷e÷" IF 1=6 THEN RE TRN÷e÷b1300 IF r1>6 THEN r1= r1-1÷e÷b1310 @F r2>6 THEN r2=r2-1÷d÷"02 0 IF r3>6 THEN r3=r3-1÷f÷b1330 IF r4>6 T HEN r4=r4-1÷e÷b1340 LOCAPD r1,12:PEN 9:P APER 5:PRINT CHR$(143);CHR$(213);:PAPER 4 PRINT CHR$( LOCATE ,13:@EN 8:PAPER 5:PRINT CHR$(143);" ";C HR$ 013);:PAPER 4:PRINT CHR$(215);" "÷d ÷b1360 LOCATE r3,14:PEN 9:PAPER 5:PRINT CHR$(143);" ";CHR$(213);:PAPER 4:|c
P693 ORACLE 693 Mon12 Oct C4 1702:15 |F220B221x— R ASCBASICAMSPR INT CHR$ 015);" "÷e÷"0 LOCATE PEN 8:PAPER 5:PRINT CHR$(143);" ";C HR$(21 @APERPRINTCHR    ÷b1380 RETURN÷e÷b13 0 IF r1=13 THEN RETU RN÷e÷b1400 IF r1<13 DHEN r1=r1+1÷e÷b1410 IF r2<10 THEN r IF T HEN r3=r3+1÷f÷b1430 IF r4<6 THEN r4=r4+1 ÷e÷b1440 LOCADD r1-2,12:@APER 4:PEN 9:PR INT" ";CHR$(21 @APERPRINTCHR 2);CHR$(143);÷d÷b1 LOCATE PAP ER 4:@EN 8:PRINT" ";CHR$(21 PAPER PRINT CHR$(212);" ";CHR$(143)÷e÷b1460 L OCATE r3-1,14:PAPER 4:@EN 9:PRINT" ";CH R$(21 PAPERPRINTCHR CHR$(143);÷e÷b1470 LOCATE r4-1,15:PAPER 4:PEN 8:PRINT" ";CHR$(214);:PAPER 5:PRI NT CHR$(212 ;" ";CHR$(143)÷e÷b1480 RE TRN÷e÷b1490 REM * Rival Cars *÷e÷"0 0 @F mph<200 AND rc=0 THEN RET@RN÷e÷b151 0 PAPER 5÷e÷b1520 IF rc=0 THEN  530 IF rc=1 THEN 1740÷e÷b1540 IF rc=2 TH EN 1820÷e÷b1 IFINTRND T@E
P693 ORACLE 693 Mon12 Oct C4 1702:10 |F220C221|a35Racer1111|i28ASCBASIC3AMSN RETURN÷e÷b IFINTRNDTHEN ELSE rc=2÷e÷b1570 GOTO 1490÷e÷"0T80 REM * Cars On The Labt Side *÷e÷b1590 LOCAT E r1+1,13:PDN 7:PAPER 5:P @NT ca$;: NBAT E r2+1,14:PAPER 5:PRINT" ;:RE T N÷e÷b1 600 LOCAPD r1+1,13:PRINT" ";:L A@TE r2+ 1,14:PEN 7:PAPER 5:PRIN ca$;:LOCATE r3+ 1,15:PAPER 58PRINT" ";8P@ TRN÷e÷b1610 LOCATE r2+1,14 PRINT" ";:LOCATE r3+1 T :PEN 7:PAPER 5:PRINT cb$;:LOCATE r4+1,16 :PA@ER 5:PPHNT" ";8RE$VRN÷e÷b1620 L B@ TE r3+1,15:@RINT" ";:LOCATE r4+1,16:PE N 7:PAP R 5:PRINT c ;:L A@PE r4,17:PAPE R 5:PRINT" ":LOA@ D r4,18:PRIN " ;:RETU NLOCATE PAPER P HNTLOCATE 080PRINT" ":L OCATE r4-1,18:PRINT" ";:L B@TE r4,17: PEN 7:PAPER 5:PRINT cc$;:LOCATE r4,18:PA PER 5:PEN 7:PRINT cd$;:RETURN÷d÷b1640 LO CATE r4,17:PAPER 1:PRINT" ";:L A@TE r 4,18:PRINT" ";:LOCATE r4-1,18:PAPDR 5 :PEN 7:PRINT cc$;:LOCATE r4-1 0 8PAP|c
P693 ORACLE 693 Mon12 Oct C4 1704:10 |F220D221|a35Racer1111|i28ASCBASIC3AMSER 5:PEN 7:PRILT cd$;:RE D N÷e÷b1650 carpa s=c ppas+1:SOUND 130,20,10 7,2:sc=sc lph :LOCATE£1,1,2 PRILT£1,"Scord";sc;:L CATE r4-1,18:@APFR 5:PRINT" ";:L B@ D 1,19:@APDR 5:PRINT" ;:zz=0:GGTO 4850 ÷e÷b1660 REM " Cars On The Right Si$d *÷ e÷b1670 LOCATE r1+1,13:PEN 7:PAPER 5:PRI NT ca$;:LOCATE r2+2,14:PAPER 1:PRINT" " ;:RETU2N÷e÷b1680 L A@TE r1+1 029PAPER 5: PRINT" ";:LOA@TE r2+2,14:PAPER 5:PEN 7: PRINT ca$;:LOCATE r3+3,15:PRINT" ";:RE TURN÷e÷b1690 LOCATE r2+2,14:PAPDR 5:PRIN T" ";:LOCATE r3+3 0 PENPAPERPRIN T cb$;:LOCATE r PRINTRETURN ÷e÷b1700 LOCATE r3+3,15:PAPER 5:PRINT" ";:LOCATE r4+5,16 PEN 7:PAPER 5:PRINT c b$;:LOCATE r4+6,17:PRINT" ";:L @@"D r 4+6,18:PRINT" ";:RETURN÷e÷b1710 LOCAT E r4+5 PAPERPRINTL A@TE 7,18:PRINT" ": A@DE r4+7,19:PRINT" ";:LOCATE r4+6,17:PEN 7:PAPER 5:PRINT cc$:LOCATE r4+6,18:PEN 7:PAPER 5:PR |c
P693 ORACLE 693 Mon12 Oct C4 1704:10 |F220E221|a35Racer1111|i28ASCBASIC3AMSNT cd$;:RETURN÷e÷b1720 LOCATE r4+6,17:PAPE R 5: 5JNT" ";:LOCATE r4+6,18:PRINT" ";:LOCATE r4+7,18:PEN 7:PAPER 5:PRINT cc$;:LOCATE r4+7,19:PEN 7:PAPER 5:PRINT cd$;:RETURN÷e÷b1730 SOUND 130,20,10,7,2 :sc=sc+mph:LOCATE£1,1,2:@RINT£1,"Score"; sc;:LOCATE r4+7,18:PAPER 5:PRINT" ";: LOCATE r4+7 08:@APER 5:PRINT" ";:zz=0 :carpas=carpas+18GOTO 4850÷e÷"0 REM Forward'Backw qd Left ar *÷e÷b1 IF mph=200 AND zz=0 TH N zz=1:GOTO 1810÷e÷b 1760 IF mph<=200 AND zz=1 THFN 8x=0:rc=0 :LOCATE r1+1,118PRINT" ";:RETU N 0 IF zz<0 THEN zz=0÷e÷"0 IFT HEN zz=zz+1 ELSE zz=zz-1÷e÷b1790 IF z:8L 1 TH N zz=0:RE TRN÷e÷b1800 SOUND 130,100 0,200,zz+1÷e÷b1810 ON zz GOTO 0Z90  1610,1620,1630,1640,1 REMF orward/Backward Right Car *÷e÷b1830 IF m ph=200 AND zz=0 THEN zz=1:GOTO 1890÷e÷b1 840 IF mph<=200 AND zx 1 THEN zz=08rc=0: LOCATE r1+1 028PRINT" ;:RETURN÷e÷b
P693 ORACLE 693 Mon12 Oct C4 1704:11 |F220F221|a35Racer1111|i28ASCBASIC3AMS18 50 IF zz<0 THEN zz=0:rc=0÷e÷b1860 IF mph >200 THEN zz=zz+1 ELSE zz=zz-1÷d÷b1870 I F zz=-1 THEN zz=0:RE TRN÷e÷b1880 SOUND 1 30,1000,200,zz+1÷e÷b1890 ON zz GOTO 1670 ,1680,1690,1700,1710,1720,1730÷d÷"0X00 R EM * Blow Up " ÷e÷"0 10 SPEED K@H 10,10| e÷"0800 INK 10,0÷e÷"0 IFTHE N FOR i=0 TO 14:INK h,0:NEXT:BORDER 0:MO DE 1: @NXFORTOSTEP :x=REMAIN(i):NEXT÷e÷"0X SPEEDINK 255÷f÷b1960 PAPEP£ PENPR NTC HR$(228)CHR$(229)CHR$(229)CHR$(230 CH ( 231);:PAPER£2,1:PRINT£2,CHR$(228)CHR$( 0);:PAPER£2,5:PEN£2,10:PRINT£2,CHR (  ;÷e÷"0870 mph=0:LOCATE£1,1,2:PRINT£1,"Sc ore";sc: CA @£1,13,2:PRINT£1,"MPH 0 "; ÷e÷b1980 SOUND 1,500,500 0 S ND 2,500,500,15,3,0, ZS@F@ 3,0,15÷e÷"0 90 WHILE INKEY$<>"":WEND÷e÷b 2000 PRINT CHR$(22)+CHR$(1):PAPER 0:PEN 7:LOCATE 6,9:PRINT"NG BONUS"÷e÷ 0010 L OCATE 6,1:PRINT"GAME OVER"÷e÷b2020 |c
P693 ORACLE 693 Mon12 Oct C4 1705:00 |F2210221|a35Racer1111|i28ASCBASIC3AMS F CATE 6,78PRINT"PRESS FIRE" PRINT CHR$(22 )+CHR$(0)÷e÷b2030 ex=0÷e÷b2040 WHILE INK EY$<>"X":INK 10,INT(RND*27)8ex=ex+1:IF e x=600 THEN PAPER£2 CLSWEF@ e÷b2060 SPEED INK 10,10÷e÷b2070 MODE 0:B ORD R 0:INK 0,0:INK 1,24:PEN 1:PAPER 0:I NK 3,18:INK 4,6:INK 0, INKINK 26:INK 8,2:INI 9,8:INK 10,11:INK 12,16:I NK 13,14:INK 14,6:INK 15,9:CLS÷e÷b2080 P N 1:L B@ DPRINTYOURPLAYRATINGI S:"÷d÷b2090 @F carpAs> THENLOCATE :INK 2,26,24:@EN 2:PRINT rat$ 00):GOTO 2 110÷e÷b2100 LOCATE 1,8:INK 2,26,24:@EN 2 :PRINT rat$(carp!q ÷—zb LOCATE :PDN 5:PRINT" CARS PASSED:";:PEN 6:PR INT carpas;÷d÷b2120 LOCA D 1 04:PEN 5:PR INT" YOU SCORED:"; PEN 68PRINT sc;÷e÷b 2130 PEN 3:LOCATE 6,20:PRINT"PRESS FIRE" ÷e÷b2140 WHILE DNKEY$<>"X":WEND÷e÷b2  RUN 120÷e÷b2160 REM * Tatlds *÷e÷b  em$="off":CALL &BC02÷ev—2180 SPEED INK 2 0,20:SPADD KEY 0  XCHILEI
P693 ORACLE 693 Mon12 Oct C4 1700:02 |F2211221|a35Racer1111|i28AS @ASIC3AMQNK EY$<>"":WEND÷d÷b2200 GOSUB 4690:BGRDER 0 :MODD 1:INI 0,0:INK 1,0:INK 2,0:INK 3,0: PAPER 0:PEN 1:CLS÷e÷b2210 MOVE 0,200:DRA W 0,399,6:DRAW 639,399,6:DRAW 639,200,6: DRAS 0,200,6÷d÷b2  NDO 1,2,8,5 W INDOW£2,10,17 WINDOW W INDOW£4,26,37,5,10:@APDR£1,0:PAPER£2,0:P APER£3,0:PAPFR£4$0÷e÷b2230 PDN 3:LOCATE 10,2:PRINT"SELECT TRACK: PEN 1÷e÷b2240 LOCATE 2,5÷e÷b2250 PRINT" ";CHR$(0 CH R$(246);CHR$(252);CHR$(252);CHR$(25 9CH R$(251);" ";CHR$(250);CHR$(25 CHR 50);CHR$(2Q0 CH  CH ;CHR$(252 ;CHR$(2 CHR 2260 FOR i=1 TO 8:@RINT CHR$(252);8NEXT i:PRINT CHR$(251);CHR$(250);CHR$(251)÷e÷ b2270 LOCATE 2,6:PRINT" ";CHR$(254);CHR$ (2 ;CHR (252);CHR$(252);CHR$(251);CHR$ (253);" ";CHR$(250);CH  CHR CHR$(25 CHR HR$(25 9 @ (25 9 CHR$(251 ;" ";CHR$(25 9CHR$(25 9" ";C HR$(250 ;CH  PRHN
P693 ORACLE 693 Mon12 Oct C4 1700:00 |F2212221|a35Racer1111|i28ASCBASIC3AMST CHR$(253);C@R$(250);CH   CHR (  CHR$(252);CHR$(252); HR$(252);CHR$(25 CHR$(252);CHR$(255);CHR$(253);CHR$(25  e÷b2290 LOCATE 2,7:PRINT" ";CHR$(250 ;CH R$(252);CHR$ 2 1 CHR HR$ 005);CH R$(253);" ";CHR$(253);CHR$(25 ;CHR$(255 );CHR$(254); HR$(255);CHR$(25 9CHR$(255 );CHR$(25 9" ";CH  9CH (2   " ;CHR$(250);CHR$(255);" ";÷e÷b2300 PRINT CHR$(253);CHR$(253);CHR$(253);CHR$ 0  CHR$(2 CHRCHR HR$(252); CHR$(252);CHR$(252);CHR$(255);CHR$(253 a÷b2310 LOCATE 3,8:PRINT CHR$(25 CHR 252);CHR$(252);CHR$(251);CHR$(250);CHR$( 255);" ";CHR$(254);CHR$(252);CHR$(246);C HR$(252);CHR$(252); HR$(252);CHR$(252);C HR$(255);" ";CH (254);CHR$(252);CHR$(2 52);CHR$(255);" ";÷e÷b2320 PRINT HR$(2 53);CHR$(253);CHR$(254);CHR$(252);CHR$(2 52 9CHB$(250 ;CHR$(252);CHR$(250 9CHR$(2 52);CHR$(252);CHR$(2 CHR 0 LOCATE 6,9:PRINT CHR$(253);CHR$(25|c
P693 ORACLE 693 Mon12 Oct C4 1700:00 |F2213221x—24Racer1111|i28ASCBASIC3AMS3) :LOCATE 26,9:PRINT CHR$(253);CHR$(254);: FOR i=1 TO 9:PRINT CHR$(252);:NDXT i:PRI NT CHR$(2  " RACER by K.Mu rfitt age 14 (c) 19 T ..... Race along t he track avoiding rival cars .... Slow d own on the corners or your damage widl i ncrease .... Finish the dap an a bo&01 will be awarddd "÷e÷b2 E OVE 0,9 DRAC 6 ,2:DRAW 6 008,2:DRAW 0,108,2:DRAW 0,9,0÷e÷b2370 IF e=0 THEF e=1÷e÷b2380 LOA@ DPRINTCHR CHR$ 205):L B@TD 26,10:PRINT CHR$(25 9: FOR i=1 OPRINTCHR NEXTP @ NT CHR$(247);CHR$(252);CH  LOCATE 6,22:P HNT"Press '@' for a —emon stration.":PEN 3:L A@ D 14,24:PRINT"Joys tick only. 8INK 0,0:INK 1,24:INK 2,26:IN K 3,6÷e÷b2400 e=PEEK(4000 IF =5 THEN e=1÷e÷b2420 IF e=0 THEN e=4÷e÷b2 430 ON e GOTO 2440,2450,2460,2470÷e÷b244 0 curs=5:GOTO 2480÷e÷b2450 cur3< G
P693 ORACLE 693 Mon12 Oct C4 1700:10 |F2214221|a35P—cer1111|i28ASCBASIC3AMSOT O 2480÷e÷b2460 curs=22:GOTO 2480÷e÷b2  curs=31÷e÷b LOCATE PR NT" "÷d÷b2  N @PE a urs,12:PEN 2:PRINT"N"÷e÷b2500 GOSUB 3040 :o$=INKEY$:IF o$=""TH N 2500÷e÷b2510 GOS UB 3070÷e÷b2520 IF o$=CHR$( THEN e8 -1: GOTO 2410÷e÷b2530 IF o$=CHR$ )THEN e=e+ 1:GOTO 2410÷e÷b2540 IF o$="m"THEN 4610÷e ÷b2560 IF o$="X"THEN 25 0÷e÷b IF "d"THEN 4980÷e÷b2580 GOTO 2500÷e÷b2 L O @ DPRINTL A@TEPR NT " ":WINDOW£5,1,40, X PAPE @ENCLS IF T@EN RES RE 4520:G ADB 3000÷e÷b0610 IF e 1 T HEN RES REGOSUBIF =3 THEN RESTORE 4560:GOSUB 3020÷e÷b2630 IF e=4 THEN RESTORE 4580:GOSUB 30  640 MOVE 0,172:DRAW 639,172,2:DRAW 639,6 9,2:D AWDRAWPOK E 40000,d÷e÷b2660 PEN 3:L B@ EPRIN T"SELECT CONDI HONS: ";÷e÷b2670 con=PEEK (400 PDN N con|c
P693 ORACLE 693 Mon12 Oct C4 1701:00 |F2215221|a35Racer1111|i28ASCBASIC3AMS G OTO 2700,2710,2720,2730÷e÷b2700 LOCATE 2 7,16:PRINT"NORMAL ";:GOTO 2740÷e÷b 2710 LOCATE 27,16:PRIFP"ICY ";: GOTO 2740÷d÷b2720 LOCATE 27,16:PRINT"NIG DT ";8GOTO 2740÷e÷b2 L A@TE 27 ,16:PRINT"THUNDER STORM";÷e÷b INK EY$:IF o$=""THEN 2740÷e÷b2750 IF o$=CHR$ (9)THEN Con=con+1:IF con=5 THEN con=1÷e÷ b2760 IF o$=CHR$(8)THEN con=con-1:IF con =0 THEN con=4÷e÷b2770 IF o$="X"THEN GOSU B 3070:GOTO 2790÷e÷b2780 GOTO 0690÷e÷b27 90 PDN 3÷e÷b2800 POKE 40001,con÷e÷b2810 LOCATE 8,18:PRINT"SELECD PLAY LEVEL: "; PEN 18PRINT"1"÷e÷b2820 skill=1÷e÷b2830 o $=INKEY$8IF o$=""THEN 2830÷e÷b2840 IF o$ =CH THENAIFTH EN skill=5÷e÷b2850 IF o$=C@R$(9)THEN 3ii ll=skill+1:IF skill=6 THDN skill=1÷e÷b28 60 LOCA D 26,18:PRINT 3!ill;÷e÷b2870 @F o$="X"THDN GOSUB 3070:GO N 2880 ELSE 283 0÷e÷b2880 PEN 3:LOCATE 6,20:PRINT"CHANGE YOUR CHO BDS: ";:PEN 1:PRINT"NO ";÷e|c
P693 ORACLE 693 Mon12 Oct C4 1710:00 |F2216221|a35Racer1111|i28ASCBASIC3AMS÷b 2890 chan=1÷e÷b2900 o$<@NKEY$:AF o$=""TH EN 29 IFCHRTHEN han+18IF chan=4 THEN chan=1÷e÷b2920 IF o $=CHR$(8)PHEN chan=chan-1:IF chan=0 T@EN chan=3÷e÷b2930 IF chan=1 THEN LOCATE 27 ,20:PRINT"NO ";÷e÷b2940 IF chaF 3 THEN LOCATE 27,20:PRINT"EXIT GAME";÷e÷b2 950 IF chan=2 THEN LOCA$F 27,20:PRINT"YE S ";÷e÷b IFXANDTH EN GOSUB 3070:dem$="off":GOTO 130÷e÷b297 0 IF o$="X"AND chan=2 THEN GOSUB 3070:GO TO 2160÷d÷b2980 IF o$="X"AND chan=3 DHEN GOSUB 3070:GOTO 4680÷e÷b2990 GOTO 2900÷ e÷b3000 CLS£2:CLS£3:CLS£4:RETURN÷e÷b3010 CLS£1:CLS£3:CLS£4: DTU NCLS CLS£2:CLS£4z3F$VRN÷e÷b3030 CLS£1:CLS£2:C LS£3:RETURN÷e÷b3040 REM * Scroll Title M essage *÷e÷b3050 IF alo=227 D@EN alo=0÷d ÷b3060 P N 3:alo=alo+1:L @TE 8,20:PRINT MID$(mes$,alo,26);:PEN 2:RETU2N÷e÷b3070 REM * Plink! *÷d÷b3080 SOUND 1,50,10,7, 2:SOUND 4,80,10,7,2:RETU NR
P693 ORACLE 693 Mon12 Oct C4 1710:02 |F2218221|a35Racer1111|i28ASCBASIC3AMS5, 255,127,127,62÷e÷b3300 SYMBGL 216,0,0,2, 67,229,165,123, SYMBOL 0,0,15,31,28,24,24÷e÷b3320 SYMBOL 251,0, 0,0,240,248,56,20,04÷e÷b3330 SYMBOL 252, 0,0,0,255,255,0,0,0÷e÷b3340 SYMBOD 253,2 4,24,24,24,24,24,24,24÷e÷bY3 SYMBOL 4,24,24,28,31,15÷e÷b3360 SYMBOL 215,24,2 4,56,248,240÷d÷b3370 SYMBOL 0Z0,0,0,0,0, 3,6,5,126÷d÷b3380 SYMBOL 0  ,255,253,112÷e÷b3390 SYMBOL  8,254,7,253,0÷e÷b3400 SYMBOL 0  ,124,254,254,192÷e÷b3410 SYMBOL 0  0,0,62,111,95,3÷d÷b3420 SYMBOL 005,0,0,0 ,31,127,240,223,0÷e÷b3430 SYMBGL 0  ,0,128,231,127,223,14÷e÷b3440 SYMBOL 007 ,0,0,0,0,192,224,224,126÷e÷b3450 SYMBOL 158,207,191,255,255,255,2  SYMBOL 160,8,101,136,128,127,0,0,127÷e÷b 3470 SYM OL 161,0,255,0,0,254,1,1,254÷e÷ b3480 SYMBOL 162,0,  90 SYMBOL 163,128,128,127÷e÷b3500 SYMBOL 164,0,0,254,1,1,1,1÷d÷b3 SYMBOD
P693 ORACLE 693 Mon12 Oct C4 1710:01 |F2208221|a35Racer1111xh28ASCB S@B1AMS!$ 5,2,2,28,32,32,32,32,192÷e÷b3520 SYMBOD 166,0,0,0,0,0,34,85,85÷e÷b SYM OL 16 7,62,65,65,64,64,64,63÷e÷b3540 SYMBOL 16 8,85,85,85,136,0,32,151,32÷e÷b3550 SYMBO L 169,60,66,66,130,2,2,252÷e÷b3560 SYMBO L 170,2,9,18,16,16 8 SY MBOL 171,0,96,16,16,16,14,1,1÷e÷b3580 SY MBOL 172,112,8,8,8,7÷e÷b3590 SYMBOL 173, 14,16,16,16,224÷e÷b3600 SYMBOL 174,0,0,0 ,0,0,3,4,4÷e÷b3610 SYMBOL 175,0,0,0,0,0, 255,0 00÷e÷b3620 SYMBOL 176,0,0,0,0,0,22 6,21,229÷e÷b3630 SYMBOL 177,4,4,4,4,4,4, 4,3÷e÷b3640 SYMBGL 178,16,  ,127,0,255÷e÷b3650 SYMBGL 179,5,  4,0,254,1,230÷e÷b3660 SYMBOL 180,128,128 ,128,128,128 028,128,128÷e÷"  SYMBOL 181,1,1,1,1,1,1,1,1÷e÷b3680 SYMBOL 182,0 ,27,63,111,181,253,247,96÷e÷b3690 SYMBOL 183,0,216,252,246,173,191,239,6÷e÷b3700 SYMBOL 184,29,39,121,205,191,255,252,12 0÷e÷b3710 SYMBOL 185,60 0 5,126  SYMBOL
P693 ORACLE 693 Mon12 Fct C4 1711:02 |F221A221|! RASCBASICAMS ,179,239,215,63,30÷e÷b3730 SYMBOL 204,05 5,0,39,85,118,85,0,255÷e÷b3740 SYMBOL 20 5,255,0,112,96,64,112,0,255÷e÷b3750 SYMB OL 206,255,0,114,37,37,34,0,255÷d÷"  SYMBOL 207,255,0,14,12,2,14,0,255÷e÷b3 0 SYMBOD 208,255,0,228,74,78,74,0,255÷d| b3780 SYMBOL 209,255,1,239,165,197,165,1 ,255÷e÷b3790 SYMBOL 210,0,0,24,44,110 84 0 SYMBOL 13,183,251,255÷e÷b3810 SYMBOL 130,0,0,0, 0,5,111,255,51÷e÷b3820 SYMBOL 131,0,24,1 24,188,222,251,255,231÷e÷b3830 SYMBOL 8,2,194,250,127,31,239,255,127÷e÷b3840 S YMBOL 229,34,99,231,247,247,255,255,255÷ e÷b3850 SYMBOL 230,64,67,95,254,248,247, 005,254÷e÷b3860 SYMBOL 231,63,127,255,63 ,31,63,127,199÷e÷b SYMBOL 4,255,252,254,227 0 8,194÷e÷b3880 SYMBOL 132,0,0,0,0,128,144,252,104÷e÷b3890 SYM BOL 133,0,12,18,46,55,51,51,49÷e÷b3900 S YMBOL 134,7,24,39,95,95,95,103,120÷e÷b39 10 SYMBOL 135,224,20,228,250,250,250|c
P693 ORACLE 693 Mon12 Oct C4 1711:00 |F221B221|a35Racer1111x—08ASCBAS B2AMS,2 30,30÷e÷b3920 SYMBOL 136,0,48,104,92,  ,204,204,140÷e÷b3930 SYMBOL 137,48,24,28 ,15,7÷e÷b3940 SYMBOL 138,111,103,103,115 ,179,57,29,13÷e÷b3950 SYMBOL 139,254,254 ,254,254,253,252,248,240÷e÷" SYMBOL 140,12,24,56,240,224÷e÷b3970 SYMBOL 141, 2,2,2,2,26,58,122,125÷d÷b3980 SYMBGL 14 ,192,192 0 0 082,216,220,202   SYMBOL 145,124,121,55,15,1÷d÷b4000 SYMB OL 144,62,254,252 R PURN ÷e÷b4020 @MCT SPEED INK 255,255:GOSUB 4 0÷e÷b4040 @F dem$="on"THEN OR i=0 TO 3:x= DAIN h): NEXT:FO TO 0 INK h,0:N XT:BG D P 0 :MODD 18RUN 120÷e÷b4050 FOR i=2000 TO 10 STEP-20:SOUND 1,i,1,5:SOUND 4,i+30,1,5: NEXT i÷e÷b4060 FOR i=0 TO 3:x=REMAIN(i): NEXT i÷e÷b4070 WHILE INKEY$<>"":WEND÷e÷b 4080 mph=0:LOCATE£1,1,2:PRINT£1,"Score"; sc:LOCA D£1,13,2:PRINT£1," ";÷e÷b4 090 FOR i=1 TO 500:NEXT i÷e÷b0 PEN PAPER 0:PP@NT CHR$(22)+CHR$ 0 :LOCAT|c
P693 ORACLE 693 Mon12 Oct C4 1710:00 |F221C221|a35Racer1111|i28ASCBASIC3AMSE 8,5:PRINT"BONUS"8PRINT CH  CH  e÷b4110 MOVE dam-4,2:DRAW $—lL0,8,7÷e÷b4 120 FOR i=dam TO 632 STEP 4÷e÷b4130 MOVE i,2:DRAG i,8,2÷e÷b4140 SOUND 1,500,1,5: SOUND 4,500,1,5÷e÷b MOVEDRAW 200,8,7:MOVE 497,2:DRAW 497,8,7÷d÷b4160 sc=sc+(skill*  LOCATE PRHNT£1,"Scord";sc÷e÷b4180 NEXT h÷e÷b 0X 0 LOCATE 6,5 PRINT"GAME OVER"÷e÷b4200 L OCATE 6,7:@RINT"PRESS FIRE":PRINT CH  CHRWHILEINK@HXWEN D÷e÷b4220 MODE 0:BORDER 0:INK 0,0:INK 1, 24 @EN 1:PAPER 0:INK 3,18:INK 4,6:INK 5, 15:INK 6,208INK 7,26:INK 8,2:INI 9,8:INK 10,11:INK 12,16:INK 13,14:INK 14,6:INK 15,9:CLS÷e÷b4230 IF cht$="on"THEN LOCATE 6,7ZPEN 2:INK 2,15:P @NT" CHEAT!":LOCA TE 6,21:PRINT"PRESS FIRE":GOTO 4310÷e÷b4 240 FOR h=1 TO 100:MOVE 325,200:DRAS INT (RND*650),INT(RND*400),INT(RND 1 NEX T i÷e÷b4250 LOCA D 9,11:PRINT CHR$(133); CHR$(134);CHR$(135);C@P$(136)÷e÷b426|c
P693 ORACLE 693 Mon12 Oct C4 1740:08 | 021D221|a35Racer1111|i28ASCBASIC3AMS0 L B@TE 9,12:@RINT CHR$(137);CHR$(138);AH R$(139);CHR$(140)÷e÷b4270 LOCATE 10,13:P RINT CHR$(1 CHRLOCATEP RINT CHR$(145);CHR$(144);÷d÷b4280 PRINT CHR$(22)+CHR$ 0 : NC 2,15:PEN 2:D A@ E 6 ,7:PRINT"WELL DONE!":LOCATE 6,21:PRINT"P RESS FIRE":PRINT CHR$(22)+CHR$(0)÷e÷b4 0 l=1:s=15÷e÷b4300 FOR i=1000 TO 50 STEP -s:SOUND 1,i,l,7:NEXT i:FOR i< TO S DP-s:SOUND 4,i,l,5:NEXT i: OR i=1000 TO 50 STEP-s:SOUND 1,i,l,3:NEXT i:FOR i= 1000 TO 50 STEP-s:S DND 4,i,l,2:NEXT i:F OR i=1000 TO 50 STEP-s:SOUND 1,i,l,1:NEX T i÷e÷b4310 o$=INK $:IF o$="X"THEN RUN 120 ELSE INK HNT(RND*1 1 HN (RND*2 :GO N 4310÷e÷b REMSRC r *÷e÷b0330 SOUND 129,so,35,5:S'$ND 132, so+20,35,5:SOUND 130,3,50,7,0,0,7÷e÷b434 0 FOR i=1 TO 20:dam=dam+4:G UB 1050:NEX T i÷d÷b4350 CLS£2 PPHNT£2,cf$;÷e÷b4360 R E @RN÷e÷b4370 REM * Read Track *÷e|—4380 sc=sc+mph:LOCATE£1,1,0:PRINT£1,"Sco|c
P693 ORACLE 693 Mon12 Oct C4 1740:10 |F221E221|a35Racer1111|i28ASCBASIC3AMSre ";sc;:LOA@ A£1,12,0÷e÷b43 0 @D q,w÷e÷b 4400 @F q=3 AND w=3 THEN OR i=1000 TO 1 00 STEP-20:SOUND 1,i,1,5:SOUND 4,i,1,58N EXT i:GOTO 4020÷e÷b4410 ON w GOTO 4420,4 030,4440,4450,4460,4470,4480,4490,4500÷e ÷b4420 sp=220:sp=sp-dis:RE jRN÷d÷b4430 s p=214:sp=sp-dis:RE RN÷e÷b4440 sp=210:sp =sp-dis:RE @RN÷e÷b4450 sp=204:s0820 —is: RE$ZRN÷e÷b4460 sp=200:sp=s0 —is:RETURN÷e ÷b4470 sp=190:sp=s0 dis:RE PRN÷e÷b4480 s p=184:sp=sp-dis:RE$ZRN÷e÷b4490 sp=176:sp =sp-dhs:RE PRN÷e÷b  RE$ZRN÷e÷b4510 REM " Track ONE *÷e÷b4520 DATA0,0,0,0,2,6,0,0,2,4,0,0,1,7,0,0,2,5 ,0,0,2,6,0,0,1,2,0,0,0,0,2,5,0,0,0,0,1,9 ,0,0,0,0,2,9,0,0,3,3÷e÷b  D * Traca TWO *÷e÷b DATA  ,5,0,0,1,5,0,0,2,8,0,0,1,6,0,0,2,1,0,0,1 ,9,0,0,2,8,0,0,1,6,0,0,1,4,0,0,0,0,1,5,0 ,0,3,3÷e÷b4550 REM " Track THREE *÷e÷b45 60 DATA0,0,2,3,0,0,1,5$0,0,2,2,0,0,  ,0,1,1,0,0,2,4,0,0,1 0,0,0,2,4,0,0,2|c
P693 ORACLE 693 Mon12 Oct C4 1741:00 |F221F221|a35Racer1111|i28ASC@AS 3AMA,3 ,0,0 0,5,0,0,2,7,0,0,3,3÷e÷b4570 REM * T rack FOUR *÷e÷b4580 DATA0,0,0,0,0,0,2, 0,0,0,0,2,6,0,0,0,0,2,9,0,0,0,0,1,9,0,0, 0,0,1,4,0,0,2,7,0,0,2,1,0,0,0,0,2,4,0,0, 1,7,0,0,1,5,0,0,0,0,0,0,2,8,0,0,3,1|e÷b4 590 REM * Lightning *÷e÷b4600 FOR i=0 TO 15:INK i,26:NEXT i:INK 8,3,13:INK 9,13, 3:SOUND 130,2000 0 INK :INK 1,tex:INK 2,cloud:INK 3,6:INK 4,gra ss:INK 5,road:INK 6,bak:INK 7,drivv:INK 10,driv:INK 11,16:RETURN÷e÷b4610 GOSUB 3 040÷e÷b4620 o$8HNKEY$:IF o$="s"DHDN OSU B 30708GO 4630 ELSE IF o$=""THEN GOSUB 3040:GOTO 4620 E E 250 ÷e÷b46 I K EX$:IF o$="o"THEN GOSUB 3070:GOTO 4640 E LSE IF o$=""THEN GOSUB 3040:GOTO 4630 EL SE 2500÷e÷b4640 o$=INKB($:IF o$="f"THEF GOSUB 3070:GOTO 4650 ELSE HF o$=""THEN G OSUB 3040:GOTO 4640 ELSD 2500÷e÷b4650 o$ =INKEY$:IF o$="t"THEN GOSUB 3070:GOTO 46 60 ELSE IF o$=""THEN GOSUB 3040:GOTO 465 0 ELSD 2500÷e÷b4660 cht$="on":GOTO 2|c
P693 ORACLE 693 Mon12 Oct C4 1741:20 |F2220221|a35Racer1111|i28ASCBAQ A1AMS50 0÷d÷b4670 MODE 0:INK 0,0:BORDER 0:INK 1, 04:PEN 1:PAPER 0:CLS:SPEED INK 255,255:L OCATE 1,8 PEN 1:PRINT" GAME ABORTED": RUN 120÷e÷b4680 FOR i=26 TO 0 S DP-1:INK 1,i:INK 2,i:INK 3,i:FOR j=1 TO 0:NEXT j 8NEXT i:MODE 1:CALL "BC02:CALL &BB00:CLS :END÷e÷b4690 DDFCI F INT(RND*2)=0 THEN 4720÷e|—4710 FOR i=1 TO 25:LOCATE 1,1 PRINT"÷c":NEXT i:RETUR N÷e÷b4720 FOR i=1 TO 25:LOCATE 1,25:PRIN T"÷b÷e":NEXT i:RE P NREMD ualified *÷e÷b4740 FOR i=0 TO 3:x=REMAIN (i)0FEXT i÷e÷b4750 SPEED INK 255,255:FOR i=10 TO 1000 STEP 15:SOUND 1,i,1,5:SOUN D 4,i 00,1,5:NEXT i÷e÷b4760 PRINT C@  2)+CHR$ 0 :PAPER 0:PEF 7:L @@ DPRIN T"NO BONTS":L A@ DPRINTGAMEOVE R":LOCA D 6,7 PRINT"PR QS FIRE":PRINT CH R$(22)+CHR$( SPEEDKEY ÷b4780 o 4780÷e÷b4790 CLS:MODE 0: ORDDR 0:INK 0, 0:INK 1,24:INK 2,6:INK 3 PAPER
P693 ORACLE 693 Mon12 Oct C4 1741:40 |F2221221|a35Racer1111|i28ASCBASIC3AMS 0 :PEN 3:CLS÷e÷b4800 SPEED INK 10,10÷e÷b48 10 LOCATE 1,2:PRINT" YOU HAVE BEEN":LO CATE 1,4:PRINT" DISQUALIFIED FOR":LOCAT E 1,6:PRINT" DRIVING TOO SLOWLY."÷e÷b482 0 PEN 2:LOCATE 6,20:PRINT"PRESS FIRE"÷e÷ b4830 o$=INKEY$:IF o$="X"THEN 4840 ELSE 4830÷e÷b4840 GOSUB 4690:RUN 120÷e÷b4850 REM * Check For Collision *÷e÷b4860 IF a <9 AND rc=1 THEN carpas=carpas-1:GOTO 19 00÷e÷b4870 IF a>9 AND rc=2 THEN carpas=c arpas-1:GOTO 1Y00÷e÷b4880 rc=0:cp%=0:RET URN÷e÷b4890 REM * Player Car Ride Off In to Distance *÷e÷b4900 LOCATE 4,19:PAPER 5:PRINT" ":LOCATE 5,18:PRIN T" ":LOCATE 7,17:PRINT" "÷e÷b4910 LOCATE 10,16:PEN 10:PRINT c b$÷e÷b4920 FOR i=1 TO 200:NEXT i÷e÷b4930 LOCATE 10,16:PRINT" "÷e÷b4940 LOCATE 10,15:PRINT cb$÷e÷b4950 FOR i=1 TO 200:N EXT i÷e÷b LOCATEPRINT b4970 LOCATE 9,14:PRINT cb$:FOR i=1 TO 2 00:NEXT i:LOCATE 9,14:PRINT" ":LOC|c
P693 ORACLE 693 Mon12 Oct C4 1740:01 |F2222223|a35Racer1111|i28ASCBASIC3AMSAT E 10,13:PRINT ca$:FOR i=1 TO 200:NEXT i: LOCATE 10,13:PRINT" ":RE$ZRN÷e÷b4980 RE M * Demonstration Mode *÷e÷b4990 dem$="o n":RE$ZRN÷e÷b5000 REM * Control Demonstr ation *÷e÷b5010 o$=INKEY$:IF o$="X"THEN MODE 1:FOR i=0 TO 14:INK i,0:NEXT:BORDER 0:POKE 40000,1:POKE 40001,1:POKE 40002, 1:RUN 120÷e÷b5020 IF q=0 THEN GOSUB 780÷ e÷b5030 IF q=0 THEN sp=230÷e÷b5040 IF PE EK(40001)=4 AND INT(RND*40)=0 THEN GOSUB 4600÷e÷b5050 IF rc=1 AND a<11 THEN a=a+ 1:b=b+1:cdir=2:IF a<: THEN 5070 ELSE GOS UB 750÷e÷b5060 IF rc=2 AND a>7 THEN a=a\ 1:b=b-1:cdir=1:IF b=16 THEN 5070 ELSE GO SUB 750÷e÷b5070 IF mph>=sp THEN GOSUB 92 0÷e÷b5080 IF mph>sp THEN dam=dam+4:GOSUB 1050÷e÷b5090 IF cdir<>0 AND rc=1 AND a= 11 THEN CLS£2:PRINT£2,cf$;:cdir=0÷e÷b510 0 IF rc=2 AND cdir<>0 AND a=7 dHEN CLS£2 :PRINT£2,cf$;:cdir=0÷e÷b5110 RETURN÷e÷b5 120 REM ******************÷e÷b5130 REM * *÷e÷b5140 REM * End |c
P693 ORACLE 691 Mon12 Oct C4 1700:00 |F2207221|a35Racer ASCBASIAAMS 0,5:SOUND 132,so+20,200,5:EI÷e÷b630 IF p in>=60 THEN 4730 ELSE IF q=0 THEN 650÷e÷ b640 IF mph>=sp THEN dam=$—l 4:GOSPB 105 0÷e÷b650 IF a=9 AND rc>0 AND zz=6 THEN G OSUB 4320÷e÷b660 IF mph<=50 THEN pin=pin 1÷e÷b670 IF dem$="on"THEN 5010÷e÷b680 j y=JOY(0):IF jy=0 THEN GOSUB 780:IF cdir< >0 THEN cdir=0: Q @RINT ab ;:RETUR ÷e÷b690 IF road=23 @LD INT(RND*2)=0 THEN RE PRN÷d÷b700 @F PEEK(40001)=4 AND INT( RND*40)=0 THEN GOSUB 4600÷e÷b310 IF jy A ND 2 HEN GOSUB 920÷e÷b720 IF jy AND 4 T HEN IF !84 THEN RE$RRN ELSE a=a-1:b=b-1: cdir=1:GOTO 750÷e÷b730 IF jy AND 8 THEN IF b=16 THEN RE @ N ELSE a=a+1:b=b+1:cdi r=2:GOTO 710÷e÷b740 RETURN÷e÷b710 DI:CLS £2:WENDOW£2,a,b,18,19:@EN£2,10÷d÷b760 IF cdir=2 THEN PRHNT£2,cr$;:RETURN÷e÷b770 IF cdir=1 THEN PRHNT£2,cl$;:RETURN÷e÷b78 0 REM * Faster *÷e÷b790 IF mph>200 THEN SPEED INK 1,1:GOTO 860÷e÷b800 IF mph  T@EN SPEED INK 2,2:GOTO 860÷e÷b810 |c