angle 'ESTIMATE THE ANGLE 9000(# 1score=0:oldscore=0:turn=1: 5000:instructions 1:7:1: b$="ESTIMATE THE ANGLE" (1,5;:6020 2b$="** "+a$+" **" <72,12 -(a$)/2;2;:6020 F"b$="Here are five angles to try" P3,2;:6020 Zg(5):a(5) dp=15 nh4,0;:n=118:" ":n:clear rest of the screen xb$="number "+p 4,1;:6020 angle=10 +5*(*(17+(18(turn>1oldscore>25))+(18(turn>2oldscore>25)))) first turn only gives angles up to 90 degrees. if good enough score second turn gives angles up to 180 and third gives angles up to 270 Sn=1p-1:a(n)=angle140:check we have nothd same angle before n a(p)=angle 6128,80P:64@,0:draw base line 1rad=angle*2*/360h:angle in radians "x=63?*rad:y=63?*rad *128,80P:x,y:draw other line fangle=90Z144,80P:0,16:-16,0:210:if a right angle 7144,80P:-16+x/4,y/4,rad t14,18;"TYPE IN YOUR";16,18;"GUESS AND THEN";18,18;"PRESS ";1;"ENTER" g$:guess ?g$=""220:error trapping routine (pressed enter only) alen=g$:g$(len)=" "g$=g$(len-1):230:error trapping routine (trailing spaces) mn=1len:g$(n)<480ůg$(n)>5794000:220:error trapping routine (not a number n  g(p)=g$ "20,0;" ";21,0;" ";:clear any error messages ,r14,18;" YOUR GUESS ";16,18;" ";g(p);" ";18,18;" " 6error=(angle-g(p)) ;score=score+10 -error =error56030 >error>40(6040 @,error=0b$="perfect. brilliant!!!" J-error>0error5b$="very good" T;error>5error10 b$="pretty good estimate !" ^7error>10 error20b$="not a bad guess !" h6error>20error40(b$="a fair way out !" r1error>40(b$="thats a pretty wild guess!" w6g(p)>360hb$="you can't have angles above 360" | 19,1;:6020 Y10 ,23;a(p);"";20,2;"the angle was ";1;a(p);" degrees" U21,0;7;2;"press enter ";("for the next angle"p<5) ""410 =""420 p 7:0::4 >0,0;"HERE IS A BAR CHART OF YOUR"'"ANSWERS ";A$ L568,16:104h,0:568,16:0,135 4,0;"angle" 6,0;"()" tn=027045-:(20-(n/16)),4;n:579,16+n/2:2,0:n &5n=15:20,5+3*n;n:n 020,25;"number" :|5,23;4;" your";6,25;"guess";8,23;2;" the";9 ,25;"angle" Xn=15 b g(n)>270g(n)=275 lm=03 v?40(+m+24*n,16:4;0,g(n)/2 m m=03 ?480+m+24*n,16:2;0,a(n)/2 m n 6000p:6010z ?2,4;1;1;"PRESS A KEY TO TRY AGAIN" turn=turn+1: oldscore=score score=0 ""730 =""740  20  sg$(n)=46.20,2;"no decimals please. I don't";21,2;"understand them! try again": f20,2;"thats a funny number. I don't";21,2;"understand. Please try again":  100d  1:7:1: '3,3;"ESTIMATE THE ANGLE" o5,1;"Please type in your first name"'" and then press the key marked"'10 ;1;"ENTER" Oa$:a$>248,1;"Just your first name please":5030 Kn=1̱a$:a$(n)>96`Ưa$(n)<123{a$(n)=(a$(n)-32 ) 4n:convert to capitals**************************** 10 ,1;"Hello ";a$ Y13 ,1;"Do you want instructions ?";15,5;"Press Y or N" ""5055 z$=:z$=""5060 z$="n"z$="N" ؆z$"y"z$"Y"0.2~L,0:0.2~L,-3:20,2;1;6;0;"please press y or n":5060 7:2:7: 01,7;1;"ESTIMATE THE ANGLE" O4,1;"In this game the computer will"''" show you an angle...."''  6010z:" like this..." 6000p:pretty tune K80P,568:70F,0:80P,568:502,502 22100d,568:-10 ,10 ,/4 < 6010z FS16,2;"You have to try and guess"''" what the angle is in degrees !" P 6010z Z821,1;"PRESS ENTER TO START THE GAME." d=""5220d n pK.4L,0:.4L,4:.4L,7:.4L,12 : zRn=1300,:n::main delay loop*************************************** nN=1̱b$:b$(n);:.02{# =,12 :m=18:m:n:: subroutine to display sentence slowly K.4L,5:.2~L,5:.2~L,5:.8L,12 : =.5,-12 :.5,-13 :1,-14: #(1:7:1::5,6;:Z$="Estimate the Angle":v=32000}:16,9 ;" Scisoft 1983";21,4;"Press ENTER to continue"; #213 90102# #< '31999|:7:1:7:0:0:0:0::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": 'R"angle"9998':"angle"32000},200:"angle""a",22*8 ZEstimate the Anglevangle }3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<angle Xf??UUUUUUUժժUUUBfZBBBBbRJFB