ZXTape! 0Created with Ramsoft MakeTZXcmtest  [  N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QnAcmtest$logo @p ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file _uxs"$au ha=07:b:"d"+a,b:a:0,0,16,0,124|,0,16,0 @str=6000p:cls=6050:cll=6070:nin=6100 2 200 dkey nstr x p=9 2-1 MA(C)/p-(A(C)/p)=0B(C)/p-(B(C)/p)=0A(C)=A(C)/p:B(C)=B(C)/p p  ***CORE*** 7000X 5:0,139:255,0:5,3;"Do you want instructions?":0,123{:255,0 w20:0,107k:255,0:9 ,9 ;"Press Y or N.":0,91[:255,0 70:i$=:i$"n"i$"N"i$"Y"i$"y"235 ~4:0,27:255,0:19,5;"Please wait a moment.":0,11 :255,0 m=23672x\ t=0m:g=:t 255-m Display Instructions i$="n"i$="N"1010 6#u=0:v=21:6080 v3:0,155:255,0:3,8;"INSTRUCTIONS":0,139:255,0 5:7,0;" If you have not read the User":" Notes in the accompanying":" package booklet, then you" 4" should before proceeding with":" this program." cls <6:2,0;" You will be asked to select" 33,0;" the TOPIC LEVEL,the DEGREE of" 34,0;" DIFFICULTY and the LENGTH of" 35,0;" the test(10 to 20 questions)." 36,0;" The computer will then make" 37,0;" up the test which may take a" 28,0;" few moments. After which it " 09 ,0;" will display the message:-" %11 ,12 ;7;"READY" &=5:13 ,0;" Then by pressing the ENTER" +414,0;" key you can display each" 0.15,0;" question on the screen." ?cls X3:3,0;" At the end of the test the computer will display the questions in order, this time with their answers.After this you will be given the chance to look at any questions and answers again." b=5:13 ,0;" That will complete the test."  cls #SELECTION OF TEST PARAMETERS #u=0:v=21:6080 6:0,171:255,0:1,5;"MENTAL ARITHMETIC TEST ":0,155:255,0 7:0,139:255,0:5,0;" Choose the topic level by pressing a number between 1 and 7.":0,107k:255,0 00:i$=:i$=""i$<"1"i$>"7"1040 /.1}L,20:l=i$:6,28;l 0,99c:255,0:10 ,0;" Choose the degree of difficulty by pressing a number between 1 and 3.":0,59;:255,0 00:i$=:i$=""i$<"1"i$>"3"1055 $2.1}L,20:d1=i$:11 ,28;d1 .0,513:255,0:16,0;" Choose the number of questions by entering a number between 10 and 20.":0,11 :255,0 81nin:aa<10 aa>20aaɺaa10808 Bn=aa:17,28;n tbcls:4:0,163:255,0:2,3;"The Test Parameters are- " y14,3;"TOPIC LEVEL ";L ~26,3;"DEGREE OF DIFFICULTY ";D1 08,3;"NUMBER OF QUESTIONS ";N %0,99c:255,0 ]5:0,83S:255,0:12 ,3;"Do you wish to change any" O13 ,3;"of these parameters?":0,59;:255,0 v7:0,27:255,0:19,9 ;"Press Y or N.":0,11 :255,0 80:i$=:i$"Y"i$"y"i$"N"i$"n"1165 1i$="Y"i$="y"10 :6080:1020 _6:0,83S:255,0:12 ,3;"THE COMPUTER IS NOW MAKING " *13 ,3;"UP THE TEST. " 614,0;" This will take a few " 115,3;"moments. The computer will " 016,3;"tell you when it is READY." %0,35#:255,0 $u=18:v=20:6080 SET ARRAYS AND VARIABLES q(n) /l$(7,25):M(25):D(5) VQ$(N,75K):A(N):B(N):C(N):A$(N,20):c(N):T(N):F(N):J(N):W(N):Y(N) )l$(1)="9600000000000000000000000" )l$(2)="3273000000000000000000000" )l$(3)="0132540000000000000000000" )l$(4)="0011223420000000000000000" )l$(5)="0011112212222000000000000" )l$(6)="0010011211111221112100000" )l$(7)="0010010101111111111121111" SET UP OF ARRAY C=125  (l$(L,C))=01264 3M(C)=((l$(L,C))*N/15)+1:1265 M(C)=0 C SET TEST QUESTIONS  C=1N #!R=(*25)+1:q(n)=r (M(R)=01315# )M(R)0T(C)=R -M(R)=M(R)-1 2R<3l=1 7 R>2R<7l=2 < R>4R<7l=3 A!R>6R<10 l=4 F!R>9 R<14l=5 K"R>13 R<21l=6 PR>20l=7 U d=D1+(L-l) Zd>3d=3 i(2000+100d*R) nC sY20,13 ;7;"READY":.2~L,20:.3,0:30:cls ?23672x\,0:23673y\,0:23674z\,0  r=0 %DISPLAY QUESTIONS AND INPUT ANSWERS  m=0  C=1N u3:0,163:255,0:2,3;"Question ";C:0,147:255,0 W(C)=0 l6:0,131:255,0:6,3;Q$(C):0,91[:255,0 r=17:0,513:255,0:16,3;"Answer: ";A$(C):16,12 ;c(c);:a$(c,1)="`"(c(c)ɺc(c)(c(c)*10 )=((c(c)*10 )))"0" 0r=10,35#:255,0 cls C FINAL MARK AND TIME r=11850: 0,139:255,0:5,3;"Now press a key to review the questions,together with the answers.":0,107k:255,0:cls 0r=1:1700 :0,139:255,0:5,3;"Do you wish to see any particular question again?":0,115s:255,0 ?v5:0,67C:255,0:14,9 ;"Press Y or N.":0,513:255,0 D.0:"Y"Ʀ"y"Ʀ"N"Ʀ"n"1860D I="N"Ŧ="n"1910v Nu=12 :6080 S0,67C:255,0:14,3;"Enter the number of the question that you wish to see again.":0,35#:255,0 V)nin:aa<1aa>naaɺaa1878V W!20:u=0:6080 Xv3:0,163:255,0:2,3;"Question ";aa:0,147:255,0 ]m6:0,131:255,0:6,3;Q$(aa):0,91[:255,0 b7:0,513:255,0:16,3;"Answer: ";A$(aa):16,12 ;c(aa);:a$(aa,1)="`"(c(aa)ɺc(aa)(c(aa)*10 )=((c(aa)*10 )))"0" g%0,35#:255,0 icls:1850: lEND vu=0:6080:7:0,139:255,0:5,3;"That completes the test.Do you wish to do another test?":0,107k:255,0 v5:0,67C:255,0:14,9 ;"Press Y or N.":0,513:255,0 .0:"Y"Ʀ"y"Ʀ"N"Ʀ"n"1930 ="y"Ŧ="Y"5 23636T\,255: "***QUESTION TYPE SUBROUTINES**** "******************************** 4``add A,B;A+B<19`` >dA(C)=(9 *+1):B(C)=(9 *+1):C(C)=0:A(C)+B(C)>192110> HS2=0:5500| RS2=12110> \S5=(3*+1) f?S5=1Q$(C)="Add together "+(A(C))+" and "+(B(C))+"." pAS5=2Q$(C)="What is "+(A(C))+" + "+(B(C))+" equal to?" zBS5=3Q$(C)="Find the sum of "+(A(C))+" and "+(B(C))+"." c(C)=A(C)+B(C):A$(C)=" "   ``B-A,B<20 nA(C)=(9 *+1):B(C)=(19*+1):C(C)=0:A(C)B(C)B(C)-A(C)>9 2210  S2=0 S2=0:5500| S2=12210 S5=(3*+1) 8S5=1Q$(C)="Take "+(A(C))+" from "+(B(C))+"." AS5=2Q$(C)="What is "+(B(C))+" - "+(A(C))+" equal to?" <S5=3Q$(C)="Subtract "+(A(C))+" from "+(B(C))+"." c(C)=B(C)-A(C):A$(C)=" "  ``A+B With Carry`` d=1d2=d #L<4d>1d2=d-1 L4d2=d d2=12310 d2=22312 d2=32314 fA(C)=(14*+6):B(C)=(14*+6):C(C)=0:A(C)+B(C)>292310  A(C)+B(C)<292320 TA(C)=(19*+10 ):B(C)=(19*+10 ):C(C)=0:2320 HA(C)=(79O*+20):B(C)=(79O*+20):C(C)=0 S2=0:5500| S2=12305 $S5=(3*+1) .?S5=1Q$(C)="Add together "+(A(C))+" and "+(B(C))+"." 8AS5=2Q$(C)="What is "+(A(C))+" + "+(B(C))+" equal to?" BBS5=3Q$(C)="Find the sum of "+(A(C))+" and "+(B(C))+"." Lc(C)=A(C)+B(C):A$(C)=" " V ` ``A+B+C`` ed=12410j fd=22412l gd=32414n j]A(C)=(9 *+1):B(C)=(9 *+1):C(C)=(9 *+1):2420t l^A(C)=(9 *+5):B(C)=(14*+5):C(C)=(9 *+3):2420t nTA(C)=(14*+5):B(C)=(14*+5):C(C)=(14*+5) tS2=0:5500| ~S2=12405e S5=(3*+1) MS5=1Q$(C)="Add together "+(A(C))+", "+(B(C)) +" and "+(C(C))+"." mS5=2Q$(C)="What is "+(A(C))+" + "+(B(C))+" + "+(C(C))+" equal"+22+7+3+"to?" kS5=3Q$(C)="Find the sum of "+(A(C))+", "+(B(C))+" and "+22+7+3+(C(C))+"." c(C)=A(C)+B(C)+C(C):A$(C)=" "  ``A*B`` d=12510 d=22512 d=32514 PA(C)=(9 *+2):B(C)=(3*+2):C(C)=0:2520 PA(C)=(9 *+2):B(C)=(6*+2):C(C)=0:2520 DA(C)=(9 *+2):B(C)=(9 *+2):C(C)=0 S2=0:5500| S2=12505 S5=(2*+1) 8S5=1Q$(C)="What is "+(A(C))+" x "+(B(C))+"?" <S5=2Q$(C)="What is "+(A(C))+" times "+(B(C))+"?" c(C)=A(C)*B(C):A$(C)=" "  (``A/B,NO REMAINDER`` -d=126102 /d=226124 1d=326146 2WB(C)=(3*+2):A(C)=((9 *)+2)*B(C):C(C)=0:2620< 4WB(C)=(6*+2):A(C)=((9 *)+2)*B(C):C(C)=0:2620< 6KB(C)=(9 *+2):A(C)=((9 *)+2)*B(C):C(C)=0 <S2=0:5500| FS2=12605- PS5=(3*+1) ZES5=1Q$(C)="What is "+(A(C))+" "+147+" "+(B(C))+"?" dhS5=2Q$(C)="How many times does "+(B(C))+" go"+22+7+3+"into "+(A(C))+"?" n>S5=3Q$(C)="Find "+(A(C))+" divided by "+(B(C))+"." xc(C)=A(C)/B(C):A$(C)=" "  ``A*10,100,1000`` d=12710 d=22712 d=32714 DA(C)=(8*+2):B(C)=10 :C(C)=0:2720 ZA(C)=(19*+7):B(C)=10 ^(2*+1):C(C)=0:2720 OA(C)=(79O*+21):B(C)=10 ^(3*+1):C(C)=0 S2=0:5500| S2=12705 S5=(2*+1) 8S5=1Q$(C)="What is "+(A(C))+" x "+(B(C))+"?" :S5=2Q$(C)="Multiply "+(A(C))+" by "+(B(C))+"." c(C)=A(C)*B(C):A$(C)=" "  ``A*B,B>10`` d=12810 d=22812 d=32814 QA(C)=(5*+2):B(C)=(18*+2):C(C)=0:2820 QA(C)=(8*+2):B(C)=(14*+6):C(C)=0:2820 FA(C)=(7*+3):B(C)=(25*+12 ):C(C)=0 S2=0:5500| S2=12805 S5=(3*+1) "8S5=1Q$(C)="What is "+(A(C))+" x "+(B(C))+"?" ,:S5=2Q$(C)="Multiply "+(A(C))+" by "+(B(C))+"." 6aS5=3Q$(C)="Find the product of "+(A(C))+22+7+3+"and "+(B(C))+"." @c(C)=A(C)*B(C):A$(C)=" " J T##A/10,100,1000## Yd=12910^ Zd=22912` [d=32914b ^OA(C)=((9 *)+2)*10 :B(C)=10 :C(C)=0:2920h `P=(2*+2):A(C)=(14*+5)*10 ^P:B(C)=10 ^((*P+1)):C(C)=0:B(C)=12912` a 2920h bP=(3*+2):A(C)=(29*+9 )*10 ^P:B(C)=10 ^((*P+1)):C(C)=0:B(C)=12914b hS2=0:5500| rS2=12905Y |S5=(2*+1) ES5=1Q$(C)="What is "+(A(C))+" "+147+" "+(B(C))+"?" 8S5=2Q$(C)="Divide "+(A(C))+" by "+(B(C))+"." c(C)=A(C)/B(C):A$(C)=" "  ``A-B,With carry`` d=13010 d=23012 d=33014 eA(C)=(18*+2):B(C)=(18*+1):C(C)=0:A(C)-B(C)<13010 3020 gA(C)=(38&*+12 ):B(C)=(29*+11 ):C(C)=0:A(C)-B(C)<13012 3020 iA(C)=(799*+102f):B(C)=(79O*+21):C(C)=0:A(C)-B(C)<13014 S2=0:5500| S2=13005 S5=(3*)+1 <S5=1Q$(C)="What is "+(A(C))+" minus "+(B(C))+"?" <S5=2Q$(C)="Subtract "+(B(C))+" from "+(A(C))+"." 9S5=3Q$(C)="Work out "+(A(C))+" - "+(B(C))+"." c(C)=A(C)-B(C):A$(C)=" "  ``ADDING MONEY`` !d=13110& "d=23112( #d=33114* &hA(C)=(88X*+11 ):B(C)=(88X*+11 ):C(C)=0:A(C)+B(C)>99c3110& ' 31200 (}A(C)=(98b*+101e)/100d:B(C)=(98b*+101e)/100d:C(C)=0:A(C)+B(C)>33112( ) 31200 *A(C)=(498*+111o)/100d:B(C)=(498*+111o)/100d:C(C)=0:A(C)+B(C)>10 3114* 0S2=0:5500| :S2=13105! DS5=(2*+1) Nfd=1Q$(C)="What is the sum of "+(A(C))+"p"+22+7+3+" plus "+(B(C))+"p?" XS5=2d>1Q$(C)="Add `"+(A(C))+("0"(a(c)ɺa(c)(a(c)*10 )=((a(c)*10 ))))+" to `"+(B(C))+("0"(b(c)ɺb(c)(b(c)*10 )=((b(c)*10 ))))+"." bS5=1d>1Q$(C)="Find the sum of `"+(A(C))+("0"(a(c)ɺa(c)(a(c)*10 )=((a(c)*10 ))))+" and"+22+7+3+"`"+(B(C))+("0"(b(c)ɺb(c)(b(c)*10 )=((b(c)*10 ))))+"." l)c(C)=A(C)+B(C):d=1A$(C)=" p" qd>1A$(C)="`" v ##CHANGE FROM `A## d=13210 d=23212 d=33214 GA(C)=100d:B(C)=(89Y*+11 ):C(C)=0:3220 qA(C)=(4*+2):B(C)=(298**+101e)/100d:C(C)=0:A(C)-B(C)<03212 3220 A(C)=(898*+111o)/100d:B(C)=(698*+100d)/100d:C(C)=0:A(C)-B(C)<03214 S2=0:5500| S2=13205 S5=(2*+1) id=1Q$(C)="What is the change from `1,"+22+7+3+"if you spend "+(B(C))+"p?" S5=1d>1Q$(C)="What is the change from"+22+7+3+"`"+(a(c))+("0"(a(c)ɺa(c)(a(c)*10 )=((a(c)*10 ))))+" if you spend `"+(B(C))+("0"(b(c)ɺb(c)(b(c)*10 )=((b(c)*10 ))))+"?" S5=2d>1Q$(C)="How much is left of `"+(A(C))+("0"(a(c)ɺa(c)(a(c)*10 )=((a(c)*10 ))))+22+7+3+"if I spend `"+(B(C))+("0"(b(c)ɺb(c)(b(c)*10 )=((b(c)*10 ))))+"?" )c(C)=A(C)-B(C):d=1A$(C)=" p" d>1A$(C)="`"  ``1/A OF B`` d=13310 d=23312 d=33314 NA(C)=2:B(C)=((93]*)+4)*2:C(C)=0:3320 VA(C)=(2*+3):B(C)=(18*+2)*A(C):C(C)=0:3320 KA(C)=(4*+2):B(C)=(19*+11 )*A(C):C(C)=0 S2=0:5500| S2=13305 S5=(2*+1) %S5=1A(C)<53352 %S51A(C)>43360 A(C)=2T$="half" A(C)=3T$="third" A(C)=4T$="quarter" 6Q$(C)="What is a "+T$+" of "+(B(C))+"?":33804 ;S5=2Q$(C)="What is 1/"+(A(C))+" of "+(B(C))+"?" *:S5=1Q$(C)="What is 1/"+(A(C))+" x "+(B(C))+"?" 4c(C)=B(C)/A(C):A$(C)=" " > H``A/B OF C`` Md=13410R Nd=23412T Od=33414V RhA(C)=(2*+1)*2-1:B(C)=4:C(C)=(8*+2)*4:3420\ TA(C)=(5*+1):B(C)=(2*+1)*(2*+2):C(C)=(7*+3)*B(C):B(C)-A(C)<1B(C)/A(C)-(B(C)/A(C))=03412T U 140 VA(C)=(9 *+1):B(C)=(5*+1)*(2*+1):C(C)=(9 *+1)*B(C):B(C)-A(C)<1B(C)/A(C)-(B(C)/A(C))=03414V W 140 \S2=0:5500| fS2=13405M pS5=(2*+1) zES5=1Q$(C)="What is "+(A(C))+"/"+(B(C))+" of "+(C(C))+"." ES5=2Q$(C)="Work out "+(A(C))+"/"+(B(C))+" x "+(C(C))+"." /c(C)=((A(C)/B(C))*C(C)+.01z# =):A$(C)=" "  ``ADD DECIMAL`` d=13510 d=23512 d=33514 dA(C)=(9 *+10 )/10 :B(C)=(9 *+10 )/10 :C(C)=0:3520 fA(C)=(39'*+10 )/10 :B(C)=(39'*+10 )/10 :C(C)=0:3520 ZA(C)=(89Y*+10 )/10 :B(C)=(89Y*+10 )/10 :C(C)=0 S2=0:5500| S2=13505 S5=(3*+1) 8S5=1Q$(C)="What is "+(A(C))+" + "+(B(C))+"?" ^S5=2Q$(C)="Find the sum of "+(A(C))+" and"+22+7+3++(B(C))+"." ?S5=3Q$(C)="Add "+(A(C))+" and "+(B(C))+" together." c(C)=A(C)+B(C):A$(C)=" "  ``B-A DECIMAL`` d=13610 d=23612 d=33614 MA(C)=2:B(C)=(9 *+10 )/10 :C(C)=0:3620$ nA(C)=(5*+2):B(C)=(39'*+10 )/10 :C(C)=0:A(C)-B(C)03612  3620$ yA(C)=(90Z*+10 )/10 :B(C)=(89Y*+10 )/10 :C(C)=0:A(C)-B(C)03614 $S2=0:5500| .S2=13605 8S5=(2*+1) B8S5=1Q$(C)="What is "+(A(C))+" - "+(B(C))+"?" L<S5=2Q$(C)="Subtract "+(B(C))+" from "+(A(C))+"." `c(C)=A(C)-B(C):A$(C)=" " j t``A DECIMAL * 10,100,1000`` yd=13710~ zd=23712 {d=33714 ~OA(C)=(89Y*+11 )/10 :B(C)=10 :C(C)=0:3720 dA(C)=(89Y*+11 )/10 :B(C)=10 ^(2*+1):C(C)=0:3720 [A(C)=(899*+101e)/100d:B(C)=10 ^(3*+1):C(C)=0 S2=0:5500| S2=13705y S5=(3*+1) <S5=1Q$(C)="What is "+(B(C))+" times "+(A(C))+"?" :S5=2Q$(C)="Multiply "+(A(C))+" by "+(B(C))+"." 8S5=3Q$(C)="What is "+(B(C))+" x "+(A(C))+"?" c(C)=A(C)*B(C):A$(C)=" "  ``DECIMAL/10,100,1000`` d=13810 EA(C)=(99c*+1):B(C)=10 :C(C)=0:3820 dA(C)=(89Y*+11 )/10 :B(C)=10 ^(2*+1):C(C)=0:3820 iA(C)=(899*+101e)/(10 ^(3*)):B(C)=10 ^(3*+1):C(C)=0 S2=0:5500| S2=13805 S5=(2*+1)  AS5=1Q$(C)="What is "+(A(C))+" divided by "+(B(C))+"?" FS5=2Q$(C)="Work out "+(A(C))+" "+147+" "+(B(C))+"." (c(C)=A(C)/B(C):A$(C)=" " 2 < ``'A*B`` Ad=13910F Bd=23912H Cd=33914J FRA(C)=(491*+11 ):B(C)=(8*+2):C(C)=0:3920P H]A(C)=(89Y*+111o)/100d:B(C)=(3*+2):C(C)=0:3920P JRA(C)=(389*+111o)/100d:B(C)=(6*+2):C(C)=0 PS2=0:5500| ZS2=13905A dS5=(2*+1) nDd=1Q$(C)="What is "+(A(C))+"p multiplied by "+(B(C))+"?" xd>1S5=1Q$(C)="What is "+(B(C))+" times `"+(A(C))+("0"(a(c)ɺa(c)(a(c)*10 )=((a(c)*10 ))))+"?" |d>1S5=2Q$(C)="Work out "+(B(C))+" x `"+(A(C))+("0"(a(c)ɺa(c)(a(c)*10 )=((a(c)*10 ))))+"." *c(C)=A(C)*B(C):d=1A$(C)=" p" d>1A$(C)="`"  ``APPRX TO WHOLE N`` d=14010 d=24012 d=34014 FA(C)=(99c*+11 ):B(C)=10 :C(C)=0:4020 IA(C)=(999*+101e):B(C)=100d:C(C)=0:4020 UA(C)=(9999'*+1001):B(C)=(10 ^(3*+1)):C(C)=0 S2=0:5500| S2=14005 UQ$(C)="What is "+(A(C))+" to the nearest "+22+7+3+(B(C))+"?" ,c(C)=(A(C)/B(C)+.5)*B(C):A$(C)=" "  ``% OF MONEY '``  d=14110  d=24112  d=34114 FA(C)=10 :B(C)=(99c*+11 ):C(C)=0:4120 ZA(C)=(9 *+1)*10 :B(C)=(9 *+11 ):C(C)=0:4120 NA(C)=(19*+1)*5:B(C)=(5*+11 ):C(C)=0 S2=0:5500| "S2=14105  6/Q$(C)="What is "+(A(C))+"% of `"+(B(C))+"?" T'c(C)=(A(C)/100d)*B(C):A$(C)="`" ^ h``APPRX TO DEC.PL.`` md=14210r nd=24212t od=34214v rOA(C)=(989*+11 )/10 :B(C)=0:C(C)=0:4220| tQA(C)=(899*+101e)/100d:B(C)=1:C(C)=0:4220| vUA(C)=(8999'#*+1001)/1000:B(C)=(2*+1):C(C)=0 |S2=0:5500| S2=14205m cd=1Q$(C)="What is "+(A(C))+" to"+22+7+3+"the nearest whole number?" zd1Q$(C)="What is "+(A(C))+" to "+(B(C))+" decimal"+22+7+3+"place"+("s"b(c)>1)+"?" Bc(C)=((A(C)*10 ^B(C)+.5)/(10 ^B(C))):A$(C)=" "  ``APPRX TO SIG.FIG`` d=14310 d=24312 d=34314 EA(C)=(299+*+1):B(C)=1:C(C)=0:4320 OA(C)=(989*+11 )/10 :B(C)=2:C(C)=0:4320 bA(C)=(8999'#*+1001)/(10 ^(4*)):B(C)=(3*+1):C(C)=0 S2=0:5500| S2=14305 Q$(C)="What is "+22+6+11 +(A(C))+" to "+(B(C))+22+7+3+"significant figure"+("s"b(c)>1)+"?" A=A(C):P4=0  A>10 4370 A<14375  4380 )P4=P4+1:A=A/10 :4363  )P4=P4-1:A=A*10 :4366 c(C)=(((A*(10 ^(B(C)-1)))+.5)/(10 ^(B(C)-1)))*(10 ^P4):(B(C)-P4)>1J(C)=D(B(C)-P4-1):A$(C)=" " & 0``DIV A IN RATIO`` 5d=14410: 6d=24412< 7d=34414> :A(C)=(2*+1):B(C)=(2*+1):C(C)=(A(C)+B(C))*(10 *+1):A(C)+B(C)>3A(C)=B(C)4410: ; 4420D <A(C)=(6*+1):B(C)=(6*+1):C(C)=(A(C)+B(C))*(5*+1):A(C)+B(C)>7A(C)=B(C)4412< = 4420D >A(C)=(6*+1):B(C)=(6*+1):C(C)=((A(C)+B(C))*(12 *+1)):A(C)+B(C)>7A(C)=B(C)4414> DS2=0:5500| NS2=144055 XS5=(2*+1) bS5=1Q$(C)=" "+(C(C))+" is divided in the ratio"+22+7+3+"of "+(A(C))+" to "+(B(C))+"."+22+8+3+" What is the smaller part?" lS5=2Q$(C)=" `"+(C(C))+" is shared in the ratio"+22+7+3+"of "+(A(C))+":"+(B(C))+"."+22+8+3+" How much is the smaller"+22+9 +3+"share?":a$(c)="`" )A(C)>B(C)c(C)=(B(C)*C(C))/(A(C)+B(C)) 4A(C)74514 S2=0:5500| S2=14505 S5=(2*+1) ?S5=1B(C)=2Q$(C)="What is "+(A(C))+" squared?" =S5=1B(C)=3Q$(C)="What is "+(A(C))+" cubed?" ]S5=2(S5=1b(c)>3)Q$(C)="What is "+(A(C))+" to the power "+(B(C))+"?" c(C)=A(C)^B(C):A$(C)=" "  8``END OF QUESTION ROUTINES``************************** | SUBROUTINE C=15590  V=0  V=V+1 T(V)=T(C)5540 T(V)T(C)5550 !A(C)=A(V)B(C)=B(V)S2=1 !A(C)A(V)B(C)B(V)S2=0  5590 V=C-15590 VC-15520  9END**************************************************** p**** str **** z.3,10 O1;21,31;8;9 ;"*":30:=""6020 #21,31;8;" ": **** cls **** u=0:v=21 **** cll **** str Bf=vu-1:f,0;" ":f  **** nin **** 10 :.2~L,30 z=0:z$="":fs=0 ,21,z;4;0;1;"N" i$=  /i$=13 z=1fs=16150 i$=12 6240` li$=13 z0aa=z$:.05|L,20:21,0;" ": $'i$<46.ůi$>5796130 .i$=47/6130 8%fs=1Ưi$=46.6130 Bz=86130 Li$=46.fs=1 VO4;0;21,z;i$:.05|L,20:z=z+1:6270~ `z=06130 ji$=12 z>021,z-1;1;4;0;"N":21,z;" ":.05|L,20:z$(z)=46.fs=0 t$z=z-1:z$=z$(z):6130 ~ z$=z$+i$  6130 b0:0:4: lk$=" " j$=" " j=05 rk=04:3+k,j*5;k$((k*32 )+(5*j)+1(k*32 )+(5*j)+5):k j=57095 sk=03:10 +k,j*6;j$((k*32 )+(6*j)+1(k*32 )+(6*j)+7):k j 5:j$="CLASS VERSION" Hj=9 21:17,j;j$(j-8):.01z# =,j+17:j cls: &"file"5: '""  btplliuvIymg&K J 1