ZXTape! 0Created with Ramsoft MakeTZXSpeedway  u"Speedway"10 4:0:4: }7:"":I=119:"";I,31;"":I:"" 4:4,5;1;6;0;" ";5,5;" PREMIER PROMOTER ";6,5;" " (10 ,5;1;" THE GAME OF ";11 ,5;" SPEEDWAY MANAGEMENT ";12 ,5;" FROM ";1;"SPORTSOFT";0;" " <\16,5;1;"Graham Mitchell 1987";19,0;0;7;"" F4:"A" UA w'^Hw B(14):B(6)=-1:B(7)=-1:B(13 )=-1:B(14)=-1:9000(#::1;7;1;" ";P$(K(1));" 1 2 3 4 5 6 [ ] ":I=17:I,0;I;".";V$(A(I,1));" ";W$(A(I,2));28;0:I 8,0;1;7;1;" ";P$(K(2));" 1 2 3 4 5 6 [ ] ":I=814:I+1,0;I-7;".";V$(A(I,1));" ";W$(A(I,2));28;0:I:5;"" 9H=113 :D$(32 ):E(14):H$=J$(H) (17,0;5;N$:19,1;4;"HEAT";20,2;" "H<10 ;H:I=14:F(I)=H$(I)+7*(I>2):17+I,6;H$(I);".";V$(A(F(I),1));" ";W$(A(F(I),2));" ";I$(I);N$(11 ):I 2nI=41-1:HH=F(I):Y=0:I1=F(1)*(I=2)+F(2)*(I=1)+F(3)*(I=4)+F(4)*(I=3):I2=H$(1)*(I=2)+H$(2)*(I=1)+(H$(3)+7)*(I=4)+(H$(4)+7)*(I=3):A(I2,3)<0N(F(I))=1I2=CP+L$(I2-CP,(A(I2,3)+(I=1)+(I=3))) 714000+500*N(F(I)):HH=F(I)60< :B(F(I))=B(F(I))-(F(I)=6)-(F(I)=7)-(F(I)=13 )-(F(I)=14):C(F(I))=C(F(I))+1-(A(F(I),3)<1):D(HH)=D(HH)+Y:B(HH)=B(HH)+1-Y:C(HH)=C(HH)-1:F(I)=HH <I AZI=14:F(I)ɰH$(I)+7*(I>2).1}L,20:.1}L,20 Da17+I,6;F(I)-7*(I>2);".";V$(A(F(I),1));" ";W$(A(F(I),2)):I F%9080x#:<.02{# =5000 d$G(4):H(4):I(4) nII=14:Z=F(I):A(Z,3)0E(Z)=1120x svA(Z,4)=A(Z,4)+1:G(I)=A(Z,3)+*5:I1=(*A(Z,3)*2):I1=03000 xI 6I=14:J=14:I=J170 G(I)>G(J)H(I)=H(I)+1 ,J:A(F(I),5)=A(F(I),5)+H(I):I ?I(1)=(H(1)=H(2)-1)H(1)0 ?I(2)=(H(2)=H(1)-1)H(2)0 ?I(3)=(H(3)=H(4)-1)H(3)0 ?I(4)=(H(4)=H(3)-1)H(4)0 <I=14:A(F(I),6)=A(F(I),6)+I(I):I ZJ(1)=J(1)+H(1)+H(2):J(2)=J(2)+H(3)+H(4) iI=14:G(I)=G(I)+H(I):H(I)=3Z=(74J-K(1)-G(I)/3):Y=G(I)+2 I 0I=14:G(I)0D$(Y-G(I))=I I *I=132 :D$(I)=" "222 aY=D$(I):.1}L,H(Y)*3+T:17,I-1;1;M(Y,1);M(Y,2);"" 3I:17,28;5;Z;".";(*9 ) ,I=14:Z=F(I):G(I)017+I,23;H(I);Z+(Z>7),12 +2*A(Z,4);H(I);""I(I)=0;""I(I)=1;Z+(Z>7),27+(A(Z,5)0"+";A(Z,6) -I 1h18,26;H(1)+H(2);" ";" "J(1)<10 ;J(1);19,26;" ";20,26;H(3)+H(4);" ";" "J(2)<10 ;J(2);21,26;" ":0,27;1;1;1;7;" "J(1)<10 ;J(1);8,27;" "J(2)<10 ;J(2) 6.2~L,12 :0 7""3117 ;917,0;5;N$:I=14:N$:I @H J9LR=20:I=114:333M+7*N(I) M,L(I+CP-7,2)=0340T OZ=L(I+CP-7,1):T(Z,1)=T(Z,1)+1:T(Z,2)=T(Z,2)+A(I,4):T(Z,3)=T(Z,3)+A(I,5):T(Z,4)=T(Z,4)+A(I,6):A(I,3)=0T(Z,5)=(*T) TI:Y=0 ^pY=Y+1:Z=0:I=1T:Z=Z+(T(I,5)>0):I:Z>3T(Y,5)=0:350^ c 7100 T2=(*T)+1:G(I)=0:.5,5:.5,0:17+I,23;G$(T2):Z+(Z>7),12 +2*A(Z,4);G$(T2);"": YT2=11,-5:Z+(Z>7),1;1;"I":A(Z,3)=0  1H=2C(HH)>1A(HH,3)>0 3J(CQ)-J(3-CQ)<6H<54030 `.2~L,12 :17+I,22;1;6;"TACTICAL ?":Z$:Z$=""4030 'Z$<491ůZ$>5574010 `Z=Z$-41)-CP:D(Z)=1A(Z,3)<1Z=I1Z=I2Z=F(I)E(Z)=14010 9040P#:HH=Z:Y=1: W.2~L,12 :17+I,22;1;"RESERVE ?":Z$:Z$=""4048 'Z$546ƯZ$5574030 `Z=Z$-41)-CP:E(Z)=1B(Z)=1A(Z,3)<1Z=I1Z=I2Z=F(I)4030 9040P#:HH=Z: %A(HH,3)09040P#: `.2~L,12 :17+I,22;5;1;"RID/REPL ?":Z$:Z$=""4050 'Z$<491ůZ$>5574050 KZ=Z$-41)-CP:E(Z)=1B(Z)=1Z=I1Z=I2Z=F(I)4050 9040P#:HH=Z: A(HH,3)<0HH=CP+L$(HH-CP,A(HH,3)):A(F(I),3)=A(F(I),3)-1:H<4A(HH,3)>0F(I)=HH: #A(HH,3)=04515 C(HH)>1H<5(H<6+CQƥ<.8L)(H>7+CQH<12 C(HH)=1)J(CQ)-J(3-CQ)>6((A(I1,3)=0A(I2,3)=0)J(3-CQ)-J(CQ)<6) 3J(3-CQ)-J(CQ)<6H<54550 J=17:Z=O$(J):D(Z+CP)=0E(Z)=0(A(Z+CP,3)>A(HH,3)E(F(I))=1)Z+CPI1Z+CPI2Y=1:HH=Z+CP:4550 J KE(HR)=1HR=I1HR=I2B(HR)=1A(HR,3)=04560 KA(HR,3)>A(HH,3)E(F(I))=1HH=HR:Y=0:4570 KE(LR)=1LR=I1LR=I2B(LR)=1A(LR,3)=04570 ?A(LR,3)>A(HH,3)E(F(I))=1HH=LR:Y=0  SI=(*4)+1:HH=F(I):E(F(I))=1A(HH,3)0100d E(F(I))=1:Y=0:.5,5:.5,0:17+I,23;"":A(F(I),4)=A(F(I),4)+1:F(I)+(F(I)>7),12 +2*A(F(I),4);"" lI1=F(1)*(I=2)+F(2)*(I=1)+F(3)*(I=4)+F(4)*(I=3):I2=0 *9080x#:4005+510*N(F(I)) HH=F(I)65A gC(F(I))=C(F(I))+1:D(HH)=D(HH)+Y:B(HH)=B(HH)+1-Y:C(HH)=C(HH)-1:F(I)=HH:65A p:H=0:HH=0:J(2):A(14,6):C(14):D(14):C(6)=1:C(7)=1:C(13 )=1:C(14)=1:CP=7*(K(1)=T):CO=K(1+(CP=7)):CQ=1+(CP=7) u:7;1;" OPPONENTS GREEN SHEET AVERAGES ":9000(#:3,6;4;" ";P$(CO);" ":I=CO:9074r# zXN(14):I=114:N(I)=(I<8CP=0)+(I>7CP=7):I :;" ";1;1;" ";P$(K(1));" ";0;" ";1;" ";P$(K(2));" ":I=17:I,1;I;".";17;I;".":I 9 ,0;4;" RIDER MT RD PTS BP CMA ":I=110 :T(I,5)=T(I,5)-(T(I,5)>0):9 +I,0;7*(T(I,5)>0);7-5*(T(I,5)>0);(64@+I);".";V$(P(I,1));" ";W$(P(I,2));0;7;" ";" "T(I,1)0Z=(400*(T(I,3)+T(I,4))/T(I,2)):90102#:Z$ I YY=8:O$="1354267":<.4LO$(3)="315":<.4LO$(3)="153" &<.4LO$(45)="24" <.4LO$(6)="76" b<.5Y=(*7)+1:Y=3ƥ<.8LO$="1325467":<.1}LO$="1342567" <I1=0:I2=0:I=18:Y=I6900 I1=I1+1:Z=O$(I1):A(Z+CP,1)=R(CO,I,1):A(Z+CP,2)=R(CO,I,2):A(Z+CP,3)=R(CO,I,4)-(CP=7)*R(CO,I,5)+(*3)+4 NZ,3+16*(CP=7);V$(A(Z+CP,1));" ";W$(A(Z+CP,2)) I tI=16:J=I+17:A(O$(I)+CP,3)A(6+CP,3)):LR=6+CP+(A(7+CP,3)A(6+CP,3)):I=13:C(O$(I)+CP)=2:I 8@B(10 ):L(7,2):I1=0:I=17 =l.2~L,12 :21,0;N$:21,0;1;" ADD RIDER NO.";I;" " B,Z$:Z$<65AůZ$>74J6205= GmZ=Z$-64@:B(Z)>0(Z>3T(Z,5)>0)(I1=1T(Z,5)>0)6205= L"T(Z,5)>06800 VL(I,1)=Z:L(I,2)=1:B(Z)=1:A(I+7-CP,1)=P(Z,1):A(I+7-CP,2)=P(Z,2):A(I+7-CP,3)=P(Z,4)-(CP=0)*P(Z,5)+(*3)+4 `I,3+16*(CP=0);V$(A(I+7-CP,1));" ";W$(A(I+7-CP,2)):T(Z,5)=09 +Z,0;6;1;N$(13 ) jI tCI=67:Y=L(I,1):J=15:Z=L(J,1):P(Y,6)>P(Z,6)K=17:K,1+16*(CP=0);K;".";N$(11 ):K:K=110 :9 +K,0;7*(T(K,5)>0);7-5*(T(K,5)>0);1;N$(13 ):K:62008 yJ:I:9050Z#:10 %B(Z)=1:H>06830 |.2~L,12 :21,0;1;" GUEST OR RIDER/REPLACEMENT ":Z$:Z$"G"Z$"R"6800 Z$="R"L(I,1)=Z:I1=1:A(I+7-CP,1)=61=:A(I+7-CP,2)=151:A(I+7-CP,3)=-1:6240` 4X=(*9 )+1:H=X:X=COX=HH6820 <J=18:R(X,J,6)>P(Z,6)69600 L(I,1)=Z:I1=1:A(I+7-CP,1)=R(X,J,1):A(I+7-CP,2)=R(X,J,2):A(I+7-CP,3)=R(X,J,4)-R(X,J,5)+(*3)+4 ;I,1+16*(CP=0);1;"G":6240` J:6205= I>36130 .I=1(I=2CP=7)6920 ^T(1,5)>0T(2,5)>0T(3,5)>06920 I1=I1+1:Z=O$(I1):A(Z+CP,1)=61=:A(Z+CP,2)=151:A(Z+CP,3)=-1:Y=8:6120 *X=(*9 )+1:X=CO6920 EHH=X:J=18:R(X,J,6)>R(CO,I,6)69600 I1=I1+1:Z=O$(I1):A(Z+CP,1)=R(X,J,1):A(Z+CP,2)=R(X,J,2):A(Z+CP,3)=R(X,J,4)-R(X,J,5)+(*3)+4:Y=8 +;Z,1+16*(CP=7);1;"G":6120 0J:6130 X4:Q(10 ,7):T(10 ,5):IN=0:I=1100d:Z=2*(*87W)+3:M$=M$(ZZ+1)+M$(Z-1)+M$(Z+2):I b:LR=0:M=190Z:Z=2*M-1:K(1)=M$(Z):K(2)=M$(Z+1):LR=20M=30M=60<((K(1)=TK(2)=T)M1)9050Z# g#M=31M=61=7800x l<4:K(1)=TK(2)=T7600:6000p vy(0,0)23LR=209000(#::LR=0:7;2;"**** RESULTS ****** RESULTS ****" LR=LR+2:J(2):I=12:J=17:J(I)=J(I)+R(K(I),J,4)-(I=2)*R(K(I),J,5):J:J(I)=J(I)+(*20):I:Z=((J(1)-J(2))/2):J(1)=39'+Z:J(1)>65AJ(1)=60<+(*6) 7J(1)<13 J(1)=13 +(*6) DJ(2)=78N-J(1)-(<.05|L)-2*(<.02{# =) ~.1}L,20:.1}L,20:LR,1;5;P$(K(1));" ";J(1);" ";J(2);" ";P$(K(2)) kI=12:Y=K(I):Q(Y,1)=Q(Y,1)+1:Q(Y,5)=Q(Y,5)+J(I)-J(3-I) ƈJ(I)>J(3-I)Q(Y,2)=Q(Y,2)+1:Q(Y,6)=Q(Y,6)+2:Q(Y,7)=Q(Y,7)+2*(I=2) ȌJ(I)=J(3-I)Q(Y,3)=Q(Y,3)+1:Q(Y,6)=Q(Y,6)+1:Q(Y,7)=Q(Y,7)-(I=1)+(I=2) eJ(I)0B(I)=(400*(T(I,3)+T(I,4))/T(I,2)) I:I=19 :J=I+1T:B(I)0Z=(400*(T(I,3)+T(I,4))/T(I,2)):90102#:Z$  I:9050Z#:8400 ^9000(#::1;7;1;" TEAM PL W D L DIF PT FG ":Z$="123456789T" J=19 :K=J+110 :X=Z$(J):Y=Z$(K):Q(X,6)0;Q(Z,7):I .2~L,12 :21,0;1;" ENTER 'S' TO SAVE GAME ":Z$:Z$="S"23635S\,23627K\:23636T\,23628L\:"DATA":23635S\,203:23636T\,92\ 9050Z#: x<I=1T:T(I,2)=0Z=200:7805} ziT(I,1)>3Z=(400*(T(I,3)+T(I,4))/T(I,2)):Z<200Z=200 {&T(I,1)3Z=P(I,6) }!P(I,6)=Z:I:M>90Z A9060d#:I=19 :Q(I,1)<47830 {J=18:Z=B(R(I,J,4)-R(I,J,5)/2):R(I,J,6)=200*(Z200)+Z*(Z>200):J 9070n#:I: @W0:7:2:21,0;1;" ENTER 'L'LOAD SAVED GAME " EM.2~L,12 :Z$:Z$="L":"DATA":7020l+105i*(M>90Z) J:7;1;" SPEEDWAY PREMIER LEAGUE ":I=110 :2*I,9 ;(I+64@);"..";P$(I):I:.2~L,12 :21,0;1;"ENTER LETTER TO CHANGE TEAM NAME":Z$:Z$=""8020T L'Z$<65AůZ$>74J8010J OZ=Z$-64@:2*Z,9 ;1;1;N$(13 ):.2~L,12 :21,0;1;" ENTER NEW TEAM NAME ":Y$:Y$>10 8015O QP$(Z)=Y$:8010J T21,0;N$:.2~L,12 :21,0;1;"ENTER LETTER OF TEAM TO PROMOTE ":Z$:Z$<65AůZ$>74J8020T YNZ=Z$-64@:Z$=P$(Z):Z200):J:I ra20,9 ;1;1;N$(13 ):J=17:P(J,1)=(*60<)+1:P(J,2)=(*150)+1:P(J,3)=(*20)+18:P(J,7)=(*T):P(J,4)=P(J,7):P(J,5)=(*4):Z=B(P(J,4)-P(J,5)/2):P(J,6)=200*(Z200)+Z*(Z>200):J wY=810 :J=24-2*Y:9030F#:Z=P(Y,4)-P(Y,5)/2:Z=B(Z):P(Y,6)=200*(Z200)+Z*(Z>200):Y:8450! J:2:21,0;6;" ASSIGNING RIDERS - PLEASE WAIT " >I=110 :P(I,3)=P(I,3)+1:P(I,4)=P(I,4)+(P(I,4)27P(I,4)32 P(I,4)>0):P(I,5)=P(I,5)-(*5200):R(I,J,3)=R(I,J,3)+1:R(I,J,4)=R(I,J,4)+(R(I,J,4)27R(I,J,4)32 R(I,J,4)>0):R(I,J,5)=R(I,J,5)-(*59 P(X,4)=9 !,P(X,4)<0P(X,4)=0 ! I:I=115:X=(*9 )+1:Y=(*8)+1:Z=(*7)-2:R(X,Y,4)=R(X,Y,4)+Z:R(X,Y,4)>9 R(X,Y,4)=9 ! 0R(X,Y,4)<0R(X,Y,4)=0 !4oI:5:9000(#:I1=0:A(15,8)::7;0;" ";P$(10 );" SQUAD SELECTION ":2,1;4;" RIDERS AGE GSA ACTION ":I=110 :J=17:A(I,J)=P(I,J):J:Z=A(I,6):90102#:2+I,0;(64@+I);".";V$(A(I,1));" ";W$(A(I,2));" ";A(I,3);" ";Z$:I !>I=110 :(*20045-A(I,8)=2:2+I,0;1;(64@+I);2+I,23;"RETIRED":8515C! !@<.15~A(I,8)=2:2+I,0;7;2;(64@+I);2+I,23;"TRANSFER":X=(*9 )+1:Y=(*8)+1:A(I,6)>R(X,Y,6)J=17:R(X,Y,J)=A(I,J):J !C7I:13 ,1;5;"AVAILABLE ON TRANSFER" !HI=11 14:X=(*9 )+1:Y=I-8:J=17:A(I,J)=R(X,Y,J):J:9020<#:Z=A(I,6):90102#:3+I,0;(64@+I);".";V$(A(I,1));" ";W$(A(I,2));" ";A(I,3);" ";Z$:I !Mm18,1;6;" FROM JUNIOR TEAM ":"O.Xxxx Xxxxxx ?? 2.00":A(15,6)=200 !PmJ=115:A(J,8)=1A(J,8)=0:2+J+(J>10 ),23;" " !Q#J:18,23;" " !RHH=0:I1=0:19,24;1;4;" TEAM ";20,24;"AVERAGE";21,24;" ";7;" 0.00";4;" ":I=1T !T.2~L,12 :21,0;N$(23):21,0;1;" ADD RIDER TO SQUAD ":Z$:Z$<65AůZ$>79O8532 T! !W2Y=Z$-64@:A(Y,8)>08532T! !aI<88550f! !d:J=17:A(Y,6)>P(J,6)8532T! !eJ !f:I<8HH=HH+A(Y,6):HH>45008528P! !h2Z=HH:90102#:21,25;1;Z$ !kY<15A(Y,8)=1:J=17:P(I,J)=A(Y,J):J:2+Y+(Y>T)+(Y=15),23;1;6;"SELECTED":8560p! !mAY=I:I1=I1+1:J=12 -2*I1:J<2J=3 !oM9030F#:18,23;1;6;I1;" RIDER";"S"I1>1 !pI:9060d# !zI=115:X=(*9 )+1:Y=(*8)+1:A(I,7)=0A(I,6)>R(X,Y,6)J=17:R(X,Y,J)=A(I,J):J !sI:X=19 :Y=18:(R(X,Y,3)>33!ƥ<.2~L)R(X,Y,3)>45-9020<# !<.1}LZ=(*9 )+1:I1=(*8)+1:A(7):J=17:A(J)=R(X,Y,J):R(X,Y,J)=R(Z,I1,J):R(Z,I1,J)=A(J):J !Y:X:I=19 " J=17:K=J8 " rR(I,J,6)K:J:HH=0:J=17:HH=HH+R(I,J,6):J "DHH>4500X=I:Y=(*7)+1:9020<#:8710" "9070n#:I:7000X #($J=15:.1}L,J:J: #2 Z$=Z:Z$=2Z$=" 0"+Z$ #3Z$=3Z$=" "+Z$ #4$Z$=Z$(2)+"."+Z$(3): #<R(X,Y,1)=(*60<)+1:R(X,Y,2)=(*150)+1:R(X,Y,3)=(*9 )+16+(<.3)*(*7):R(X,Y,7)=(*T):R(X,Y,4)=(*R(X,Y,7)):R(X,Y,5)=(*4):R(X,Y,6)=200: #FP(Y,1)=(*60<)+1:P(Y,2)=(*150)+1:P(Y,3)=(*9 )+16+(<.3)*(*7):P(Y,7)=(*J):P(Y,4)=(*P(Y,7)):P(Y,5)=(*4):P(Y,6)=200: #P&17+I,22;N$(10 ): #Zz.2~L,12 :21,0;1;" PRESS ANY KEY TO CONTINUE ":0:="C"21,0;N$: #[""9051[# #\21,0;N$: #dv:7;1;" NEW GREEN SHEET AVERAGES ":9000(#:3,6;4;" ";P$(10 );" " #e"J=19 :K=J+1T #fP(J,6)>BB<DHpHDB@@@@@~BfZBBBBbRJFB