OLYMPICS :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/EV=1:MIN=0:MAR=1:9930&:1000 ,"PRESS 'ENTER' (C=COPY) ";W$ 6W$="C"W$="c":300, ;WW$="MJB10668"Z=23613=\+256*23614>\:Z,3:Z+1,19: @: ^ `A10 ,0;"PLEASE ENTER OTHER COUNTRYS OR CLUB NAMES." cN$=" COUNTRY (OR CLUB)" h"1ST";(N$);A$(10 ) m"2ND";(N$);B$(10 ) r"3RD";(N$);C$(10 ) w"4TH";(N$);D$(10 )  OWN=1  P=0̥*600X:P .5,0  2,0;0;4;" " h17,0;4;0;" "  Z 0 ]%0,135:0,20 _255,0:0,-20:-100d,0:0,15:-20,0:0,-15:-10 ,0:0,15:-20,0:0,-15:-105i,0 `10 ,150 b10 ,0:0,-10 :-10 ,0:0,10 :10 ,0:0,-10 :-2,2:-8,0:8,0:0,8 d502,150 g10 ,0:0,-10 :-10 ,0:0,10 :10 ,0:0,-10 :-2,2:-8,0:8,0:0,8 i180,150 l10 ,0:0,-10 :-10 ,0:0,10 :10 ,0:0,-10 :-2,2:-8,0:8,0:0,8 n220,150 q10 ,0:0,-10 :-10 ,0:0,10 :10 ,0:0,-10 :-2,2:-8,0:8,0:0,8 vH=10 25510 {!H,155:-10 ,10 *H:250,165:5,-5 &0,165:255,0 )155,135:-15,15 )125},135:-15,15 "3,8;6;"EXIT" )3,16;6;1;"1"  5500|:8000@ HGUN=0:EN=9 :A=8:B=10 :C=12 :D=14 0A1=1:B1=1:C1=1:D1=1 'F$=" ":G$=" ":H$=" ":I$=" " &1:7:1:0: >4;7,0;""  616,0;""  PF=1721:F,0;4;" ":F  G=06  8G,0;4;" " G ?4;21,0;" PRESS SPACE TO ACCELERATE " 8,0;"E";9 ,0;"N";10 ,0;"E";11 ,0;"R";12 ,0;"G";13 ,0;"Y" >0,0;5;" "  500 F=0200  1 A,A1;F$;A+1,A1;G$  2 $B,B1;F$;B+1,B1;G$ ) 4 .C,C1;F$;C+1,C1;G$ 3 0 8D,D1;F$;D+1,D1;G$ =%GUN=0400:GUN=1 B15,0;1;EN G 1 LA+1,A1;H$ Q 2 VB+1,B1;H$ [ 4 `C+1,C1;H$ e 0 jD+1,D1;H$ t 1250 A1=A1+*.25~ B1=B1+*.4L C1=C1+*.4L D1=D1+*.4L KEN=021,0;4;" " ,65001,64@:65004,64@ 0*65000 65004,80P 0*65000 ^EN>0Ʀ=" "A1=A1+1:EN=EN-1:A,A1-1;" ":A+1,A1-1;" " F -A1>28.5dA1>B1A1>C1A1>D11300 -B1>28.5dB1>A1B1>C1B1>D11320( -C1>28.5dC1>A1C1>B1C1>D11340< -D1>28.5dD1>A1D1>B1D1>C11360P  1190 &12 ,3;A$(EV);" WINS FOR"  13 ,3;A$(10 ) GB=GB+1  1380d (&12 ,3;B$(EV);" WINS FOR" *US=US+1 - 13 ,3;B$(10 ) 2 1380d <&12 ,3;C$(EV);" WINS FOR" >RS=RS+1 A 13 ,3;C$(10 ) F 1380d P&12 ,3;D$(EV);" WINS FOR" U 13 ,3;D$(10 ) ZGE=GE+1 dT=(*10 )+3 iT$=T kT<10 T$="0"+T$ n*14,3;"TIME:1.";T$(5) s&0,12 ;5;"CYCLING" x/300,:7000X:EV=2:7800x 15500|:8000@:EN=9 :GUN=0 $:10 ,10 ;"PLEASE WAIT"  1530 Q="A""L"+7  SW:Q,SW Q 0,0,0,0,224,16,224,16,4,10 ,9 ,62>,126~,244,8,16 0,0,0,128,96`,224,0,0,32 ,80P,136,62>,126~,248,15,0 255,4,2,1,255,129,129,255,255,255,8,4,2,255,32 ,16 F0,0,0,0,255,64@,32 ,16 0,0,0,24,24,126~,189,189,189,189,189,36$,36$,36$,36$,36$ 24,24,126~,189,189,36$,36$,36$,255,128,187,162,163,186,128,255 K254,2,34",162,34",186,2,254  1543 "Q="M""P"+7:SW:Q,SW:Q 32 ,80P,144,124|,126~,47/,16,8,0,0,0,0,7,8,7,8 4,10 ,17,124|,126~,31,240,0,0,0,0,1,6,7,0,0  &2:1:7:0: 0A=10 :B=12 :C=14:D=16 0A1=1:B1=1:C1=1:D1=1 0A2=0:B2=0:C2=0:D2=0  CL=6 IH=08:H,0;CL;" ":H KH=1821:H,0;CL;" ":H +0,11 ;CL;0;"SWIMMING" B8,0;0;CL;"" "c18,0;0;CL;"" ,B7,0;0;CL;"" .s5,0;0;6;"   THE OLYMPIC GAMES : 1984  " 1 600X 5C21,0;CL;0;" PRESS SPACE TO ACCELERATE " 6F$=" ":G$=" " 7H$=" ":I$=" " 8J$=" ":K$=" " 9L$=" ":M$=" " @A,A1;7;F$ EB,B1;6;H$ JC,C1;4;J$ OD,D1;5;L$ T 10 V%GUN=0400:GUN=1 W11 ,0;" " YA,A1;7;G$ ^B,B1;6;I$ cC,C1;4;K$ hD,D1;5;M$ i7A2=1A1<0.5A10Ʀ=" "A2=0A1=A1+1:EN=EN-1:A,A1-1;" " [EN>0Ʀ=" "A2=1A1=A1-1:EN=EN-1:A1<27A,A1+3;" " A,29;" " Z20,0;0;CL;" ENERGY:=";1;EN;0;" " FEN=021,0;CL;" " BA1>29.5lF$=" ":G$=" ":A2=1:A,29;" " BB1>29.5lH$=" ":I$=" ":B2=1:B,29;" " BC1>29.5lJ$=" ":K$=" ":C2=1:C,29;" " BD1>29.5lL$=" ":M$=" ":D2=1:D,29;" "  7  1600@ "12 ,6;A$(EV);" WINS"  '13 ,6;"FOR ";A$(10 ) GB=GB+1  1900l "12 ,6;B$(EV);" WINS" !'13 ,6;"FOR ";B$(10 ) &US=US+1 + 1900l 0"12 ,6;C$(EV);" WINS" 5'13 ,6;"FOR ";C$(10 ) :RS=RS+1 ? 1900l D"12 ,6;D$(EV);" WINS" I'13 ,6;"FOR ";D$(10 ) NGE=GE+1 S 1900l lT=(*7)+49.25E vT$=T (15,6;"TIME:";T$(5)  300,  7000X  EV=3  7800x 5500|:8000@ EN=9 :2050: "10 ,10 ;"PLEASE WAIT" L="A""U"+7  GR:L,GR L 11 ,7,3,3,127,63?,0,0,0,0,128,128,252,248,32 ,16 3,3,3,3,127,63?,8,16,32 ,64@,128,128,252,248,0,0  0,0,0,0,24,24,126~,189,189,189,189,36$,36$,36$,36$,36$ 3,15,63?,127,255,255,255,255,128,224,240,252,252,254,254,255 255,255,255,255,127,63?,31,7,255,255,254,254,254,252,248,240 3,3,3,3,3,3,3,3,192,192,192,192,192,192,192,192  255,33!,255,8,255,33!,255,8,255,8,255,66B,255,8,255,66B %255,128,153,165,165,153,128,255,255,0,21,21,9 ,201,0,255 *255,0,44,,234,44,,40(,0,255,255,1,185,161,161,185,1,255 /0,255,32 ,16,8,4,2,1,0,255,255,255,255,255,255,0 1C0,255,0,0,0,0,0,0 4&5:1:7:0: >NH=07:H,0;6;" ":H HPH=1821:H,0;4;" ":H Jh19,0;0;4;" " MG7,0;0;6;"" Rg4;6;1,0;" " TG0;6;3,0;" " WV1;6;" " \G6,0;0;6;"" aH18,0;0;4;"" f0A1=1:B1=1:C1=1:D1=1 k/A=9 :B=11 :C=13 :D=15 pF$=" ":G$=" " u GUN=0 z8,0;"E";9 ,0;"N";10 ,0;"E";11 ,0;"R";12 ,0;"G";13 ,0;"Y" H21,0;0;4;" " A21,3;0;4;"PRESS SPACE TO ACCELERATE" A,A1;7;F$ B,B1;6;F$ C,C1;5;F$ D,D1;4;F$  10 : %GUN=0400:GUN=1 A,A1;7;G$ B,B1;6;G$ C,C1;5;G$ D,D1;4;G$  -A127.5\A1>B1A1>C1A1>D12400` -B127.5\B1>A1B1>C1B1>D12420t -C127.5\C1>A1C1>B1C1>D12440 -D127.5\D1>A1D1>B1D1>C12460 DEN>0Ʀ=" "A1=A1+1:EN=EN-1:A,A1-1;" " 15,0;1;EN A1=A1+*.353333 B1=B1+*.5 C1=C1+*.5 D1=D1+*.5 $,65001,64@:65004,64@ .0*65000 865004,80P B0*65000 LKEN=021,0;4;" " V 2200 `G9 ,4;A$(EV);" WINS";10 ,4;"FOR ";A$(10 ) eGB=GB+1 j 2470 tG9 ,4;B$(EV);" WINS";10 ,4;"FOR ";B$(10 ) yUS=US+1 ~ 2470 G9 ,4;C$(EV);" WINS";10 ,4;"FOR ";C$(10 ) RS=RS+1 2470 G9 ,4;D$(EV);" WINS";10 ,4;"FOR ";D$(10 ) GE=GE+1 T=55.1203\{/ T$=T *12 ,4;"TIME:2.";T$(5) G0,0;0;6;" CANOEING " /300,:EV=4:7000X:7800x 7800x 5500|:8000@ EN=9 : "10 ,10 ;"PLEASE WAIT" 3020 "F="A""U"+7:GR:F,GR:F ̋0,0,0,64@,44,,28,14,14,0,0,0,64@,44,,28,14,14 ь0,0,0,0,0,0,0,0,14,127,127,127,32 ,64@,128,0 ֒14,255,255,255,32 ,64@,128,0,0,248,240,224,0,0,0,0 ۊ0,0,0,0,12 ,12 ,14,15,0,0,0,0,44,,76L,142,15 0,0,0,0,32 ,64@,128,0,14,127,127,127,0,0,0,0 14,255,255,255,64@,32 ,16,0,0,248,240,224,32 ,16,8,0 255,33!,255,8,255,33!,255,8,255,8,255,66B,255,8,255,66B 0,255,32 ,16,8,4,2,1,0,255,0,0,0,0,0,0 L24,24,126~,189,189,36$,36$,36$ M3,15,63?,127,255,255,255,255 Q128,224,240,252,252,254,254,255 M255,255,255,255,127,63?,31,7 Q255,255,254,254,254,252,248,240 EV=54010 &5:1:7:0: 0F$=" ":G$=" ":H$=" ":I$=" " EV=74100 0A1=1:B1=1:C1=1:D1=1 /A=8:B=10 :C=12 :D=14 NF=07:6;F,0;" ":F GUN=0 PF=1721:6;F,0;" ":F G0,0;0;6;" " #0,10 ;6;E$(EV) G1,0;6;0;" PRESS SPACE TO ACCELERATE " G0,0;0;6;" " ,0,10 ;6;1;E$(EV) G6,0;6;1;"" H17,0;6;1;"" G7,0;6;0;"" g3,0;6;4;" " h18,0;6;4;" " .3245 :F="T""U"+7:GR:F,GR:F 3,3,3,3,3,3,3,3,192,192,192,192,192,192,192,192 G5,0;6;0;"" H20,0;6;0;"" A,A1;7;F$ A+1,A1;7;G$ B,B1;6;F$ B+1,B1;6;G$ C,C1;5;F$ C+1,C1;5;G$ D,D1;4;F$ D+1,D1;4;G$ 6 %GUN=0400:GUN=1 A,A1;7;H$ A+1,A1;7;I$ B,B1;6;H$ B+1,B1;6;I$ C,C1;5;H$ C+1,C1;5;I$ D,D1;4;H$ D+1,D1;4;I$ 8,0;"E";9 ,0;"N";10 ,0;"E";11 ,0;"R";12 ,0;"G";13 ,0;"Y" -A1>26.5TA1>B1A1>C1A1>D13400H -B1>26.5TB1>A1B1>C1B1>D13420\ -C1>26.5TC1>A1C1>B1C1>D13440p %-D1>26.5TD1>A1D1>B1D1>C13460 *aEN>0Ʀ=" "A1=A1+1:EN=EN-1:A,A1-2;" ";A+1,A1-2;" " /15,0;1;EN 4UEN=0EV=41,0;6;" " 5UEN=0EV=51,0;5;" " 6A1=A1+*.37=p 7B1=B1+*.5 8C1=C1+*.5 9D1=D1+*.5 :,65001,64@:65004,64@ ;0*65000 <65004,80P =0*65000 > 3250 H'9 ,2;A$(10 );" WIN!" RGB=GB+1 W 3480 \'9 ,2;B$(10 );" WIN!" fUS=US+1 k 3480 p'9 ,2;C$(10 );" WIN!" zRS=RS+1  3480 '9 ,2;D$(10 );" WIN!" GE=GE+1 #EV=4T=*30+10 #EV=5T=*491+10 KT$=T:EV=55;0,115s:5;255,0 6EV=412 ,2;"TIME:1.";T$(5) JEV=40,0;6;" " JEV=50,0;5;" " 7EV=512 ,2;"TIME:10.";T$(5) CEV=40,10 ;6;1;E$(EV):300, CEV=50,10 ;5;1;E$(EV):300, 'EV=EV+1:7000X:7800x EV=5:3000 "10 ,10 ;"PLEASE WAIT"  4030 "F="A""I"+7:GR:F,GR:F A0,0,0,0,0,0,0,0 M16,16,568,60<,126~,127,255,255 E0,0,0,0,0,0,128,192 B1,1,3,3,0,15,7,0 N255,255,255,255,24,255,255,0 M224,240,248,252,0,255,252,0 L16,16,24,60<,62>,119w,115s,243 B0,0,1,1,0,15,7,0 N243,247,255,255,24,255,255,0 0F$=" ":G$=" ":H$=" ":I$=" "  4120 "F="M""N"+7:GR:F,GR:F Q192,192,192,192,192,192,192,192 A3,3,3,3,3,3,3,3 h2:1:7: rNF=07:F,0;5;" ":F |PF=1821:F,0;6;" ":F H18,0;0;6;"" h19,0;6;4;" " H21,0;6;0;" " 8,0;"E";9 ,0;"N";10 ,0;"E";11 ,0;"R";12 ,0;"G";13 ,0;"Y" X2,10 ;5;7;"";2,20;"";2,30;"" G0,0;5;0;" " ,0,10 ;5;0;E$(EV) G1,0;5;0;" PRESS 'SPACE' TO ACCELERATE " 0A1=1:B1=1:C1=1:D1=1 /A=8:B=10 :C=12 :D=14  3250 7000X:7050 <"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=15 A$(J),B$(J),C$(J),D$(J),E$(J) J J=10 11 A$(J),B$(J),C$(J),D$(J),E$(J) J 8"S YATES","D CHORNER","A PANTILOV","F MOSER","CYCLING" >"A ASTBURY","S LUNDQUIST","S KOPLIAKOV","M GROSS","SWIMMING" 9"R FOX","J McEWAN","T KORSHUNOVA","C ZIRZOW","CANOEING" "","","","","ROWING" "","","","","YACHTING"  ;"GREAT BRITAIN","U.S.A.","U.S.S.R.","REST OF WORLD","***" "GBR","USA","USR","R/W","***" CHECK=1: |EVENT INSTRUCTIONS 0:0:7: 0,10 ;E$(EV): EV=15550 EV=25600 EV=35650 #EV=4EV=55750v " In this event you control thecyclist in blue (top of screen).To accelerate you press SPACE ifyour energy is more than zero. Each time you do this, however, your energy decreases by one." $" This is the 1000M sprint event."  5800 " In this event you control theswimmer in white (top lane). To accelerate you press SPACE ifyour energy is more than zero. Each time you do this, however, your energy decreases by one." B" This is the 100M freestyle event (2 lengths of the pool)."  5800 " In this event you control thecanoeist in white (top lane). To accelerate you press SPACE ifyour energy is more than zero. Each time you do this, however, your energy decreases by one." ;" This is the KAYAK SINGLES race, raced over 1000M."  5800 v" In this event you control theoarsmen/yachtsmen in white (top lane). To accelerate you press SPACE if your energy is more than zero. Each time you do thishowever, your energy decreases by one." ,EV=5" This is the TORNADO class." 6EV=4" This is the DOUBLE SCULLS class."  300,  r CH=0 u$:10 ,10 ;"PLEASE WAIT" wT1,2;"LETS SEE HOW THE MARATHON IS GOING. WE JOIN IT AT STAGE ";MAR z6020:GUN=0 "F="A""R"+7:GR:F,GR:F 24,24,120x,92\,24,84T,36$,4,12 ,12 ,24,60<,568,28,12 ,20 J24,24,125},94^,92\,22,18,34" 0,0,0,255,0,0,0,0,4,2,1,255,128,64@,32 ,16 0,0,0,0,255,132,255,0,8,4,2,1,255,32 ,255,0 3,15,63?,127,255,255,255,255,128,224,240,252,252,254,254,255 255,255,255,255,127,63?,31,7,255,255,254,254,254,252,248,240 3,3,3,3,3,3,3,3,192,192,192,192,192,192,192,192 255,128,153,165,165,153,128,255,255,0,21,21,9 ,201,0,255 255,0,44,,234,44,,40(,0,255,255,1,185,161,161,185,1,255 L24,24,126~,189,189,36$,36$,36$ &1:7:0:0: NF=06:F,0;6;" ":F PF=1721:F,0;6;" ":F EN=9 : 8uMAR=1A11=1:B11=1:C11=1:D11=1:A12=1:B12=1:C12=1:D12=1 :MAR=1EN=9 =;PR=0:A=9 :B=11 :C=13 :D=15 BF$=" ":G$=" ":H$=" " L>5,0;6;"" V>6,0;6;"" [617,0;"________________________________" `?18,0;6;"" eh4;6;19,0;" " jH0;6;21,0;" " og4;6;2,0;" " tG0;6;4,0;"" ~60,6;6;"MARATHON (STAGE ";MAR;")" 71,3;6;"PRESS SPACE TO ACCELERATE" *A11>18,A11-1;" " 'A11>08,A11;1;F$ *A12>19 ,A12-1;" " 'A12>09 ,A12;1;F$ (B11>010 ,B11;2;F$ (B12>011 ,B12;2;F$ (C11>012 ,C11;3;F$ (C12>013 ,C12;3;F$ (D11>014,D11;0;F$ (D12>015,D12;0;F$ 1GUN=0MAR=1400:GUN=1 'A11>08,A11;1;G$ 'A12>09 ,A12;1;G$ (B11>010 ,B11;2;G$ (B12>011 ,B12;2;G$ (C11>012 ,C11;3;G$ (C12>013 ,C12;3;G$ (D11>014,D11;0;G$ (D12>015,D12;0;G$ 'A11>08,A11;1;H$ 'A12>09 ,A12;1;H$ (B11>010 ,B11;2;H$ (B12>011 ,B12;2;H$ (C11>012 ,C11;3;H$ (C12>013 ,C12;3;H$  (D11>014,D11;0;H$  (D12>015,D12;0;H$  6605 8,0;"E";9 ,0;"N";10 ,0;"E";11 ,0;"R";12 ,0;"G";13 ,0;"Y":PR=1 2A11=A11+*.353333 4A12=A12+*.353333 <B11=B11+*.5 >B12=B12+*.5 FC11=C11+*.5 HC12=C12+*.5 PD11=D11+*.5 RD12=D12+*.5 ZEN>0Ʀ=" "A11=A11+1:A12=A12+1:EN=EN-1:A110A1208,A11-2;"";9 ,A12-2;"" \JEN=01,0;6;" " _15,0;1;EN d,65001,64@:65004,64@ n0*65000 s65004,80P x0*65000  6300 +A11>29.5lA12>29.5l6650 +B11>29.5lB12>29.5l6650 +C11>29.5lC12>29.5l6650 +D11>29.5lD12>29.5l6650  6420 `MAR5A11>29.5lA11>A12A11>B11A11>B12A11>C11A11>C12A11>D11A11>D126800 `MAR5A12>29.5lA12>A11A12>B11A12>B12A12>C11A12>C12A12>D11A12>D126800 `MAR5B11>29.5lB11>A11B11>A12B11>B12B11>C11B11>C12B11>D11B11>D126820  `MAR5B12>29.5lB12>A11B12>A12B12>B11B12>C11B12>C12B12>D11B12>D126820 `MAR5C11>29.5lC11>A11C11>A12C11>B12C11>B11C11>C12C11>D11C11>D126840 `MAR5C12>29.5lC12>A11C12>A12C12>B12C12>B11C12>C11C12>D11C12>D126840 `MAR5D11>29.5lD11>A11D11>A12D11>B12D11>B11D11>C12D11>C11D11>D126860 `MAR5D12>29.5lD12>A11D12>A12D12>B12D12>B11D12>C12D12>C11D12>D116860 "MAR=MAR+1 ' 6890 (10 ,2;A$(10 );" WIN!" GB=GB+1:CH=1  6870 (10 ,2;B$(10 );" WIN!" US=US+1:CH=1  6870 (10 ,2;C$(10 );" WIN!" RS=RS+1:CH=1  6870 (10 ,2;D$(10 );" WIN!" GE=GE+1:CH=1 T=*30+10 R= R>.66872 T$=T R$=R >11 ,2;"TIME:3.";T$(2);R$(24) A11=A11+*25 B11=B11+*25 C11=C11+*25 D11=D11+*25 A12=A12+*25 B12=B12+*25 C12=C12+*25 D12=D12+*25 A11=A11-40( B11=B11-40( C11=C11-40( D11=D11-40( A12=A12-40(  B12=B12-40(  C12=C12-40(  D12=D12-40( YMAR50,0;6;" MARATHON (STAGE ";MAR-1;") " dCH=10,0;6;" END OF MARATHON ":EV=6:MAR=10  300,: X GOLD MEDALS Y&1:1:7:0: Z41;0,4;"GOLD MEDALS WON SO FAR" \ ^A$(10 );" ";GB ` bB$(10 );" ";US d fC$(10 );" ";RS h jD$(10 );" ";GE k3MAR=10 MIN1'''"END OF LIVE EVENTS" l$MIN=1'"END OF ALL EVENTS." 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 -1;10 ,8;"START THE TAPE" "NAMES 1(2)"A$() "NAMES 2(2)"B$() "NAMES 3(2)"C$() "NAMES 4(2)"D$() "NAMES 5(2)"E$() .:10 ,8;1;"STOP THE TAPE"  300, W$="Y"  7,0;" Yow now have the opportunity to save the competitor's names. This means that any names you have entered, can be loaded backat a later date." 5"DO YOU WANT TO SAVE COMPETITOR'SNAMES (Y/N)? ";W$ W$="Y"W$="y"77302 (W$="N"W$="n"7772\ - 7700 2"NAMES 1(2)"A$() <"NAMES 2(2)"B$() F"NAMES 3(2)"C$() P"NAMES 4(2)"D$() Z"NAMES 5(2)"E$() [.:10 ,8;1;"STOP THE TAPE" \)"DO YOU WANT TO PLAY AGAIN (Y/N)? ";W$ ]W$="Y"W$="y" ^W$="N"W$="n" _ 7772\ eEZ=23613=\+256*23614>\:Z,0:Z+1,0 i7:10 ,8;7;1;"STOP THE TAPE" n 200 s xEV16000p zEV=19930& }EV=11000 EV=21500 EV=32000 EV=43000 EV=54000 EV>54500  7800x B1:1:7: EEV87050 J0,10 ;"EVENT ";EV T ^E$(EV) h m"COMPETITORS:": rA$(10 );" ";A$(EV) | B$(10 );" ";B$(EV)  C$(10 );" ";C$(EV)  D$(10 );" ";D$(EV)  300,  &7:7:0:0: jCL=0:GB=0:RS=0:US=0:GE=0:SP=1:MIN=0:23658j\,8 A$(11 ,14) B$(11 ,14) C$(11 ,14) D$(11 ,14) E$(11 ,14) A$(10 )="GREAT BRITAIN" B$(10 )="U.S.A." C$(10 )="U.S.S.R." D$(10 )="REST OF WORLD" A$(11 )="GBR" B$(11 )="USA" C$(11 )="USR" D$(11 )="R/W" &0,6;"OLYMPICS (SIDE 2)" '45-,167:138,0  1;" This side of the cassette simulates some more Olympic events which take place outside the main stadium. The countries (or clubs) competing can again be those of your own choice or you can use the countries already in the computer (i.e. GREAT BRITAIN, U.S.A., U.S.S.R. and REST OF THE WORLD). The athletes names can be loaded from tape,can be the names already in the computer, or you can type them in yourself." ֜" 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)."  300,:  9900& ?" These are the events in whichyou control the athlete:-":  "1)CYCLING" "2)SWIMMING" "3)CANOEING"  "4)ROWING" "5)YACHTING" :" In between each event we will go and see how the MARATHON is progressing. In that event you control TWO athletes (both wearing blue)." u" We will see 5 different stagesof the MARATHON. The athletes positions may alter between the different stages."  5000 CHECK=18204  7500L CHECK=18204  OWN=0 Q"Enter (1) to use the countries already listed, or (2) to enter your own.";W$ W$="1"8204 W$="2"350^:8204 8200 MAR=1 :"Throughout these events the athletes will wear various colours, but 'your' competitor will always be the one nearest the top of the screen."  300, CHECK=16  82400 &S=15:E$(S):S 05"CYCLING","SWIMMING","CANOEING","ROWING","YACHTING" : INPUT NAMES <1:1:7: >P=15 ?!P=4P=58275S @ A$(10 );"(YOUR TEAM)" A"PLEASE ENTER NAME:" D21,0;E$(P) NA$(P) X:P bP=15 c!P=4P=58315{ dB$(10 ) g"PLEASE ENTER NAME:" l21,0;E$(P) vB$(P) :P P=15 !P=4P=58355 C$(10 ) "PLEASE ENTER NAME:" 21,0;E$(P) C$(P) :P P=15 !P=4P=58395 D$(10 ) "PLEASE ENTER NAME:" 21,0;E$(P) D$(P) :P 6 #- 9050Z# #2F="A""F"+7 #<B1 #FF,B1 #PF #Z3,3,7,59;,70F,71G,70F,568,144,568,240,94^,145,81Q,81Q,14,0,0,0,0,0,0,0,1,0,0,0,0,96`,112p,224,224 #d3,3,7,59;,71G,71G,70F,568,144,568,240,222,145,209,209,14 #nCH3=1 %65000:CL=65000 %"10 ,10 ;"PLEASE WAIT" %! 9550N% %&F=CLCL+24:M$ %0\XX=M$-480-(39'*(M$>"`")):YY=M$(2)-480-(39'*(M$(2)>"`")) %:F,XX*16+YY %DF %N~"06","c0","11","00","40","d5","e1","23","c5","01","1f","00","1a","ed","b0","2b","77","00","23","23","13","c1","10","f0","c9" %S,65001,64@:65004,64@ %X CH3=0 % 9600% %"10 ,10 ;"PLEASE WAIT" %"F="H""U"+7:GR:F,GR:F %0,0,0,24,24,126~,189,189,189,189,189,36$,36$,36$,36$,36$ %24,24,126~,189,189,36$,36$,36$,255,128,187,162,163,186,128,255 %254,2,34",162,34",186,2,254,3,2,4,8,16,32 ,64@,128 %255,0,0,0,0,0,0,0,192,32 ,16,8,4,2,1,1 %128,128,190,162,162,162,162,162,0,0,255,129,189,165,165,189 %Ƙ1,1,125},69E,69E,69E,69E,69E,189,128,128,128,128,128,128,255 %Е129,133,133,129,129,129,129,255,125},1,1,1,1,1,1,255 %CH3=1 % 9820\& & CHECK=0 &&1:1:7:0: & 8,0;2;7;1;1;" " &*Y0,0;6;2;1;1;" SIDE 2 " &/@16,4;6;2;"  MATTHEW BRADSHAW 1984" &4 9790>& &6L=0.25~ &9!R=116:D,P:D,P:R &>L,0,L,0,L,2,.353333,-1,.12}u[,0,L,2,L,4,L,4,L,5,.353333,4,.12}u[,2,L,0,L,2,L,0,L,-1,L,0 &H 300, &MM0,7;6;2;1;1;"PLEASE WAIT A MOMENT" &O CH3=0 &R 9000(# &\ 4 & 9910& &S=15:E$(S):S &6"CYCLING","SWIMMING","CANOEING","SAILING","YACHTING" & &6:6:0: &,0,10 ;1;"GOLD MEDALS": &Ԙ"Please now enter the gold medalswon on the first side of this cassette. If you can't remember them or you have come straight here, then enter '0'" &N$="GOLD MEDALS WON FOR " &-(N$);" ";(A$(10 ));"? ";W$ &W$<"0"W$>"9"9960& &GB=W$ &-(N$);" ";(B$(10 ));"? ";W$ &W$<"0"W$>"9"9970& &US=W$ &-(N$);" ";(C$(10 ));"? ";W$ &W$<"0"W$>"9"9980& 'RS=W$ '-(N$);" ";(D$(10 ));"? ";W$ 'W$<"0"W$>"9"9990' ' GE=W$ '  hecl~9&d~pWMJB10668zQ