Fall Guy  L 0:0:7: @ PAUL STANLEY 1983  9000(# l"Please enter your names. First, the player on the left:",b$:"And now the player on the right:"'c$ "10 ,10 ;"PLEASE WAIT"  8000@  7000X (3y=(*19)+2:y1=(*19)+2 */g=7:g1=24:f=1:f1=1 ,w$=" " -%i=10 30:.07}\(,i:i 233;y,4;"";6;y1,27;"" <01;3;f,g;"";6;f1,g1;"" F[(f+1,g)=" "f,g;" ":f=f+1:f,g;1;3;"":.01z# =,10 I(f+1,g)="O"i=39 :.01z# =,i*5:i:f,g;" ";1;6;1,7;"":f=1:g=7 Kc(f1+1,g1)=" "f1,g1;" ":f1=f1+1:f1,g1;1;6;"":.01z# =,20 L(f1+1,g1)="O"i=39 :.01z# =,i*5:i:f1,g1;" ";1;6;1,24;"":f1=1:g1=24 M$f=21f1=215000 P?63486=253y>2y,4;" ":y=y-1 UD61438=254y1>2y1,27;" ":y1=y1-1 Z@65022=254y<20y,4;" ":y=y+1 _E49150=253y1<20y1,27;" ":y1=y1+1 d$64510=2541000 i$57342=2532000 n$64510=2531100L s$57342=25421004 <w$=w$(2)+w$(1):21,6;4;w$  502 2i=y-1:y=fg=6a$(i,2)" " 'y=f1g1=6a$(i,2)" " $a$(i)=a$(i,2)+a$(i,1) 'y=fa$(i,g-5)" "g=g-1 +y=f1a$(i,g1-5)" "g1=g1-1 y,6;a$(i): L4i=y-1:y=fg=25a$(i,19)" " M)y=f1g1=25a$(i,19)" " N&a$(i)=a$(i,20)+a$(i,19) Q'y=fa$(i,g-5)" "g=g+1 S+y=f1a$(i,g1-5)" "g1=g1+1 Vy,6;a$(i): 6i=y1-1:y1=f1g1=6a$(i,2)" " &y1=fg=6a$(i,2)" " $a$(i)=a$(i,2)+a$(i,1) ,y1=f1a$(i,g1-5)" "g1=g1-1 (y1=fa$(i,g-5)" "g=g-1 y1,6;a$(i): 48i=y1-1:y1=f1g1=25a$(i,19)" " 5(y1=fg=25a$(i,19)" " 6&a$(i)=a$(i,20)+a$(i,19) 9,y1=f1a$(i,g1-5)" "g1=g1+1 ;(y1=fa$(i,g-5)" "g=g+1 >y1,6;a$(i): #f=21y=f:x=g:ink=3 &f1=21y=f1:x=g1:ink=6 w$="":c=1:g=016:y,x;1;ink;w$(c):c=(c=2)+(2c=1):i=13:.02{# =,i:i:g af=031:18,f;" ";19,f;" ";20,f;" ";21,f;2;" ":f f=2282:5;19,f-1;" ";20,f;"":.1}L,10 :5:20,f;" ";5;19,f+1;"":.1}L,20:5:f K:w$=(b$f=21)+(c$f1=21):f=21f1=215050 /4;5,0;"Well done ";w$;"!" *6''"You were the best Fall Guy!!"  5100 [4;5,0;"The result was a draw."'6''"You both did equally well." {''"Press ""X"" to quit the program."'5'"Press ""1"" for the same course."'4'"Press ""2"" for a new course."  ="x" ="1"5500|  5="2":10 ,10 ;"PLEASE WAIT":20  5110 |K:f=119:i=(*20)+1:a$(f)=a$(f,i)+a$(f,i):f  30 X3:f=119:f+1,6;a$(f):f bIf=221:2;4;f,5;"";f,26;"":f l9f=526:2;4;1,f;"":f vC1,7;" ";1,24;" ";21,16;" " K1;3;0,0;b$;6;0,(32 -c$);c$ ? @+a$(19,20):f=119 J:g=120:a$(f,g)=" ":>.5a$(f,g)="" O<.02{# =a$(f,g)="O" Tg:f  #( f="a""e"+7:g:f,g:f #2M170,85U,170,85U,170,85U,170,85U #