ZXTape! 0Created with Ramsoft MakeTZXdartscore J!65367W:6:6: ""  4:"" Q#1;1;6;1;1;" Program is now loading. " #/6:6:1:20,0; ("" dartscore @o<B<<B@<<<@BB<@8(BBB<<<<<<<<<<<<<<<<<<<<<<<<<@B 0DxB<  >>>@B DD>B>>>( ((BBZ <<<  / <8A| @??B8<8h(@ B DD T((h@>>>| DD >>DDD???PO@ D< DT/@@ 8 A8x<x<>`000`x```0`x<x<>x|<>x``````````0`>x|<>xx<x<`````>`` `x``8`x<x<>???x``p```` `````` 0````>```xx<x<` ``>`` 0`x`````x<x<>x|<>x` 00``` 8``````>x|<>xx<x<`0 00``>```p`xx<x<eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeffffiiiiiiiiiiiiiiiiiiiiiiffffeefffeeeeeeeeeeeeeeeeeeeeeeeeeffeeff``ffeeffFFFFFFFFFFFFFFFFFF`ffeeffFFFFFFFFFFFFFFFFFFffeeffFFFFFFFFFFFFFFFFFFffeeffFFFFFFFFFFFFFFFFFFFFffeeffffeeffCCCCCCCCCCCCCCCCCCCCffeeffCCCCCCCCCCCCCCCCCCCCffeeffCCCCCCCCCCCCCCCCCCCCffeeff`CCCCCCCCCCCCCCCCCCCCCCffeeff``ffeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeessssfffffppppppppppppppfffffvvvv                 vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv8888888888888888888888888888888888888888888888888888888888888888dartscore N S.C.Wright.July 1983.  10 "":6;21,0;" ":a$(704):f=18:8;f-7*(f=8);1;0,0;a$:.05|L,2*f:f:100d 65367W:9000(# a(x$\,y$G)=(x+y+(x-y))/2:u()=(65536*23674z\+256*23673y\+23672x\)/502:e()=a(u(),u()): 1400:f=023:z:"a"+f,z:f: 0,0,4,8,480,112p,224,192,15,31,63?,127,14,12 ,8,0,128,128,128,128,128,128,128,255 5:1:9 ::z$=" ":8100:0;1;17,0;z$;z$;" This game is a simple model ";z$;" of the game of darts. " rz$=" ":pp=1:5100:8,168:8,6:223,0:8,-6 f=15:f,1;4;z$;3;z$;4;z$:f:f=610 :f,1;3;z$;4;z$;3;z$:f &Hf=11 15:f,1;4;z$;3;z$;4;z$:f X1,1;6;z$;2;z$;6;z$:6,1;2;z$;6;z$;2;z$:11 ,1;6;z$;2;z$;6;z$ vf=48016840(:8,f:239,0:f:f=80P16040(:8,f:239,0:f:1950 045-,148:7,7:0,-24:-6,0:12 ,0:46.,148:7,7:0,-23:-6,0:12 ,0:120x,148:16,0,-3:-16,-16,-1.3&fff:18,0:121y,148:16,0,-3:-16,-15,-1.3&fff:18,0:203,155:16,0:-10 ,-8:-6,-10 ,-4.2fff:203,154:16,0:-10 ,-8:-6,-10 ,-4.2fff z$=" ":8100:0:"":0;0;17,0;z$;z$;" Only numbers 1 - 9 are used ";z$;" on a rectangular shaped board. " Cpp=0:5100:9 :45-,115s:-2,-20:14,0:502,90Z:0,10 :46.,115s:-2,-19:14,0:513,90Z:0,10 :137,115s:-16,0:0,-10 :0,-10 ,-4.8:137,114r:-15,0:0,-10 :-1,0:0,-10 ,-4.8:218,112p:-6,-20,3.8s333:-10 ,8,4.2fff:218,111o:-6,-20,3.8s333:-10 ,8,4.2fff 8100:1:"":0;1;17,0;z$;z$;" Doubles & trebles are shown in ";z$;" the space above each number. " pp=1:5100:43+,75K:14,0:-6,-22:58:,75K:-6,-22:43+,74J:14,0:130,70F,6:130,58:,6:130,70F,6.5P:130,58:,6.5P:210,69E,7:217,74J:0,-22:210,69E,6.5P:218,74J:0,-22  8100:2:"":0;2;17,0;z$;z$;" The computer throws the darts. ";z$;" Your job is to keep the score ":#1;" as quickly as possible !!! " /Xpp=2:5100:ad=0:sf=.06|u\:5000:pp=5:5100: 91:"":0;1;17,0;z$;z$;" You start with ";ot;" points and ";" "ot<100d;z$;"take away your scores from this." ;<pp=1:5100:200:8100:7:"" Ct0;7;17,0;z$;z$;" To finish you must reach ";z$;" EXACTLY zero with a DOUBLE. " E#pp=7:5100:200 Hempp=3:5100:3:"":0;3;17,0;z$;z$;" Be ready to press 'D' when ";z$;" you think a Double can finish. ":8100:200 Mpp=5:5100: W.sp=1:gg=1:j$="1st2nd3rd4th5th" \~tmf=0:bbf=0:bf=0:ff=0:qf1=1:qf2=1:tt=0:nt=0:h$=" ": bA6:"":z$=" "+(" "(tmbm)) c!tmfem1150~:2520 dem0;6;17,0;z$;18,0;" Press any key to ";19,0;z$;20,0;" throw the darts. ";21,0;z$ f{tmbm0;6;17,0;z$;" Press any key to ";z$;" throw the darts. ";z$ k4:46.-(20em),4:0,30,-3.1Ffff:160,0:0,-30,-3.1Ffff:-160,0:9 :0:8100 ntmft1=e() pNtmf=1:z$=" "+(" "(tmbm)):4:"" qem4;6;t>1;17,0;z$;18,0;" ";9 ;0;" Watch carefully ";6;t>1;" ";19,0;z$;20,0;" ";9 ;0;" where they go ! ";t>1;6;" ";21,0;z$ r{tmbm4;9 ;17,0;z$;" Watch carefully ";z$;" where they go ! ";z$ u6:480-(20em),4:0,30,-3:160,0:0,-30,-3:-160,0:9 : pp;ii;17,0;"";18,0;"";18,18;"";19,0;"";19,18;"";20,0;"";20,18;"";21,0;"": fl=0:ll=1:f=1ll:r=1l:8-(7fl);fl;1;8;rr-r,c+r+1;"";rr-r+1,c+r;"" Y(r=lf=ll)8;fl;1;8;rr-r,c+r+1;"";rr-r+1,c+r;""  :.005y# =*so,r+30:.005y# =*so,r+37%:r:f M1;fl;8;rr-r+1,c+r;"";rr-r+2,c+r-1;"": V(sp=1:bfbf=0:1132l `rr=:rr>.8Lsp=2 jrr>.95s333sp=3 lffsp=2 oe$(t,6)=sp t t=4t=3 Esc=0:tff=1t:sc=sc+e$(f,6)*e$(f,5):f bm  rm=ot-sc sp=2rm9615% rm>1 Mot<9 bf=1:btg=1:f=1t:u(f)=1btg=2 bf=1f bbf=1:tm1185 rm=ot:pp=2:2500 :2;7;19,5;" You're BUST !!":.3so,-5:.6so,-10 :#1;3;7;" Press any key to throw again . ":0:"" Bf=1721:f,0;" ":f rm<196:28,4:0,30,-3:160,0:0,-30,-3:-160,0:9  9440$ /1300:pp=2:ii=0:900 2;7;18,1;" You have scored ";19,1;h$;20,1;" too many points.":100d:2;7;18,1;h$;19,1;" You're bust !! ";20,1;h$ 1"":.3*so,-5:.6*so,-10 y#1;3;7;" Press any key to throw again ! ":0:"":qf1=1:qf2=1:rm=ot:9130# 9 :sp=1 sp=31235 ğ9 ;8;1;l1,c1;"_ DOUBLE !";1;l1,c1+1;"_________":1+(99cso):sof=10 11 .05|L:.05|L,f:f b9 ;8;0;l1,c1;"_ DOUBLE !";1;l1,c1+1;"_________":1950: ӟ9 ;8;1;l1,c1;"_ TREBLE !";1;l1,c1+1;"_________":1+(99cso):sof=1718.05|L:.05|L,f:f b9 ;8;0;l1,c1;"_ TREBLE !";1;l1,c1+1;"_________":1950: t=4t=3 f=1t:n=e$(f,5):rb=e$(f,2):cb=e$(f,34):8;rb,cb;" ";rb-1,cb+1;" ":1537:8;8;l1,c1+1;"_________":f:1950: 7:q$=(" "ot<100d)+(" "ot<10 )+ot:r$=(" "tt<100d)+(" "tt<10 )+tt:s$=(" "nt<100d)+(" "nt<10 )+nt (0;17,19;"Old Score:";0;q$;0;19,19;"This Turn:";0;(r$qf1)+(" ?"qf1);0;21,19;"New Score:";0;(s$qf2)+(" ?"qf2) -Qf=18202:0;f,19;" ":f:0: Ht1300:"":ff#1;1;6;1;" Give the score";1;" so far ";0;"this go. " JMff#1;1;6;1;" Give the score for these darts." K9 ;6;18,1;"What is the score";19,1;h$;20,1;"this turn ";5;" = ";6;" " Nipp=6:ii=0:900:pn=20:cn=13 :8000@:1150~:ans=sc1380d U.3*so,-5:.6*so,-10 :7;2;18,1;" SORRY! SORRY! ";19,1;h$;20,1;" You're WRONG. ":pp=2:ii=0:900 ZX"":#1;1;1;7;"Press R to Redo ";3;"Press H for Help" ]=""1373] _]cz=:cz72Hcz104hcz82Rcz114rso*.4L,-10 :1373] a&cz=82Rcz=114r1350F b?cz=72Hcz=104h1700:4:"":1350F dqf1=0:tt=ans:1300:"":6;18,1;" WELL DONE ! ";19,1;h$;20,1;" ";ans;" is correct. ";" "ans<10 kYpp=6:ii=0:900:f=120:f/200so,f:f:100d: }pp=6:2500 r6;18,1;"The OLD SCORE was ";ot;20,1;"What is the NEW SCORE ":8100 Bpn=20:cn=22:8000@:"":pp=6:2500 Sans=rm6;19,5;" Well Done !!":oot=ot:ot=ot-sc:2520 >ans=rmf=120:f/200so,f:f:502: pp=2:2500 :2;7;19,1;" SORRY ! You're Wrong .":.3so,-5:.6so,-10 :100d:pp=6:2500 :1410 tm"":6;18,1;" WELL DONE ! ";19,1;" ";20,1;" Double ";ans;" WINS ! " 'tmpp=6:ii=0:900 stg=2*ans 0f=1t:u(f)=stgstg=2*ans-1 f: Itmqf1=0:qf2=0:tt=tt+ans*2:nt=0:1300 @emott=ot:ot=0:oot=sc+ans*2:2520 :ot=ott `f=13:f:"":g=10 *f10 *f+20:so*.008zn,g:g:f:4:"" )sf=.04|# =:ad=10 :5000: ch=1+(*18)  bfch=btg ffch=stg:1520 "u=1t:u(u)=ch1510  u:u(t)=ch 1550+2*ch:d$ Frr=15:c=d$(2):l=d$(34):n=d$(5) !l=2n=1rr=5 :(l=2n=4)(l=7n=1)rr=10 Pe$(t,2)=(rr+1-l):e$(t,34)=(c+l):e$(t,5)=n 1537: !n1n3l1=1 !n4n6l1=6 "n7n9 l1=11 +n=1n=4n=7c1=1  ,n=2n=5n=8c1=11  ,n=3n=6n=9 c1=21    "01021"  "01071"  "01122"  "06122"  "11123"  "16123"  "01024"  "01074"  "06075" " "11075" $ "16076" & "21076" ( "01027" * "06027" , "11028" . "16028" 0 "21029" 2 "26029" Ent=ot-sc:pp=3:ii=0:900:3;7;18,1;" Now work out ";19,1;h$;20,1;" the new score. ":8100:150:pp=6:ii=0:900 T"":#1;6;1;" What is the new score ? ":6;18,1;" The New Score ";19,1;h$;20,1;" =";q$;" - ";r$;" = ";5;" " V]pp=6:ii=0:900:pn=20:cn=14:8000@:ans=nt1638f [.3*so,-5:.6*so,-10 :7;2;18,1;" SORRY! SORRY! ";19,1;h$;20,1;" You're WRONG. " ]{pp=2:ii=0:900:"":#1;1;1;7;"Press R to Redo ";3;"Press H for Help" `=""1632` b]cz=:cz72Hcz104hcz82Rcz114rso*.4L,-10 :1632` c&cz=82Rcz=114r1620T d?cz=72Hcz=104h1900l:4:"":1620T fqf2=0:nt=ans:1300:"":6;18,1;" YES ! There are ";19,1;h$;20,1;" ";ans;" left over. ";" "ans<10 j`pp=6:ii=0:900:f=115.5:f/200so,f:f:150 p>ffqf1=1:qf2=1:ot=nt:nt=0:tt=0 q w^1150~:rm=ot-sc:ff=0:rm<20rm=2*(rm/2)t3ff=1 ff 1300:6;1;1;18,1;" A double will ";19,1;h$;20,1;" end the game ! ":pp=6:ii=0:900:f=13:f:"":g=10 *f10 *f+20:so*.008zn,g:g:f:4:"":150 .t1tf=11350F:1600@ "":6;18,1;"To get ";rm;" "+(" "rm<10 );19,1;h$;20,1;"Aim for Double";5;" ":#1;1;6;" Which DOUBLE shall I aim for ? " Ipp=6:ii=0:900:pn=20:cn=14:8000@ ans=rm/2"":t2=e(): .3*so,-5:.6*so,-10 :7;2;18,1;" SORRY! SORRY! ";19,1;h$;20,1;" You're WRONG. ":pp=2:ii=0:900:"":#1;1;1;7;"Press R to Redo ";3;"Press H for Help" =""1686 ]cz=:cz72Hcz104hcz82Rcz114rso*.4L,-10 :1686 &cz=82Rcz=114r1675 ?cz=72Hcz=104h1800:4:"":1675 ]d$(160):0;3;17,0;d$:3:"":1750:f=1t 6;0;16+f,0;" (";f;") ";1;" ";f$(f);" ";0;" ";e$(f,6);" X ";e$(f,5);" = ";0;7;" ";(" "s(f)<10 );s(f);" " t8100:#1;1;" Press any key for next hint. ":0:"":f:z$=" " 9t<20;7;18,27;" 0 " 9t<30;7;19,27;" 0 " 06;17,0;z$;18,0;" So add up this sum ";19,0;z$;20,0;" and remember the answer. ";21,0;z$;0;20,27;" ";21,27;" ":#1;1;6;1;" Press any key to try again. " lj7:0;19,28;"+":224,14:30,0:224,2:30,0:0:0: t=4t=3 .s(3):f$(3,9 ):f=1t 8e$(f,6)=1f$(f)=" Single "+e$(f,5) 8e$(f,6)=2f$(f)=" Double "+e$(f,5) 8e$(f,6)=3f$(f)=" Treble "+e$(f,5) $s(f)=e$(f,5)*e$(f,6) f:  d$(160):0;3;17,0;d$:3:"":7;0;3;18,0;" We need to know which number ";20,0;" when doubled , gives ";rm;"." 1850::0;3;7;17,0;d$;18,10 ;"So 2 X ";1;"?";0;" = ";rm;".";20,0;" Look at the 2 Times Table !" Ga$=17+5:b$=17+3:1850::5:"" !7;0;3;17,0;d$;1;17,0;"2 X 1 =2 ";a$;" ";b$;" 2 X 4 = 8 ";a$;" ";b$;" 2 X 7 =14";19,0;"2 X 2 =4 ";a$;" ";b$;" 2 X 5 =10 ";a$;" ";b$;" 2 X 8 =16";21,0;"2 X 3 =6 ";a$;" ";b$;" 2 X 6 =12 ";a$;" ";b$;" 2 X 9 =18" 1;5;18,9 ;" ";20,9 ;" ";18,21;" ";20,21;" ":"":#1;1;6;1;" Press any key to try again. ":0:8100:""::1300: ?n"":100d:#1;1;6;1;" Press any key for next hint. ":0:8100: qd$(160):0;3;17,0;d$:3:"":3;7;0;18,0;" TAKE AWAY this turn's score ";20,0;" from the old score.":1850: {3;9 ;0;17,0;d$;6;1;17,0;" The old score is ";0;" ";q$;" ";6;18,0;" This turn's score is ";0;" ";r$;" " F1850::1;6;9 ;17,0;h$;" ";18,0;" So work out this sum ";0;18,26;"-";6;19,0;h$;" ";0;" ";6;" and remember the answer.";0;" ? ";6;21,0;h$;" ";0;" " 216,18:7;24,0:216,5:7;24,0:"":#1;7;" Press any key to try again. ":0:"":1300: 9 :87W,480:0,120x:247,480:0,120x:f=8168160:f,480:0,120x:f: ffrm<2rm>18 ՚1;1;6;18,3;"Press 'D' if a DOUBLE";19,3;" ";20,3;"will finish the game." f=1100d  =""f #="d"Ŧ="D""":2050:"": f:"" !t1tf=1880p  `1150~:2520 :ff=0:rm<20rm=2*(rm/2)t3ff=1  ffpp=2:2500 :2;7;18,1;" You're WRONG. You cannot";20,1;" finish on a double here.":.3so,-5:.6so,-10 :100d hfff=1721:f,0;" ":f:t1tf=1880p ff pp=6:2500 :6;18,3;" You can finish now.";20,3;" Aim for DOUBLE ":#1;1;3;7;" Which Double shall I aim for ? ":8100:pn=20:cn=18:8000@:"" ^ans=rm/2t2=e():pp=6:2500 :6;19,6;" WELL DONE !!!" 9ans=rm/2f=120:f/200so,f:f ansrm/2pp=2:2500 :2;7;19,8;" You're Wrong.":.3so,-5:.6so,-10 :100d:pp=6:2500 :2065 3 >pp;0;17,0;"";18,0;"";18,26;"";19,0;"";19,26;"";20,0;"";20,26;"";21,0;"": Yz$=" ":f=1820:pp;f,1;z$:f:21004: ]s$=(" "ot<100d)+(" "ot<10 )+ot:q$=(" "oot<100d)+(" "oot<10 )+oot tmf2532 ݊f=1721:0;f,27;" ":f:0;7;17,27;"SCORE":217,30:36$,0 10;7;19,28;q$:tmf Z222,18:7;28,3:0;7;20,28;s$: pp;0;17,0;"";18,0;"";18,31;"";19,31;"";20,31;"":f=1820:pp;f,1;" ":f: 2.pp=6:2550 :5;18,1;" ";j$(3*s-23*s);" GO. ":6;18,12 ;"What is the total";20,1;" score for these 3 darts":#1;1;3;7;" PLEASE type in your answer. ":pn=20:cn=27:8000@ Ranssc2660d U|2550 :"":6;18,8;" WELL DONE ! ";20,8;" ";ans;" is correct. ";" "ans<10 Z6f=120:f/200so,f:f:100d: dpp=2:2550 :7;2;18,8;" SORRY! SORRY! ";20,8;" You're WRONG. ":.3*so,-5:.6*so,-10 :"":#1;1;1;7;"Press R to Redo ";3;"Press H for Help" s=""2675s x]cz=:cz72Hcz104hcz82Rcz114rso*.4L,-10 :2675s }*cz=82Rcz=114r"":2600( ?cz=72Hcz=104h1700:4:"":2600( 1:2:"":5::3;7;0,0;" INTRODUCTION to this Program. ":f=417:4;f,3;" ":f:20:f=417:6;f,3;" ":f ]6;6,3;" This Program teaches you ";9 ,3;" how to keep the score in ";12 ,3;" a simple version of the ";15,3;" game of 'Darts'. ":3:0:23,31:209,0:0,113q,-.1}L:-209,0:0,-113q,-.1}L:9 :1 8100:100d:1;1;6;21,0;" Press any key to continue. ":0:"":8100:4:"":21,0;" ":f=516:4;f,4;" ":f 20:f=516:3;f,4;" ":f:3;7;6,4;" It gives easy practice ";9 ,4;" in Adding up, ";12 ,4;" Taking away, Doubling ";15,4;" and Trebling numbers. " *7:31,39':193,0:0,97a,-.1}L:-193,0:0,-97a,-.1}L:9 :7:0:23,31:209,0:0,113q,-.1}L:-209,0:0,-113q,-.1}L:9 :1:8100 100d:1;1;6;21,0;" Press any key to continue. ":0:"":21,0;" ":f=516:4;f,4;" ":f !20:f=516:3;f,4;" ":f:3;7;6,4;" There are 3 levels of ";9 ,4;" skill..":f=9 15:4;f,13 ;" ":f 020:f=9 15:5;f,13 ;" ":f:10 ,13 ;"(1) Beginners.";12 ,13 ;"(2) Junior.";14,13 ;"(3) Expert.":103g,47/:113q,0:0,579:-113q,0:0,-579:7:31,39':193,0:0,97a,-.1}L:-193,0:0,-97a,-.1}L:9 :8100 :g100d:1;1;6;21,0;" Press any key to continue. ":0: dz$=" ":5:"":f=1721:5;f,0;z$:f F6;1;17,3;"";18,3;"";0;" Level (1) Beginners. ";1;"";19,3;"";0;" Level (2) Junior. ";1;"";20,3;"";0;" Level (3) Expert. ";1;"";21,3;"" ]#1;1;1;7;"Pick level.";6;0;"Press '1','2' or '3'." =""3240 cz=-480 :cz<1cz>3.2~Lso,-10 :3240 8100:lv=cz: MJng=ng+1:t$=" "+x$(1)+" ("+lv+") "+u$+" s. ":7000X a)6;5;18,0;"":6;5;19,0;"";0;"Do You want another go ? (Y/N)";5;"":6;5;20,0;"":#1;" Press 'Y' for Yes, 'N' for No. ":8100 u =""3445u zcz= Vcz78Ncz89Ycz110ncz121y.2~Lso,-10 :3445u 4cz=78Ncz=110ngg=0:8100: 4cz=89Ycz=121ygg=1:8100: o=2:0:5: #o;7;3;" Darts Game Results. " z$="********************************":#o;4;9 ;1;''z$;6;" Name. ";3;" Level.";6;" Time . ";4;z$ f=1ng:#o;6;9 ;(f=2*(f/2));v$(f,117);3;v$(f,1824);6;v$(f,25):f #o;4;1;z$ o=3''''' m8100:"":#0;1;2;7;"'P' Print.";6;0;" Any other key- Go on." =""4050 ="P"o=3:4010 "": so200:  5050 Lf=1524:pr,no:pr=pr*sf:no=no+ad:no=60<+ad20:f  pr,no:f: _2,7,1,11 ,4,14,2,16,1,14,4,7,2,11 ,1,7,4,9 ,2,11 ,1,9 ,4,4,2,11 ,1,4,4,7,2,11 ,1,7,4,14,2,16,1,14,8,9 ,60<,60<,2,7,1,11 ,4,14,2,16,1,14,4,7,2,11 ,1,7,4,9 ,2,11 ,1,9 ,4,4,2,11 ,1,4,4,7,2,11 ,1,7,4,9 ,2,11 ,1,9 ,8,7,60<,60<,4,14,4,11 ,4,12 ,2,11 ,1,9 ,4,7,4,14,8,19 75100:f=132 :pr,no:pp;pr,no:f: Q0,175,0,174,1,175,255,175,255,174,254,175,0,173,1,174,2,175,255,173,254,174,253,175,0,172,3,175,255,172,252,175,0,40(,0,41),1,40(,255,40(,255,41),254,40(,0,42*,1,41),2,40(,255,42*,254,41),253,40(,0,43+,3,40(,255,43+,252,40( ]ng=1v$(1)=t$: b't$v$(1)y=0:7100 g t$v$(ng-1)v$(ng)=t$: ly=1ng-1 v't$v$(y)t$4:0:4::z$=" " 'wf=0212:6;f,0;"":f *`5;4,3;z$;5,3;" Choose WORK or RESULTS. ";6,3;z$ >/1:23,144:209,0:0,-25:-209,0:0,24:15,72H:97a,0:0,-41):-97a,0:0,40(:135,72H:105i,0:0,-41):-105i,0:0,40(:0 RGz$=" ":5;13 ,2;z$;14,2;" Press 'W' ";15,2;z$;16,2;" for WORK. ";17,2;z$:z$=z$+" ":5;13 ,17;z$;14,17;" Press 'R' ";15,17;z$;16,17;" for RESULTS.";17,17;z$:8100 _=""7263_ cz$=:z$="w"z$="W" p2z$"r"z$"R".2~L*so,-20:7263_ u:4000:7200  J"5:ans=0:pv=0 O""8015O T8=""1;1;pn,cn+3;"?":8020T ^sz$=:cz=z$:(cz<480cz13 )(cz>579cz114rcz82R).1}L*so,-20:8015O h<.1}L*so,20:cz=82Rcz=114r8080 mcz=13 8090 t+vz=z$:vz=0pv=08015O |8ans=10 *ans+vz:pv1pn,cn+2-pv;ans |pv=pv+1:pv=1"":#0;1;1;7;" R for rubout ";6;1;" ENTER if Finished" Epv>2.1}L*so,-20:pn,cn+1;" ":8010J  8015O pv=08010J ;ans=(ans/10 ):pn,cn+3-pv;" ":pv=pv-1 $ans0pn,cn+3-pv;ans  8015O Fans=0.1}L*so,-20:pn,cn+1;" ":8010J  4: so=0502: <.33(8120 >.58125 B.1}L,3:.1}L,5:.2~L,0:15: E.1}L,13 :.1}L,15:.2~L,10 :15: E.1}L,23:.1}L,25:.2~L,20:15: I4:1:4:0::z$=" " wf=0212:6;f,0;"":f 5;3,2;z$;4,2;" Do You want to have sound ";5,2;z$;6,2;" cues during this program ? ";7,2;z$ &i1:15,152:225,0:0,-41):-225,0:0,40( *]23,72H:89Y,0:0,-41):-89Y,0:0,40( ,g143,72H:89Y,0:0,-41):-89Y,0:0,40(:0 :z$=" " ?5;1;13 ,3;z$;14,3;" Press 'Y' ";15,3;z$;16,3;" for YES. ";17,3;z$ D5;13 ,18;z$;14,18;" Press 'N' ";15,18;z$;16,18;" for NO. ";17,18;z$ G""8263G I=""8265I SFcz=:cz89Ycz121ycz78Ncz110n8263G X&cz=89Ycz=121yso=1 ]&cz=78Ncz=110nso=0 b8100:: !95:1:1: !;Rq$=" ":f=311 :3;f,2;q$:f !>Lq$=" ":f=410 :4;f,5;q$:f !Cq$=" ":f=59 :6;f,8;q$:f:6;6,10 ;"What is your";8,10 ;"name please ?" !F@3:15,152:225,0:15,79:225,0:7:28,86:200,0,-2:-200,0:0 !HDpn,cn-5;"I am ":8100:w$="":lw=0:cap=0 !M""8525M! !R3=""1;1;pn,cn+lw;"*":8530R! !Wz$=:cz=z$ !\}(cz<65Acz32 cz13 cz480)(cz>90Zcz<97a)cz>123{.1}L*so,-20:8525M! !f/.1}L*so,20:cz=4808600! !h1cap=1lw=0cap=0:8630! !i$cz=32 lw=08525M! !j$cz=13 lw=08525M! !kcz=13 8620! !pcz=32 cap=1 !w$=w$+z$:lw=lw+1:pn,cn;w$:lw=1"":#0;1;5;1;" 0 for rubout";1;" ";6;"ENTER if Finished." !&lw>20lw=20:8620! ! 8525M! !cap=1cap=0 !lw=08525M! !2(w$(lw)>64@Ưw$(lw)<91[)cap=1 !Fw$=w$(lw-1):lw=lw-1:pn,cn+lw+1;" ":8525M! !Ox$(1,15):i$(1,lw):i$(1)=w$:x$(1)=i$(1) !0:6::f=1517:5;f,0;q$+q$:f:pn,11 -lw/2;" Hello ";i$(1);" !":8645!: !4(cz>96`cz<123{)cz=cz-32 :z$=cz ! !Ņf=118:"":23692\,-1:6;21,31;" ":.1}L*so,f:.05|L*so,f+7:5:f: #-E8200 :20:v$(30,32 ):ng=0:3000 #7ng7200  #