ZXTape! 2 Motorcycle 500 Cult GamesFWritten by The Shaw Brothers Original Design by Vincent Vity1990EnglishGame/Racing/Management2.99 UKPNoneOriginal ReleaseTZXed by Andrew BarkergMOTORCYCLE 0:0:0::63699:23659k\,0:"t1"63700,131:23659k\,2:63700:"Editor" et1 i :F\`i*=\s#r>2\v{=\!:\~2\(M(I(E6} (+('(! "B\>2D\*E\"n\:G\2p\}:\(*E\"B\:G\2D\}*=\6#62\fEditor  &  0:0:0:1:a=23611;\:(a/32 )ɺ(a/16)/2;7;" THIS IS THE 48K VERSION":0: 63851k:"":500 Data :236077\,252:GDS=13 :23658j\,8:R(5):F=15:R(F)=1:F:R(3)=2 .01z# =,502:.01z# =,10 :8,9 ;"STOP THE TAPE!"''8;"THEN PRESS A KEY":=""15 2A901:''12 ;"DESIGNER"''12 ;"CONTINUE" 7%K$=:K$="C"906:9000(# <K$"D"557 = 906 Z907:0,9 ;"NAMES DESIGNER";3,11 ;"1 RIDERS";5,11 ;"2 TEAMS";7,11 ;"3 MECHANIC";9 ,11 ;"4 SPONSORS";11 ,11 ;"5 YOUR NAME":902 [m14,7;"LOAD A SAVED SEASON";16,7;"SAVE PRESENT SEASON" \905:K$=GDS502 ]hF=K$-480:F>0F<6907:910:RI=R(F):999+F:BARNSLEY=F:912 ^K$="L"0::14;"LOAD"''''4;"INSERT SAVED SEASON TAPE":236077\,60<:"":236077\,252:90Z _K$="S"0::14;"SAVE"''''4;"INSERT TAPE TO RECORD ON":236077\,60<:K$=(64138*256+64137):13 +"t"+64146+"s"+K$(34)+"e"+(64136)63851k,916:236077\,252:90Z ` 92\ S0,F;"`ade";1,F;"bcfg";2,F;"tuxy";3,F;"vwz{": 0:0:7:1::'7;"q MOTORCYCLE q"'7;"rs [[[[500[[[  rs":F=1:900:F=27:900: H#0;8;"ENTER TO CONTINUE";0,0: K$=:K$=""905 .005y# =,15: 11:1:0::0:1: MF53,12 ;"FORWARD";5,12 ;"BACKWARD" -7,12 ;"CHANGE":902: %5:10 ,22;" " 1UG=RI:RI>1ST=64515UG=UG-1 (10 ,10 ;:UG<10 ""; LY=ST+(RI*12 ):1;UG;:N=110 :¾(Y+N);:N:7 K$=:K$=""920 :.004yn,15:K$="F"RI=RI+1:RI>MXRI=MN @K$="C"1215:10 ,12 ;" ":945 #K$=GDSR(BARNSLEY)=RI:90Z %K$="B"RI=RI-1:RI64@ƯK$<91[AR+B,K$:10 ,11 +B;K$:B=B+1:945 ZK$=12 B>110 ,11 +B;" ":B=B-1:AR+B,32 :940 VB<11 K$=" "K$="."AR+B,K$:10 ,11 +B;K$:B=B+1:945 K$=GDS912  945 I0,13 ;"RIDERS":MX=20:MN=1:ST=63859s: H0,13 ;"TEAMS":MX=10 :MN=1:ST=64395: M0,11 ;"MECHANICSk":MX=10 :MN=2:ST=64515: K0,12 ;"SPONSORS":MX=10 :MN=1:ST=64635{: L0,11 ;"YOUR NAMEk":MX=1:MN=1:ST=64515: FAR=ST+RI*12 :N=110 :AR+N,32 :N:B=1:  Graham D. Shaw 1990 #(L G ROUTINE #-x:5;"LOADING MOTORCYCLE 500":236077\,60<:23739\,82R:23740\,0:""50000P #/K=64360h #2'23659k\,0:"M500MAIN": 'j hello Graham! Well, my turnips-must go!..Who are you? Not a hacker I do hope... kjM500 l E.LAWSON C.SARRON W.RAINEY K.SCHWANTZR.HASLAM K.MAGEE P.F.CHILI M.DOOHAN W.GARDNER R.MAMOLA F.SPENCER S.PONS K.ROBERTS B.SHEENE R.MCELNEA N.MCKENZIED.SARRON V.VITY G.SHAW B.LEE   x|}   {_!@~w#  :\wT]:H\w? 32&:H\yC%  !P@.U\RR}8=g= x YAMAHA FHONDA XSUZUKI DCAGIVA DKAWASAKI \VINNINI [NORTON YSHAWBROS ^TRIUMPH .DUCATI 6VINCE SHAW-N.POINTON LB.ANGELL SL.COLE \J.LUND :D.BLAND RM.WESTY /S.IRVINE /M.WILD [ B.SUMNER ^ ROTHMANS  MARLBORO  CULT GAMES PHILIPS FOSTERS MITSUBISHIPEPSI COLADUNLOP LTDFIRESTONE MICHELIN 88888$JRRJ$zzzt p20|0~fl6fp tzzz P 0.^^^zzzzzzzz^^^^^^^^^^^.0~zRBf~88 0`<U /LM-, Ԕ @p2lf2vv~vvv~~~\8v|xx|vppppp~Bf~vvvFfvnfb<~8p~3333~BFBF~.nn+/oooXZ@ʕ.J)J_ &V&L-LCS~~)U?_EUUUUV//`뜋_ Ԃ#"*/U@!.PGIG+/~/?w}@*UUUUUWB}Wꨀ}U@@8kO+z@?xCQUpuUUs=N_cqc _@/A`8wGtB"""""xwwwwvU`0 UR7KTCJ?xK~ =V 0DDDDD/0 ?)~]"""""#V"@"L*i A#/* ?W+ SpZ{?rFpP|/qP~tJQDDDDDE__H2Ր? %@9Հ@@*_`}/O=0_?~?š~?''()ȺCUh_8apB ͙%UUUUU^?0~{UCUUUUUU?KUUUUUU_ Ɔj3 h_) TՀW*/O ?~D /Rq0`oO ? UUUUUUUUꪪժUGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxG(((((((((((((((((((((((((((((((GhxhhhhhhhhhhhhhhhhhhhhhhhhhhhhhBBBBBBBBPPPPPPPPPPPPPPPBBBBBBBBBFFFFFFFFpppppppppppppppFFFFFFFFFBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGCGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGFFFFFFFFFFFFFFGGGGGGGGGGGGEEEEEEEEEEEEEEEEGGGGGGGGGGGGFFFFFFFFFFFFFFFFGGGGGGCGGGGEEEEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGPPPGGGGGGGGGGGGGGGGGGGGGGGGGGGGEPPPGGGGGGGGGGGGGGGGGGGGGGGGGGG``PPPGEEEGGGGGGGGGGGGGGGGGGGGGP`` `PG(hhpGGGGGGGGFGGGGGGGPVVPPPPPP``PP((pFGGGGGGGGGGGGGGPPPPP PGGGGGGGGGGGGGGG((PPP `TTPP((((GGEEGFFFG((hh(PTTtTP(hh((EG````` ((hhhhhPTTTP(hh(( `````BxPxPxP((((8((((PGBGBxBBBBBBBB8(((BBBBBBG(((GGBGBieM500MAIN &RI=F*11 -11 : @#0;11 ;1;"INTERLUDE";0,0:  Y="25": D"205":"23658","8":ڰ"0":"0":ٰ"7":ܰ"1":"63851":GDS="13" SC=-1:S(10 ):M(24):Y(41)):T(20):X(30):Z(20):N$="GOOD LUCK ":T$(100d):C$(100d):A$(200):M$(100d):W$="RISKY STEADYRAININTRWARM" F=120:2:X(F)=(64527+F*12 ):N=110 :X(N+20)=(64646+N*12 ):A$((F-1)*10 +N)=¾(63859s+(F*12 )+N):N:T(F)=(63870~+F*12 ):F:F=124:M(F)=(64111o+F):F:F=110 :S(F)=(64170+F):2:N=110 :T$((F-1)*10 +N)=¾(64395+(F*12 )+N):M$((F-1)*10 +N)=¾(64515+(F*12 )+N):C$((F-1)*10 +N)=¾(64635{+(F*12 )+N):N:F JSU=64141:F=12:Y(M(22+F))=(64324D+F):F PT=0:M(10 )=64138*256+64137:CASH=64148*256+64147:LOAN=64140*256+64139 2230:TT=0CASH=0:LOAN=0:F=12:1:M(1+RI)=502:M(2+RI)=502:M(4+RI)=502:M(5+RI)=(45-+(F*10 ))+(*10 ):M(6+RI)=6:F:M(8)=30:1480 3LOAN=(LOAN+((LOAN/1000)*2)):LOAN>5000CASH="CASH"-"LOAN-5000":LOAN=LOAN-"LOAN-5000":"CASH"<"-100""12";"BANKRUPT":"299":SU="SU-10":"301" 4X=15:F=120:64184+F,(15-((((21-X(F))*20)+((64406+(F*12 ))-20))/20)/2):(64184+F) =M(7+RI)=PR >yM(6+RI)<12 M(8)>0M(6+RI)=M(6+RI)+1:M(8)=M(8)-1:62> AF:U=(*5):U=0X(TT+20)<5Y=502+(*200):N$="MOTORMANIA MAGAZINE PAY YOU $"+Y+" FOR AN ARTICLE. "+N$:CASH=CASH+Y BU=1X(TT+20)=1Y=(*1000)+250:N$="ITV SATURDAY SPORT PAY YOU $"+Y+" FOR A FEATURE. "+N$:CASH=CASH+Y CU=2Y=(*250):CASH-Y>064327G+64328H<2N$="YOUR TEAM HAS BEEN FINED $"+Y+" FOR RECKLESS RIDING. "+N$:CASH=CASH-Y DFU>2M(8)<35#N$="SPARE FUEL SUPPLY IS LOW. "+N$ P?210:265 :T=502+(W*15)+((*20)) Z.M(9 )>10 64324D,TT:"6100" _CASH>60000`13 ;"TAXMAN"'''" THE INLAND REVENUE COLLECT"''" $";(CASH/4);" THAT YOU OWE THEM.":CASH=CASH-(CASH/4):9500% dPZ=TT:X=7-S(TT)/2:Y=PZ/2+1:0::" `ade";27;"`ade"'" bcfg ";Y;"";X;"q MOTORCYCLE ";Y;"";X;"q bcfg"'" tuxy rs [[[500[[[[  rs tuxy"'" vwz{";27;"vwz{" e\11 ;"TABLES"'11 ;"GAMBLE"'11 ;"ACCOUNTS"'11 ;"SAVE GAME"'11 ;"LOAD GAME"'11 ;"VIEW G.P.S"'11 ;"RACE PREP"'11 ;"PRACTISEk";PT;""'11 ;"ENTER RACE"'11 ;"WORKSHOP"'11 ;"MECHANICS"'11 ;"SYM/RESIGN" g'5;:1146z:1144x:5;" MANAGER k";M$(110 );" "''5;"SCk";SU*2;"%";12 ;"FMk";M(3)*2;"%";19;"AVk";SU+M(3);"%" h)9600%:9506"%:K$="A""5900" iwK$="<":11 ;"RESIGN";:400:SU=SU-5:299+:8,6;"RESIGNATION ACCEPTED":"301" jK$="T""2000" kK$="V""2100" lK$="E""3800":"1000" mK$="R"MN="3200":"3029" nK$="W"MN="3050"::"3030" oK$="M""4890" pK$="P""3700" r6K$="S":9 ;"SAVE GAMEk";:400:"7000" s6K$="L":9 ;"LOAD GAMEk";:400:"7100" K$"G""104" UX=4:320@:"  GRANADALAND LEISURE LTD  BNRIDER TEAODDSBET":PY=4:F=120:PZ=F:PX=F+1:1140t:190:4;PX,PY-2;(64@+F);PX,22;"";(64184+F);"/1";PX,27;"$";(64303/+F):F:201:9506"% FV+1,26;"\" 9510&%:9506"%:PZ=K$-64@:PZ>0PZ<21CASH>9 (64303/+PZ)<246PX=PZ+1:CASH=CASH-10 :64303/+PZ,(64303/+PZ)+10 :PZ+1,28;"";(64303/+PZ):190 K$=GDS100d 182 /(64303/+PZ)0PX,21;"-"  '' C#0;7;"ENTER TO CONTINUEk";0,0: ;#0;7;" ";0,0: #CASH=6000p+(*5000): "23607","252": "23607","60": +S$=" "+N$:SC=0: /(64303/+PZ)0PX,19;"-" PZ=FVPX,20;"\"  PF=0N:F,0;"":F:7: @F=110 :F+1,0;:F+PT<10 " "; 1;6;F+PT:F: ܡZ(PZ)=(*((64406+(PZ*12 )))):Z(PZ)=((Z(PZ)+(*M(1+RI))+(*M(5+RI)))/3):Z(PZ)=(Z(PZ)/3)-PS:Y(21+PZ)=SHAW-Z(PZ): 3222:12 ,0;"())))))))))&":F=13 17:F,0;"*";F,11 ;"+":F:13 ,1;"nonononono";14,1;"||||||||||";15,1;"~~~~~~~~~~";16,1;"}}}}}j}}}}";17,1;"::::::::::": *18,0;", MONITORk #": "1,26;"h TI": \0,0;" ";V$;" "'"PN RIDER TEB";: )"SPAREPETROLk";M(8);"G": ("PETROL INk";M(6+RI);"G": TT=64146: M(3)=((10 -X(20+TT))*2)+(40(-(X(M(23))+X(M(24)))):M(3)>502M(3)=502  <Y(N)=-((*5)+1):Y(N)=-2Y(N)=-4  cX=0:PT=0:BR=0:OL=Z(1):2:0:2::1:0: ="POWER  k";100d+M(1+RI);"MPH ": /"ENGINE  k";M(2+RI);"% ": 1"STEERING k";M(4+RI);"% ": " ": "RAIN SHOWERS": "FAIR WEATHER": "HOT AND HUMID":  W=(*3): +)"238":"64324","TT":"64146","0": ,299+:PZ=TT:'''''''"BOARDROOMk THE DIRECTORS ARE NOTHAPPY WITH YOUR PERFORMANCE.YOURCONTRACT HAS BEEN TERMINATED....":F=010 :.03{u\,-F:.01z# =,-F:F -SU<0SU=0 1 230:M(9 )<11 F=120:2:63871+F*12 ,(*21)+(63871+F*12 ):F:64160+M(9 ),(*20)+1:64149+M(9 ),T((64160+M(9 ))):M(9 )=M(9 )+1:3051 5 "6100" 6F=120:63871+F*12 ,0:F:M(9 )=0:2200:M(10 )=M(10 )+1:M(10 )>9999'M(10 )=1966 7 @%X:X:0::0:1: 9" Y/N":9510&%:9506"%:K$"Y"100d  V1010:MN=0:F=12:Y(M(22+F))500MN=MN+1 F:MN=21060$ p:6;"[[[RIDER MISSING[[[":1020:2,9 ;"BEGIN RACEk";:400:1050 F=12:1:PZ=M(22+F):M(2+RI)<10 M(4+RI)<10 M(5+RI)<10 M(7+RI)0M(6+RI)<1Y(PZ)=500:1012 "Y(PZ)=500Y(PZ)=240 F: PY=8:F=12:1:PZ=M(22+F):PX=F*10 -6:1140t:'9 ;:M(7+RI)0"FEE NOT PAID":"1039" 1M(6+RI)<1"OUT OF FUEL":"1039" 3M(2+RI)<10 "ENGINE FAULT":"1039" 5M(4+RI)<10 "STEERING FAULT":"1039" 7M(5+RI)<10 "OUT OF CONDITION":"1039" 2Y(21+PZ)=Y(PZ):"GRID TIME k";:1170 F: $DPS=0:PX=12 :PY=8:PZ=(64160+M(9 )):2120H:3800:PZ>0PX-1,6;"LAST YEARS WINNER WAS":1140t:(64149+M(9 ))T(PZ)PZ=(64149+M(9 )):" CAN HE REPEAT THE WIN OF ";M(10 )-1;" "'" WHEN RIDING FOR ";:1145y %PX=21:PZ=(64205+M(9 )):1140t:PX-2,8;:Y(21+PZ)=(64216+M(9 )):1165:10 ;"RECORD HOLDER" &>F=12:PZ=M(22+F):Y(21+PZ)=Y(PZ):F )=N=120:N=M(23)N=M(24)1070. *1104P:Y(21+N)=SHAW-Z(N):Y(21+N)Ǿ(64216+M(9 ))Y(21+N)=1+((*10 ))+(64216+M(9 )) +Y(N)=Y(21+N) .cX(N)=0:N:F=120:N=120:X(N)=0X(N)=F:Z(F)=N:10808 3N 8\N=120:NZ(F)X(N)=0Y(N)]F=12:PZ=M(22+F):Y(PZ)=500Y(PZ)=0:Y(21+PZ)=0 ?F B" [[[[GRID POSITIONS[[[[ PN RIDER TEATIME":F=021:F,0;"";F,29;"":F DPY=6:N=120:PZ=Z(N):PX=N+1:PX,PY-2;1;6;N:1140t:PX,PY+18;:Y(Z(N))<1"kDNS":1096H E 1170 HN:201 I^F=110 :.007ye`A,-(F+4):.007ye`A,-(F+12 ):GDSF:1097I JUN=120:Y(N)>0Y(N)=((21-X(N))*4/7)+180 K3.007ye`A,-20+N:.007ye`A,-26+N:N L.F=120:Y(21+F)=0:F M238:221:PY=13 :F=12:PZ=M(22+F):Y(PZ)0PX=10 +F*3:PX+1,PY;"";F;"kCDk FUk ":1140t:PX+2,PY;"MANOEUVRESk" NF:218:224:"LPTILEAD";21,18;"LAPS T.Gk ";20,18;"LEADERBOARD ":1150~:1186 PuZ(N)=(*((64406+(N*12 )))):Z(N)=((Z(N)+(*100d)+(*100d))/3):Z(N)=(Z(N)/3): QlU=19 :20,18;U;"L":.005y# =,U:"L"U:20,18;"L":1108T RC20,18;"L":PT=PT+10 :PT>10 PT=0 S0LEF>1X=99c:218:1186 TLF=12:PZ=M(22+F):PS=0:Y(PZ)<11129i U1:(*M(2+RI))<10 (*M(5+RI))<10 (*M(4+RI))<10 Y(PZ)=-1:1151:1300:1129i VN=PZ:PS=0:U=19 :11 +F*3,13 ;U;F:.005y# =,U+F:=(480+F)11 +F*3,13 ;4;F:2:1400x WOU:11 +F*3,13 ;4;F:(*10 )>01116\ Xm(64326F+F)=11160:1149}:"STEADYkLOSING MPH":.01z# =,0:PS=PS+1 Z(64326F+F)=01160:1149}:"RISKSkADDING MPH":.01z# =,10 :PS=PS-2:(*3)=0(*((64406+PZ*12 )))=0Y(PZ)=-5:1151:1300:1129i \<Y=12:W=M(16+Y+(F*2))1119_ ](*10 )=01148|:PS=PS+2:(*M(4+RI))<40((*(64406+PZ*12 ))=0Y(PZ)=-4:1151:1300:1129i ^f(*10 )=01160:1149}:"TYRES ADDING MPH":.01z# =,10 :PS=PS-2 _Y eB1:220:Y(PZ)=Y(PZ)+Z(PZ):Y(PZ)>01129i fEM=2-Y(PZ):N=120:NPZY(N)>0Y(N)=Y(N)+M gN:Y(PZ)=1 jVF:2:N=120:Y(N)<1N=M(23)N=M(24)1138r k1104P:LEF>2(*30)=0Y(21+N)=(*20)+8:1160:1149}:"PITSTOPk";:1:1171:Z(N)=Z(N)-Y(21+N) l(*(30+(W*10 )))=0Z(N)=Z(N)-2:1148|:(*(10 +(64406+N*12 )))=0Y(N)=-4:1136p miX(N)>10 (*(64406+N*12 ))<1(*90Z)=0Y(N)=-1:1136p nkM(9 )>1X(20+T(N))>5X(N)>12 (*80P)=0233:1136p o5Y(N)=Y(N)+Z(N):Y(21+N)=SHAW-Z(N):1138r p1349E:1305 rX(N)=0:N s 1175 t)L=0:T(PZ)=TT1:L=1 uPX,PY;:PZ<10 ""; v0;1;PZ;1;" ";A$((PZ*10 )-9 PZ*10 );" ";L;T(PZ)/2+1;T$(T(PZ)*10 -9 T(PZ)*10 -7):0: xPZ=TT1 yGPZ/2+1;T$((PZ*10 )-9 PZ*10 );:0: zPZ=TT1 {T7-S(PZ)/2;C$(S(PZ)*10 -9 S(PZ)*10 );" ";:0: |P1160:21,0;"TYRES SLIPPING":1149}:K=64332L: }-PX=20:PY=0:PZ=N:1140t: ~021,27;1;6;LEF;" " LEF2 L=PZ:K=12:PZ=M(22+K):Y(PZ)<0T=02:10 +K*3+T,13 ;1;" ":T:11 +K*3,18;:1350F:1155 'Y(PZ)>0M=K*11 -11 :11 +K*3,18;"";M(5+M);"% ";11 +K*3,26;M(6+M);"G ";((64326F+K)*2)+2;12 +K*3,24;W$(((64326F+K)+1)*6-5((64326F+K)+1)*6)  K:PZ=L: M=70-1:1;M;20,0;" "'" ":M:20,0;" "'" ": "LAP RECORD k ";: Q1:(64216+M(9 ))=Y(21+PZ)6:0:1172  6 4M=(Y(21+PZ)/60<):M;:M<10 "'"; 3S=(Y(21+PZ)-(M*60<)):S<10 "0"; S;:0:7: RF=120:N=120:X(N)=0X(N)=F:Z(F)=N:1179 N \N=120:NZ(F)X(N)=0Y(N)>Y(Z(F))X(Z(F))=0:Z(F)=N:X(Z(F))=F  N:Y(Z(F))<11185 WF>1X=(Y(Z(F-1))-Y(Z(F)))*2.5 :X>10 Y=0X-10 :Y X=T(Z(F))/2+1:Y=7-S(T(Z(F)))/2:18,0;"";F;2;A$(Z(F)*10 -9 Z(F)*10 ):N=18:14,N;"|";X;"p";Y;"q";15,N;"~rs":N:14,9 ;"||";15,9 ;"~~" ZF=1OLZ(1)N=Z(1):1149}:"TAKES THE LEAD! ":OL=Z(1) Y(21+Z(F))Ǿ(64216+M(9 ))N=Z(F):64216+M(9 ),Y(21+N):1149}:1165:.005y# =,30:64205+M(9 ),N F $222:LEF=11225 PT=0223 BR:PY=2:.01z# =,15:Y=110 :N=Y+PT:PX=Y+1:Y(Z(N))0PZ=Z(N):1140t:Y(Z(N))>0PX,PY+19;:1170:N1Y(21+PZ)=Y(Z(1))-Y(Z(N)):PX,PY+24;:1:1171 >Y(Z(N))=02;0;31;" ":1194 cY(Z(N))>-1PX,19;" ";PX,25;" ";PX,30;" ":214:1194 &PX,PY+18;:F=Z(N):1350F 3Y:1:BR=BR+1:BR>1BR=0 #X=99cX=0:1108T bLEF=21160:21,0;"[[THE LAST LAP![[":N=19:217:221 #(*15)01209 c1160:20,0;"WEATHERk":.01z# =,5:L=W:(*3)=0265  ?260+W:L=W20,8;"NO CHANGE":1207 .F=13:.01z# =,30+F*F:F @F=12:PZ=M(22+F):Y(PZ)<11220 11:(*M(2+RI))>51218 uM(5+RI)=M(5+RI)-1:M(5+RI)<90Z(*M(5+RI))=0Y(PZ)=-3:1300 3M(5+RI)<5Y(PZ)=-1:1300 M(6+RI)=M(6+RI)-(*2):M(6+RI)<3N=PZ:1160:1149}:"LOW ON FUEL":.05|L,-5:.05|L,-17:M(6+RI)<1Y(PZ)=-2:1300  1150~ IF:1:LEF=LEF-1:1150~:.01z# =,40(:1105Q kN=21:2:217:224:"ODDPTTIME";1,28;"h TI" 3N$="":PY=2:F=120:Y(Z(F))0PX=X(Z(F))+1:PZ=Z(F):1140t:PX,21;"";(64184+PZ);"/1":Y(PZ)>0PX,25;"";21-X(PZ);PX,PY-2;X(PZ);PX,28;:F11:Y(21+PZ)=Y(Z(1))-Y(PZ):1171:1235 PX,20;:1350F ӄF=Z(1)(64303/+F)>0Y=(((64303/+F))*((64184+Z(1)))):CASH=CASH+Y:N$="BOOKIES PAY $"+Y+"." ׅ214:F:64160+M(9 ),Z(1):64149+M(9 ),T(Z(1)):F=120:64303/+F,0:F X=600X+(*400):CASH=CASH+X:N$=N$+" SPONSOR GIVES $"+X:F=12:Y(M(22+F))>0X=(21-X(M(22+F)))*75K:N$=N$+" PRIZE MONEY $"+X+".":CASH=CASH+X gF:F=120:Y=*4+1:X(F)>6X(F)<15Y=(*5+1)-3 X(F)>14Y=-Y 64406+F*12 ,((64406+F*12 ))+Y:(64406+(F*12 ))<2564406+(F*12 ),25+(*10 ) I(64406+(F*12 ))>99c64406+(F*12 ),99c RY(F)>063871+F*12 ,((63871+F*12 )+(21-X(F))) F 8M(9 )=M(9 )+1:M(9 )<11 3000 :3020 :231:M(3)<30N$=N$+" DIRECTORS ARE NOT HAPPY...":M(9 )>3M(3)<20N$=N$+"CONSIDERING ENDING CONTRACT!":M(3)<10 M(9 )>4(*3)=0SU=SU-10 :"300" F=12:1:Y(1+RI)>0M(4+RI)=M(4+RI)-(*6):M(5+RI)=M(5+RI)-(*8):M(1+RI)=M(1+RI)-(*3):M(2+RI)=M(2+RI)-(*3) EM(7+RI)=0:M(1+RI)<0M(1+RI)=0 .M(2+RI)<0M(2+RI)=0 .M(5+RI)<0M(5+RI)=0 .M(4+RI)<0M(4+RI)=0  TM(7+RI)=1:Y(M(22+F))=240:F:M(9 )<11 "9500"  "51" PZ=F 1160:1:PX=20:PY=0:1140t:1350F:Y(PZ)=-1M(1+RI)=M(1+RI)-(*20):M(2+RI)=M(2+RI)-(*20):M(4+RI)=M(4+RI)-(*20) (M=13:K=64332L:M: E1160:1149} F$Y(PZ)=-1"CRASHED OUT ": G$Y(PZ)=-2"OUT OF FUEL ": H$Y(PZ)=-3"ENGINE FAULT": I$Y(PZ)=-4"HIT BARRIER ": J"Y(PZ)=-5"LOST CONTROL" K xY(21+PZ)=PS+1 yY1160:20,0;"FUE TYR OVR MNVR":1451:201 }=9510&%:K$"M"K$"F"K$"O"K$"T"K$GDS1405} ~K9506"%:1160:202:K$=GDSPS=Y(21+PZ):1125e K$="F"1415 K$="O"1420 K$="T"1455 yK$="M"1450:1450:64326F+F,(64326F+F)+1:(64326F+F)>164326F+F,0 1151:1401y K$="F"20,0;:225:1450:M(6+RI)<12 M(8)>03240 :M(6+RI)=M(6+RI)+1:1151:="F"1415  1401y _20,0;"MECHANICS AT WORK":N=0̺(*(34"-M(11 ))):1450:N uN=0M(11 )/4:M(5+RI)<100d1450:M(5+RI)=M(5+RI)+1:1150~ N:1401y 'Y(21+PZ)=Y(21+PZ)+1 O21,0;"TIME TAKEN k";:1:1171:.001wn,40(: p"3 FRNT TYREk";W$(M(17+(F*2))*4+13 M(17+(F*2))*4+16): p"4 BACK TYREk";W$(M(18+(F*2))*4+13 M(18+(F*2))*4+16): ,20,0;:1452:1453 *9510&%:9506"%:K$=GDS"1401" Y(21+PZ)=Y(21+PZ)+2:K=(K$-34")+(F*2):K>16+F*2K<19+F*2.1}L,-10 :M(K)=M(K)+1:M(K)>2M(K)=0  1455 iF=110 :Y(21+F)=0:F>((M(3)+SU)/10 )+3Y(21+F)=1 F: i''" WILL BACK YOUR TEAM FOR $";CASH:''7;"SIGN CONTRACT Y/N":9510&%:9505!%: $''9 ;"GIVE YOU $";CASH: !PZ=TT:11 ;:1146z: !PZ=TT:11 ;:1144x: C:"1470":64324D>0Y(21+64324D)=1 LPS=0:F=110 :Y(21+F)=0TT=F:PS=PS+1 &F:PS=1203:1502 ͎203:8;"JOB APPLICATIONk":F=110 :Y(21+F)=0PZ=F:''9 ;" ";(64@+F);" ";:1145y ҀF:9510&%:9505!%:TT=K$-64@:TT>0TT<11 Y(21+TT)=0Y(21+TT)=1:1500  1485 ,1478:1475:K$="N"1482 K$"Y"1500 1478:1476 x2300:F=120:N=(64406+F*12 ):N>75K64406+F*12 ,(*20)+75K ;N<60<64406+F*12 ,(*40()+45- F:"9500":M=CASH , "1470" .OPS=0:F=110 :Y(21+F)=0S(TT)=F:PS=PS+1 /&F:PS=1203:1602B 1203:8;"$ SPONSORSHIPk $"'':F=110 :Y(21+F)=0PZ=F:'9 ;" ";(64@+F);" ";7-PZ/2;C$(PZ*10 -9 PZ*10 ) 6F:9510&%:9505!%:S(TT)=K$-64@:S(TT)>0S(TT)<11 Y(21+S(TT))=0Y(21+S(TT))=1:1600@ ; 15851 @,1477:1475:K$="N"1582. AK$"Y"1600@ B$1477:1476:9500% CCASH=CASH+M:M=1:M(23)=0:F=120:Y(21+F)=(*300,)+(64406+F*12 )*20:F E8;"CHOOSE RIDER k ";M'7;"HRIDER P/YEAR":F=120:M(23)F7;"";(64@+F);" ";A$(F*10 -9 F*10 );" $";Y(21+F) FF JJ9510&%:9505!%:F=K$-64@:F>0F<211615O K 1605E O%M=2F=M(23)1605E PMF>0F<21M(M+22)=F:CASH=CASH-Y(21+F):M=M+1 TM<"3""1605" Y" GOOD LUCK IN SEASON ";M(10 ):F=120:T(F)=0:F:T(M(23))=TT:T(M(24))=TT:F=110 :N=12:TT=F1630^ Z;Y=(*20)+1:T(Y)=0T(Y)=F:1630^ [ 1626Z ^rN:2:F:64146,TT:M=S(TT):F=110 :S(F)=0:F:F=110 :F=M1640h _AY=(*10 )+1:S(Y)=0YTTS(Y)=F:1640h c 1631_ h[2:F:231:S(TT)=M:Y(M(23))=240:Y(M(24))=240:"51" Ѓ:7;"";M(10 );" CHAMPIONSHIPk":200:13 ;"RIDERS"''13 ;"TEAMS"''13 ;"HISTORY" ,9510&%:9505!%:K$=GDS100d K$="R"2015 K$="T"2020 K$="H"62008  2000 ߠX=6:320@:PY=9 :"  ";M(10 );" CHAMPIONSHIP TABLE "'"SKLPNRIDER TEAPTS" N=120:PX=X(N)+1:PZ=N:1140t:PX,PY-6;"";(64406+N*12 );"%";PX,PY-2;X(N);PX,PY+18;(63871+N*12 ):N 9500%: X=6:320@:"  ";M(10 );" CONSTRUCTORS TABLE "'"P SPONSOR TEAM PNTS" N=110 :PZ=N:"";X(N+20)*2+1,2;X(N+20);X(N+20)*2+1,5;:1146z:1144x:X(N+20)*2+1,27;"";(63851k+N)+(63861u+N):N *9500%: 4:F=M(9 ):M(9 )=-1:" ";M(10 );" GP SEASON WINNERSk";M(10 );" GRAND PRIX LOCATION F@FN@T" 9YM(9 )=M(9 )+1:M(9 )>10 M(9 )=F:9500%:100d >T4:M(9 )=F5:'28;1;6;M(10 )-1'' @L2200+M(9 ):V$(124);"$";PR;28;:7 CuY=0:M(9 )25563861u+T(F),255:U=U-255 63851k+T(F),U:F wF=120:X(F)=0:F:F=120:N=120:X(N)=0X(N)=F:Z(F)=N:3018 N ʆN=120:NZ(F)X(N)=0(63871+N*12 )>(63871+Z(F)*12 )X(Z(F))=0:Z(F)=N:X(Z(F))=F N:2:F: ̒F=110 :X(F+20)=0:F:F=110 :N=110 :X(N+20)=0X(N+20)=F:Z(F)=N:3025 N ѸN=110 :NZ(F)X(N+20)=0((63851k+N)+(63861u+N))>((63851k+Z(F))+(63861u+Z(F)))X(Z(F)+20)=0:Z(F)=N:X(Z(F)+20)=F N:2:F: "2120" ֱ10 ,7;"[[[SELECT BIKE[[[":PY=9 :F=12:PX=F*2+10 :PZ=M(22+F):PX,PY-2;4;F;" ";:1140t:F:200 79510&%:9506"%:K$="1"F=1:3040 K$="2"F=2:3040 K$=GDS100d 3031 P:200:PX=2:PY=7:1:PZ=M(22+F):1140t:MN _0,12 ;"WORKSHOP"'''''7;"WORKING HOURS LEFTk";M(14);" " 7,7;"1 CONDITION k";M(5+RI);"%"''7;"2 ";:252:'7;"3 ";:254:'7;"4 ";:251 ,9510&%:9506"%:K$=GDS:"3030" K$="1"M(14)>0M(5+RI)<100dM(5+RI)=M(5+RI)+1:M(14)=M(14)-1:3050 "K$"2"K$"3"K$"4"3060 YY=F::200:3595 ::K$="2"M=502:L=2:X=2500 :3510 8K$="3"M=15:L=4:X=900:3510 9K$="4"M=25:L=1:X=1200:3510 79 ,8;:1452:'8;:1453 `7,8;"2 FARE @FEEk";:M(7+RI)0"$";M(7+RI):3209 "PAID" w13 ,8;"5 FUELk$25  P/12G"'10 ;:225:10 ;"ADVISED MINk";LEF;"G" S3595 :5,8;"1 ";:227:14,10 ;:225 *9510&%:9506"%:K$=GDS"3029" uM(7+RI)0K$="2"CASH>M(7+RI)-1CASH=CASH-M(7+RI):M(7+RI)=0:3207 oK$="1"M(8)>0M(6+RI)<12 3240 :M(6+RI)=M(6+RI)+1:3210 uK$="5"M(8)<244CASH-25>-1CASH=CASH-25:M(8)=M(8)+12 :3210 +K$>"2"K$<"5"K=K$-513:3225 3215 M(17+(F*2)+K)=M(17+(F*2)+K)+1:M(17+(F*2)+K)>2M(17+(F*2)+K)=0 3205 !M(8)=M(8)-1: 3595 :'9 ;:1:5:250+L:7:0:''9 ;:M(L+RI)<100d"IMPROVE k$";M:3512 255 E'9 ;:M(L+RI)<91["PURCHASE k$";X:3515 255 w9510&%:3592:F=25CASH>M-1M(L+RI)<100d9506"%:M(L+RI)=M(L+RI)+1:CASH=CASH-M eF=32 M(L+RI)<91[CASH>X-19506"%:CASH=CASH-X:M(L+RI)=90Z+(*10 ) 3510 :F=K$-480:F=-35#9505!%:F=Y:3040    /0,9 ;"BALANCEk$";CASH;" ": tPS=0::7;"[[[[PRACTISEk[[[[":1010:1020:PT<1"1","10";"kNO TIME LEFT":"3715" uWPY=8:F=12:1:PZ=M(22+F):Y(PZ)=5003711 xPX=F*10 -6:1140t:220:Y(21+PZ)Ǿ(64216+M(9 ))Y(21+PZ)=(64216+M(9 ))+(*5)+1 z{'''15;TT/2+1;"";7-S(TT)/2;"q"'15;"rs"''9 ;"LAP TIME k";:1170 ~,Y(21+PZ)0F<10 5010  5005 N=14:(64180+N)=0M=14:(64180+M)F+1M:CASH-((F+1)*235)>-1CASH=CASH-((F+1)*235):0,0;:3595 :64180+N,F+1:4900$ N:5005  :3595 :9 ;"2% LOANk$";LOAN''9 ;"BANK ACCOUNT"'''13 ;"LOAN"''13 ;"REPAY":200  x9510&%:9505!%:K$="L"LOAN<5000X=5000-LOAN:12 ;"$ LOAN $":5996l:6000p <K$="R"12 ;"$ REPAY$":5996l:6010z K$=GDS100d f 5900  k?10 ,13 ;"k$";X;" ":9510&%:9506"%: lQ''14;"MORE"''14;"LESS"''14;"OKAY":200: p55995k:K$="M"X<5000-LOANX=X+100d q$K$="L"X>100dX=X-100d r.K$="O"LOAN=LOAN+X:CASH=CASH+X:5900  sK$=GDS5900  u 6000p z1X=((CASH/100d))*100d:X>LOANX=LOAN {X5995k:K$="M"CASH-(X+100d)>-1X+100d100dX=X-100d ~.K$="O"LOAN=LOAN-X:CASH=CASH-X:5900  K$=GDS5900   6011{ qF="2"̰"10":"64225"+"F",("64226"+"F"):"64235"+"F",("64236"+"F"):"64245"+"F",("64246"+"F"):F T"3000":"64236","Z(1)":"64246","T(Z(1))":"3020":"64256","Z(1)":"9500" "7";"END OF SEASONk";M(10 ):PX="8":PY="8":PZ="64236":PX-"3","15";"<="'"15";">?":"1140":'"9";"WORLD CHAMPION"''"15";"<="'"15";">?"''"6";:PZ="64256":"1146":"1144":''"6";"CONSTRUCTORS CHAMPION" P"9500":"2015":"2020":M(11 )="0":F="64181"̰"64184":"F","0":F "11";"NEW SEASON"'''"RIDERS@MECHANICSkOUT OF CONTRACT":TTɰ"0"Y="M(3)*25":'"11";"BONUSk$";"Y":CASH="CASH"+"Y" _M(7)=1:M(18)=1:"310":N$="":S$="":"64146"="0""9500":"50" +64256=TT64256,TT+200 +64246=TT64246,TT+200 eF=12:1:N=15:Y=(*25):M(N+RI)>502M(N+RI)=M(N+RI)-Y ?N:X(M(22+F))<6SU=SU+(6-X(M(22+F))) [Y=0:X(M(22+F))>10 Y=10 -X(M(22+F)):Y<-5Y=-5 FSU=SU-Y:F:SU=SU+(5-X(20+TT)):SU>502SU=502 SU<0SU=0 M="CASH":"1550" 8xX=6:320@:" TEN YEAR CHAMPIONSHIPS HISTORY YEAR N CHAMPION WINNING TEAM" 9F=110 :F*2,0;"";M(10 )-(11 -F);"";F*2,6;:(64226+F)<10 ""; =e"";(64226+F);" ";A$(((64226+F))*10 -9 ((64226+F))*10 ) B8Y=(64236+F):Y>10 Y=Y-200:1 GF*2+1,8;Y/2+1;T$(Y*10 -9 Y*10 ):0:Y=(64246+F):Y>10 Y=Y-200:1 hF*2,22;Y/2+1;T$(Y*10 -9 Y*10 ):0:F:"9500":"2000" XU"64141","SU":F=12:"1":"Y(M(22+F))">"255"Y("M(22+F)")="240" YD64324D+F,Y(M(22+F)):"M(7+RI)"ɰ"0"M("7+RI")="255" ZF::14;"SAVE":"64138","(M(10)/256)":"64137","M(10)-(M(10)/256)*256":"64140","(LOAN/256)":"64139","LOAN-((LOAN/256)*256)":"64148","(CASH/256)":"64147","CASH-((CASH/256)*256)" ]'" INSERT TAPE TO RECORD ONTO":F="1"̰"20":"64527+F*12","X(F)":"63870+F*12","T(F)":F:F="1"̰"9":"7015":F:F="11"̰"24":"7015":F:F="1"̰"10":"64646+F*12","X(F+20)":"64170+F","S(F)":F br"206":K$="M(10)":°"13"+"t"+"TT"+"s"+K$(34)+"e"+("M(9)+1")"63852","916":"205":"100" g"64111+F","M(F)": *:14;"LOAD":"206":"":"10" %5201:.007ye`A,22:.005y# =,34" %K$= %GDS9501% %!7.007ye`A,10 :.005y# =,22:0:: %",.007ye`A,10 :.005y# =,22: %&K$= %'K$=""9510&% %( %SC>-1.001wn,S$(18)/3:#0;5;"NEWSk";S$(116);0,0:S$(1)=S$(2)+S$(1):SC=SC+1:SC>S$SC=-1 %K$= %K$=""9600% % & Graham D.Shaw 1990 &23659k\,2:10 '"65535"-"7962" W