ZXTape! 0Created with Ramsoft MakeTZXOLYMPICS2 ]e7_ MATTHEW BRADSHAW 1984 PREPARED FOR  CRL LTD   9700% 'EV=1:CHECK=1:8100 MIN=0:MAR=1 7800x d>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