ZXTape! 0Created with Ramsoft MakeTZXimtest  W  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&  QnAimtest.logo @_ ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file uK 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  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" 48,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 Xg5:3,0;" The computer will wait while you type in your answer, fol- lowed by ENTER."''" At the end of the test the computer will display your mark and the time it took you to work through the test. Then, if you wish, it will display the questions that you got wrong, together with the correct answers." b=3:17,0;" That will complete the test."  cls #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 %DISPLAY QUESTIONS AND INPUT ANSWERS  m=0  C=1N 5c(c)=((c(c)+.0000001iV)*1000)/1000 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 R7:0,513:255,0:16,3;"Answer: ";A$(C) %0,35#:255,0 nin 16,12 ;aa; SY(C)=aa:a$(c,1)="`"(y(c)ɺy(c)(y(c)*10 )=((y(c)*10 )))"0" ?((aa*10000')-(c(C)*10000'))1m=m+1 @((aa*10000')-(c(C)*10000'))>1W(C)=1 cls C ZM2=(((65536*23674z\+256*23673y\+23672x\)/502)/60<) ZS=((65536*23674z\+256*23673y\+23672x\)/502-60<*M2) FINAL MARK AND TIME  b5:0,147:255,0:4,3; "Your mark was ";m;" out of ";n 5,3;"and you took ";M2;" minutes and":6,3;S;" seconds to do the test.":m2=15,24;" " "s=16,11 ;" " &0,115s:255,0 m=ncls:1905q ]4:0,83S:255,0:12 ,3;"Do you wish to see the " T13 ,3;"questions you got wrong? ":0,59;:255,0  v6:0,43+:255,0:17,9 ;"Press Y or N.":0,26:255,0 !80:i$=:i$"Y"i$"y"i$"n"i$"N"1825! &<i$="n"i$="N"20:u=0:6080:1905q +#u=0:v=21:6080 0 C=1N 5W(C)=11860D 6W(C)11888` :C-(C)>018400 Du3:0,163:255,0:2,3;"Question ";C:0,147:255,0 Ll6:0,131:255,0:6,3;Q$(C):0,91[:255,0 M4:0,75K:255,0:13 ,3;"Your answer: ";a$(c);13 ,17;y(c);:0,59;:255,0:a$(c,1)="`"(y(c)ɺy(c)(y(c)*10 )=((y(c)*10 )))"0" NR7:0,35#:255,0:18,3;"Answer: ";A$(C) Ud18,12 ;c(C);:a$(c,1)="`"(c(c)ɺc(c)(c(c)*10 )=((c(c)*10 )))"0" X%0,19:255,0 ]100d:cls `C b 1910v lEND v7: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 iA(C)=(38&*+12 ):B(C)=(29*+11 ):C(C)=0:A(C)-B(C)<13012 3020 kA(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" 8Q$(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))+"?" xGd>1S5=1Q$(C)="What is "+(B(C))+" times `"+(A(C))+"?" |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 ed=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 qQ$(C)="What is "+(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$="INDIVIDUAL VERSION" Hj=724:17,j;j$(j-6):.01z# =,j+15:j cls: &"file"5: '""  btplliuvmg