ZXTape! 0Created with Ramsoft MakeTZXG.P.M.  8000@ a$= " "+13 + " "+13 + " "+13 + " "+13 + " " b$= " "+13 + " "+13 + " "+13 + " " c$= " "+13 + " " (0,0; 2%6'a$'4'b$'5'c$ <=21,20;6;1;1;"NOW LOADING" FE18,2;5;1;" P.Boulton/Silicon Joy 1984." Pn=710 :.03{u\,n*4:n,0;5;0;"";6;"";n-6,22;1;7;"":n ZFn=15:.05|L,6*n:n,0;2;"":n dpn=12 17:n,0;6;0;"";:.03{u\,n*3:n:2;"" n3n=13 16:n,30;2;"":n ,&0:0:20,0; 6"" @19,0; J"" T @zn=07:a:"a"+n,a:n:0,126~,126~,126~,126~,126~,126~,126~,0 J&1:0:3:0: TFn=019:n,0;"":n ^ na~AX BU C   !X_(_~ˇˏ˗w   #!͵ x :H\???A˧A >>G! !vV"0!d͵!͵>> #@zHCzH @x !XK[ x _???'''OOq# +q   Bq+ #q B  # >:6[O!:[ F>G>x@ggxo!X[ r+s+6 :6[O!N[ ~( =̡w !D[ ~(<=w(6 >w*!X[ V+^S[+~2[[[r+s+:[w !E[~>w!:[YF >>>!:[ F! > > > :H\˧*[~'w+0~w##+$ :[= +"[>2[[C{\>:[G:[O>G>!Ox2[y2[ *K\~Z(##N#F#~~ # ~G*6\[~# :[G:[O > > y !x2[y2[# x XC{\!_H~+~#w+w|g}o !P>!C[ !PV"0 :[> K[C[ $V |g,}VK[xGyOC[ K[} (  !C[ _xx˧ * X**********************  P. Boulton 1984 ********************** ]23658j\,0:236099\,480:23562 \,2:7:0:0:  64189  sm=0 'l$=" "  q(4)  a$=""  mr=0 l=65200:z$="~PLEASE WAIT!":1:1:x=9 :y=10 :9100#:n=14:l=65200:3:n:0:0 9000(#:9000(# # bnk=0 ('q$="" -fl=0:p=0 20m(5):g(7):c(6):r(6) , 9800H& 6 8700! @340T:360h Tl(6):r(6):r(7-(df*4))=7:0:1::n=021:n,0;0;7;q$:n:5:z$="~NEW SEASON":x=8:y=11 :9100# YG"How many races this season??"''z$:9600%:n=1345Y ^rs=z$:rn=0:rs>200:7:0::x=4:y=0:z$="~Boy, you must like this game!!!":1:9100#:0:10 ,0;rs;" races per season???":"Do you wish to"'"re-enter season length? (Y/N)"'',z$:z$="Y"z$="y"340T c hx=5:85004! m 8300l r 7200  | 7400  4710f  4500 ,n=16:r(n)=7650 n  5000 ot=0ut=00:0:0::n=1212:n,10 ;1;1;"END OF RACE!":n:n=114:l=64190:n:100d:no=0:4000:62008: ,p=16:r(p)=7710 p 5fl=1:ot=0p=1p<6fl=-fl nm=2+(*2) :fl=1p-nm<1nm>otnm=nm-1:715 ;fl=-1p+nm>6nm>utnm=nm-1:716 /ot=ot-nm*(fl=1):ut=ut-nm*(fl=-1) Blp>g(7)g(7)>07000X:g(7)=0 )ot>0ut>0lp=lp+(nm*cntr) ?g(4)=1lp>lap*.75@5100:62008:  mc(1)=7:f=2nm+1:c(f)=r((p-f+1)*(fl=1)+(p+f-1)*(fl=-1)):f %6n=pp+(-fl*nm)+fl-fl:r(n)=r(n-fl):n:r(n)=7 4 9200# 7?fl=-114,16;0;7;1;a$ 9ں(23624H\/8):9 :z$="~LAP "+lp+" OUT OF "+lap+".":23296[,22:23297[,8:l=64800 :4:0 >pfl=1n=1nm:12 +(2*n),15+(-12 +(*24));0;c(n+1);a$:n R233506[,nm*(fl=-1)+(fl=1):n=1nm*(fl=-1)+(fl=1):11 +(n*2),0;0;c(n+1)*(fl=-1)+7*(fl=1);l$ W723355;[+n-1,24-(11 +(n*2)) \G23365E[+n-1,226:23375O[+n-1,255/n:n a-:502:8:0:l=64500 p.c=1+(*5):c=2880p -502:90102#:9400$:700 Єe$="":g(4)=.5::z$="~ RACE PLAN : WING ANGLE ":x=0:y=4:2:7:9100#:0:7 86V,144:0,-60<:60<,0:3,9 ;1;"90'";11 ,18;"0'":80P,70F:10 ,16,1.3&fff:13 ,0;1;"Wing angle" ?tmp=40(+(*80P):wet=1+(*100d):bnd=10 +(*35#):15,8;1;" COURSE DETAILS ";16,8;0;"% bends : ";bnd;"%";17,8;"% straight : ";100d-bnd;"%";18,8;"Temperature: ";tmp;"F'";19,8;"Rain : ";wet;"%" ߔc=5+((.55 *bnd)+(.07}\(*wet)):20,6;"S=SELECT WING ANGLE "'"7=Increase angle,6=Reduce angle" y=0:x=0:90Z,86V:557,0:7,22;2;"ANGLE=";8,22;6;" " 0:90Z,86V:1;557*x,557*x:z$=:x=x+.015zu\*(z$="7"x<(.5*))-.015zu\*(z$="6"x>0):90Z,86V:557*x,557*x:8,24;6;1;(x*(90Z/(/2)));"' ":z$"s"2025 .1}L,22:x=(x*(90Z/(/2))):((.1}L+c-x)/c)>.125}e$="wing angle was too "+("big,"x>c)+("small,"x.125}e$=e$+"your tyres were too "+("hard,"cx)  4300 */g=10 :f=1:x=15:4200h /c=(wet*.05759|k})+(bnd*.09424}A):x=n:((.1}L+c-x)/c)>.125}e$=e$+"your tyre tread was too "+("smooth"xc) 0 4300 1.g(4)>(*9.5)g(4)=1 42150:23500[,5:l=64400: n=110 :d(n,2)>0d(n,2)7d(n,1)=(d(n,1)*(1+(*.4L))):z(d(n,2),1)=d(n,1):z(d(n,2),2)=5+(*8) qn:z(1,1)=(z(1,1)*(1+(*.4L))):n=110 :d(n,2)7n Ld(n,1)=z(1,1):z(1,2)=2+(*7): r(1)7 23500[,3:n=010 :l=64400:n:l=64250:1:0:0:3::21,0;0;"NICEONE!":1:23298[,143:l=65050:200:0:6::f$="WELL DONE SPORT! YOU CAME FIRST!"  4050 n=132 :x=9 +(1.5@*n)+.6:y=n-1:z$="~"+f$(n):2+x,n-1;3;"*";1-x,n-1;"*":9100#:n 6#1;1;" Your sponsor is very pleased!!!" (g=020:4050:"" g:;:9997 ': Ғn=1319 :f=32013 :f,n;1+(*7);9 ;" ";f+1,n;"";f+2,n;"":f:n: 0:0::21,0;0;"WELLDONE":23298[,143:6:1:l=65050:0:150::f=3:g=5204:f=f+1:4100:g:0 %m$="201010202024141424242717172727" b6:1:x=0:y=0:z$="~YOU'VE WON THE CHAMPIONSHIP!!!!!":1:9100#:0:21,0;2;7;"Your sponsor is over the moon!!!":n=1̱m$2:װm$(n)/10 ,m$(n+1):n:.5,12 :502:23500[,1:n=030:l=64400:254,n:n:502: 1:f:n=2717-g-1:.05|L,27-n:254,n:g,n;" ";g+1,n;"";f-2;"";g+2,n;0;"";f-2;"":n: g h<n=1:1:8:9 :z$="~ 1":9100# mvf$=:n=n+(f$="7"nf):f$="6"f$="7"z$="~"+(" "n=0)+("+"n>0n10 )+n:9100# rf$"s"4205m w*.1}L,22:0:9100#: #c=.25~*((.1}L+(c-x))/c) -c>.125}g(4)=g(4)+3 (r(1)=r(1)*(1.12\(-c): b6n=110 :d(n,2)=74455g dn e.2~L,22:6:0:1::z$="~You have no driver!":x=9 :y=6:9100#:9997 ':7200 :4450b gz(1,5).2~L,-8::z$="~You can't race with no car!!":x=9 :y=2:9100#:9997 ':6000p:4455g lbnk<09700%:bnk<00:6:0:1::2,0;"OVERDRAFT STILL `";bnk:100d::n=0212:n,0;1;"OH DEAR! YOUR TEAM IS BANKRUPT!":n:n=07:l=64190:254,n:n:n=1621:n,0;5;l$:n:17,1;5;0;"You have been fired due to your financial ineptitude.";20,2;1;"Press any key to play again.":0: q m4450b:0:0:7:1::x=0:y=14:z$="~MENU":9100#:9995 ' :x=4:y=4:z$="~1. Driver Summary.":9100#:x=6:z$="~2. Car Summary.":9100#:x=8:z$="~3. Hire/Fire Mechanics.":9100#:x=10 :z$="~4. See Sponsors.":9100#:x=12 :z$="~5. Rivals Summary.":9100#:x=14:z$="~6. GO TO RACE.":9100# n=1821:n,0;2;l$:n:z$="~~7~=UP ~6~=DOWN ~S~=SELECT Make your selection now.":x=18:y=0:2:9100# %x=144:y=24:4700\ zz$=:z$""4700\:x=x+16*(z$="7"x<144)-16*(z$="6"x>64@):.03{u\,x/6:4700\ Cz$="s".1}L,10 :.1}L,20:0:4560  4540 $x=((144-x)/16)+1 ڍ7200 *(x=1)+6000p*(x=2)+7400*(x=3)+8300l *(x=4)+85004!*(x=5)+8000@*(x=6)  4500 \\1:y,x:207,0:0,-16:-207,0:0,15: f0:7:1:0::9 ,1;"Press D to change driver names"''" or T to change team names.";21,13 ;"E=Exit":0:f$=::f$="d"n=110 :n+4,9 ;1;n;12 ;" ";d$(n):n kKf$="t"n=16:n+4,10 ;n;9 ;n;" ";t$(n):n m f$="e" p/f$"t"f$"d".2~L,-22:4710f u"Enter number",x'"Enter new name",z$:x<1x>10 *(f$="d")+6*(f$="t")űz$>10 *(f$="d")+8*(f$="t").2~L,-8:4725u zOf$="t"t$(x)=z$:n=16:n+4,12 ;n;9 ;t$(n):n Mf$="d"d$(x)=z$:n=110 :n+4,12 ;2;d$(n):n ;17,22;1;"O.K.":150:4710f Race setup g(2)=n:x=1+(*3):ot=x+(g(2)-g(1))*(g(2)-g(1)>0):ut=x+(g(1)-g(2))*(g(1)-g(2)>0) 0cntr=6+(*10 ):lap=((ot+ut)*cntr)  lp=0 g(7)=(lap/2)  z(1,5)=0:1:0:0:7:1::z$="~Oh dear...":x=5:y=11 :9100#:75K:n=36:n:ڥ*2:1:l=64300,:254,6-n:3:n:n=120:l=64250:254,n:n 0:0:l=64300,:60<::z$="Your driver was lucky:he's OK!!":n=1̱z$:10 ,n;1+(*7);9 ;z$(n):.02{# =,22:n $n=16:r(n)7n 1r(n)=r(6):r(6)=7:9997 ' df<16000p: 0:7:1::l=64190:z$="~You crashed because your..":x=1:y=0:9100#:5,0:n=1̱e$:254,n:1;9 ;8;e$(n);:.01z# =,33!:n" Zx=568:5300 \$p=16:c(p)1p __x=191:mr=((11 -(df-.5)*10 )*(7-p)*10 /6):5300 dl14,6;6;0;0;" DIFFICULTY = ";(df-.5)*10 ;(" "df<1.5@) gO15,6;5;0;" RATING = ";mr;(" "mr<10 ) i17,0;"The maximum rating obtainable atthis Difficulty Level is ";((11 -((df-.5)*10 ))*6*10 /6);".":#0;"Press ~n~ for new game or any"'"other key to continue.":0:="n"Ŧ="N"  n=64@568+(mr*.8L)8:3*(x=568)+2*(x=191);3*(x=568)+2*(x=191);x,n:n: p3:0:7:1::40(,0:80P,175,.2~L:215,0:-80P,175,-.2~L:n=1820:n,12 ;"";18;"";n-1,14;6;"":n:16,15;4;"" ukz$="~CAR SUMMARY":x=1:1:y=1:9100#:y=20:9100#:0:9997 ' zJ0:7:7:0::y=11 :9100#:9995 ' 5:7:z$=l$+" ":y=0:x=12 :9995 ':6790:z(1,5)=0z$="~Your car crashed last race : you"+l$(10 )+"need another!":x=16:y=0:9100#:6800:g(4)=1 |z$="~DO YOU WANT TO BUY A NEW CAR?":x=16:y=1:2:9100#:1:0:="y"Ŧ="Y"6800 ?g=((df/1.5@)*20000 N):g=(g/1000)*1000 z$="~DO YOU WANT A FULL OVERHAUL?":x=17:y=2:6850:9100#:21,5;"Cost will be `";g:0:="n"Ŧ="N"6045 bnk7:0:0:0:="n"Ŧ="N"100d: J"HOW MUCH DO YOU WANT TO INVEST?"'z$:9600%:n=16055 z$>bnkq=z$:9700%: z$<100d6055  bnk=bnk-z$ 0:1:7:6850:17,3;1;7;"Quiet - geniuses at work!":19,14;a$:n=020:18,12 +(n/2=(n/2));6;" ";20,12 +(n/2=(n/2));" ":.1}L,*40(:n 502:9300T$:g=.25~*(((bnk-z$)/bnk)+((*g)/g)):30:6850:z$="~MECHANICS REPORT.":x=16:y=8:9100#:9995 ':z(1,5)<(z(1,5)*(1+g))6:20,1;"~Our research has improved your"'"cars Perfection Rating by ";(((g*z(1,5))/z(1,5))*100d);"%.":z(1,5)=(z(1,5)*(1+g)):1:0:6790:.1}L,40(:9997 ':6075 >20,2;"~Sorry..no progress made!!!~":9997 ' "0:fl=0:p=0:  500: 87600:0:c=3::rn>110 ,2;4;0;"LEAGUE POSITIONS BEFORE RACE":60<:6400 =on=16:l(r(n)*(r(n)7)+(r(n)=7))=l(r(n)*(r(n)7)+(r(n)=7))+(7-n):n Bec=4::rs>rn11 ,1;6;0;"LEAGUE POSITIONS AFTER RACE ";rn:60< Grn=rs:40(:z$="~END OF SEASON":x=9 :y=9 ::9100#:9995 ':20,1;"Final league positions follow..":40(:2200:6400:5200P:340T:4710f: L6400: x(6):c(6):n=16:x(n)=l(n):c(n)=n:n:n=16:f=16:x(n)>x(f)x=x(n):x(n)=x(f):x(f)=x:x=c(n):c(n)=c(f):c(f)=x f:n 0c(1)=1c=4rs=rn4060  0:c:9 :  :n=419:n,4;0;l$(24):n z$="~LEAGUE TABLE":x=0:y=10 :9100#:9995 ':z$="~Position Team Points":x=4:y=4:7:2:9100#:9995 ' 1:n=16:6+(n*2),7;7;n;6+(n*2),12 ;c(n);9 ;0;t$(c(n));6+(2*n),24;1;1;7;l(c(n)):n 9997 ': x=7:z$="~Car Perfection Rating = "+z(1,5):y=(32 -z$)/2:n=69 :n,y-1;2;1;l$(̱z$+1):n:6:9100#:7: ]0,0;"How much do you want to spend???"',z$:9600%:n=16800 z$<25000an=1621:n,0;l$:.1}L,-n:n:z$="~`"+z$+"!!This is Formula 1!!":x=16:y=(32 -z$)/2:1:9100#:0:n=01:l$:n:100d:6800 n=1521:n,0;l$:n:x=(z$/10000'):16,3;"THAT WILL BUY A CAR WITH A"'" PERFECTION RATING OF ";x;".":21,4;"Do you wish to proceed??":0:21,0;l$:="n"Ŧ="N"6800 2:z(1,5)=x:.1}L,20:bnk=bnk-x*10000':1:6790:0:100d:6790:.2~L,36$  5: )n=1621:n,0;l$:n: X=g(6)=(450/(z(1,3)*z(1,4))):0:0:4::x=1:y=0:z$="~LAP "+lp+" IN PROGRESS...":9100#:x=10 :y=0:5:z$="~Your car is coming in for a pit"+l$(14)+"stop.":9100#:9997 ':6:1:1:0: ]n=95_1514:0,n:255,0:n:19,0;0;l$;9 ,0;"BoschCCSCHAMPIONDUCKHAMSMichelin" b~n=282:f=1303.33UR:n,f;"":f:n:11 ,12 ;"";13 ,12 ;"" g12 ,28;"":23296[,1:23298[,18588H-256*(18588H/256):23299[,(18588H/256):n=162>:l=64750:.002xn,2:l=64750:n lf=066B v->.6.02{# =,-8-(*20) qg=11 13 1.5@:g,12 ;(" "n=1)+(" "n=0):g:n=1*(n=0) f :21,7;"PITSTOP TIME : ";g(6):20 zn=13 1-1:.002xn,3:12 ,n;a$+" ":.005y# =,-10 :n:12 ,0;" ":  7030v  p=0:no=0:c(6):0:0:1:7::n=0315:f=0215:f,n;2+(*6);"";f+1,n;"":f:n:x=10 :y=9 :z$="~SELECT DRIVER":9100#:9995 ':9997 ' %I7:7:0:0::x=0:9100#:9995 ' *Vx=4:y=0:z$="~No. Name Skill Wage Team Fee ":9100#:9995 ' /n=110 :6+n,0;n;3;1;d$(n);13 ;2;d(n,1);17;4;d(n,1)*1900l;23;d(n,2);9 ;1;d(n,2);0;7;" ";26;3;d(n,1)*2000*4 0d(n,2)=7p=n 1Id(n,2)=06+n,23;3;1;" NO TEAM " 2n 4x=n+4:9995 ' 9Z2;"ENTER DRIVER YOU WISH TO HIRE"'"(or ENTER if just looking.)"''z$:z$="" ;#9600%:n=172259 >&z$>10 Űz$<172259 Coz$=p.1}L,-8:#0;1;1;" HE'S ALREADY DRIVING FOR YOU! ":130:72259 H]>.5d(z$,2)0n=16:c(n)ɰz$n:no=no+1:c(no)=z$ Mn=16:c(n)=z$1:#0;2,4;1;1;"SORRY,HE'S UNAVAILABLE!!":.1}L,-22:150:7:72259 Nn Rz(1,2)=1+(*10 ):bnk=bnk-(d(z$,1)*8000@*(d(z$,2)0)):q(1)=d(z$,1)*200:y=d(z$,2):d(z$,2)=7:z(1,1)=d(z$,1):y>0z(1,2)=z(y,2) T;x=1+(*10 ):d(x,2)07252T Ugy>0d(x,2)=y:z(y,1)=d(x,1):z(y,2)=1+(*10 *(1/df)) V!p>0d(p,2)=0 Wh502:.2~L,20:x=18:y=3:1:z$="~You have hired "+d$(z$):9100# \]p>0557:.2~L,-22:x=20:y=3:z$="~You have fired "+d$(p) a 9997 ' f 0:0:1::n=2314:f=0213:f,n;2+(*5);9 ;"":f:n:x=11 :y=10 :7:2:z$="~HIRE MECHANICS":9100#:9995 ' N9997 ':7:0::x=0:y=9 :9100#:9995 ' mx=3:y=0:z$="~Number Skill Wage ":9100#:9995 ':x=16:9995 ' lz$=" ":n=110 2:n+6,16-(n/2);1+(n/2);z$(n):n  7597 #0;1,6;1;"HIRE, FIRE OR QUIT?":0:z$=:z$="Q"z$="q"z(1,4)>0 ="f"Ŧ="F"7440 7591:q(2)=q(2)+(y*x*(1.6L-df)*900):m(x)=m(x)+y:z(1,4)=z(1,4)+y:z(1,3)=((z(1,3)*(z(1,4)-y))+(x*y))/z(1,4)  7420 7591:m(x)-y<0.2~L,-30:5:z$="YOU "+("ONLY"m(x)>0)+" HAVE "+((m(x))m(x)>0)+("NO"m(x)0)+" "+x+" MECHANICS!":#0;2,(32 -z$)/2;z$:150:0:#0;1,0;L$:7425 q(2)=q(2)-(y*x*900*(1.6L-df)):m(x)=m(x)-y:z(1,4)=z(1,4)-y:z(1,4)>0z(1,3)=((z(1,3)*(z(1,4)+y))-(x*y))/z(1,4) 8z(1,4)=0z(1,3)=0  7420 L"ENTER SPANNER RATING REQUIRED."''z$:9600%:n=17591 ,x=z$:z$<1Űz$>57591 I" ENTER NUMBER OF MECHANICS "''z$:9600%:n=17593 y=z$  5:n=15:x=(2*n)+5:y=4-(m(n)):z$="~ "+m(n):9100#:y=26:z$="~`"+((n*900*(1.6L-df))):9100#:n  0:0:7:1::1:x=0:y=11 :z$="~PITSTOPS":1:9100#:0:z$="~ Team Mechanics Skill Time(secs)":x=3:y=0:6:9100# 0:7:n=16:4+n,0;n;2;n*(n>1)+7*(n=1);"";7;9 ;z(n,4);18;z(n,3);25;(450/(z(n,3)*z(n,4))):254,6-n:n 6:0,87W:255,0:0,64@:-255,0:0,-64@:44,,88X:0,480:124|,88X:0,480:172,88X:0,480 z$="~Race positions:":x=13 :y=3:9100#:9995 ':n=16:254,6-n:16,(n*4);r(n)*(r(n)>1)+7*(r(n)=1);"";18,(n*4)+1;7;1;n:n n=16:c=r(n)*(r(n)7)+(r(n)=7):z(c,2)=z(c,2)+(3-n):z(c,2)0z(c,2)=0 n 9997 ': @Crn=rn+1:8600!:t=0:0:7:0: EJx=0:y=6:z$="~EXPENDITURE SUMMARY.":9100#:9995 ' J;4,1;2;7;"OPENING BALANCE";19,1;1;"TOTAL";21,1;0;0;6;"CLOSING BALANCE";6,1;4;0;"RACE EXPENSES":0,131:255,0:0,28:255,0:0,12 :255,0 O,x=4:y=30:z$=bnk:8298j T6n=110 :d(n,2)=78030^ Yn ^_8,1;"1. Driver's Race Fee":x=8:z$=(d(n,1)*1900l):8298j cP10 ,1;"2. Mechanics Wages":x=10 :z$=q(2):8298j h]12 ,1;"3. Hotel Bills":x=12 :z$=(500+(*2000)):8298j mX14,1;"4. Travel Expenses":x=14:z$=((z$*.75@)):8298j rc16,1;"5. Petrol/Oils etc.":x=16:z$=((100d+(*100d))):8298j wLx=19:z$=t:8298j :bnk=bnk-t:z$=bnk:x=21:8298j |N9997 ':g(5)=0:>.85Yg(5)=1+(*2) >.38750." te=0:fu=1:r(6):n=16:r(n)=(10 *z(n,5))+(10 *z(n,1))+(8*z(n,2))+(z(n,3)*z(n,4)*.5)-15+(*30)-(z(n,3)*z(n,4)*.25~*(z(n,4)>25)):n n=16:c(n)=n:n:  2000 in=16:f=n+16:r(n)0te=*(g(5)1)+(g(5)=1):fu=*(g(5)2):n=16:r(n)7n Efl=79Og(5)>0r(n)=r(6):r(6)=7 .fl=79Og(5)=0:fu=:te= 3fl=79O9400$:4000:62008: 'fl=79O4000:62008:  6100 i j,x,y-z$;z$:x<19x>4t=t+z$ k l2n=16:r(n)=7p=n:8305q mn q&sm999sm=(7-p)/6 ssm=999sm=.1}L* vi1:0:7:0::x=0:y=10 :z$="~SPONSORSHIP":9100#:9995 ': {G4,1;1;"You have `";bnk;" in the Bank.";6,0;"Sponsors satisfaction rating is":n=811 :n,0;6;l$:n:0,88X:255,0:n=02555:n,89Y:0,5:n:n=0255*sm8:n/513;n/513;n,96`:n 8,(n/8)-4;1;(sm*100d);"%";11 ,0;0;6;"0%";28;"100%";12 ,0;2;7;1;l$;12 ,1;"Your sponsor says..." Aof=100000CP*sm*((rs-rn)/rs):of=(of/1000)*1000 Fz$="~~OK. How much do you want?~":x=14:y=3:9100# (z$:9600%:n=18335 _g=z$:z$="~~You want `"+g+"?~":x=17:y=(32 -z$)/2:9100#:100d rgofbnk=bnk+g:z$="~~OK. You can have `"+g+".~":x=20:y=(32 -z$)/2:9100#:8355 g>ofof=(of*(of/g)) mg>ofbnk=bnk+of:z$="~~No..you can only have `"+of+".~":x=20:y=(32 -z$)/2:9100# 100d:4,10 ;1;2;7;"`";bnk;7;1;0;" in the Bank.":.1}L,20:9997 ' sm=999: !4&0:7:1:0: !9x=0:y=11 :z$="~TEAM SUMMARY":9100#:9995 ':x=3:y=2:4:z$="~Team":9100#:6:y=10 :z$="~Driver":9100#:y=18:5:z$="~Car":9100#:y=23:6:z$="~Mechanics":9100# !>S7:6,7;"Skill Morale";23;"No. Skill":n=16 !C6+n*2,0;9 ;n;t$(n);0;10 ;z(n,1);14;z(n,2);19;z(n,5);23;z(n,4);29;z(n,3):n !HIn=2013216:0,n:4;255,0:n !R9997 ': !1:23500[,130:l=64400:x=10 :z$="~THIS IS RACE "+rn+" OUT":y=(32 -z$)/2:9100#:x=12 :z$="~OF "+rs+" THIS SEASON":y=(32 -z$)/2:9100#:9997 ' ! !Od(10 ,2):z(6,5):n=26:f=25 !6z(1,5)=1+((df/1.5@)*9 ) "3z(n,f)=4+((*8)*(1/df)):f:n " n=110 :d(n,1)=1+(1+(*12 )):n:n=15:d(n,1)=(d(n,1)*(1/df)):d(n,2)=n+1:n " n=26:z(n,1)=d(n-1,1):z(n,3)=1+(z(n,3)*.5):z(n,3)>5z(n,3)=5 "n: ".F:5,0;:c(6):x=1+(*4):g=1x "8Iy=2+(*5):c(g)=y:n=1g-1:c(n)=y87608" "= n:f$=t$(y) "B>.75@z(y,5)<(2-df)*15t=/2:f$=f$+" improves car by "+(((t*100d)))+"%":z(y,5)=(z(y,5)*(1+t)) "G>.75@z(y,4)<20t=1+(*5):f=1+(*3):f$=f$+(13 +"and"Ʊf$>13 )+" hires "+f+" "+t+" mechanics":n=z(y,3)*z(y,4):z(y,4)=z(y,4)+f:n=n+(f*t):z(y,3)=(n/z(y,4)) "Vf$t$(y)n=1̱f$:.01z# =,-8:f$(n);" ";:.01z# =,-14:8+" "+8;:.02{# =,-5:n:"."'' "[g:23689\=19 "`kx=0:y=8:1:2:z$="~GRAND PRIX NEWS":9100#:0:0:9997 ': #(Nn=0167:f:"a"+n,f:n:0,0,0,14,61=,109m,243,12 ,0,1,63?,124|,128,0,255,0,159,255,249,77M,167,151,200,480,170,85U,170,85U,170,85U,170,85U #)24,153,126~,24,24,60<,36$,36$,24,24,60<,90Z,24,60<,36$,36$ #*0,0,1,2,5,8,15,0,0,248,4,170,85U,1,129,85U,0,63?,32 ,85U,74J,96`,480,31,171,1,1,85U,170,2,4,252 #+I6,8,9 ,30,568,112p,224,192 #,00000011,00000100,00001001 ,00001001 ,00001000,00001000,00000100,00000100,10000000,10000000,0,0,10000000,01000000@,01000000@,00100000 ,0,00000111,00011000,00100111',00100000 ,001100000,01001111O,01000000@,00000010,255,001100000,11010000,00011001,01101001i,10001000,001100000 #-+00010000,00010000,00001000,00000100,00000010,00000001,10000000,10000000,01110001q,00101110.,00100000 ,00111111?,00010000,00010000,00001111,0,11010000,00010000,11100000,00100000 ,01000000@,10000000,255,0,01000000@,001100000,0,0,0,00011111,11100000,0,0,0,0,0,00000001,00000010,00000010,00000010 #.a0,0,0,0,10000000,01000000@,00100000 ,00011000 #/ut$(6,8):n=16:z$:t$(n)=z$:n:" Player","Ferrari","Lotus","Brabham","Williams","Renault" #0d$(10 ,10 ):n=110 :d$(n):n:"A Jones","J Hunt","S Moss","N Lauda","J Stewart","G Hill","N Piquet","J Watson","R Arnoux","A Prost" #1 #2nn=01:#0;n,0;c;l$:n:n=88X0-8:0,87W+n:0;c;c;255-(88X-n),0:0,n-88X:0;c;c;255-(88X-n),0:88X-n,0:c;0;c;0,175-(88X-n):255-(88X-n),0:0;c;c;0,175-(88X-n):n:c: #023296[,x:23297[,y:l=64800 : #*4:4:1: #n=02:n,0;0;7;0;q$:n:n=35:n,0;5;l$:n:n=11 20:n,0;0;0;7;l$:n $D9 :0:0,96`:255,0:0,90Z:255,0:0,15:255,0:0,8:255,0:n=02559 :n,90Z:0,5:3,0:0,-5:n,9 :0,6:3,0:0,-6:n $T1g=0:n=15:g=g+(m(n)*n):n: $:sm=2:1:7:1:z$="~LEADER BOARD":x=2:y=10 :9100#:n=16:3+n,10 ;1;n;0;13 ;0;r(n);a$;" ";1;17;"Car ";r(n)*(r(n)7)+(r(n)=7);".":.03{u\,n*4:n $0,80P:9 ;255,0:13 ,13 ;"STATUS.":n=480207159:n,480,24:-9 ,4:-28,0:-7,-4:n:n=44,44,+((lp/lap)*160)8:2;2;n,0:2;2;n,8:n:21,0;"START";21,26;"FINISH";17,4;"FUEL";17,24;"TEMP":ot+ut=020,5;2;1;6;l$(21);21,5;l$(21) $K9500%:te=(1*(te>1)+te*(te1)):fu=fu*(fu>0) $@480,480:9 ;-10 *(*fu),10 *(*fu) $A207,480:9 ;-10 *(*te),10 *(*te) $rlp/lap.74=pfl79Og(5)>0fl=79Og(5)>01,44,:95200% $9997 ': %fl=79O %6g(5)=0fu=1-(lp/lap):te=lp/lap: %!Bg(5)=1te=lp/(lap*.75@):fu=1-(lp/lap): %&Bg(5)=2fu=1-(lp/(lap*.75@)):te=lp/lap: %+.1}L,44,: %0g(5)=0 %2z(1,2)=(z(1,2)*.66():z$="Your car has"+22+16+10 :g(5)=1z$=z$+"broken down"+22+17+10 +"due to over-"+22+18+10 +"heating! " %5Wg(5)=2z$=z$+"run out of"+22+17+10 +" gas! " %:}n=12 19:n,0;1;1;l$:n:15,10 ;1;1;z$:ot=0:ut=ot:lp=lap %?$n=16:r(n)7n %D%r(n)=r(6):r(6)=7 %I %En=1̱z$:z$(n)<"0"z$(n)>"9".1}L,-22:n=1: %n: %0:7:1:6850:1:z$="~BANK BALANCE = `"+bnk+".":x=16:y=(32 -z$)/2:9100#:9555S%:0:z$="~Do you want to arrange a meeting with your sponsors? (Y/N).":x=18:y=0:9100#:0:="n"Ŧ="N" %8300l : &H&0:0:1:7: &M x=0:y=7:z$="~GRAND PRIX MANAGER":9100#:9995 ':3,5;"Programmed by P.Boulton":n=0313:10 ,n;"";20,n;"":n:14,7;a$;16,13 ;a$;15,25;a$;12 ,18;a$ &O=4,13 ;" 1984";#1;10 ;"Press a key" &R+1:l=65000:""9820\& &W 9810R& &\c=1:c:90102# &ax=0:y=7:z$="~DIFFICULTY SELECTOR":9100#:9995 ':n=12 20:n,0;6;0;l$:n:4,0;"Select difficulty :"'',"1=Very difficult"',"10=Very easy" &f="Enter selection. ";z$:9600%:n=19830f& &i&z$<1Űz$>10 9830f& &k60<:n=262-1:.005y# =,-14:18,n;0;0;6;a$;"_";2;7;"Difficulty selected is ";z$;6;" ":.005y# =,-12 :n:df=z$/10 +.5 &m-l(6):l(7-(df*4))=7 &p9997 ': ' *n=yy+z$-2:x+2,n;"":n: ' #1;1,2;8;9 ;"Press any key to continue...":0:23500[,3:n=15:l=64400:n:30: L Alxy!M&f5 Player Ferrari Lotus Brabham WilliamsRenault i A Jones J Hunt S Moss N Lauda J Stewart G Hill N Piquet J Watson R Arnoux A Prost nQ p&!!Z~GRAND PRIX MANAGER