ZXTape! 0Created with Ramsoft MakeTZXOLYMPICS :e U< MATTHEW BRADSHAW 1984 PREPARED FOR  CRL LTD  2:7: 5:9500%:EV=1:CHECK=1:9000(# 1MIN=0:5500|:8000@:7800x 2:4:0: 8,10 ;E$(EV) U30,8:195,0:30,30,1.5@:0,105i 2-30,30,1.5@:-195,0 (Q-30,-30,1.5@:0,-105i:30,-30,1.5@ 2C502,502:155,0:10 ,10 ,1.5@ <00,65A:-10 ,10 ,1.5@ Fd-155,0:-10 ,-10 ,1.5@:0,-65A:10 ,-10 ,1.5@ P%200,8:0,42* Z$15,0;1;"_ _ _" _$20,0;1;"_ _ _" `-#0;" PRESS 'SPACE' TO ACCELERATE " a nS=1̥*200:S x.5,0: , 6"PRESS 'ENTER' (C=COPY) ";W$ @W$="c"W$="C" EWW$="MJB10668"Z=23613=\+256*23614>\:Z,3:Z+1,19: J ^ cJ10 ,0;"PLEASE ENTER OTHER COUNTRY OR CLUB NAMES." eN$=" COUNTRY (OR CLUB)" h"1ST";(N$);A$(10 ) r"2ND";(N$);B$(10 ) |"3RD";(N$);C$(10 ) "4TH";(N$);D$(10 )  *N$="PLEASE ENTER A 3 LETTER VERSION OF " '(N$);(A$(10 ));" ";A$(11 ) '(N$);(B$(10 ));" ";B$(11 ) '(N$);(C$(10 ));" ";C$(11 ) '(N$);(D$(10 ));" ";D$(11 ) OWN=1: A6,0;1;1;2;6;"NO JUMP!" -.5,-3:W1=0:P$="00.00": B5,0;6;2;1;1;"NO THROW!" ;W1=0:FOUL=1:P$="00.00":.5,-3: pAC=3::10 :A=0:B=0:C=0:D=0:BEEP=0:R$=" ":U$=" ":Z$=" "  10 16,A;1;R$ 17,B;0;R$ 18,C;6;R$ 19,D;7;R$ BEEP=0100d  6 16,A;1;U$ 17,B;0;U$ 18,C;6;U$ !19,D;7;U$ &D<3C<235#,8:-5,0:30,8:-30,30,-1.5@:0,7:552( ' 5 (16,A;1;Z$ )17,B;0;Z$ *18,C;6;Z$ +19,D;7;Z$ ,%A>22.54A>BA>CA>D750 -%B>22.54B>AB>CB>D800  .%C>22.54C>AC>BC>D850R /%D>22.54D>AD>BD>C900 0A=A+((*1.43333)*SP) :B=B+*1.5@ DC=C+*1.5@ ND=D+*1.5@ O8A=A+.5:B=B+.5:C=C+.5:D=D+.5 P'A>416,A-4;" " XSP=1:BEEP=1 l2AC1Ʀ=" "SP=SP*1.5@:AC=AC-1 v 14,8;"ENERGY:";AC  510 "10 ,6;A$(EV);"WINS!" '11 ,6;"FOR ";A$(10 ) GB=GB+1  950  "10 ,6;B$(EV);"WINS!" *'11 ,6;"FOR ";B$(10 ) /US=US+1 4 950 R!10 ,6;C$(EV);"WINS" \'11 ,6;"FOR ";C$(10 ) aRS=RS+1 f 950 "10 ,6;D$(EV);"WINS!" '11 ,6;"FOR ";D$(10 ) GE=GE+1 TIME=9 ++.91h  T$=TIME &215,70F:0,40( 112 ,6;"IN ";T$(5);" SECONDS" IEV=2:300,::7000X:5500|:8000@:7800x &:AC=5:BEEP=1:10 ,A=1:B=3:C=5:D=7 dAA=4:BB=3:CC=2:DD=1:A1=A:B1=B:C1=C:D1=D:A2=AA:B2=BB:C2=CC:D2=DD  P$="":R$=P$:L$=P$:J$=P$  O$="":F$=O$:G$=O$:K$=O$ U$="":H$=U$:I$=U$:W$=U$  1140t A,AA;1;P$ B,BB;0;R$ $C,CC;6;L$ .D,DD;7;J$ 3BEEP=1100d 5BEEP=0 8 9 9A,AA;1;O$ :B,BB;0;F$ ;C,CC;6;G$ <D,DD;7;K$ > 1250 BA,AA;1;U$ LB,BB;0;H$ VC,CC;6;I$ `D,DD;7;W$ k 6 o 1172 t A1,A2;" " ~ B1,B2;" "  C1,C2;" "  D1,D2;" "  1040 -AA>24.5DAA>BBAA>CCAA>DD1300 -BB>24.5DBB>AABB>CCBB>DD1320( -CC>24.5DCC>AACC>BBCC>DD1340< -DD>24.5DDD>AADD>BBDD>CC1360P 4A1=A:B1=B:C1=C:D1=D:A2=AA:B2=BB:C2=CC:D2=DD  A=A+1+((*1.43333)*SP) SA16A=16:AA=AA+1+((*1.459)*SP):P$="":O$="":U$="" B=B+1+*1.5@ KB17B=17:BB=BB+1+*1.5@:R$="":F$="":H$="" C=C+1+*1.5@ KC18C=18:CC=CC+1+*1.5@:L$="":G$="":I$="" D=D+1+*1.5@ KD19D=19:DD=DD+1+*1.5@:J$="":K$="":W$=""  1285  T=19.5+*4 T$=T  SP=1  2AC1Ʀ=" "SP=SP*1.5@:AC=AC-1  14,8;"ENERGY:";AC  1039 "10 ,6;A$(EV);"WINS!" '11 ,6;"FOR ";A$(10 ) GB=GB+1 212 ,6;"IN ";T$(5);" SECONDS!"  1400x *"10 ,6;B$(EV);"WINS!" ,'11 ,6;"FOR ";B$(10 ) -US=US+1 .212 ,6;"IN ";T$(5);" SECONDS!" 2 1400x >"10 ,6;C$(EV);"WINS!" @'11 ,6;"FOR ";C$(10 ) ARS=RS+1 B212 ,6;"IN ";T$(5);" SECONDS!" F 1400x R"10 ,6;D$(EV);"WINS!" T'11 ,6;"FOR ";D$(10 ) UGE=GE+1 V212 ,6;"IN ";T$(5);" SECONDS!" z&215,70F:0,40( 300,::EV=3 07000X:5500|:8000@:7800x  1039 EK=0:L$="00.00":HI=0:P$=L$:QQQ=0:FOUL=0 A1=0:B1=0:C1=0:D1=0:A2=0:B2=0:C2=0:D2=0:A3=0:B3=0:C3=0:D3=0  H1=70F &M=13:P=14 2:6:0: HF=08:F,0;K;" ":F %0,20:255,0 0,H1:255,0  7 !0,24;K;"ROUND:";M )0,10 ;K;1;"JAVELIN"  QQQ=1:FOUL=0  &K;"BEST SO FAR: ";L$(5);" M"  K;"Next to throw:"  0 F=80P25516 F,20:0,2 "F ,*80P,20:-10 ,H1-20 6 7 8A7,0;7;K;" " ;A8,0;" CRL | THE OLYMPIC GAMES | CRL |" ?2,0 @/P=1K;A$(3);"FOR "'A$(10 ) J/P=2K;B$(3);"FOR "'B$(10 ) T/P=3K;C$(3);"FOR "'C$(10 ) ^/P=4K;D$(3);"FOR "'D$(10 ) _M$="":W$="":Q$="" `O$="M" a@P=10;20,5;"PRESS 'SPACE' TO THROW" c 0 h*P=1F=09 :1642j i F=06+(*4) r16,F;M$:6 |16,F;W$:6 16,F;" " P=1Ʀ=" "1690 F P=1470 !P1F=10 470 16,F;M$:6 16,F;Q$  0 620,0;" "  AA=16 0:CL=K 'XPOS=F*8+8:YPOS=502  POS1=XPOS SPEED=6 CHECK=1 CHARS=15 65160,XPOS 65161,YPOS 65162,8 65163,8 65164,1 65165,CHARS 00:CHECK=11770:1765 00:CHECK=21780:1765 00:CHECK=31790:1765 00:CHECK=41800:1765 $0:CHECK=518400  1730 65171 G=13:G B:XPOS>POS1+22+(*10 )CHECK=2:CHARS=18 65164,0 65171 "XPOS=XPOS+SPEED:YPOS=YPOS+SPEED I0,H1:255,0:80P,20:-10 ,H1-20 16,F;CL;Q$:7  65171 G=13:G B:XPOS>POS1+40(+(*10 )CHECK=3:CHARS=19 65164,0 65171 *XPOS=XPOS+SPEED:YPOS=YPOS+SPEED/2 I0,H1:255,0:80P,20:-10 ,H1-20 16,F;CL;Q$:7  65171 G=13:G B:XPOS>POS1+85U+(*10 )CHECK=4:CHARS=21 65164,0 65171 XPOS=XPOS+SPEED I0,H1:255,0:80P,20:-10 ,H1-20 16,F;CL;Q$:7  65171  G=13:G  65164,0  65171  ,XPOS=XPOS+SPEED:YPOS=YPOS-SPEED*.75@ 7XPOS>237+(*10 )YPOS<45-18400 I0,H1:255,0:80P,20:-10 ,H1-20 16,F;CL;Q$:7  065164,1 265171 4 6FOUL1ƥ<.1}L65165,19:65171:3,20;6;2;1;1;"NO THROW!":4,20;K;7;"THE JAVELIN";5,20;"LANDED FLAT!":FOUL=1:W1=0:P$="00.00" 9FOUL=11855? : ; W1=(XPOS/3)+(*10 ) <P$=W1 ?W1>HIHI=W1:L$=W1:3,22;1;3;7;"THE LEAD!":.5,3:.5,0:1860D A.5,-3 D,21,0;0;P$(5);O$ N"3720:FOUL=0:P:M b EV=4 l07000X:5500|:8000@:7800x %:10 :GUN=1:AC=3 TAA=16:BB=17:CC=18:DD=19:AAA=AA:BBB=BB:CCC=CC:DDD=DD ,A=0:B=0:C=0:D=0  P$="":U$="":K$="":L$="" 8A1=A:B1=B:C1=C:D1=D:A2=AA:B2=BB:C2=CC:D2=DD F=5205 )AAA,F;L$;BBB,F;L$;CCC,F;L$;DDD,F;L$ F AA,A1;" ";BB,B1;" " CC,C1;" ";DD,D1;" " AA,A;1;P$ BB,B;0;P$  CC,C;6;P$ DD,D;7;P$  %GUN=1100d:GUN=0 {D<4C<335#,8:-5,0:30,8:-30,30,-1.5@:0,7  AA,A;1;U$ *BB,B;0;U$ 4CC,C;6;U$ >DD,D;7;U$ I 6 MAA,A;1;K$ RBB,B;0;K$ WCC,C;6;K$ \DD,D;7;K$ ]&A24.5DA>BA>CA>D2300 ^&B24.5DB>AB>CB>D2340$ _&C24.5DC>AC>BC>D2380L `&D24.5DD>AD>BD>C2420t aA1=A:B1=B:C1=C:D1=D p  A=A+1+((*1.6L)*SP) B=B+1+*1.7Y C=C+1+*1.7Y D=D+1+*1.7Y T=12.85M+(*1.5@) T$=T  SP=1 2AC1Ʀ=" "SP=SP*1.5@:AC=AC-1  14,8;"ENERGY:";AC  2020 !10 ,6;A$(EV);"WINS" '11 ,6;"FOR ";A$(10 ) GB=GB+1 )12 ,6;"TIME= ";T$(5)  2460 )!10 ,6;B$(EV);"WINS" .'11 ,6;"FOR ";B$(10 ) 3US=US+1 8)12 ,6;"TIME= ";T$(5) B 2460 Q!10 ,6;C$(EV);"WINS" V'11 ,6;"FOR ";C$(10 ) [RS=RS+1 `)12 ,6;"TIME= ";T$(5) j 2460 y!10 ,6;D$(EV);"WINS" ~'11 ,6;"FOR ";D$(10 ) GE=GE+1 )12 ,6;"TIME= ";T$(5) &215,70F:0,40( 300,: EV=5 07000X:5500|:8000@:7800x 6K=0:HI=0:L$="0.00":P$=L$:QQQ=0 ɐA1=0:B1=0:C1=0:D1=0:A2=0:B2=0:C2=0:D2=0:A3=0:B3=0:C3=0:D3=0 FOUL=0 2512 #S=07:N:"G"+S,N:S J89Y,90Z,126~,28,28,20,100d,8 7 &M=13:P=14 2:4:7: HF=08:F,0;K;" ":F O$="M" +0,10 ;K;1;"LONG JUMP" !0,24;K;"ROUND:";M  A7,0;7;K;" " A8,0;" CRL | THE OLYMPIC GAMES | CRL |" 1,0 QQQ=1 (K;"THE BEST SO FAR:";L$(4);"M"  /P=1K;A$(5);"FOR "'A$(10 ) /P=2K;B$(5);"FOR "'B$(10 ) /P=3K;C$(5);"FOR "'C$(10 ) /P=4K;D$(5);"FOR "'D$(10 ) ( 0 2%0,12 :110n,0 7%0,30:110n,0 9 6 <F=112p125} A F,12 :-12 ,19 F)F+80P,12 :-12 ,19 KF M:0;103g,12 :0;-12 ,18 P!19,14;"" R 18,14;"" U!20,14;"" Z(Z$="":U$="":R$="":W$="":G$="" [HP=10;1;21,5;"PRESS 'SPACE' TO JUMP" _P=1CL=1 `+P=2P=3P=4CL=0 d+P=1F=112 :2670n e fRN=(*4) iF=19 +RN n 0 s19,F;CL;R$:6 x19,F;CL;U$:6 }19,F;CL;Z$:6 19,F;" " :0;103g,12 :0;-12 ,18 %0,12 :100d,0 $0,30:95_,0 'P=1F>6Ʀ=" "2715 F %F>12 450:FOUL=1 1P=1FOUL1450:FOUL=1 621,0;" " CO=0:Q=16.5 :0;103g,12 :0;-12 ,18 D=FF+7+(*2) CO=CO+1 Q,D;4;CL;G$:6 D>13 G$="" Q,D;4;" " *6;18,13 ;"" D Q+1,D;6;CL;W$ FOUL=12790 W1=(D/2.5 )+*.5 F<10 W1=W1- W1>HIHI=W1:L$=W1:3,23;3;7;1;"THE LEAD!":.5,3:.5,0:2792 .5,-3 #W1=0P$="0.00":2794 P$=W1 ':21,0;P$(4);"M": FOUL=0:3720:P:M ^<7000X:EV=6:5500|:8000@:7800x 9QQQ=0:EVENTCHECK=1:AC=8::10 +10 ,10 ;" " 8,10 ;"400M" &215,80P:0,20 @Q$="":W$="":L$="":R$="":F$="":Y$="":U$="":I$="" O$="":P$="":S$="":H$="" A=20:B=14:C=8:D=2:AAA=3:BBB=3:CCC=3:DDD=3:AA=27:BB=28:CC=29:DD=30 1;A,AA;Q$ 0;B,BB;W$ 6;C,CC;L$ 7;D,DD;R$ 100d 8A1=A:B1=B:C1=C:D1=D:A2=AA:B2=BB:C2=CC:D2=DD A1,A2;" ":B1,B2;" " C1,C2;" ":D1,D2;" " .EVENTCHECK=28,10 ;"800M" 01;A,AA;F$ :0;B,BB;Y$ D6;C,CC;U$ N7;D,DD;I$ Y 10 b1;A,AA;Q$ l0;B,BB;W$ v6;C,CC;L$ 7;D,DD;R$ 10 A,AA;1;O$ B,BB;0;P$ C,CC;6;S$ D,DD;7;H$ 9AAA=2AA>24.5DAA>BBAA>CCAA>DD3450z 9BBB=2BB>24.5DBB>AABB>CCBB>DD3460 9CCC=2CC>24.5DCC>AACC>BBCC>DD3470 9DDD=2DD>24.5DDD>AADD>BBDD>CC3480 6A1=A:B1=B:C1=C:D1=D:A2=AA:B2=BB:C2=CC:D2=DD _A4A=4:AA=AA-((*.915j=p)*SP)-1.5@:O$="":F$="":Q$="":3260 0AAA=3A=A-((*.915j=p)*SP)-1.5@ WB3B=3:BB=BB-*.95s333-1.5@:P$="":Y$="":W$="":3280 (BBB=3B=B-*.95s333-1.5@ XC2C=2:CC=CC-*.975y-1.5@:S$="":U$="":L$="":3300 )CCC=3C=C-*.975y-1.5@ MD1D=1:DD=DD--1.5@:H$="":I$="":R$="":3320 DDD=3D=D--1.5@ `AA4AAA=2:A=A+((*.915j=p)*SP)+1.5@:AA=4:Q$="":F$="":O$="" XBB3BB=3:B=B+*.95s333+1.5@:BBB=2:W$="":Y$="":P$="" YCC2CC=2:C=C+*.975y+1.5@:CCC=2:L$="":U$="":S$="" NDD1DD=1:D=D++1.5@:DDD=2:R$="":I$="":H$="" 4aAAA=2A16A=16:AA=AA+((*.915j=p)*SP)+1.5@:Q$="":F$="":O$="" >YBBB=2B17B=17:BB=BB+*.95s333+1.5@:W$="":Y$="":P$="" CZCCC=2C18C=18:CC=CC+*.975y+1.5@:L$="":U$="":S$="" EODDD=2D19D=19:DD=DD++1.5@:R$="":I$="":H$="" YTIME=42.5*+*8 Z(QQQ=1TIME=(*8)+41) [ T$=TIME \A<4A=4 ]B<3B=3 ^C<2C=2 _D<1D=1 a SP=1 f2AC1Ʀ=" "SP=SP*1.5@:AC=AC-1 k 14,8;"ENERGY:";AC p 3096 z"10 ,6;A$(EV);"WINS!" {'11 ,6;"FOR ";A$(10 ) |b12 ,6;"TIME= ";T$(5):QQQ=112 ,6;"TIME= 1:";T$(5); }GB=GB+1:3490 "10 ,6;B$(EV);"WINS!" '11 ,6;"FOR ";B$(10 ) b12 ,6;"TIME= ";T$(5):QQQ=112 ,6;"TIME= 1:";T$(5); US=US+1:3490 "10 ,6;C$(EV);"WINS!" '11 ,6;"FOR ";C$(10 ) b12 ,6;"TIME= ";T$(5):QQQ=112 ,6;"TIME= 1:";T$(5); RS=RS+1:3490 "10 ,6;D$(EV);"WINS!" '11 ,6;"FOR ";D$(10 ) b12 ,6;"TIME= ";T$(5):QQQ=112 ,6;"TIME= 1:";T$(5); GE=GE+1 .QQQ=113 ,10 ;" (MIN/SEC)" 3215,70F:0,40(:300,: EVENTCHECK=1EV=7 EVENTCHECK=2EV=9 07000X:5500|:8000@:7800x EV=7:HI=0:EVCH=7:L1=0:PPP=1:A1=0:B1=0:C1=0:D1=0:A2=0:B2=0:C2=0:D2=0:A3=0:B3=0:C3=0:D3=0 AP$="00.00":L$=P$:M=13:P=14:R$="." EV=9 R$="" O$="M":FOUL=0 2:4:0: |L1=120,100d:-20,0,1:20,60<:-20,0,-1:0,40( 3,0;"ROUND ";M 53,7;":BEST SO FAR: ";L$(5);" M" -1,0;6;1;E$(EVCH) VP=118,0;A$(EV);"FOR":P=218,0;B$(EV);"FOR" VP=318,0;C$(EV);"FOR":P=418,0;D$(EV);"FOR" VP=119,0;A$(10 ):P=219,0;B$(10 ) VP=319,0;C$(10 ):P=419,0;D$(10 ) +P=218,0;B$(EV);"FOR" +P=418,0;D$(EV);"FOR" +P=219,0;B$(10 ) +P=419,0;D$(10 ) 20,80P,20 (20,100d:230,40( (20,60<:230,-40( 9EV9 70F,502:0,60<,1 :EV9 100d,45-:0,70F,1 .130,40(:0,80P,1 .160,35#:0,90Z,1 /190,30:0,100d,1  /220,25:0,110n,1  7P=121,4;"PRESS 'SPACE' TO THROW"  0 2P=1F=04:M$="":3611  F=02+(*3) M$=""  F<2M$="" $11 ,F;M$ & 15 '11 ,F;" " ("P=1Ʀ=" "Z=F:3630. )F *P=1470 + P1F5470 ,Z=F .11 ,Z;"" / Q1=11 4621,0;" " 6 0 8#F=Z+1Z+*13 +12 B1;Q1,F;R$ L 10 V1;Q1,F;R$: `F j Q1,F;R$ oFOUL=13702v t"W1=((F+*3)/1.5@)*PPP v$W1=0P$="00.00":3704x wP$=W1 y~W1>HIHI=W1:L$=P$:5,0;3;7;1;"THE LEAD!":.5,3:.5,0:3710~ {.5,-3 ~221,0;"DISTANCE= ";P$(5);" M"  CL=0 20,80P,20 CL;11 ,Z;"" 3720:3992 CL;11 ,Z;"" P=1M=1A1=W1 P=2M=1B1=W1 P=3M=1C1=W1 P=4M=1D1=W1 P=1M=2A2=W1 P=2M=2B2=W1 P=3M=2C2=W1 P=4M=2D2=W1 P=1M=3A3=W1 P=2M=3B3=W1 P=3M=3C3=W1 P=4M=3D3=W1 'M=1A4=A1:B4=B1:C4=C1:D4=D1 M=2A2>A1A4=A2 M=2B2>B1B4=B2 M=2C2>C1C4=C2 M=2D2>D1D4=D2 M=3A3>A2A3>A1A4=A3 M=3B3>B2B3>B1B4=B3 M=3C3>C2C3>C1C4=C3 M=3D3>D2D3>D1D4=D3 2 300,: <P >2:2:7: ?0,10 ;E$(EV): @"THE BEST SO FAR!:-" A: C A40P$=A4:3909E D P$="00.00" FA$(10 );P$(5);O$ K M B40P$=B4:3919O N P$="00.00" PB$(10 );P$(5);O$ U W C40P$=C4:3929Y X P$="00.00" ZC$(10 );P$(5);O$ _ a D40P$=D4:3939c b P$="00.00" dD$(10 );P$(5);O$ xM=3''"END OF EVENT "  300, (M34:4:7: M  FA4>B4A4>C4A4>D4A$(EV);"WINS":"FOR ";A$(10 ):GB=GB+1 FB4>A4B4>C4B4>D4B$(EV);"WINS":"FOR ";B$(10 ):US=US+1 FC4>A4C4>B4C4>D4C$(EV);"WINS":"FOR ";C$(10 ):RS=RS+1 FD4>A4D4>B4D4>C4D$(EV);"WINS":"FOR ";D$(10 ):GE=GE+1  300,:  AEV=EV+1::7000X:5500|:8000@:7800x EVENTCHECK=2  0,13 ;"800M"  4AAA=3:BBB=3:CCC=3:DDD=3 |"We join the race at the half waystage with 400M to go. The athletes will keep to their lanes all the way round."  300, @Q$="":W$="":L$="":R$="":F$="":Y$="":U$="":I$="" QQQ=1::10 &215,80P:0,20  O$="":P$="":S$="":H$="" bA=20:B=14:C=8:D=2:AA=27:BB=28:CC=29:DD=30 "AC=8:3095 HI=0: qA3=0:B3=0:C3=0:D3=0:EVCH=9 :L1=1:PPP=3.1Ffff:EV=9 :3502 ;"DO YOU WANT TO USE THE NAMES IN THE COMPUTER (Y/N)? ";I$ I$="Y"I$="y"5025  I$="N"I$="n"CHECK=0:  5005  5050 J=111 A$(J),B$(J),C$(J),D$(J),E$(J) J 6"A WELLS","C LEWIS","A GRIGORYEV","D QUARRIE","100M" 4"C SHARP","C SMITH","A GRIGORYEV","E OBENG","200M" 7"D OTTLEY","B KENNEDY","D KULA","M O'ROUKE","JAVELIN" A"M HOLTOM","G FOSTER","U CHERVANYEV","T MUNKELT","110M HURDLES" ="J HERBERT","C LEWIS","J UUDMAE","F WASTENBERG","LONG JUMP" 2"P BROWN","M FRANKS","V MARKIN","D CLARK","400M" <"J ALDERSON","B OLDFIELD","E MIRONOV","E SARUL","SHOT PUT" 0"S COE","J ROBINSON","V KIROV","J CRUZ","800M" 8"R SLANEY","M WILKINS","N AVILOV","W SCHMIDT","DISCUS" ;"GREAT BRITAIN","U.S.A.","U.S.S.R.","REST OF WORLD","***" "GBR","USA","USR","R/W","***" CHECK=1:  SP=1 0:0:7: DEV=1EV=2EV=4EV=6EV=85600 EV=35650 EV=55700D #EV=7EV=9 5750v  0,10 ;E$(EV)  S" In this event, you control the athlete representing"'A$(10 );"i.e. the"'"athlete in blue in the inside lane. You start off with a certain amount of energy. If this energy level is greater than 0, then pressing 'SPACE' accelerates the athlete. Each time you do this however, the energy level decreases by 1." r" Using this method you must time your 'attack', perhaps by electing for a fast start or a sprint finish."  300,:5800 0,10 ;E$(EV)  &U" In this event you again control the athlete representing"'A$(10 );"." +B" This athlete THROWS first in each round of the competition." 0 " To enable the athlete to throw the javelin, you must press 'SPACE' at the position where you wish him to throw it from. If you misjudge this distance you may go over the throwing line. This results in a foul throw. This also occurs if the javelin lands 'flat'." :300,:5800 D0,10 ;E$(EV) N X" In this event, you must press'SPACE' to make the athlete representing ";A$(10 )'"jump when it is his turn. You must judge the distance to the line and when ready, jump. If you cross the line this will signify a 'No Jump'." b300,:5800 v0,10 ;E$(EV)  " In this event, to make the athlete representing"'A$(10 );"throw, you "'"must press 'SPACE', before he leaves the circle, otherwise it signifies a 'No Throw'." 300,:5800 4:4:7:  u 6050 z.F="A""U"+7:GRAPHICS:F,GRAPHICS:F 24,88X,126~,26,120x,72H,206,2,480,480,24,60<,28,568,480,40(,24,24,30,58:,24,42*,36$,32 ,0,0,24,40(,72H,72H,64@,64@,24,24,255,60<,60<,36$,36$,36$,0,0,0,0,24,24,126~,189,24,26,126~,88X,30,18,115s,64@,12 ,12 ,24,60<,568,28,12 ,20,24,24,120x,92\,24,84T,36$,4,24,26,126~,88X,30,18,115s,64@,24,26,126~,255,30,18,115s 64@,152,152,255,61=,61=,36$,36$,32 ,25,25,255,188,188,36$,36$,4,0,0,0,112p,248,112p,0,0,1,2,4,8,16,32 ,0,0,0,0,0,255,0,0,0,0,513,524,248,184,184,40(,40(,40(,0,0,3,12 ,480,192,0,0,0,0,0,255,0,0,0,0,491,491,255,184,188,146,9 ,4,0 E0,0,192,480,12 ,3,0,0 /6059:F=07:S:"T"+F,S:F J480,513,124|,112p,127,61=,9 ,8  Y1:1:7: Z41;0,4;"GOLD MEDALS WON SO FAR" \ ^A$(10 );GB ` bB$(10 );US d fC$(10 );RS h jD$(10 );GE k2EV>9 MIN1'''"END OF LIVE EVENTS." llMIN=1'"END OF ALL EVENTS."''" PLEASE MAKE A NOTE OF THESE VALUES, FOR USE ON SIDE TWO " v 300,: 1:1:7: :6;2;" " J 7700 Q;"DO YOU WANT TO LOAD PREVIOUSLY SAVED NAMES (Y/N)? ";W$ VW$="Y"W$="y"7550~ `W$="N"W$="n" j 7500L ~1:1:7: CHECK=1 W$="Y" -1;10 ,8;"START THE TAPE" "NAMES 1"A$() "NAMES 2"B$() "NAMES 3"C$() "NAMES 4"D$() "NAMES 5"E$() .:10 ,8;1;"STOP THE TAPE"  300, W$="Y"  7,0;" You now have the opportunity to save the athletes names. Thismeans that any names you have entered can be loaded back, at alater date." 5"DO YOU WANT TO SAVE ATHLETES NAMES (Y/N)? ";W$ W$="y"W$="Y"77302 (W$="n"W$="N"7772\ - 7700 7"NAMES 1"A$() <"NAMES 2"B$() F"NAMES 3"C$() P"NAMES 4"D$() Z"NAMES 5"E$() [-:10 ,8;"STOP THE TAPE" \)"DO YOU WANT TO PLAY AGAIN (Y/N)? ";W$ ]'W$="Y"W$="y"EV=1:7776` ^zW$="N"W$="n"17,0;1;"PLEASE NOW LOAD SIDE 2 TO SEE SOME NON STADIUM EVENTS! ":9600% _ 7772\ ` d eEZ=23613=\+256*23614>\:Z,0:Z+1,0 f65159:7;2;1;10 ,0;" Please Leave the tape running. ":7;"":1;"":2:"M/CODE"65160 gR:7;2;1;1;10 ,4;" PLEASE STOP THE TAPE " h 200: n{GB=0:GE=0:RS=0:US=0:EV=1:BEEP=0:EVCH=0:GUN=0:MIN=0:6 xEV=1500 EV=21000 EV=31500 EV=42000 EV=52500 EV=63000 EV=73500 EV=84000 EV=9 4500 EV>9 6000p @1:1:7: EEV10 8100 J0,10 ;"EVENT ";EV T ^E$(EV) h r"COMPETITORS:" | A$(10 );A$(EV)  B$(10 );B$(EV)  C$(10 );C$(EV)  D$(10 );D$(EV)  300,   .0,9 ;1;" OTHER EVENTS ": " We will now see the results of the other major events in thecompetition. The gold medals wonwill be added to the table. Watch and see if your country(or club) wins!"  300,  8150 ;A=0:B=0:C=0:D=0:MIN=1:   8250: "THESE ARE THE RESULTS" F=113 P$ 1F+3,0;P$;F+3,24;"..." F :"1500M","5000M","10000M","4x100M","4x400M","50km WALK","400M HURDLES","3000M STEEPLECHASE","HIGH JUMP","POLE VAULT","TRIPLE JUMP","HAMMER","DECATHLON" DF=113 I*10000' NWIN=(*20) XA=(*20) bB=(*20) lC=(*20) vD=(*20) {%A=BA=CA=DB=CB=DC=D8270N X$="" 'A=WINX$=A$(11 ):GB=GB+1 'B=WINX$=B$(11 ):US=US+1 'C=WINX$=C$(11 ):RS=RS+1 'D=WINX$=D$(11 ):GE=GE+1 X$=""8270N "F+3,27;X$(3) F 300,: "EVENTS CONTINUED" 8460 ! F=112 P$ 1F+3,0;P$;F+3,24;"..." !F ! "SWIMMING 200M(FREESTYLE)","400M (FREESTYLE)","(BOXING): FLYWEIGHT","FEATHER WEIGHT","LIGHTWEIGHT","MIDDLEWEIGHT","HEAVYWEIGHT","JUDO","BASKETBALL","HANDBALL","HOCKEY","VOLLEYBALL" ! F=112 !*WIN=(*20) !4A=(*20) !>B=(*20) !HC=(*20) !RD=(*20) !\X$="" !f%A=BA=CA=DB=CB=DC=D8490*! !p'A=WINX$=A$(11 ):GB=GB+1 !z'B=WINX$=B$(11 ):US=US+1 !'C=WINX$=C$(11 ):RS=RS+1 !'D=WINX$=D$(11 ):GE=GE+1 !X$=""8490*! !"F+3,27;X$(3) !F !#300,:7000X:7050 #(7:7:0: #-jCL=0:GB=0:RS=0:US=0:GE=0:SP=1:MIN=0:23658j\,8 #2A$(11 ,14) #<B$(11 ,14) #FC$(11 ,14) #PD$(11 ,14) #ZE$(11 ,14) #\A$(10 )="GREAT BRITAIN" #]B$(10 )="U.S.A." #^C$(10 )="U.S.S.R." #_D$(10 )="REST OF WORLD" #aA$(11 )="GBR" #bB$(11 )="USA" #cC$(11 )="USR" #dD$(11 )="R/W" #f0,10 ;"OLYMPICS" #n&80P,167:64@,0 #s #xk1;" This program simulates an athletics meeting between GREAT BRITAIN, U.S.A, U.S.S.R. and REST OF THE WORLD, or between four countries or clubs of your choice. You will be asked to enter the athletes names in a moment for the nine events, or you can LOAD previously saved names from tape, or use the names already in the computer." #}" In all the events, you help to'control' the athlete who is representing the first team entered (GREAT BRITAIN if you use the computer teams)." #?" In all the field events,'your'athlete will compete first." # 300,: #?"These are the events in which you control the athlete:-": # # "1)100M" # "2)200M" # "3)JAVELIN" #"4)110M HURDLES" #"5)LONG JUMP" # "6)400M" #"7)SHOT PUT" # "8)800M" # "9)DISCUS" # 0 # 5000 #CHECK=19204# # 7500L #CHECK=19204# # OWN=0 #R"Enter (1) to use the countries already listed, or (2) to enter your own: ";W$ #W$="1"9204# #W$="2"350^:9204# # 9200# #y:"Throughout the meeting, the athletes participating in the track events will wear the following colours:-" # #!A$(10 );25;"BLUE": #"B$(10 );25;"BLACK": ##C$(10 );25;"YELLOW": # D$(10 );25;"WHITE" # 300, $ $CHECK=16 $ 9240$ $S=19 :E$(S):S $V"100M","200M","JAVELIN","110M HURDLES","LONG JUMP","400M","SHOT PUT","800M","DISCUS" $"INPUT $$1:1:7: $'P=19 $( A$(10 );"(YOUR TEAM)" $)"PLEASE ENTER NAME:" $,21,0;E$(P) $6A$(P) $; $@P $JP=19 $LB$(10 ) $O"PLEASE ENTER NAME:" $T21,0;E$(P) $^B$(P) $c $hP $mP=19 $oC$(10 ) $r"PLEASE ENTER NAME:" $|21,0;E$(P) $C$(P) $ $P $P=19 $D$(10 ) $"PLEASE ENTER NAME:" $21,0;E$(P) $D$(P) $ $P $ 6 % NAT.ANTHEM %/1:1:0:0:0: %!8,0;1;1;7;2;"" %#A2;6;17,3;"  MATTHEW BRADSHAW 1984 " %$P0,0;1;2;6;" SIDE 1 " %& 9540D% %0R=116 %2D,P %5D,P %:R %D#.25~,0,.25~,0,.25~,2,.353333,-1,.12}u[,0,.25~,2,.25~,4,.25~,4,.25~,5,.353333,4,.12}u[,2,.25~,0,.25~,2,.25~,0,.25~,-1,.25~,0 %N21,0 %X 300, %bM0,7;6;2;1;1;"PLEASE WAIT A MOMENT" %l 6000p %v %500:0 @X4~ 6~Tа<(X440T 8( X4X4T8(X44 4844t8h8d84\8(8@4\8(8@4\ 8(8@4\8(8@4X8$8P4xְ88(=1e5A% L48@88844BԉQ́ɽɅͥձѕ́ѡѥ́ѥݕȀȁɥ̰IP I%Q%8TLIUMM%]MPI59d4hԉQٕ́ݡݥɔ초4|4LԈĤ4MɥЈ4LԈȤ4MɥЈ4HԈ̥AYձЈ4PԈФ4!ɑ̈40DԈԥ1)յ4X0Ԉؤ44DԈܥ!)յ4@ԈMЁAЈ40Ԉ44084t808$4p44A=1YU1P4!UI1L1=9)U5@4!% )U5@M!=PAUP44ְ8T8Aɕ́䁭ѼѥՔ84x8(IP I%Q%84\8(TL4\ 8(IUMM%4 t8(]MPI59d4 4Hְ88( =5AQ%QIL4\8@88`84p4ԉA͔ѕȁѥѕ́ݡɽѕѼͼ4ְ88p88(4L808$4dְ8T84$Hְ88484L44` 4uTְ88숀4ְ88p88(4L808$4dְ8T844( 4Pְ88p8 8(4xL808$4dְ8T84 4 4ְ88p84@L808$4hdְ8T844 44p4tְ8(8(A1M]%P808P4x0\933304| 4408Ę4808P4,8888888t84،8084T888`88 PPPPPPP8 8840%d~pWMJB10668z~ M/CODE U??.*\#*{\^###NF~~wͪ"w4/