ZXTape! 0Created with Ramsoft MakeTZX_1993 &  97:PTC=0:Q2=0:NP=0:110n o17,7;4;1;D$(D(P(X),1));0;" ";2;1;C$(D(P(X),2));: Kyy=q-((q-1)/13 )*13 +2:xx=(q>13 )*16: T12 :D(P(Q1),6)<-99cyy,xx+(q1<10 );S$(115);: Kyy,xx+(q<10 );0;Q;".";4-(Q<7)*2;Q2;A$;: *A=1721:A,0;S$;:A: D(P(Q),6)<-99c {12 :YY,XX+12 ;K$(D(P(Q1),9 ),11);:D(P(Q1),5)<10 d(p(q1),5)0" "; 1;D(P(Q1),5);:  12 SYY,XX+11 ;S$(1(1+(QD<100d)+(QD<10 )));2;QD;: 279O HZ=1̱A$ I#A$(ZZ)<"0"A$(ZZ)>"9"79O J Z:M3=A$ KM3 < M1M3 > M279O L OC#1;"ILLEGAL ENTRY - TRY AGAIN":1:502:70F d@A$:ZZ=A$:A=A$(ZZZZ)-480:A$=A$(1ZZ-1): nH:3,1;2;1;"THE WORLD OF GRAND PRIX RACING"; 56,0;" LAMBOURNE GAMES/RICHARD HANNA"; E(32 ):B(11 ,5):R(11 ,4):s(11 ):l(3,11 ):I(21,3):M(6):K(13 ):T(27):C(11 ):F(4,3):G(11 ) 'd()=(*6)+(*6)+1 6r(x$)=(*x)+1 @>325E:A$:x=111 :s(x)=A$(XX)-480:x E"/891/;91<70" JhA$:X=13:Y=111 :ZZ=Y+(X-1)*11 :L(X,Y)=A$(ZZZZ)-480:Y:X O%"3524123231,3985243*7:194:6)8:9571" ThA$:Y=13:X=121:ZZ=X+(Y-1)*21:I(X,Y)=A$(ZZZZ)-480:X:Y YC"00/1///51/11/151/1//700012//53/11/261/7/7710003//63/11/26117771" ^2A$:M=16:M(M)=A$(MM)-64@:M c "@EILNO" hgA$:X=111 :Y=14:ZZ=Y+(X-1)*4:R(X,Y)=A$(ZZZZ)-480:Y:X m0"KOPTINOTGMNTCJLTAHJT?FHT;CFT9ADT7?BT3<@T1:>T" |/A$:X=15:Y=111 :ZZ=Y+(X-1)*11 : B(Y,X)=A$(ZZZZ)-480:Y:X:B(1,2)=B(1,2)+100d:B(11 ,2)=B(11 ,2)+100d:B(9 ,3)=B(9 ,3)+100d:B(3,3)=B(3,3)+100d ;"FNIDCHGKAELTLSXQUZM_d\ZhX[cu`{]j_OQJLIHNKGMTIA?><@BGED" 3A$:X=111 :C(X)=A$(XX)-480:X "NZSOXRUPVTQ" A$:X=111 :G(X)=A$(XX)-480:X:A$:X=13:Y=14:ZZ=(X-1)*4+Y:F(Y,X)=A$(ZZZZ)-480:Y:X "@;=;::;>" "2567378948:<" "WARM AND SUNNY" "RAIN FORECAST" "LIGHT RAIN FALLING" "HEAVY RAIN FORECAST" "HEAVY RAIN FALLING" U2500 :YEA,DV,CR,RAC:D$(DV,8):C$(CR,8):W(DV):A(CR):FD=0 :2510 :x=1DV:100d:D$(X)=A$:W(X)=A:x .X=1CR:100d:C$(X)=A$:A(X)=A:X &:sea=0:0,5;1;YEA;" GRAND PRIX SEASON";:X=1RAC:49208+X:R$:X+1,8+(x<10 );X;" ";R$:X:4:RAC+2,8;RAC+1;".SAVE GAME":RAC+3,8;RAC+2;".LOAD NEW SEASON":7 0C23658j\,8:M1=1:M2=RAC+2:70F::R=M3 1,R=RAC+1(YEA)550&:550& 2DR=RAC+2:21,0;"ENTER YEAR TO LOAD":A$:A$: :)RAC=R:stt=0:q(12 ,5) D=K$(3,6):590N:X=13:K$(X):X N"STEADY","NORMAL","CHARGE" XZwet=0:wea=1:CWR=0:CWD=0:CAR=0:cm=0:FDZ=0 bq1=0:Q2=0:Q3=0:q4=0:Q5=0:REX=0:PS=0:ST2=0:GA=0:NP=0:S$=" ":PTC=0:FL=0:FS=0 l49208+RAC:N$:n$=n$+" GRAND PRIX":R$:R$=R$+" CIRCUIT":A$:X=113 :K1=X*2-1: K(X)=A$(K1K1+1):X:z(k(1)):d(k(1),13 ) qEX(K(1)):k(2)<15k(2)=k(2)+100d vQp(k(1)):x=1k(1):p(x)=x:STT=0D(X,12 )=3 {x: 4950V+RAC:A$:X=1K(1):K1=X*3-2:D(X,1)=A$(K1K1)-64@:D(X,2)=A$(K1+1K1+1)-64@:D(X,5)=A$(K1+2K1+2)-64@-X(X):D(X,3)=W(D(X,1)):D(X,5)<2D(X,5)=2 X stt705 J670+K(10 ):a$:X=127:T(X)=a$(xx)-480:X "JT7JPTZPZdZmO[PeZd\cddZoZOO" "HT9JOT[ZZPZdYRe[PZZ[YOPoc\O" "IT8GNT[ZPdZm[cRYOPZZReeYOZQ" "KT8GOTYZeO[POYZeZ\ZOZexY[Zm" "GT:JOT[PZd\PcYYcoZZoPPodYYo" "@T8HMTYdce\cdZYZco\[ndYZYcY" J685+K(11 ):a$:X=132 :e(x)=a$(xx)-480:X $"DM701<11I616C:40167<003LW828<+k(5):a$:x=1k(1):d(X,6)=d(X,6)+a$(xx):x ?"00101011001121212222223232" @"00111121223233334444545565" stt970 :D=R(36$):WC=0 7X=14:DF(X,K(3))WC=X:955 X `:0,5;YEA;" GRAND PRIX SEASON":2,13 ;1;"ROUND ";2;RAC; -4,(32 -N$)/2;4;N$ J6,5;"RUN OVER ";2;K(2);0;" LAPS OF THE" -8,(32 -R$)/2;4;R$ lFLW=0:410+WC:W$:14,12 ;"WEATHER":16,(32 -W$)/2;1;W$; TK(13 )=110 ,9 ;2;7;1;"STREET CIRCUIT"  9200# EWEA=1+((WC/2)=((WC/2))):WC=0WEA=1 وBOR=(WEA=1):BOR:#1;(WEA=1);S$;:WEA=2X=1K(1):D(X,8)=0:d(x,10 )=2:X STT=01000 @:1,5;2;1;"START LINE CRASH CARS": /X=1K(1):Z(X)1998 4;D$(D(X,1)); HD()<5(12 );"IS UNFIT TO START":Z(X)=2:998 #(12 );"STARTS IN T-CAR -"; kA=D():Y=(A<4)+(A<9 )+(A<11 ):Y:X(X)=X(X)+Y:Z(X)=0:D(X,5)=D(X,5)-Y X:9200#: st2=0:OP=0:J(K(1))::lap=0:nolap=0:sta=0:rex=0:stt=1:cxx=0::0,(32 -N$)/2;1;N$;:1,(11 )/2;0;"*** STARTING GRID ***"; RZZ=1:60<:NP=1:x=1k(1):z(x)>01003 A$=D$(D(P(X),1)):Q=X:Q1=X:st1=1:13 :" ";(70F-d(p(x),12 )+(23-d(p(x),12 ))*(d(p(x),10 )=2)); Ax:NP=0:X=031:16,X;0;"";:X >x=1k(1):z(x)>0d(x,6)=-9999' x $WEA2X$="TYRE":3905A WEA=21050 X=1K(1):D(P(X),5)=D(P(X),5)+3-D(P(X),12 ):D(P(X),5)>15D(P(X),5)=15 fD(P(X),8)=D(P(X),8)+(C(D())*(100d+(D(P(X),12 )-3)*15)/100d) X WST1=0:65A:Z=1K(1):Q=Z:Q1=Z:1:17:0:Z L8sta=0:MTA=0:x=1K(1)6 Vy=12 Jd=r(6)+((x-1)/6)*6:d > K(1)1216 d(d,7)=1 y:x f1,0;S$;:1,8;4;1;"LIGHTS ARE GREEN";:x=1k(1): 'd(p(x),6)<-99c1730 %d(P(x),7)=01710 SOG=0:d=d() D<10 1610J IYEA>1970ƨR(2)>1D(P(X),7)=0:1710 SO1=3:D=11 11 :19,4;1;"** STALLS ON THE GRID **";:1:502:SOG=(YEA>1970):SO1=10 Ssta=1:mta=1:hit=p(x):15:7000X:sta=0:1710 J^d2=(s(d)>5):d3=s(d)-10 *(s(d)>5):d(P(x),5+d2)=d(P(x),5+d2)+d3 P8D2=0SG=1:MT2=D3:6350:SG=0 RD(P(X),6)>-99cREX=0D(P(X),6)=D(P(X),6)+100d 4sg=1:21004:15:REXX=X-1 ‘rex=0:cxx>219,7;2; "RED FLAGS ARE OUT";:1:100d:21,8;"RACE IS STOPPED" :630v x ^stt=0:z(k(1)):lap=0:nolap=1:STA=0:SOG=0:9400$ vhx=1k(1):d(x,7)=0:x:x=1K(1)6:x1=((x-1)/6) {y=12 6d=r(6):d+x1*6 > K(1)2000 9d(x1*6+d,7)=d(x1*6+d,7)+1 y:x CWOD=NOLAP+NOLAP*(K(6)=4)+6*(K(6)=5) ,k(6)=5pm=3:2006 4pm=((nolap-1)/(5-k(6)))+1 jK(6)>3STE=NOLAP+(K(6)=5)*2:CH=STE:tcs=1:tcc=1:2010 iSTE=((NOLAP-1)/(2.6&fff-.6*(K(6)=2)-.95s333*(K(6)=3)))+1 CH=((NOLAP-1)/(7-3*(K(6)=2)-4*(K(6)=3))+1)*(NOLAP>(1+(K(6)=1)))+(NOLAP=10 )*(K(6)=2)+(NOLAP=9 )*(K(6)=3) BTCS=((NOLAP+1)/3):TCC=(((NOLAP+1)/2)) K1,0;s$;:z(k1):j(k1):A$="ON LAP":NOLAP>1A$=A$+"S" AA$=A$+" "+(LAP+1):NOLAP>1A$=A$+"-"+(LAP+NOLAP) OA$=A$+" (OF "+(K(2))+")":1,(32 -A$)/2;4;A$; 865A:Z=1K(1):Q=Z:Q1=Z:17:Z ޳REX=0:x=1K(1):p2s=0:A$=D$(D(P(X),1)):Q=X:Q1=X:Q2=1:15:13 :Q2=0:i1=0:D(P(X),6)-100d2420t CWD=3CWD=1 Cd(p(x),7)>0RDH=0:6000p:REX2413m Xmp=d(p(x),5)*(d(p(x),5)>0):mpa=((a1*mp)/(10 /nolap)+.5) d(p(x),6)=d(p(x),6)+mpa+i1-STE*(D(P(X),9 )=1)+CH*(D(P(X),9 )=3)-WOD*(D(P(X),10 )=2WEA=1)+200:d(p(x),8)02050 ]D(P(X),8)=D(P(X),8)+TCS*(D(P(X),9 )=1)-TCC*(D(P(X),9 )=3)  2410j 4np=0:X1=X >X1=12260 D(P(X1),6) > D(P(X1-1),6)P1=P(X1):P(X1)=P(X1-1):P(X1-1)=P1:X1=X1-1:np=np+1:2110> sgsg=0:2260 4X1<3D(P(X1),6)-100d2260 ?D(P(X1-1),6)D(P(X1-2),6)2260 7D(P(X1),6)D(P(X1-1),6)2260 OD(P(X1),6)=D(P(X1),6)-1:X1> K(1)-22260 τD(P(X1),6)=D(P(X1+1),6)D=P(X1):P(X1)=P(X1+1):P(X1+1)=D:X1=X1+1:np=np-1:2255  2230 NP02265 '(x1=1x1STT=0) ֊z=1x:d(p(z),6)>-99cd(p(z),13 )=d(p(1),6)-d(p(z),6):qd=d(p(z),13 ):q=z:q1=z:20 z: STT=015  a$=d$(d(p(x1),1)):q1=X1:Q2=1-(STT=1):q=x1+np:13 :17:Q2=0:(Z(P(X1+NP))=0J(P(X1+NP))=0)STT=017,7;4;1;d$(d(p(x1),1));0;" ";2;1;C$(D(P(X1),2)); AJ(P(X1+NP))=1z(p(x1+np))=1STT=12290 ޥpd=d(p(x1),6)-d(p(x1+np),6):L=(PD>8)+(PD>6)+(PD>2):2274-L:Z=1̨R(4):A$:Z:19,(32 -A$)/2;A$; e"SEIZES ON A MISTAKE TO PASS","ACCELERATES PAST","ON APPROACH TO CHICANE PASSES","SLIPSTREAMS PAST" ^"OUTBRAKES AND PASSES","CHOPS ACROSS IN FRONT OF","UNDER BRAKING PASSES","FORCES A WAY PAST" `"SLIDES INSIDE","GOES WIDE TO PASS","BRAKES VERY LATE AND PASSES","GOES THROUGH A GAP LEFT BY" ["GETS WHEELS OVER KERB TO PASS","DIVES INSIDE","AT THE HAIRPIN FORCES INSIDE","OUTBRAKES" ?21,12 ;4;1;D$(D(P(X1+NP),1)); Q=X1+NP:q1=q:A$=D$(D(P(X1+NP),1)):30-29*STT:13 :QD=D(P(Q),13 ):D(P(X1+NP),6)>-99c20-(STT=1)*3 Q=X1+NP-1:Q1=X1:Q2=1-(STT=1):A$=D$(D(P(X1),1)):13 :Q2=0:17::STT=015 NP=NP-1:2260 jh(d(p(x),8)>0)(d(p(x),8)lap+nolap)d(p(x),11 )=1:Z=D(P(X),8)-LAP m+REXX=X-1:REX=0:2419s nQd(p(x),6)=d(p(x),6)+100d:d(p(x),11 )=14000 ofFLW=0LAP>1D(P(X),5)>12 J(P(X))=0D(P(X),9 )>18200 pZd(p(x),10 )weaƨr(6)<6d(p(x),7)=0cwd=03620$ r 21004 sD(P(X1),13 )=D(P(1),6)-D(P(X1),6):QD=D(P(X1),13 ):Q=X1:Q1=X1:d(p(x1),6)>-99c20:A$=D$(D(P(X1),1)):Q2=0:13 tx:LAP=LAP+NOLAP u=fd=0LAP>5fd=p(1):fla=LAP:fdz=1 wFDZFDZ=0:15:17,13 ;4;D$(D(FD,1));:19,8;"SETS FASTEST LAP":21,12 +(FLA<10 );"ON LAP ";FLA;:1:150:15 {LAP=K(2)9000(# |h1,0;S$;:1,7-(LAP>9 );0;"AFTER ";LAP;" LAPS (OF ";K(2);")" }R9400$:LL=1+((LAP+1) > K(7))+((LAP+1) > K(8)) ~/k(6)=5nolap=1:2440 Fd=d():nolap=l(LL,d):lap+nolap > K(2)nolap=K(2)-lap 1K(6)=4NOLAP>5NOLAP=5 ACWR=0:L(LL,D)<1WC>03500 :2440 cwd=13600 1910v '1993,36$,14,16 p"ALBORETO8","ALESI7","ALLIOT:","ANDRETTI<","APICELLA<","BADOER9","BARBAZZA;","BARICHLO:","BERGER7","BLUNDELL;" l"BOUTSEN8","BRUNDLE;","CAPELLI<","COMAS7","D-CESARS:","FITIPLDI;","GOUNON<","HAKKINEN;","HERBERT;","HILL:" k"IRVINE<","KATAYAMA;","AN.OTHER9","LAMY<","LEHTO:","MARTINI;","NASPETTI9","PATRESE;","PROST7","SCHUMCHR:" D"SENNA7","A.SUZUKI<","T.SUZUKI9","WARWICK;","WNDLNGER:","ZANARDI;"  (k"BENETTON8","FERRARI:","FOOTWORK8","JORDAN9","LARRUSSE9","LIGIER6","LOLA:","LOTUS8","McLAREN7","MINARDI7" 2."SAUBER:","TYRRELL:","WILLIAMS6","WILLIAMS9" +7:9100#:(13 );"POINTS" SX=16-(YEA<1960):PTS=7-X+(X=2)+(X=1)*3 :X=1PTS=8+(YEA>1960)+(YEA>1991) dX+6,6;4;D$(D(P(X),1));" ";1;C$(D(P(X),2));" ";2;PTS; #YEA<1960P(X)=FD" +1 FL"; X S15,0;"FASTEST LAP ";4;D$(D(FD,1));" LAP ";2;FLA; o18,0;4;K(1)-NR1;0;" FINISHED FROM ";1;K(1);0;" STARTERS" /#1;1;(9 );"(P)RINT (M)ENU" &A$=:A$=""3110& 0 A$="P": D A$="M" N 3110& $15:WC>2WEA=2 18,3;1;"*** CHANGE OF WEATHER ***";:1:100d:WEA=(WEA=1)+1:BOR=(WEA=1):BOR ʤWEA=220,7;"IT IS NOW RAINING":FLW=1:CwR=1:cwd=0:x=1k(1):d(p(x),10 )=2d(p(x),8)=0 wea=2x ԊWEA=120,11 ;"RAIN STOPS":21,6;"** TRACK STAYS WET **";:CwD=1:wea=2:5:BOR=5 1:200:15: {15:CwD=0:19,3;"** TRACK HAS DRIED OUT **";:FLW=0:1:200:1:15 Zwea=1:x=1k(1):d(p(x),10 )=2d(p(x),8)=lap+g(d()) x: $~cwt=0:11 :19,7;"TYRE CHANGE OPTION":21,5;"CHANGE TO ";:wea=1"SLICKS (Y/N)"; .wea=2"WETS (Y/N)"; 8X$=:X$=""36408 BX$="Y"15:4000 L 15: <)OP=zz:X$="MODE":OP=1X$="TYRE" A115:17,7;X$;" CHANGE OPTION" Fa18,0;2;"AVERAGE 'C' LIFE=";35#+K(12 );"/";K(2);" LAP RACE"; U 3980 Z!CM1=M3:CM1=015: d3D(P(CM1),6)<-99c79O:3930Z eop=23949m iOP=1D(P(CM1),11 )=1:21,1;D$(D(P(CM1),1));" SCHEDULED PIT STOP";:1:502:3905A jST1=03949m k4500:st2 l3988:3905A m2D(P(CM1),8)=-179O:3930Z ni15:17,11 ;d$(d(p(cm1),1)):19,0;"ENTER GRADE 1=STE, 2=NOR, 3=CHG" x*M1=1:M2=3:70F:CM2=M3 wD(p(CM1),9 )=CM2:(2,12 )="M"X=CM1:ZZ=1:Z$=K$(D(P(X),9 ),13):9550N%  3905A 119,2;"NUMBER OF DRIVER (0 TO END)" %M1=0:M2=K(1):70F  GQ=P(CM1):12 :YY,XX+13 ;(70F-D(P(CM1),12 ));: d(p(x),11 )=0 oD=D():CT=B(D,4+(K(10 )>4)):DD=D():TL=C(DD):z=d(p(x),8)-lap:z<0z=0 k(K(2)-D(P(X),8) >5)(D(P(x),5)<4)(D(P(X),8) > LAP+NOLAP)4070 V17,11 ;D$(D(P(X),1));:19,5;"SKIP TYRE CHANGE (Y/N)"; X$=:X$=""4067 X$="Y"MT2=-4:19,0;S$;:6400:sl=(lap+nolap-d(p(x),8))*2:D(P(x),6)=D(P(x),6)-sl:D(P(x),8)=-1:D(P(X),9 )=1:21,0;S$;:21,7;sl;" SECONDS LOST";:1:100d:4100 19,0;S$;:19,6;"ROUTINE TYRE CHANGE";:1:70F:19,0;S$;:PL=CT:PTC=1:8650!:8600!:D(P(x),6)=D(P(x),6)-CT:d(p(x),8)=(tl+k(12 )+lap+z)*(d(p(x),10 )=1)  15  15:17,11 ;4;d$(d(p(cm1),1));:(weA=2CWD=0)d(p(cm1),12 )=3:19,5;"TYRES CHANGED TO WETS";:1:100d:d(p(cm1),10 )=2: G18,6;2;"AVERAGE 'C' LIFE =";35#+K(12 ); 19,2;"COMPOUND 1=A,2=B,3=C,4=D,5=E";:M1=1:M2=5:70F:D(P(CM1),12 )=6-M3:d(p(cm1),10 )=1: 98"SOUTH AFRICAN","KYALAMI","25720302020100507206022000" :7"BRAZILIAN","INTERLAGOS","257102-1020100407106021500" ;6"EUROPEAN","DONNINGTON","25760300020100557606022000" <3"SAN MARINO","IMOLA","25610201020200616106023500" =4"SPANISH","CATALUNYA","25650100020100406506023500" >5"MONACO","MONTE CARLO","257801-1020200407806024001" ?="CANADIAN","GILLES VILLENEUVE","256901-2020200407806024001" @5"FRENCH","MAGNY-COURS","25720100020100457206020300" A6"BRITISH","SILVERSTONE","25590200020100405906020000" B4"GERMAN","HOCKENHEIM","254502-1020210252506020000" C8"HUNGARIAN","HUNGARORING","26770100020100307706020000" D<"BELGIUM","SPA-FRANCORCHAMPS","2544010002032044440602-900" E0"ITALIAN","MONZA","265301-2020215535306020000" F5"PORTUGUESE","ESTORIL","267102-2020100407106020000" G2"JAPANESE","SUZUKA","2453030002021553530602-500" H6"AUSTRALIAN","ADELAIDE","247902-2020100557906020001" WO"]MN_IL^AMTMJBBKYKK\AKJFKDIIcKJCEHLFJPJJHDIIBKdHIMDGNEI`CHVLFbCJOLFGJHAGGFGD" XO"]MMTMK_IM^ALDII\AIYKJBBJcKIJFJCEISHJIBIHDHdHJLFHNEHbCH`CGPJHFGGVLEOLFGJGAGH" YO"]MLTML^AK_INcKLDIKYKGIBJBBK\AJSHKHDLdHIbCJCEIPJHNEGVLDKDFGJJJFHLFG`CEAGAOLG" ZO"]MNTML^AK_IMcKJDIKJFIIBKBBJLFK\AISHHHDHCEIbCGYKKNEHOLGKDEdHJ`CEVLEPJFFGGGJG" [O"]MMTNM_IL^AK\AJcKJDIJBBJYKISHFIBJJFICEINEIdHIbCGHDHLFF`CGPJHKDGFGFVLDOLEGJF" \O"]MM_IM^AMTMLBBKYKI\AJJFGDIIcKJCEFLFJPJJHDIIBKdHHSHHCEFNEH`CGVLEbCGOLGGJFAGD" ]O"]MNTMM^AM\AKIBKBBLLFK_IMcKJJFIYKIDIJNEIHDHCEG`CGPJIbCEOLFSHHdHGVLEGJGKDGFGF" ^O"TMN]MNLFLJFK_ILBBJ^ALHDJNEJCEIcKH\AH`CHIBGbCFDIKdHGYKGSHGKDHVLFFGGPJIGJHOLD" _O"]MNTNN^AM_IL\AKLFKSHJbCIJFI`CFDIHBBHIBHdHGHDHYKINEGcKHPJGZJGOLDVLFKDGCEHFGE" `O"]MNTNN^AM_ILJFKLFK\AJ`CHIBKBBKbCIDIJSHIcKIdHHNEGHDGYKFOLGPJHVLFZJECEGKDFFGD" aR"]MLTMN^AK_IL\ALIBLZJJBBKbCK`CIDIJJFILFJPJHYKHHDGcKJNEHCEISHHdHGOLEVLFKDGAGEFGE" bO"]MMTMM^ABBBJ_IL`CKbCJ\AKYKISHKLFIcKFHDIDIJJFHIBJOLGCEFNEEKDFZJEPJFVLEFGEAGD" cR"]NNTMMBBL_IK^AMIBKSHK`CIDIM\AKbCILFJYKGJFJcKKCEIVLGOLEHDFNEIAGHZJJEDEPJHFGIXHH" dR"TMM]MMRIK_ILBBL^AM\AJIBKbCJJFKLFIYKJcKJSHEHDG`CDOLHXHFZJHCEHVLENEG[DDPJIAGEFGF" eL"]MM_INRIL^AKIBJTMKbCJUDJ`CI\AIYKIHDJVLGBBGLFIcKHJFIOLFSHHXHGNEEZJHaEFQJE" fL"_IN]MMTML^ALRIKIBKBBKLFJ\AI`CJcKIYKIHDGJFHOLFZJFbCGVLGUDHSHHNEFQJDXHEaEF" pNRET=0:MT2=0:I1=0:REX=0:I=1D(P(X),7) z<D1=R(6):D2=R(6):D2 < D1D=D1:D1=D2:D2=D  D=M(D1)+D2 INC=I(D,D(P(X),9 )) INC=06100 &INC=7WET=0:6500d Kwea=2inc=3d(p(x),10 )=1wet=1:6500d 2inc=6wea=2wet=1:6500d GINC > 4PLU=pm-pm*2*(INC=5):I1=I1+PLU:6095 #MT2=INC-(INC=3):6350 :1:100d:15:STA=2STA=1: Ў(sta=1car>0)SOG=1mta=0:D(P(X),5)=1+SOG:car=0:SOG=0:STA=2:11 :8110 Psta=1d(p(x),6)=d(p(x),6)-SO1*(d(p(x),6)>-99c): RET=0I  \11 :19,7;"MECHANICAL TROUBLE":MT=A(D(P(X),2))+K(4)-3 D=R (36$) ]MT1=1+(D > R(MT,1))+(D > R(MT,2))+(D > R(MT,3))+(D > R(MT,4)) %MT1=49840p&:8000@ +mt1=3nolap=1p2s61953 MT1=3D=R(36$):PS=1+(D > T(3))+(D > T(4))+(D > T(5))+(D > T(6)):PS=PS+(PS=4)*(K(10 )>4):9850z&:p2s=1:8400 `MT1=1D=R(36$):MT2=-(D > T(1))-2:9850z&:6400:6095 <D1=R(6):D2=R(6):D2 < D1D=D1:D1=D2:D2=D $RD=M(D1)+D2:ST=T(6+D):ST1=(ST/10 ):ST2=ST-ST1*10 :9850z& 8&d(p(x),10 )=18570z! 9421,0;"(G)RADE ";-ST1;" OR (P)ITS - "; ='6206>:Z=1ST2:A$:Z:A$; >!"SHORT","MEDIUM","LONG","TYRES" BA$=:A$=""6210B LAA$="G"MT2=-ST1:6400:21,0;S$;:6095 VA$"P"6210B `[21,0;S$;:PS=ST2+(ST2=4)*(K(10 ) > 4):MT2=-ST1:85004! DD(P(X),5)+MT2>15-STAMT2=15-STA-D(P(X),5) LD(P(X),5)+MT2<0MT2=D(P(X),5):MT2<0MT2=0 MT2=0 STT=0D(P(X),5)>-111 :21,0;S$;:21,5;"GRADE ADJUSTMENT OF ";:MT2>0"+";  ,STT=0D(P(X),5)>-1MT2;  KD(P(X),5)<0MT2<0D(P(X),5)=21:8000@ SG=16434" %D(P(X),5)<06095 %D(P(X),5)=D(P(X),5)+MT2 "4D(P(X),5)>15D(P(X),5)=15 #5Q=X:Q1=X:17:1:502-491*STT ( d11 :19,9 ;4 ;" **SPINS** ";:Y=4:TT=R(36$):TT(13 -D(P(X),3))*3Y=1 f7C=1Y:Z=07:Z:2:Z:C:BOR gY=121,2;"SKILLFULLY RECOVERS CONTROL":I1=I1-2:ww=(d(p(x),8) > 0):d(p(x),8) = d(p(x),8)-ww: 6095 j[J(P(X))=1:ww=(d(p(x),8)>0)*3:d(p(x),8)=d(p(x),8)-ww k\wet=1d1=1:d2=21+d():D3=D2-21+1:wet=0:6515s n<D1=R(6):D2=R(6):D2 < D1D=D1:D1=D2:D2=D pD3=D1*10 +D2 sSP=M(D1)+D2:SP1=E(SP) t9700%+r(7)+(sp1>1)*7:a$:21,(32 -a$)/2;a$;:1:502:21,0;s$; x2SP1=0D(P(X),5)=3:8110 ?SP1=1MTA=1:D(P(X),5)=3:8110 ASP1>20SP1=SP1-20:K(13 )=18110 oSP1=20I1=I1-8:19,5;"8 SECONDS LOST **AND**":ST1=3:ST2=4:62008 [SP1<18I1=I1-SP1:21,8+(SP1<10 );SP1;" SECONDS LOST":6095 hSP2=(SP1-14+(SP1=19)*3):I1=I1-SP2:19,2;SP2;" SECONDS LOST & PIT STOP" <PS=4+(K(10 )>4):sp1=18ps=1  85015! X" di1=d(p(x),6):8120 21,9 ;4;1;"** RETIRES **":DI1=D(P(X),6):D(P(X),6)=-(K(2)+1+STA-LAP)*100d:RET=1:z(p(x))=1:X1=X:hit=p(x):9300T$:REX=1:cxx=cxx+1 MTA=06095 !75K-74J*stt:15  MTA=0:CAR=0:X1=X Z=X1+1 Z > K(1)6095 stt=015 'd(p(z),6)<-99c8160 ?DIS=DI1-D(P(Z),6):DIS>4+502*sta6095 9DIS=0STA=1DI1=D(P(X),6)8160 dis>4dis=4 5D=D():TGT=6+DIS+(DIS=4)-(sta=1) dtgtdcar8160 Q=13:Y=07:Y:2:Y:Q:BOR:DUM=X:X=Z:11 :X=DUM:18,13 ;" HITS";:19,12 ;4;1;D$(D(hit,1)):21,9 ;2;1;"** RETIRES **";:z(p(z))=1:cxx=cxx+1:DI1=D(P(Z),6):D(P(Z),6)=-(K(2)+1+STA-LAP)*100d:D(P(Z),5)=0:D(P(Z),4)=HIT:hit=p(z):X1=Z:9300T$:CAR=CAR+1:1:100d-stt*99c:8135 Z=Z+1:8136 tP=LAP+R(NOLAP):P1=R(30)+ (D(P(X),5)-13 )*30+(D(P(X),9 )-2)*80P+P*5 +P1>FLFL=P1:FD=P(X):FLA=P:FDZ=1  K((K(2)-LAP+1<6)(D(P(X),6)>7))85004! 721,0;"IGNORE PIT STOP (GRADE -8) (Y/N)"; A$=:A$=""8420 .A$="Y"MT2=-8:6400:6095 !4ptc=0:8650! !6fFNC=0:TL=C(D()):D=D():PL=B(D,PS):PL>100dPL=PL-100d:MT20FNC=1 !7%PS>3PTC=1:8509=! !:521,2;"CHANGE TYRES (Y/N)";:8570z! !;X$=:X$=""8507;! !<]21,0;S$;:X$="Y"PTC=1:PS=1DPL=B(D(),1):DPL>PLPL=DPL != 8600! !>pPtc=1D(P(X),8)=(LAP+1+TL+k(12 ))*(d(p(x),10 )=1):d(p(x),11 )=0 !HgFNC019,0;S$;:20,4;2;"FAULT HAS NOT BEEN CURED":6400 !\ I1=I1-PL !f 6095 !z;D(P(X),10 )=217,25;"ON WETS";: !;17,25;"TCL= ";D(P(X),8)-LAP-1;: !J(P(X))=1:P=1PL:21,8;"TIME LOST = ";P;"S";:1:5:P:PTCd(p(x),5)=d(p(x),5)-3+d(p(x),12 ) !PTCst1=1:st2=1:cm1=x:4500:st1=0:st2=0:d(p(x),5)=d(p(x),5)+(3-d(p(x),12 )):tl=(tl*((100d+(d(p(x),12 )-3)*15)/100d)) !6434": !;15:11 :19,8;"COMES INTO PITS": #(:Y=1721:X=031:Y,X;"";:X:Y #-W1,0;S$;:1,9 ;1;"CHEQUERED FLAG";:1:200 #2 9100# #6rX=1K(1):(X<10 );X;".";4;D$(D(P(X),1));(13 );1;C$(D(P(X),2)); #7'D(P(X),6)<-99c9024@# #9X=19030F# #:D(P(X),6)=D(P(X),6)-(R(9 ))/10 :D(P(X),6)D(P(X-1),6)D(P(X),6)=D(P(X-1),6)-.1}L #A$=A$+(T2)+".": #?9A$=A$+T3+R(9 ):(22);"-";A$;:9030F# #@`DD=K(2)-(D(P(X),6)/100d)+2:" RTD-";:DD<1"START";:9030F# #A ;"LAP ";DD; #FX=169090# #PX #Z$9090#:9060d#:9065i# #d$(10 );2;"RETIREMENTS" #e "LAP";: #i`NR1=0:NR=0:X=K(1)1-1:D(P(X),6)>-100d9086~# #k6NR=NR+1:NR1=NR1+1:4+NR,0; #l WHY=D(P(X),5):L=0 #m~WHY>2WHY=0L=K(2)-(D(P(X),6)/100d)+2:L<1D(P(X),6)>-9999'L=1 #n5L>0(0+(L<100d)+(L<10 ));L; #ou4+NR,4;4;D$(D(P(X),1));" ";:D(P(X),6)=-9999'"DID NOT RE-START";:9084|# #p<WHY=0"ACCIDENT - ";D$(D(D(P(X),4),1)); #q!WHY=1"SHUNTED AT START" #r WHY=2"STALLED ON GRID" #sWHY=3"SPIN "; #t&WHY>49800H&+WHY:A$:A$; #|1NR=149090#:9060d#:NR=0 #}X #~9200#:3000 # 9200# #x:0,(32 -N$)/2;4;1;N$;:1,6;5;1;"OFFICIAL RACE RESULT":: #+21,31;">";:=""9200# #21,31;" ";: $TQ=X1:q1=q:13 : $ 15 $o9409$:Y=19 :16+Y-(Y>4)*4,1+16*(Y>4);Y;".";:A$:A$:Y $"TYRE CHANGE","MODE CHANGE","DRIVER STATS","TYRE COMPOUND","CURRENT GRADE","TIME GAPS","TYRE LIFE","DRIVING MODES","MAKE OF CAR" $ 21,1;"(C)ONTINUE" $X$=:X$=""9450$ $ X$="C"15:Q5=0: $X$<"1"X$ > "9"9450$ $8ZZ=(X$):15:ZZ=39600%:9400$ %$ZZ<33900<:9400$ %VZZ=ZZ-3:60<:X=1K(1):D(P(X),6)<-99c95200% %xZZ=1Z$=" "+(70F-D(P(X),12 )+(23-d(p(X),12 ))*(d(p(X),10 )=2))+" ":9515+% %#@ZZ=5Z$=K$(D(P(X),9 ),13):9515+% %$@ZZ=6Z$=C$(D(P(X),2),13):9515+% %&8ZZ=4QQ=D(P(X),8)-LAP:QQ=QQ*(QQ>0) %(6ZZ=3QQ=D(P(1),6)-D(P(X),6) %) ZZ=2QQ=D(P(X),5) %*,A$=" "+(QQ):A=A$:Z$=A$( A-2A) %+ 9550N% %0X:9400$ %N2Q=X:12 :YY,XX+12 ;ZZ-1;Z$;: % 15 %B17,10 ;"DRIVER STATS":3980:X=M3:X=0 %'D(P(X),6)<-99c9601% %15:11 %}X>119,3;4;D$(D(P(X-1),1));0;" +";(D(P(X),6)-D(P(X-1),6)); %X=K(1)9635% %D(P(X+1),6)>-99c19,18;2;D$(D(P(X+1),1));0;" -";(D(P(X),6)-D(P(X+1),6)); %Z20,0;:D(P(X),10 )=1"TYRE LIFE=";3;D(P(X),8)-LAP; %p(15);"TYRES= ";:D(P(X),10 )=15;"SLICKS-";(64@+D(P(X),12 ));:9638% %5;"WETS"; %:21,10 ;"MODE ";4;K$(D(P(X),9 )); %=""9640% % 9600% %"BRAKES LOCK UP-HEAVY CRASH" %#"WILD SPIN-REAR END CLOUTS ARMCO" %"SPIN ON TRACK-ENGINE STALLS" %"CAR DESTROYED AGAINST ARMCO" %"HEAVY CRASH INTO TYRE WALL" % "SPIN ACROSS TRACK INTO ARMCO" %""WHEEL LOST IN BRUSH WITH ARMCO" %"SIDEWAYS SLIDE OVER KERB" %"SPIN INTO TRACK MARKERS" %"BACKWARDS SLIDE INTO ARMCO" %"MISSED GEARCHANGE" %"LATE ON BRAKING" %"KERB CLIPPED HARD" %"BRAKES LOCK UP" &I"OVERHEATING" &J"OIL PRESSURE DOWN" &K"ENGINE CUTTING OUT" &L"ENGINE OFF SONG" &M"LOSS OF POWER" &N"GEARBOX TROUBLE" &O"GEAR SELECTION PROBLEM" &P"CLUTCH PROBLEMS" &Q"BODYWORK DAMAGE" &R"GROSS UNDERSTEER" &S"BAD LOSS OF POWER" &T"SUSPENSION PROBLEMS" &U"HANDLING DETEORIATING" &V"SEVERE VIBRATION" &W"DOWN ON POWER" &X"REAR WING LOOSE" &Y"UNDERTRAY LOOSE" &Z"NOSE CONE TRAILING" &["OVERHEATING" &\"ELECTRICAL PROBLEMS" &]"TYRES OVERHEATING" &^"REAR TYRE DEFLATING" &_"TYRE TREAD FLAPPING" &` "PUNCTURE" &a"BLOWN ENGINE" &b"TYRE BLOWOUT" &c"SUSPENSION PROBLEMS" &d"BROKEN DRIVE SHAFT" &e"TRANSMISSION" &f"NO OIL PRESSURE" &g"CLUTCH FAILS" &h"GEARBOX SEIZES" &i "ELECTRICS" &j"BLACK FLAGGED - OIL" &k"SPLIT FUEL TANK" &l"LOOSE STEERING RACK" &m"ENGINE EXPLODES" &n"HOLED RADIATOR" &o"DRIVER FATIGUE" &pLRT=24+R(15):RT=39'LAP < K(2)/29840p& &q D(P(X),5)=RT:9870& &zRT=R(20) &M(MT1=2ST2=4)(MT1=3PS=4)RT=20+R(4) &f9800H&+RT:A$:21,(32 -A$)/2;A$;:1:150:21,0;S$;: t& ^e$a eHrteewwadetF dloaolatxqt mtotoiiigotcc2pdepn t4nN!l$flmplPprhtZLOL1 STEADYNORMALCHARGES NAUSTRALIAN GRAND PRIX{               #         "             !  {{ WWARM AND SUNNY{XTYRE  Z/$*#!((!+%3 *E0/4-:  $$$$$$ $ $$ $ $:          @! D : *#("% &$!A  :   %$ALBORETOALESI ALLIOT ANDRETTIAPICELLABADOER BARBAZZABARICHLOBERGER BLUNDELLBOUTSEN BRUNDLE CAPELLI COMAS D-CESARSFITIPLDIGOUNON HAKKINENHERBERT HILL IRVINE KATAYAMAAN.OTHERLAMY LEHTO MARTINI NASPETTIPATRESE PROST SCHUMCHRSENNA A.SUZUKIT.SUZUKIWARWICK WNDLNGERZANARDI uBENETTONFERRARI FOOTWORKJORDAN LARRUSSELIGIER LOLA LOTUS McLAREN MINARDI SAUBER TYRRELL WILLIAMSWILLIAMS$      I     R AUSTRALIANA17