ZXTape! 2  'Numbers at Work - Teaching Program TapeCollins EducationalTriptych Publishing Ltd1985English Educational14.95NoneOriginal{TZXed by Andrew Barker For Tony Barnett Slight differences in BASIC on Application Program Tape, perhaps Earlier version ?teach f fQh 7:7:7:  64899  "teach" 20,0; ( "teach1" teach iJ00`?Ǐ?x|<?xx{|Ǐ>x|?|xy<`0`8p ?|xy8<?~xx ?<?xxx??>???x??00``<<???Ǐ|?x|<|?@??? q0"x@`@?? @.?Ǎl\t??# 0@?xB@` C$?? @?BG@B$??a @?BD@B$?#;8;???xaN #1;1,0;" " X616,6;" LOADING PLEASE WAIT" ]0,0; bB$ l 7ar bar A1stBteach2steachc }~!nv>:I2y\:x\ N>2x\!R6+~ (< w>( >(~ (~(!H~ #~ +6#@H!G#~G (!x=~w#>I !CY6x#   :͐> G^>>VGMMnYrWq0 M\ P P P 3gMMZZLWq !v>|TT|TT|TTH("t(.@~$ $8B2 q\RR\et0IBBJ1TTSJJJJ:fRed` 3!0x̄|TT teach2 ddJ#1;1,0;"STOP THE TAPE and press ENTER"; n+.1}L,25:13 110n x>#1;1,0;" ";  HU="100":ZE="0":BX="2":BX2="12":BX3="12":BX4="21":TESTFLAG=ZE::MENUX="16":ZE,ZE;"CHAPTER 2:WORKING WITH FRACTIONS":ENDFLAG=ZE:BPAGE=ZE:SKIP=ZE:CLINE=0:0j\,0:#0;0,0;"SELF TIMER ON? (Y/N) " A$=:A$="Y"A$="N"0  0 0z# =,0:TTIME=ZE:SETIME=ZE:A$="Y"TIME="1":SETIME=0:T=00:0K+T,0:0N+T,0:0Q+T,0:T  COR="0":WRONG="0"  #0;0,0;"PROGRESSION (35-99, or R) ";:SL=0:0:B$=N$:MARK=ZE:02:N$="R" B$="0":SKIP=0:0 "B$<0#ŰB$>0c0  z$="":PROG=B$:1500 &:0,0 ;"PROGRESS":TOTAL=COR+WRONG:0,0;"QUESTIONS:";TOTAL;0,0;"CORRECT: ";COR;0,0;"INCORRECT:";WRONG:TOTAL=00* (GMARK=((COR/(COR+WRONG))*0d):0,0;"MARK: ";MARK *2MARK=00,0;"MARK: ";MARK ,0 ,0;"PASS: ";PROG:HOUR=(TTIME/0):REM=TTIME-HOUR:MIN=(REM/0<):REM2=REM-MIN*0<:0 ,0;"TIME: ";HOUR;":";MIN;":";(REM2):QHT="150":TOTAL="0"CHT="0":WHT="0":00 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0T=00:0:0+T,0:0,CHT:0:0+T,0:0,WHT:T:0:0,0:0P,0:0,0:0,-0:0,0:0,0:0 ,-0 :0,0:-0 ,-0 :06 2=" "04 3 02 40SKIPENDFLAGTOTAL=0):MARK=PROG+0 5\0z# =,0:#0;0,0;" ":ENDFLAG0 6 0Z Y CPAGE=PAGE Zf0:X=0 0:X,0;" ":X:0:MENUX=0:#0;0,0;" ":#0;0,0;" ";#0;:0:0:0,0;"RETURN ";';"BACKPAGE";';"CALCMODE";';"GLOSSARY";';"PROGRESS";';"FINISH ":0:0:;0;0 ,0;"MENU" gz0;0;MENUX,0;0;" ":OLDMENU=MENUX:0:A$=:A$=0 MENUX=MENUX+0 l'0z# =,0:A$=0 0 vMENUX="22"MENUX="16" {JOLDMENU,0;0;0;0;0;" ":0g MENUX="17"BPAGE0Z (MENUX="16"BPAGERFLAG="1":0 (0+MENUX) !PAGE=CPAGE:RFLAG="1":0  0 0j\,0:0  0   0& L=0::0 B#0;0,0;" BACKPAGE ":BPAGE="1" T#0;0,ZE;"WHICH PAGE? ";:0:N$=ZE0 xNO=N$:NO>(CPAGE+0)#0;0,0;"YOU HAVE NOT REACHED THAT PAGE.":X=00:X:0 sNO="7"NO="9"NO="12"NO="15"#0;0,ZE;"YOU CANNOT REPEAT TESTS.":X=00:X:0 !PAGE=NO-1::0:5:X=13 21:X,0;" ":X:13 ,2;"KEYS";16,1;"MENU";18,1;"PAGE":1:7:#1;1;5;0,22;;" BACKPAGE ":(1700+(PAGE*100d)) `#0;0,0;"ANOTHER PAGE? ":0 :0:="Y"0 @BPAGE=0:#0;0,0;" ":0Z (0+CHAR) =CHX,CHY;" ";CHX+0,CHY;" ";CHX+0,CHY;" ": =CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;"": =CHX,CHY;"";CHX+0,CHY;" ";CHX+0,CHY;"": ?CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;"": ?CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;"": ?CHX,CHY;" ";CHX+0,CHY;"";CHX+0,CHY;" ": ?CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;"": ?CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;"": ?CHX,CHY;"";CHX+0,CHY;" ";CHX+0,CHY;" ": ?CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;"": ?CHX,CHY;"";CHX+0,CHY;"";CHX+0,CHY;" ":  Y:ZE,0 ;"GLOSSARY":BPAGE#0;0,0;" BACKPAGE " 4#0,ZE;"DENOMINATOR: the part of a FRACTION, placed below the line.":'"DIVISOR:The number that is doingthe dividing;equivalent to the DENOMINATOR.":'"EQUIVALENT FRACTION:A FRACTION whose NUMERATOR and DENOMINATOR have been multiplied or divided by the same whole number to givea new numerator and denominator.":'"FRACTION:A number that is not a whole number.":'"IMPROPER FRACTION:is a FRACTION which has a NUMERATOR that is larger than its DENOMINATOR.":#0;0,ZE;"PRESS A KEY FOR NEXT PAGE" @=""0@ BT:ZE,0 ;"GLOSSARY":BPAGE#0;ZE,0;" BACKPAGE " D'"MIXED NUMBER:A whole number and a PROPER FRACTION written together.":'"NUMERATOR:The part of a FRACTIONwhich is above the line, showinghow many parts of a size indicated by the DENOMINATOR areto be taken.":'"PROPER FRACTION:is a FRACTION which has a NUMERATOR that is smaller than its DENOMINATOR.":#0;0,ZE;"PRESS A KEY TO RETURN TO MENU":ZE:0Z *I$=Z$:1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""0 "0xn,0:z$" "cl="0" 1((z$"0")(z$"9"))z$="m"ts=0:0~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z z$=" "cl=00 z$=" "cl=00 <a$""acc=a$:decflagacc=acc*0 ^(pdecpos-0) z$="t"0 z$="y"0 z$="i"0 z$="u"0 z$="v"0 z$="b"0 z$="n"0 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""0 tsf$="="f$=""0 0:error0 +op1=acc:f$=g$:g$="":f$"="ts=0  0 3acc="0":pdecpos="8":cl="1":0:0  $acc<0Žop1<00 ̉a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-00)+0 *(a$(a-0)-00):a$(a-0)="-"expa=-expa Wexpo=(o$(o)-00)+0 *(o$(o-0)-00):o$(o-0)="-"expo=-expo f$"/"aprox=expo+expa )(f$="+"f$="-")ƽaprox<080 f$="/"aprox=expo-expa aprox00 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 0acc>0?9y(f$="/"acc=0)error="1": meme="0":  0: R0,0;" ERROR ":0;0,0/:0;08,0 " "0  0 memo="0":0 acc=-acc:0:0 (acc=memo:0:ts=0:0 Ttemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=0:0:error0 0memo=acc:f$=h$:acc=temp1:op1=temp2:0 Ttemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=0:0:error0 0memo=acc:f$=h$:acc=temp1:op1=temp2:0 I0:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,0,0,0,0,0,0,0:0:0:0 acc<00 acc=acc:0:0 f$="+"f$="-"0 f$="*"f$="/"0  7f$="/":op1=acc:acc=0d:0:error0  f$="=":0  "me="1":0:error0 /op1=acc:acc=0d:f$="*"f$="/":0 f$="*" 0:error0 f$="=":0 ?temp1=op1:h$=f$:f$="*":me=0:0:error0 6op1=acc:acc="100":f$="/":0:error0 f$=h$:op1=temp1:0 s$=acc:l=s$:0,0;" ";:0;0,0/:0;08,0:(acc=0((acc>0Ž(acc-0)<0 ^-0)(acc0>)))0& J(acc-0)<0 ^-0acc=0:l=0:pdecpos=0 -0 ^(l-0)00Z ,+s$=".000000"+s$(0):l="8":0D .l>00Z 0Ds$=".00000"+s$(0)+s$(0):l=0l=0:0D 2l="8":pdecpos="1":0D 4acc>0>0Z 60(acc0 ^-0ƽacc<0)0B 80s$(0)="0"s$=s$(0l):l=l-0 :l00@ <8s$(0 )>"4"s$(0)=(s$(0)-0/) > s$=s$(00):l="8" @pdecpos=0 -l:0D B 0Z Dpdecpos=00R Facc00P HB0,0;e$(0pdecpos-0);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(0-decpos) Ns$(0l);:0X: P@0,pdecpos+0;s$(l+pdecpos-0l);:l=l-0 R<0,0;e$(00-l);:acc0" "; Tacc<0"-"; Vacc;:0X: Xn0;pdecpos*0+0,01:pdecpos*0+0,00:pdecpos*0+0,0/: Zs$(l-0)="E"a=0 \s$(l-0)="E"a=0 ^:0,0;:l-a>0pdecpos=0:0d `3pdecpos=0+a-l:l-a=0pdecpos=0 b/pdecpos>0e$(0pdecpos-0); dacc<0"-"; facc0" "; h$s$(0);:l-a=00n j,l-a>0s$(00);:0n ls$(0l-a); n=0X:"E";:s$(l-a+0);:a=00;s$(l): pa=0s$(l-0l): ri=0 0:i,0;" ";:i:;0;0 ,0;" "'" ";:0,0;" ";0,0;"";0,0;"";0,0;"";0,0;"";0,0;"";0,0;"";0,0;"%";0,0;"X";0,0;"7";0,0;"8";0,0;"9";0,0;"";0,0;"4";0,0;"5";0,0;"6";0,0;"+";0,0;"1";0,0;"2";0,0;"3";0,0;"-";:#0,0,0;" ";"0";" ";"";" ";"";" ";;"=";" ";:#0;0,0;" ";#0:0:0:0: ~/a$=0(a$="0"z$="0"decflag)0 z$"m"0 )decflag=0:a$=""a$="0":0  0 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-0 0:0 x0,0;" ";:0;0,0/:0;08,0:0,0 -a$;a$;:0X: BX=0:BX2=0 :BX3=0 :BX4=0:0,:ZE,ZE;"END OF TEST "''"SEE MENU FOR PROGRESS ": Fo0,0;NUM1;0 ,0 ;DEN2;0,0 ;NUM1;0,0;DEN2;0,0;M1: Po0 ,0;DEN1;0,0 ;NUM2;0 ,0 ;DEN1;0 ,0;NUM2;0 ,0;M2: KCLINE="1500":KFLAG="0":PAGE="0":BPAGE="0":MENUX="16":RFLAG="0" Y0:0:0::0j\,0:x=0 0:x,0;" ":x:0 ,0;"KEYS":0,0;" MENU";'';" PAGE":0,0;"Page:";PAGE+0:(0+(PAGE*0d)):PAGE=PAGE+0:SKIP(PAGE=0PAGE=0PAGE=0 PAGE=0)PAGE=PAGE+0  0 dX=00 :X:0j\,0:BPAGE#0;0,0;" BACKPAGE " =""0 6M$=:0z# =,0:M$="M"BPAGE=00X i(PAGE=0PAGE=0PAGE=0PAGE=0 PAGE=0)(M$<":"M$>"/"ůM$=0 )0 M$="M"BPAGE=00Z 0M$="P"BPAGE=0(0+(PAGE*0d)) M$="P"BPAGE=00 M$" "0 KFLAGCLINE  0 "X=00:X,0;" ":X:0:0,0:0,0:0,-0:-0,0:0,0:DPOS=0/DEN:X=00DPOS:0+X,0:0,-0:X:0:CHAR="1":CHX="5":CHY="29":0:0:CHAR="0":CHX="5":CHY="1":0:0:X=00:0,X:LLEN,0:X:FPOS=(LLEN+0)/0:0:0,FPOS;NUM;0,FPOS;"-";0,FPOS;DEN: ,G=BXBX2:G,0;" ":G:G=BX3BX4:G,0 ;" ":G:#0;0,0;" ": 6D#0;0,0;" PRESS SPACE TO CONTINUE ": N0,ZE;" 1 OF 2";ZE,ZE;"DEFINITIONS:2.2"''"A fraction is a part of a whole."''"Fractions are written: Part";0,0;"Whole":0,0:0(,0:0,0;"The part is the numerator."''"The whole is the denominator.";0 ,0 ;"Thus:";0,0 ;"Part Numerator";0,0 ;"Whole Denominator":#0;0,0;" Inverse words are in glossary":0P,0,:0 ,0:0,0,:0X,0:0,0;"=":KFLAG="1":CLINE=0:0:06:0 6BX=2:BX2=12 :BX3=12 :BX4=21 Œ0,:0,0;"2";0,0;'';"Proper fractions have a smaller numerator than denominator.";0,0;"Improper fractions have a largernumerator than denominator.";0,0;"Mixed numbers consist of a wholenumber and a fraction.":#0;0,0;" Inverse words are in glossary":CLINE=0:0:06:0 0,:0  _ZE,ZE;"PROPER FRACTIONS:2.2":LLEN=ZE:OLLEN=ZE:0 ,ZE;"Examples of proper fractions."  FNUM=(*0 )+0:DEN=(*0 )+0:NUMDEN0   |(NUM/0=(NUM/0)(DEN/0=(DEN/0))(NUM/0=(NUM/0)DEN/0=(DEN/0)))0  -LLEN=(NUM/DEN)*0:LLEN=OLLEN0  B0":OLLEN=LLEN:06:KFLAG="1":CLINE="1809":0 G#0;0,0;" ":0  b lMZE,ZE;"YOUR OWN FRACTIONS:2.2";0 ,ZE;"Now enter your own examples. " n70 ,0 ;"Numerator ?";0;"(1-9)" pCLINE=0q:0 qM$<"0"M$>"9"0p r{NUM=M$:0 ,0;NUM;0;" ";0,0;"-";0,0 ;"Denominator ?";0;"(1-9)" tCLINE=0u:0 uM$<"0"M$>"9"0t vDEN=M$:0,0;DEN:NUMDEN0,0 ;"IMPROPER fraction,";0,0 ;"please try again.":0d:0d:0z wh0,0;" ":LLEN=(NUM/DEN)*0:0":06:KFLAG="1":CLINE="1913":0 zEBX=0 :BX2=0 :BX3=0 :BX4=0:0,:0n  ЬG="2":F="2":F2="4":OF=ZE:OG=ZE:ZE,ZE;"EQUIVALENT FRACTIONS:2.2"''"You may have noticed that using certain different values on page3 gave the same screen display, e.g:";0 ,0 ;"These are;";0,0 ;"equivalent fractions";0,0 ;"By convention they are";0,0 ;"written in their most";0,0 ;"reduced form.";0 ,0;"Both give the same display.":06 Q=00 :Q,0;" ":Q:Q=00:Q::0;0,0;0;" ";G;0,0;"- & -";0 ,0;F;" ";F2:KFLAG="1":CLINE="2003":0 GF=(*0+0):G=(*0+0):F2=F*G:F=F20 F20 0 F=OFG=OG0 OF=F:OG=G:0 * 4NUM=ZE:DEN=ZE:ZE,ZE;"IMPROPER FRACTIONS:2.2"''"Improper fractions are usually written as mixed numbers.";0,0;"e.g:":0> 6CHX="8":CHY="23":CHAR="-1":0:CHAR=C:0,0;NUM;" ";0 ,0;DEN;" ";0 ,0;"is written as":0 ,0;" ";0 ,0;" ":0,0c:0+0*(DEN>0 NUM>0 ),0:0:NEWE00,0;NEWE;" ";0 ,0;ONDEN;" ":0,0c:0+0*(ONDEN>0 E>0 ),0 90d:NEWEE0,0;"=":CHX="14":CHY="23":0:E00,0;E;" ";0,0;NDEN;" ":0,04:0+0*(NDEN>0 E>0 ),0 :NE=00,0;" ";0 ,0;" ";0 ,0;" "; <-06:KFLAG="1":CLINE="2109":0 =BX=0:0, >ONUM=NUM:ODEN=DEN @PNUM=(*0+0):DEN=(*0+0):NUM=ONUMDEN=ODEN0@ BNUM"9"0 0,0;M$:NUM=M$ 2CLINE="2319":0,0;"?":0 50 :M$=0 0,0;" ":0 M$<"0"M$>"9"0 *NUM=NUM*0 +M$:0,0;M$ 40,0;"?":CLINE="2327":0 4M$=0 0,0;" ":DEN=ZE:0 M$<"0"M$>"9"0 3DEN=M$:0,0;M$:M2<0 0$ 2CLINE="2335":0,0;"?":0 ,M$=0 0,0;" ":0& "M$<"0"M$>"9"0 $*DEN=DEN*0 +M$:0,0;M$ &FM7=M1:M8=M2:L=65190:QTIME=((65099K)-1)*600X+(65100L-1)*60<+(65102N-1)*10 +(65103O-1):TTIME=TTIME+QTIME:M5=150:M6=150:M3=0:M4=0:G=12:T=9 1-1:(M1/T=(M1/T))(M2/T=(M2/T))M3=M1/T:M4=M2/T (M5M3M3ZEM5=M3:M6=M4 )6T:M1=M5:M2=M6:G:M1=M7:M2=M8:DEN=ZE2349- *:NUM/DEN<(M1/M2)+0wnNUM/DEN>(M1/M2)-0wn0 -4(11 ,0)=" "WFLAG=1:4100 0WFLAG0 ,0 ;"The correct answer is:";0,0;M1;0,0;M2:0,0+:0+0*(M2>0 ),0 1(WFLAGM5NUM)0 ,0 ;"Answer can be written:";0,0;M1;0,0;M2:0,0+:0+0*(M2>0 ),0 2(WFLAG(WFLAGM5NUM))(M5M6)M5<0M5M10,0;M5;0,0;"=";0,0;M6:0,0+:0+0*(M60 ),0 40TESTFLAG="1":06:CLINE="2357":0 6BBX=0:TESTFLAG=ZE:RFLAG=ZE:WFLAG=ZE:0,:H:0 8=""08 V%RFLAG=ZE:TESTFLAG=ZE:L=0: `rZE,ZE;"DIVISION:2.4"''"Division of fractions is carriedout by inverting the divisor andmultiplying."'"e.g:" bNUM1=(*0 +0):NUM2=(*0 +0):DEN1=(*0 +0):DEN2=(*0 +0):NUM1DEN1NUM2DEN20b c02:0,0c:0+0*(M20 ),0:0,0;NUM1;0 ,0;"- - = - X - =";0 ,0;DEN1;0,0 ;NUM2;0 ,0 ;DEN2:0d:M1=NUM1*DEN2:M2=NUM2*DEN1:0:0F:0:0:0F:0:0P:0:0:0P:T=0 0-0:(M1/T=(M1/T))(M2/T=(M2/T))M1=M1/T:M2=M2/T:0 ,0;"=";0,0;M1;0 ,0;M2:0,0c:0+0*(M20 ),0 fT:M10 M2>0 ),0 j0 ,0;"=" l!06:CLINE="2413":0 n+BX=0:BX2=0 :0,:0b RFLAG=0: āREM=ZE:WFLAG=ZE:ZE,ZE;"DIVISION TEST:2.4"''"Enter required numbers:"''"(Give as fraction if improper)":TESTFLAG2545 RFLAG0 H=00 ǒNUM12=(*0 +0):NUM22=(*0 +0):DEN12=(*0 +0):DEN22=(*0 +0):NUM12DEN12NUM22DEN220 0 ,0 ;"(ENTER to skip)":M1=NUM12*DEN22:M2=NUM22*DEN12:M3=M1:M4=M2:0,0 ;NUM12;0,0 ;"- - =";0 ,0 ;DEN12;0,0;NUM22;0 ,0;DEN22:0 {0,0,0,0,0 ,0,0 ,0:0,0k:0 ,0:RFLAG=00 *T=00:QX,QY:QX,QY;"?" CLINE="2511":0 "M$=0 QX,QY;" ":0 M$<"0"M$>"9"0 QX,QY;M$:T=0NUM=M$ T=0NUM=NUM*0 +M$ T=0DEN=M$ T=0DEN=DEN*0 +M$ T=0ƯM$=0 DEN=ZE +T=0ƯM$=0 DEN=ZEDEN=0 T=0ƯM$=0 NUM=ZE T:L=0:QTIME=((0K)-0)*0X+(0L-0)*0<+(0N-0)*0 +(0O-0):TTIME=TTIME+QTIME:COUNT=ZE:M5=HU:M6=ZE:M3=ZE:M4=ZE:G=00:A=0 0-0:(M1/A=(M1/A))(M2/A=(M2/A))M3=M1/A:M4=M2/A M5M3M30M5=M3:M6=M4 A:G:DEN=ZE0 #(NUM/DEN-M1/M2)<0sQX0 0(0 ,0)=" "WFLAG=0:0 U(M5/0)=(M5/0)(M6/0)=(M6/0)M5=M5/0:M6=M6/0 |WFLAG0 ,0 ;"The correct answer is:";0,0;M1;0,0;M2:0r,0+:0 ,0 WFLAG(M5NUMM5M6)0 ,0 ;"Answer can be written:":M5M10,0;M5;0,0;M6:0r,0+:0 ,0:M5M2))ƺ((REM+0{# =)*M6)>00,0;((REM+0{# =)*M6);0,0;M6:0,0,:0+0*(M60 ),0 0TESTFLAG="1":06:CLINE="2545":0 iTESTFLAG=ZE:BX=0:BX2=0 :BX3=0 :BX4=0:0,:WFLAG=ZE:RFLAG=ZE:H:0 =""0 %TESTFLAG=ZE:RFLAG=ZE:L=0: (ZE,ZE;" SIMPLE ADDITION:2.5";'';"Addition of fractions with the same denominator is relatively simple.";0,0;"e.g:" *oNUM1=(*0+0):NUM2=(*0+0):DEN1=(*0+0):NUM1DEN1NUM2DEN10* ,30d:0,0;0;NUM1;0;0 ,0;DEN1;0 ,0;"+";0,0 ;0;NUM2;0;0 ,0 ;DEN1:0),0d:0+0*(DEN10 ),0:0Q,0d:0+0*(DEN10 ),0:0d:0 ,0 ;"=";0,0;0;NUM1;"+";NUM2;0;0 ,0;DEN1:ND=NUM1+NUM2:0z,0d:0+0*(NUM10 )+0*(NUM20 ),0:0d:0 ,0;"=";0,0;0;ND;0;0 ,0;DEN1:M3=ND:M4=DEN1:0,0d:0+0*(DEN10 ),0:0:0,0;NUM1;0,0 ;NUM2;0,0;NUM1;"+";NUM2;0,0;ND:T=0 0-0:(ND/T=(ND/T))(DEN1/T=(DEN1/T))ND=ND/T:DEN1=DEN1/T .T:M1=ND:M2=DEN1:M1M30 ,0;"=";0,0;M1;0 ,0;M2:0,0d:0+0*(M20 ),0 0RM1/M20CHAR=(M1/M2):0 ,0;"=":CHX="8":CHY="27":0 2)REM=ZE:M1/M20REM=(M1/M2)-CHAR 4M2>0REM>0M1/M20M3=REM*M2:0,0;(M3+0}L);0 ,0;M2:0,0d:0+0*(M20 ),0 6!06:CLINE="2615":0 8+BX=0:BX2=0 :0,:0*  ZE,ZE;"MORE ADDITION:2.5"''"The addition of fractions havingdifferent denominators can be accomplished by converting them to fractions having the same denominator.";0,0 ;"e.g:" NUM1=(*0 +0):NUM2=(*0 +0):DEN1=(*0 +0):DEN2=(*0 +0):DEN1=DEN2NUM1DEN1NUM2DEN20 10:0,0;NUM1;0 ,0;"- + - =";0 ,0;DEN1;0,0;NUM2;0 ,0;DEN2:0Z,0d:0H,0:0<:0,0 ;"X";0,0 ;0;NUM1;0,0;NUM1;0,0 ;DEN2;0 ,0;DEN2:0:0,0 ;0;NUM1;0,0;NUM1;0,0 ;DEN2;0 ,0;DEN2;0,0;"+":0P:0,0;"X";0,0;0;DEN1;0 ,0;DEN1;0,0;NUM2;0,0;NUM2:0:0,0;0;DEN1;0 ,0;DEN1;0,0;NUM2;0,0;NUM2:0P:0 ,0;"X":0 ,0;0;DEN1;0 ,0;DEN1;0 ,0;DEN2;0 ,0;DEN2:0:0 ,0;0;DEN1;0 ,0;DEN1;0 ,0;DEN2;0 ,0;DEN2:RES1=NUM1*DEN2:RES2=NUM2*DEN1:RES3=DEN1*DEN2:0,0d:02,0:0 ,0;"=":0P:0,0;RES1;" + ";RES2;0 ,0;RES3:02:RES4=RES1+RES2:0 ,0;"=";0 ,0;RES4;0,0;RES3:0,0D:0 ,0:M1=RES3:M2=RES4:T=0 0-0:(RES4/T=(RES4/T))(RES3/T=(RES3/T))RES4=RES4/T:RES3=RES3/T 0 ,0;" ":0,0D:0+0*(RES30 )+0*(RES40d),0:T:RES5="0":M1RES30,0;"=";0,0;RES4;0,0;RES3:0,0$:0+0*(RES30 ),0 SRES4RES3CHAR=(RES4/RES3):0,0;"=":CHX="16":CHY="25":0 .RES4RES3REM=RES4/RES3-CHAR:RES5=REM*RES3 ]RES5>00,0;RES5;0,0;RES3:0,0$:0 ,0 !06:CLINE=0 :0 EBX3=0 :BX4=0:BX=0:BX2=0 :0,:0 RFLAG=0: yWFLAG=ZE:ZE,ZE;"ADDITION TEST:2.5"''"Enter required numbers:"''"(Give as fraction if improper)":TESTFLAG2841 RFLAG0 H=00 NUM13=(*0 +0):NUM23=(*0 +0):DEN13=(*0 +0):DEN23=(*0 +0):NUM13DEN13NUM23DEN230 0,0;NUM13;0,0;"- + - =";0,0;DEN13;0,0 ;NUM23;0,0 ;DEN23:0,0t:0,0:0 :RFLAG0 {0,0,0,0,0,0,0,0,0,0:T=00:QX,QY:QX,QY;"?" CLINE="2809":0 M$=0 0 M$<"0"M$>"9"0 T=0NUM=M$ *T=0T=0NUM=0 *NUM+M$ T=0DEN=M$  T=0DEN=DEN*0 +M$ 8M$=0 T=0(T=0NUM=0)NUM=ZE T=0ƯM$=0 DEN=ZE +T=0ƯM$=0 DEN=ZEDEN=0 DQX,QY;" ";QX,QY;M$:T:L=0:QTIME=((0K)-0)*0X+((0L)-0)*0<+((0N)-0)*0 +((0O)-0):TTIME=TTIME+QTIME:COUNT=ZE:M1=(NUM13*DEN23)+(NUM23*DEN13):M2=DEN13*DEN23:RES1=M1:RES2=M2:T=0 0-0:(M1/T=(M1/T))(M2/T=(M2/T))M1=M1/T:M2=M2/T T0M3=M1:M4=M2 T:DEN=ZE0 #(M1/M2-NUM/DEN)<0sQX0 0(0 ,0)=" "0:WFLAG=0 2WFLAG0 ,0 ;"The correct answer is:" :M1NUMWFLAG0 ,0 ;"Answer can be written:" fWFLAG(WFLAGM1NUM)0,0;RES1;0,0;RES2:0r,04:0 ,0 (WFLAG(WFLAGM1NUM))M1RES10,0;"=";0,0;M1;0,0;M2:0,04:0 ,0 w(WFLAG(WFLAGM1NUM))M1M2CHAR=(M1/M2):0,0;"=":REM=M1/M2-CHAR:CHX=0:CHY=0:0 (WFLAG(WFLAGM1NUM))M1>M20,0;((REM*M2)+0}L);0,0;M2:0,04:0+0*(M20 ),0 0TESTFLAG="1":06:CLINE="2841":0 fTESTFLAG=ZE:BX=4:BX2=12 :BX3=12 :BX4=20:1580,:WFLAG=ZE:RFLAG=ZE:H J@1300:300,:RFLAG=ZE:TESTFLAG=ZE:L=65190: TZE,ZE;"SIMPLE SUBTRACTION:2.6"''"Subtraction of fractions with the same denominator is, like addition, relatively simple." V0,0;"e.g:" XyNUM1=(*0+0):NUM2=(*0+0):DEN1=(*0+0):NUM1DEN1NUM2DEN1NUM1NUM20V Z0,0;NUM1;0 ,0;DEN1;0 ,0;"-";0,0 ;NUM2;0 ,0 ;DEN1:0),0d:0 +0*(DEN0 ),ZE:0Q,0d:0+0*(DEN10 ),ZE:0d:0 ,0 ;"=";0;0,0;NUM1;0,0 ;NUM2;0,0;NUM1;"-";NUM2;ZE;0 ,0;DEN1:0|,0d:0+0*(NUM10 )+0*(NUM20 ),0:0d:0,0d:0 ,ZE:ND=NUM1-NUM2:0 ,0;"=";0,0;0;ND;ZE;0 ,0;DEN1:0d:0,0;NUM1;0,0 ;NUM2;0,0;NUM1;"-";NUM2;0,0;ND:M3=ND:M4=DEN1:T=0 0-0:(ND/T=(ND/T))(DEN1/T=(DEN1/T))ND=ND/T:DEN1=DEN1/T \T:M1=ND:M2=DEN1:M1M30 ,0;"=";0,0;M1;0 ,0;M2:0,0d:0+0*(M20 ),0 ^WM1/M20CHAR=(M1/M2):0 ,0;"=":CHX=0:CHY=0:0 `!M1/M20REM=(M1/M2)-CHAR bM2>0REM>0M1/M20M3=REM*M2:0,0;(M3+0}L);0 ,0;M2:0,0d:0 ,0 d!06:CLINE="2917":0 f+BX=0:BX2=0 :0,:0X  ZE,ZE;"MORE SUBTRACTION:2.6"''"The subtraction of fractions having different denominators isaccomplished by converting them to fractions having the same denominator.";0,0 ;"e.g:" NUM1=(*0 +0):NUM2=(*0 +0):DEN1=(*0 +0):DEN2=(*0 +0):DEN1=DEN2NUM1DEN1NUM2DEN20 DRES1=NUM1*DEN2:RES2=NUM2*DEN1:RES3=DEN1*DEN2:RES1RES20 0,0;NUM1;0 ,0;"- - - =";0 ,0;DEN1;0,0;NUM2;0 ,0;DEN2:0Z,0d:0H,0:0<:0,0 ;"X";0,0 ;0;NUM1;0,0;NUM1;0,0 ;DEN2;0 ,0;DEN2:0:0,0 ;0;NUM1;0,0;NUM1;0,0 ;DEN2;0 ,0;DEN2:0,0;"-":0P:0,0;"X":0,0;0;DEN1;0 ,0;DEN1;0,0;NUM2;0,0;NUM2:0:0,0;0;DEN1;0 ,0;DEN1;0,0;NUM2;0,0;NUM2:0P:0 ,0;"X":0 ,0;0;DEN1;0 ,0;DEN1;0 ,0;DEN2;0 ,0;DEN2:0:0 ,0;0;DEN1;0 ,0;DEN1;0 ,0;DEN2;0 ,0;DEN2:0,0d:02,0:0 ,0;"=":0P:0,0;RES1;" - ";RES2;0 ,0;RES3:02:RES4=RES1-RES2:0 ,0;"=";0 ,0;RES4;0,0;RES3:0,0D:0 ,0:M1=RES3:M2=RES4:T=0 0-0:(RES4/T=(RES4/T))(RES3/T=(RES3/T))RES4=RES4/T:RES3=RES3/T 0 ,0;" ":0,0D:0+0*(RES30 ),0:T:RES5=0:M1RES30,0;"=";0,0;RES4;0,0;RES3:0,0$:0+0*(RES30 ),0 WRES4RES3CHAR=(RES4/RES3):0,0;"=":CHX=0:CHY=0:0 .RES4RES3REM=RES4/RES3-CHAR:RES5=REM*RES3 ]RES5>00,0;RES5;0,0;RES3:0,0$:0 ,0 !06:CLINE=0 :0 EBX3=0 :BX4=0:BX=0:BX2=0 :0,:0 @0d:0d:0,0 ;" ":RFLAG=0: ;100d:21,10 ;" ":RFLAG=0: ZWFLAG=ZE:ZE,ZE;"SUBTRACTION TEST:2.6"''"Enter required numbers:":TESTFLAG3145I RFLAG0" H=00 NUM14=(*0 +0):NUM24=(*0 +0):DEN14=(*0 +0):DEN24=(*0 +0):NUM14DEN14NUM24DEN240 "EM1=(NUM14*DEN24)-(NUM24*DEN14):M2=DEN14*DEN24:M1<00 $0,0;NUM14;0,0;"- - - =";0,0;DEN14;0,0 ;NUM24;0,0 ;DEN24:0,0t:0,0:0& :0 &k0,0,0,0,0,0,0,0:T=00:QX,QY:QX,QY;"?" (CLINE=0) :0 *M$=0 05 ,M$<"0"M$>"9"0( .T=0NUM=M$ / T=0NUM=0 *NUM+M$ 0T=0DEN=M$ 1 T=0DEN=DEN*0 +M$ 2T=0ƯM$=0 NUM=ZE 3T=0ƯM$=0 DEN=ZE 4+T=0ƯM$=0 DEN=ZEDEN=0 5&QX,QY;" ";QX,QY;M$:T:L=0:QTIME=((0K)-0)*0X+(0L-0)*0<+(0N-0)*0 +(0O-0):TTIME=TTIME+QTIME:TTIME=TTIME+QTIME:COUNT=0:RES1=M1:RES2=M2:T=0 0-0:(M1/T=(M1/T))(M2/T=(M2/T))M1=M1/T:M2=M2/T 8T0M3=M1:M4=M2 9T:DEN=ZE0< ;)(M1/M2-NUM/DEN)<1E-3wn4000 <0(0 ,0)=" "0:WFLAG=0 >2WFLAG0 ,0 ;"The correct answer is;" ?<(WFLAGM1NUM)0 ,0 ;"Answer can be written:" @fWFLAG(WFLAGM1NUM)0,0;RES1;0,0;RES2:0r,04:0 ,0 B(WFLAG(WFLAGM1NUM))M1RES10,0;"=";0,0;M1;0,0;M2:0,04:0 ,0 Dw(WFLAG(WFLAGM1NUM))M1M2CHAR=(M1/M2):0,0;"=":REM=M1/M2-CHAR:CHX=0:CHY=0:0 Ft(WFLAG(WFLAGM1NUM))M1>M20,0;((REM+0}L)*M2);0,0;"-";0,0;M2 H0TESTFLAG="1":06:CLINE=0I :0 JTESTFLAG=ZE:BX=0:BX2=0 :BX3=0 :BX4=0:0,:WFLAG=ZE:RFLAG=ZE:H:0:0:RFLAG=ZE:TESTFLAG=ZE:L=0: I0,0;"END OF MODULE":0d:ENDFLAG=0:0& XMARKZE W$=0 W$="" !CLINE=0W$="R"N$="R": 4W$=0 ƱN$>ZEN$=N$((N$-0)):0 "W$<00ůW$>090 N$=N$+W$:N$>SLN$=N$(SL) 0#0;0,0;N$;"  ":0  0 @0\+0*0\-0e\-0*0f\::"M";0;"FRACTIONS":*"M";0;"FRACTIONS"0:*"M";0;"FRACTIONS" dx x xestflaenundflapagkilintimetimoronarroflaagflaleHlleHuepoHhahhpoTgfnudecd@e@dendeew0umumen en? ees*eses(esesMPota)ouiemhhhtuarYANWRNRB0Z teach3 ddb?ddJ#1;1,0;"STOP THE TAPE and press ENTER"; n+.1}L,25:13 110n x=#1;1,0;" " SKIP=0 :HU="100":ZE="0":TESTFLAG=ZE:23658j\,8:KFLAG="1":COUNT=ZE:TFLAG=ZE:1:7:1: .MIDFLAG=ZE:DIVFLAG=ZE:ENDFLAG=ZE:BPAGE=ZE 1ZE,ZE;"CHAPTER 3:RATIOS & PROPORTIONS" CLINE=1 BX3=12 :BX4=21 z$="" 5#1;1,ZE;"SELF TIMER ON? (Y/N) "  A$=:A$="Y"A$="N"520  516 J.01z# =,30:TTIME=ZE:SETIME=ZE:A$="Y"4500:SETIME="1"  COR=ZE:MARK=ZE:WRONG=ZE:#1;1,ZE;"PROGRESSION (35-99, or R) ":SL=2:5000:B$=N$:300,:N$="R"B$="0":SKIP=1:538 &B$<35#ŰB$>99c524  PROG=B$:1500 &:ZE,10 ;"PROGRESS":TOTAL=COR+WRONG:2,ZE;"QUESTIONS:";TOTAL''"CORRECT: ";COR''"INCORRECT:";WRONG:TOTAL=ZE554* (IMARK=((COR/(COR+WRONG))*100d):8,0;"MARK: ";MARK */MARK="0"8,0;"MARK: ";MARK +QSETIME=ZE10 ,0;"PASS: ";PROG''"TIME: 00:00:00":557- ,10 ,0;"PASS: ";PROG:HOUR=(TTIME/3600):REM=TTIME-HOUR:MIN=(REM/60<):REM2=REM-MIN*60<:12 ,0;"TIME: ";HOUR;":";MIN;":";(REM2) -7QHT="150":TOTAL="0"CHT="0":WHT="0":5600 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0,T=130:ٰ"4":150+T,0:0,CHT:ٰ"2":200+T,0:0,WHT:T:ٰ"7":150,152:80P,0:160,160:5,-5:5,15:212,168:10 ,-10 :222,168:-10 ,-10 :15906 2=""5622 31SKIPENDFLAGTOTAL=16:MARK=PROG+1 4M#1;1,0;" ":ENDFLAG3202 6 602Z Y CPAGE=PAGE Z4X=13 21:X,0;" ":X [MENUX="16" \I#1;ZE,ZE;" "'" ";#2; ]Y16,ZE;"RETURN "'"BACKPAGE"'"CALCMODE"'"GLOSSARY"'"PROGRESS"'"FINISH " _07:1:13 ,2;"MENU" glMENUX,ZE;1;" ":OLDMENU=MENUX:0:A$=:A$=32 MENUX=MENUX+1 l.01z# =,30 qA$="13"650 vMENUX="22"MENUX="16" {8OLDMENU,ZE;1;" ":615g MENUX="17"BPAGE602Z +MENUX="16"BPAGERFLAG="1":1502 (644+MENUX) $PAGE=CPAGE:RFLAG="1":1502  700 23658j\,ZE:900  800   550&  3000 :#1;ZE,22;"BACKPAGE":BPAGE="1" X#1;1,ZE;"WHICH PAGE? ":5000:N$=ZE701 jNO=N$:NO>(CPAGE+1)#1;1,ZE;"YOU HAVE NOT REACHED THAT PAGE.":200:701 `NO="4"NO="5"NO="6"#1;1,ZE;"YOU CANNOT REPEAT TESTS.":200:701 PAGE=NO-1::X=13 21:X,ZE;" ":X:13 ,2;"KEYS";16,1;"MENU"''" PAGE":#1;0,22;" BACKPAGE ":(1800+(PAGE*100d)) Y#1;1,ZE;"ANOTHER PAGE? ":10 :ZE:="Y"701 9BPAGE=ZE:#1;ZE,22;" ":602Z  [:ZE,10 ;"GLOSSARY":BPAGE#1;0,22;" BACKPAGE " ,'"PROPORTION:the relationship between two RATIOS. Ratios are said to be ~in proportion~ if they both divide a given whole into the same sized parts. e.g; the ratios 2:3 and 4:6 are in proportion." .E'"RATIO:A way of showing how a whole is divided into parts." J:#1;1,ZE;"PRESS A KEY TO RETURN TO MENU" ZE:602Z *I$=Z$:1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""904 &.002xn,30:z$" "cl="0" 4((z$"0")(z$"9"))z$="m"ts=0:1150~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z  z$=" "cl=11020 z$=" "cl=0952 =a$""acc=a$:decflagacc=acc*10 ^(pdecpos-8) z$="t"1012 z$="y"1016 z$="i"1006 z$="u"1010 z$="v"1024 z$="b"1028 z$="n"1008 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""904 tsf$="="f$=""948 970:error1000 +op1=acc:f$=g$:g$="":f$"="ts=1  902 8acc="0":pdecpos="8":cl="1":1052:902  ,acc<1e10Žop1<1e10986 ̌a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-480)+10 *(a$(a-1)-480):a$(a-2)="-"expa=-expa Zexpo=(o$(o)-480)+10 *(o$(o-1)-480):o$(o-2)="-"expo=-expo f$"/"aprox=expo+expa ,(f$="+"f$="-")ƽaprox<568986 f$="/"aprox=expo-expa aprox28986 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 3acc>1e28?9y(f$="/"acc=0)error="1": meme="0": 1052: V15,0;" ERROR ":1;15,47/:1;568,0 " "1002  1020 memo="0":902 !acc=-acc:1052:902 -acc=memo:1052:ts=0:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 L1022:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,8,0,0,0,0,0,0:1022:1052:902 acc<01000 !acc=acc:1052:902 f$="+"f$="-"1046 f$="*"f$="/"1036  >f$="/":op1=acc:acc=100d:970:error1000  f$="=":902  'me="1":970:error1000 4op1=acc:acc=100d:f$="*"f$="/":1042 f$="*" 970:error1000 f$="=":902 Ctemp1=op1:h$=f$:f$="*":me=1:970:error970 ;op1=acc:acc="100":f$="/":970:error1000 f$=h$:op1=temp1:902 s$=acc:l=s$:15,0;" ";:1;15,47/:1;568,0:(acc=0((acc>1Ž(acc-1)<10 ^-8)(acc99999999>)))1062& K(acc-1)<10 ^-8acc=1:l=1:pdecpos=8 110 ^(l-2)41114Z ,.s$=".000000"+s$(1):l="8":1092D .l>61114Z 0Gs$=".00000"+s$(1)+s$(3):l=4l=7:1092D 2"l="8":pdecpos="1":1092D 4!acc>99999999>1114Z 64(acc10 ^-5ƽacc<1)1090B 80s$(1)="0"s$=s$(2l):l=l-1 :l81088@ <9s$(9 )>"4"s$(8)=(s$(8)-47/) > s$=s$(18):l="8" @pdecpos=9 -l:1092D B 1114Z Dpdecpos=81106R Facc11104P HC15,0;e$(1pdecpos-1);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(1-decpos) Ns$(2l);:1112X: PA15,pdecpos+1;s$(l+pdecpos-7l);:l=l-1 R=15,0;e$(18-l);:acc0" "; Tacc<0"-"; Vacc;:1112X: Xq1;pdecpos*8+6,491:pdecpos*8+7,480:pdecpos*8+7,47/: Zs$(l-2)="E"a=3 \s$(l-3)="E"a=4 ^>15,0;:l-a>5pdecpos=1:1124d `3pdecpos=6+a-l:l-a=1pdecpos=4 b/pdecpos>1e$(1pdecpos-1); dacc<0"-"; facc0" "; h's$(1);:l-a=11134n j/l-a>5s$(35);:1134n ls$(3l-a); n@1112X:"E";:s$(l-a+2);:a=30;s$(l): pa=4s$(l-1l): r)i=13 21:i,0;" ";:i:;0;13 ,0;" "'" ";:15,0;" ";17,1;"";17,3;"";17,5;"";17,7;"";18,1;"";18,3;"";18,5;"%";18,7;"X";19,1;"7";19,3;"8";19,5;"9";19,7;"";20,1;"4";20,3;"5";20,5;"6";20,7;"+";21,1;"1";21,3;"2";21,5;"3";21,7;"-";:#1,0,0;" ";"0";" ";"";" ";"";" ";;"=";" ";:#1;1,0;" ";#2:0:0:7: ~1a$=8(a$="0"z$="0"decflag)904 z$"m"1160 ,decflag=1:a$=""a$="0":1200  904 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-1  1200  904 ~15,0;" ";:1;15,47/:1;568,0:15,9 -a$;a$;:1112X  MZE,ZE;"END OF TEST "''"SEE MENU FOR PROGRESS ": H=21310 )K=15:A$(K)=" "A$(K)="0" K: ;K=14:A$(K)=" "A$(K+1)" "A$(K)="0"  K #A$=" "A$="0" ( DKFLAG=ZE:CLINE="1500":PAGE=ZE:BPAGE=ZE:MENUX="16":RFLAG=ZE ZE::x=13 21:x,ZE;" ":x:13 ,2;"KEYS";16,0;" MENU"''" PAGE";0,25;"Page:";PAGE+1:(1800+(PAGE*100d)):PAGE=PAGE+1:SKIPPAGE=3PAGE=PAGE+3  1502 dX=13:X:23658j\,8:BPAGE#1;ZE,22;" BACKPAGE " =""1552 M$=:.01z# =,30 M$="M"BPAGE=ZE600X J(PAGE="3"PAGE="4"PAGE="5")(M$<":"M$>"/"ůM$=13 )1566 M$="M"BPAGE="1"602Z 0M$="P"BPAGE=ZE(1890b+(PAGE*100d)) M$="P"BPAGE="1"706 M$" "1552 KFLAGCLINE  1554 "0M3="1000":M4="1000":M5="1000":M6="1000" #GT=9 1-1:(R/T)=(R/T)(S/T)=(S/T)M3=R/T:M4=S/T $#M5>M3M3>ZEM5=M3:M6=M4:NEWT=T 'T )M3=M5:M4=M6: ,pT=BXBX2:T,0;" ":T:T=BX3BX4:T,10 ;" ":T .9#1;1,ZE;" " 1 69#1;1,ZE;" PRESS SPACE TO CONTINUE": !KFLAG=1:ONUM=ZE:ODEN=ZE  ZE,ZE;"RATIOS DEFINED:3.2"''"A ratio is a way of showing how something is divided into parts which add up to a whole. Ratios are equivalent to fractions. e.g:" INUM=(*9 +1):DEN=(*9 +1):NUMDEN1810 NUM=ONUMDEN=ODEN1810 100d:8,11 ;NUM;10 ,11 ;DEN;9 ,11 ;"- = ";NUM;":";DEN;9 ,0;"Fraction";9 ,26;"Ratio";14,12 ;NUM;"&";DEN;" are the parts.";16,12 ;NUM;"+";DEN;" is the whole." 100d:15906 ONUM=NUM:ODEN=DEN  CLINE="1825":1550 " BX="7":BX2="12":1580, & 1810 b liZE,ZE;"RATIO EXAMPLES:3.2"''"Examples of calculations using ratios:":H=15:M3=ZE:M4=ZE nNUM=(*20+1):R=(*10 +1):S=(*502+1):M1=NUM*R:M2=NUM*S:M1100dM21000M2100dM1M21902n p20,1;"1 OF 4";5,ZE;"Give the ratio of ";M1;"p ";5,21;" to `.00";8;8;8;(M2/HU);".";((M2-(M2/HU)*HU));" ":RO=((M2-(M2/HU)*HU)):RO<10 5,28;"0";RO qNEWT="1":100d:7,10 ;"Answer:";9 ,20;M1;":";M2:1570":100d:11 ,10 ;"Divide each side by ";NUM*NEWT r13 ,21;M3;":";M4 tP15906:BX="5":BX2="9":BX3="11":BX4="17":CLINE="1909":1550 v<1580,:H:H=15:R=(*100d+1) xCZ=(*10 +1):Y=(*10 +1):Z=Y1912x z20,1;"2";5,0;"Share `";:X=R*Z+R*Y:PX=(X/100d):DX=X-(PX*100d):D$=DX:D$=1D$="0"+D$ |0PX;".";D$;" in the ratio ";5,26;Z;":";Y;:100d:9 ,10 ;"Answer:":100d:12 ,10 ;"Whole = ";1;Z;"+";Y;:5,26;1;Z;":";Y;:100d:5,25;" ";Z;":";Y;12 ,18;Z;"+";Y;12 ,23;"= ";Z+Y:100d:14,10 ;1;X;5,7;PX;".";D$:100d:5,7;PX;".";D$;14,10 ;X;"";Z+Y;" = ";:100d:X/(Z+Y);" = 1 Part":100d:16,10 ;X/(Z+Y);"X";Z;":";X/(Z+Y);"X";Y:A1=R*Z:A2=R*Y:F$=A1:G$=A2 ~$F$2F$="0"+F$:1918~ $G$2G$="0"+G$:1920 100d:18,16;" = ";"`";F$(1);".";F$(2);":";"`";G$(1);".";G$(2):15906:CLINE=1923:1550 BX4="20":1580,:H o1926:"shop","sales ","made","mine","output","dug ","bike","price ","cost":H=13:H$,I$,J$ YR=(*9 +1):X=(*9 +1):Y=(*9 +1):XY1928 fH/2ɺ(H/2)P$="`":Z=(R*X+R*Y)*1000:Z$=Z:Q$="make":Z100000CP1928 6H/2=(H/2)Z=(R*X+R*Y)*100d:Z$=Z Z/Yɺ(Z/Y)1928 $Z$<5Z$=" "+Z$:1936 HH/2=(H/2)P$=Z$:Z$=" t"+8+"onnes":Q$="produce" H="3"Q$="cost" 20,1;"3";5,ZE;"Two ";H$;"s had a ratio of ";I$;" of ";X;":";Y;". ";"If the better ";H$;" ";J$;" ";P$;Z$(3);".";Z$(4);" then what did the other ";H$;" ";Q$;"?" :100d:11 ,10 ;"Answer:":D=Z/Y:D$=D:13 ,10 ;Z;"";Y;:100d:" = ";D;15,17;" = 1 Part":100d:17,10 ;X;"X";D;" = ";X*D:R=X*D:Z$=R $Z$<5Z$=" "+Z$:1944 h100d:19,10 ;H$;" ";Q$;"s ";:P$="`":H=2P$=Z$:Z$="t "+8+8+" " d" ";P$;Z$(3);".";Z$(4);19,31;" ":15906:CLINE="1949":1550 1580,:H H=13 A=(*9 +1):B=(*9 +1):C=(*9 +1):D=(*9 +1):X=(A+B+C)*D*100d:X$=X:x$>41954 $X$<4X$="0"+X$:1956 X20,1;"4";5,ZE;"An amount `";X$(2);".";X$(3);" is to be sharedin the ratio; ";A;":";B;":";C;".";7,ZE;"Find the value of each share.":100d:10 ,10 ;"Answer:":100d:12 ,10 ;A;"+";B;"+";C;:100d:" = ";A+B+C;" = Whole":PART=X/(A+B+C):100d:14,10 ;X;"";A+B+C;" = ";PART;" = 1 Part":A1=A*PART:B1=B*PART:C1=C*PART:100d:16,10 ;A;"X";PART;" = ";A1:100d:17,10 ;B;"X";PART;" = ";B1:100d:18,10 ;C;"X";PART;" = ";C1:A$=A1:B$=B1:C$=C1 $A$<4A$="0"+A$:1960 $B$<4B$="0"+B$:1962 $C$<4C$="0"+C$:1964 100d:20,10 ;"`";A$(2);".";A$(3);":`";B$(2);".";B$(3);":`";C$(2);".";C$(3):15906:CLINE=1967:1550 &BX2="12":1580,:H:1900l  mZE,ZE;"PROPORTION DEFINED:3.3"''"When two ratios are equal they are said to be in proportion. e.g:" YA=(*9 +1):B=(*9 +1):C=(*8+2):A=B2004 ֡100d:6,1;A;":";B;" is in proportion to ";A*C;":";B*C:100d:'8;"Since:"'15;A*C;" = ";C;"x";A''15;B*C;" = ";C;"x";B '15906:CLINE="2009":1550 !BX="5":1580,:2000 *TESTFLAG=ZE:RFLAG=ZE: 4fZ$="":ZE,ZE;"TEST No.1:3.4"''"Calculations using ratios:":2112@:TESTFLAGTFLAG2130R 5TESTFLAGTFLAG2159o 6RFLAGTFLAG2110> 7RFLAGTFLAG2136X 84H=15:2112@:M3=ZE:M4=ZE:Z$="" :NUM2=(*20+1):R2=(*10 +1):S2=(*502+1):M12=NUM2*R2:M22=NUM2*S2:M12HUM22Ȱ"1000"M22HUM12M222106: <*R=R2:S=S2:1570":OLDR=M3:OLDS=M4 >5,ZE;"Give the ratio of ";M12;"p ";5,21;" to `.00";8;8;8;(M22/HU);".";((M22-(M22/HU)*HU));" ":RO=((M22-(M22/HU)*HU)):RO<10 5,28;"0";RO ?RFLAG2113A @ 4500 A7,10 ;"Answer:";7,22;":":20,21,23,24,25:Q=15:POS:7,POS;"?" BCLINE="2115":1550 DM$="13"M$=" ":2120H FM$<"0"M$>"9"2114B HZ$=Z$+M$:7,POS;M$ IQ K3A$=Z$(2):B$=Z$(3):A$=" "A$="0" LB$=" "B$="0" MB$=ZEB$="1" Nu4600:R=A$:S=B$:1570":R=M3:S=M4:1570":(M3/M4-OLDR/OLDS)<1E-3wn4000:2128P Ob4100:12 ,12 ;"Correct answer is:";15,21;OLDR;":";OLDS:2129Q PWA$OLDR12 ,11 ;"Answer can be written";15,21;OLDR;":";OLDS Q`TESTFLAG="1":15906:BX="5":BX2="12":BX3="11":BX4="17":CLINE="2130":1550 RYTESTFLAG=ZE:RFLAG=ZE:1580,:H:TFLAG="1":H=15:R4=(*HU+1) TGZ4=(*10 +1):Y4=(*10 +1):Z4=Y42132T VJZ$="":2134V:20,22,23,26,28,29 Xt2134V:5,ZE;"Share `";:X=R4*Z4+R4*Y4:PX=(X/HU):DX=X-(PX*100d):D$=DX:D$=1D$="0"+D$ YRFLAG2139[ Z 4500 [A1=R4*Z4:A2=R4*Y4:PX;".";D$;" in the ratio ";5,26;Z4;":";Y4:100d:7,10 ;"Answer: ` . :` . ":Q=16:POS:7,POS;"?" \CLINE="2141":1550 ]M$="13"M$=" ":2144` ^M$<"0"M$>"9"2140\ `.7,POS;M$:Z$=Z$+M$:Q:L=65190 a)T=16:Z$(T)=" "Z$(T)="0" b%T:A$=Z$(3):B$=Z$(4) d34600:A$=A1ưB$=A24000:2158n fI4100:11 ,10 ;"The correct answer is:":F$=A1:G$=A2 h$F$2F$="0"+F$:2152h j$G$2G$="0"+G$:2154j lZ14,14;"`";F$(1);".";F$(2);":";"`";G$(1);".";G$(2) n6TESTFLAG="1":15906:CLINE="2159":1550 p<TESTFLAG=ZE:RFLAG=ZE:BX3="10":BX4="20":1580,:H )TESTFLAG=ZE:L=65190:RFLAG=ZE: .ZE,ZE;"TEST No.2:3.4":TESTFLAG2245 2RFLAGA$="":2201+H:H$,I$,J$:2224 Q2201:"shop","sales ","made",19,20,21,23,24 E"mine","output","dug ",19,20,21,23,24 E"bike","price ","cost",19,20,21,23,24 $H=13:A$="":H$,I$,J$ ^R4=(*9 +1):W4=(*9 +1):Y4=(*9 +1):W4Y42208 WHɰ"2"P$="`":Z=(R4*W4+R4*Y4)*1000:X$=Z:Q$="make":ZȰ"100000"2208 *H="2"Z=(R4*W4+R4*Y4)*100d:X$=Z Z/Y4ɺ(Z/Y4)2208 RES=(Z/Y4)*W4 !X$<"5"X$="0"+X$:2218 8H="2"P$=X$:X$=" t"+8+"onnes":Q$="produce" 6H="2"P$(1)="0"P$=P$(2):2221 H="3"Q$="cost" PL="19":2,ZE;"Two ";H$;"s had a ratio of ";I$;" of ";W4;":";Y4;". If the second ";H$;" ";J$;" ";P$;X$(3);".";X$(4);" then what did the"'"other ";H$;" ";Q$;"?" :100d:10 ,10 ;"Answer:":H=1H=310 ,18;"` . " RFLAG2227  4500 .Q=15:(H=1H=3)PL 110 ,PL;"?":CLINE="2229":1550 M$="13"M$=" ":2232 M$<"0"M$>"9"2228 (A$=A$+M$:10 ,PL;M$:H="2"DUM (RFLAG=ZE:PL=PL+1:Q:4600  1300 !A$=RES4000:2244 4100:R$=RES $R$<5R$="0"+R$:2238 6H="2"R$(1)="0"R$=R$(2):2239 K=110 :K:HU:14,10 ;"(";Z;"";Y4;")x";W4;" = ";RES:HU:16,10 ;H$;" ";Q$;"s ";:P$="`":H=2P$=R$:R$="t "+8+8+" " >" ";P$;R$(3);".";R$(4):19,31;" " 6TESTFLAG="1":15906:CLINE="2245":1550 :TESTFLAG=ZE:BX="2":RFLAG=ZE:BX2="12":1580,:H )TESTFLAG=ZE:L=65190:RFLAG=ZE: .ZE,ZE;"TEST No.3:3.4":TESTFLAG2371C RFLAG2314 4H=13:J$="":K$="":L$="":2318 A6=(*9 +1):B6=(*9 +1):C6=(*9 +1):D6=(*9 +1):X6=(A6+B6+C6)*D6*HU:X$=X6:x$>42306 ,X$=X6:X$<4X$="0"+X$:2310 PPART=X6/(A6+B6+C6):A1=PART*A6:B1=PART*B6:C1=PART*C6:D$=A1:B$=B1:C$=C1 2,ZE;"An amount `";X$(2);".";X$(3);" is to be sharedin the ratio; ";A6;":";B6;":";C6;"."''"Find the value of each share.":100d:8,2;"Answer:" 2318 8,10 ;"` . :` . :` . ":11 ,12 ,14,15,18,19,21,22,25,26,28,29 RFLAG4500 J$="":K$="":L$="" /Q=112 :POS:8,POS;"?" CLINE="2327":1550 M$="13"M$=" ":2334 M$<"0"M$>"9"2326 8,POS;M$ "Q<"5"J$=J$+M$ &Q>"4"Q<"9"K$=K$+M$ *Q>"8"L$=L$+M$ . RFLAG=ZE:Q 0 4600 1!B$<"4"B$="0"+B$:23531 2!C$<"4"C$="0"+C$:23542 3!D$<"4"D$="0"+D$:23553 4T=14 5J$(T)=" "J$(T)="0" 6K$(T)=" "K$(T)="0" 7L$(T)=" "L$(T)="0" 8T ;+J$=D$K$=B$L$=C$4000:2370B < 4100 AHU:14,10 ;"Correct answer is:";16,10 ;"`";D$(2);".";D$(3);":`";B$(2);".";B$(3);":`";C$(2);".";C$(3) B6TESTFLAG="1":15906:CLINE="2371":1550 F1RFLAG=ZE:TESTFLAG=ZE:BX2="12":1580,:H G,1250:15906:100d:0 V)TESTFLAG=ZE:L=65190:RFLAG=ZE: \L=65190::ENDFLAG="1":ZE,ZE;"END OF MODULE":10 :200:550& VMARKZE W$=13 W$="" !CLINE=1W$="R"N$="R": 8W$=12 ƱN$>ZEN$=N$((N$-1)):5055 'W$<480ůW$>5795010 N$=N$+W$:N$>SLN$=N$(SL) 4#1;1,28;N$;"  ":5010 kidestflaflaounflaidflaivflandflapaglinx xZANtimetimoarronWRNRB0roagenuflanudeu elPrs`8 ewP0x ab cMPlotahhhtuarY< teach4 bidhdidJ#1;1,0;"STOP THE TAPE and press ENTER"; n*.1}L,25:13 10 x>#1;1,0;" "; SKIP=0:CLINE=1:HU="100":ZE="0":TESTFLAG=ZE:23658j\,8:KFLAG="1":COUNT=ZE:TFLAG=ZE:1:7:1: .MIDFLAG=ZE:DIVFLAG=ZE:ENDFLAG=ZE:BPAGE=ZE 3ZE,ZE;"CHAPTER 4:DECIMALS & PERCENTAGES" *BX2=12 :BX3=12 :BX4=21 z$="" 5#1;1,ZE;"SELF TIMER ON? (Y/N) "  A$=:A$="Y"A$="N"520  516 J.01z# =,30:TTIME=ZE:SETIME=ZE:A$="Y"4500:SETIME="1"  COR=ZE:MARK=ZE:WRONG=ZE:#1;1,ZE;"PROGRESSION (35-99, or R) ":SL=2:5000:B$=N$:300,:N$="R"B$="0":SKIP=1:538 &B$<35#ŰB$>99c524  PROG=B$:1500 &:ZE,10 ;"PROGRESS":TOTAL=COR+WRONG:2,ZE;"QUESTIONS:";TOTAL''"CORRECT: ";COR''"INCORRECT:";WRONG:TOTAL=ZE554* (IMARK=((COR/(COR+WRONG))*100d):8,0;"MARK: ";MARK */MARK="0"8,0;"MARK: ";MARK +QSETIME=ZE10 ,0;"PASS: ";PROG''"TIME: 00:00:00":557- ,10 ,0;"PASS: ";PROG:HOUR=(TTIME/3600):REM=TTIME-HOUR:MIN=(REM/60<):REM2=REM-MIN*60<:12 ,0;"TIME: ";HOUR;":";MIN;":";(REM2) -7QHT="150":TOTAL="0"CHT="0":WHT="0":5600 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0,T=130:ٰ"4":150+T,0:0,CHT:ٰ"2":200+T,0:0,WHT:T:ٰ"7":150,152:80P,0:160,160:5,-5:5,15:212,168:10 ,-10 :222,168:-10 ,-10 :15906 2=""5622 31SKIPENDFLAGTOTAL=20:MARK=PROG+1 4M#1;1,0;" ":ENDFLAG3202 6 602Z Y CPAGE=PAGE Z4X=13 21:X,0;" ":X [MENUX="16" \I#1;ZE,ZE;" "'" ";#2; ]Y16,ZE;"RETURN "'"BACKPAGE"'"CALCMODE"'"GLOSSARY"'"PROGRESS"'"FINISH " _07:1:13 ,2;"MENU" glMENUX,ZE;1;" ":OLDMENU=MENUX:0:A$=:A$=32 MENUX=MENUX+1 l.01z# =,30 qA$="13"650 vMENUX="22"MENUX="16" {8OLDMENU,ZE;1;" ":615g MENUX="17"BPAGE602Z +MENUX="16"BPAGERFLAG="1":1502 (644+MENUX) $PAGE=CPAGE:RFLAG="1":1502  700 23658j\,ZE:900  800   550&  3000 ?#1;0,22;"BACKPAGE":BPAGE="1" X#1;1,ZE;"WHICH PAGE? ":5000:N$=ZE701 jNO=N$:NO>(CPAGE+1)#1;1,ZE;"YOU HAVE NOT REACHED THAT PAGE.":200:701 ^NO=5NO=6#1;1,ZE;"YOU CANNOT REPEAT TESTS.":200:701 PAGE=NO-1::X=13 21:X,ZE;" ":X:13 ,2;"KEYS";16,1;"MENU"''" PAGE":#1;0,22;" BACKPAGE ":(2400` +(PAGE*100d)) Y#1;1,ZE;"ANOTHER PAGE? ":10 :ZE:="Y"700 9BPAGE=ZE:#1;ZE,22;" ":602Z  [:ZE,10 ;"GLOSSARY":BPAGE#1;0,22;" BACKPAGE " $'"DECIMAL FRACTION:is a FRACTION whose DENOMINATOR is a POWER of ten, written only as the NUMERATOR, following a DECIMAL POINT." &g'"DECIMAL POINT:is used to separate the fractional part andthe whole in a decimal number." (y'"PERCENTAGE:a fractional number with a DENOMINATOR of 100, expresses with a ~%~ instead of the denominator." *'"POWER:the result of multiplying a number by itself a given number of times. The second power of a number is called its SQUARE, and the third its CUBE." J:#1;1,ZE;"PRESS A KEY TO RETURN TO MENU" ZE:602Z *I$=Z$:1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""904 &.002xn,30:z$" "cl="0" 4((z$"0")(z$"9"))z$="m"ts=0:1150~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z  z$=" "cl=11020 z$=" "cl=0952 =a$""acc=a$:decflagacc=acc*10 ^(pdecpos-8) z$="t"1012 z$="y"1016 z$="i"1006 z$="u"1010 z$="v"1024 z$="b"1028 z$="n"1008 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""904 tsf$="="f$=""948 970:error1000 +op1=acc:f$=g$:g$="":f$"="ts=1  902 8acc="0":pdecpos="8":cl="1":1052:902  ,acc<1e10Žop1<1e10986 ̌a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-480)+10 *(a$(a-1)-480):a$(a-2)="-"expa=-expa Zexpo=(o$(o)-480)+10 *(o$(o-1)-480):o$(o-2)="-"expo=-expo f$"/"aprox=expo+expa ,(f$="+"f$="-")ƽaprox<568986 f$="/"aprox=expo-expa aprox28986 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 3acc>1e28?9y(f$="/"acc=0)error="1": meme="0": 1052: V15,0;" ERROR ":1;15,47/:1;568,0 " "1002  1020 memo="0":902 !acc=-acc:1052:902 -acc=memo:1052:ts=0:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 L1022:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,8,0,0,0,0,0,0:1022:1052:902 acc<01000 !acc=acc:1052:902 f$="+"f$="-"1046 f$="*"f$="/"1036  >f$="/":op1=acc:acc=100d:970:error1000  f$="=":902  'me="1":970:error1000 4op1=acc:acc=100d:f$="*"f$="/":1042 f$="*" 970:error1000 f$="=":902 Ctemp1=op1:h$=f$:f$="*":me=1:970:error970 ;op1=acc:acc="100":f$="/":970:error1000 f$=h$:op1=temp1:902 s$=acc:l=s$:15,0;" ";:1;15,47/:1;568,0:(acc=0((acc>1Ž(acc-1)<10 ^-8)(acc99999999>)))1062& K(acc-1)<10 ^-8acc=1:l=1:pdecpos=8 110 ^(l-2)41114Z ,.s$=".000000"+s$(1):l="8":1092D .l>61114Z 0Gs$=".00000"+s$(1)+s$(3):l=4l=7:1092D 2"l="8":pdecpos="1":1092D 4!acc>99999999>1114Z 64(acc10 ^-5ƽacc<1)1090B 80s$(1)="0"s$=s$(2l):l=l-1 :l81088@ <9s$(9 )>"4"s$(8)=(s$(8)-47/) > s$=s$(18):l="8" @pdecpos=9 -l:1092D B 1114Z Dpdecpos=81106R Facc11104P HC15,0;e$(1pdecpos-1);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(1-decpos) Ns$(2l);:1112X: PA15,pdecpos+1;s$(l+pdecpos-7l);:l=l-1 R=15,0;e$(18-l);:acc0" "; Tacc<0"-"; Vacc;:1112X: Xq1;pdecpos*8+6,491:pdecpos*8+7,480:pdecpos*8+7,47/: Zs$(l-2)="E"a=3 \s$(l-3)="E"a=4 ^>15,0;:l-a>5pdecpos=1:1124d `3pdecpos=6+a-l:l-a=1pdecpos=4 b/pdecpos>1e$(1pdecpos-1); dacc<0"-"; facc0" "; h's$(1);:l-a=11134n j/l-a>5s$(35);:1134n ls$(3l-a); n@1112X:"E";:s$(l-a+2);:a=30;s$(l): pa=4s$(l-1l): r)i=13 21:i,0;" ";:i:;0;13 ,0;" "'" ";:15,0;" ";17,1;"";17,3;"";17,5;"";17,7;"";18,1;"";18,3;"";18,5;"%";18,7;"X";19,1;"7";19,3;"8";19,5;"9";19,7;"";20,1;"4";20,3;"5";20,5;"6";20,7;"+";21,1;"1";21,3;"2";21,5;"3";21,7;"-";:#1,0,0;" ";"0";" ";"";" ";"";" ";;"=";" ";:#1;1,0;" ";#2:0:0:7: ~1a$=8(a$="0"z$="0"decflag)904 z$"m"1160 ,decflag=1:a$=""a$="0":1200  904 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-1  1200  904 ~15,0;" ";:1;15,47/:1;568,0:15,9 -a$;a$;:1112X  MZE,ZE;"END OF TEST "''"SEE MENU FOR PROGRESS ": H=21310 )K=15:A$(K)=" "A$(K)="0" K: ;K=14:A$(K)=" "A$(K+1)" "A$(K)="0"  K: DKFLAG=ZE:CLINE="1500":PAGE=ZE:BPAGE=ZE:MENUX="16":RFLAG=ZE ZE::x=13 21:x,ZE;" ":x:13 ,2;"KEYS";16,0;" MENU"''" PAGE";0,25;"Page:";PAGE+1:(2400` +(PAGE*100d)):PAGE=PAGE+1:SKIPPAGE=4PAGE=PAGE+2  1502 dX=13:X:23658j\,8:BPAGE#1;ZE,22;" BACKPAGE " =""1552 M$=:.01z# =,30 M$="M"BPAGE=ZE600X F(PAGE=4PAGE=5)(M$<":"M$>"/"ůM$=13 )1566 M$="M"BPAGE="1"602Z 0M$="P"BPAGE=ZE(2490 +(PAGE*100d)) M$="P"BPAGE="1"706 M$" "1552 KFLAGCLINE  1554 "0M3="1000":M4="1000":M5="1000":M6="1000" #GT=9 1-1:(R/T)=(R/T)(S/T)=(S/T)M3=R/T:M4=S/T $#M5>M3M3>ZEM5=M3:M6=M4:NEWT=T 'T )M3=M5:M4=M6: ,pT=BXBX2:T,0;" ":T:T=BX3BX4:T,10 ;" ":T .9#1;1,ZE;" " 1 69#1;1,ZE;" PRESS SPACE TO CONTINUE": bKFLAG=1:ZE,ZE;"DEFINITIONS:4.2"''"A decimal fraction is a fractionwhich has a denominator of 10 ora power of 10."'"Decimal fractions are written without a denominator but with anumerator preceded by a decimal point. e.g:" c*20,1;"1 OF 2" dET="10":T$="":DEN="10" fQ=16 gNUM=(*9 +1) hC100d:10 ,ZE;"Fraction = .";T$;NUM;" Decimal" i.9 ,11 ;NUM;11 ,10 ;DEN k84T,92\:ET,ZE mDQ/2=(Q/2)DEN=DEN*10 :T$="0"+T$:ET=ET+8 o'15906:CLINE="2416":1550 ra9 ,11 ;" ";11 ,10 ;" ";10 ,ZE;" " s9#1;1,ZE;" " tQ BX="2":1580, 20,1;"2";2,ZE;"Decimals consist of a whole number and tenths, hundredths, and thousandths,etc."'"e.g:" Q=13 [NUM=(*999+1):DEN=(*999+1):NUM<"100"DEN<"100"2442 7,15;NUM;".";DEN |100d:8,15;"^^^";9 ,13 ;"WHOLE":100d:8,15;" ";9 ,13 ;" " 28,19;"^";9 ,19;"TENTHS" C100d:8,19;" ^";9 ,19;" HUNDREDTHS" F100d:8,19;" ^";9 ,19;" THOUSANDTHS" '15906:CLINE="2453":1550 BX="7":1580, Q BX="2":1580, 2400`  ZE,ZE;"ARITHMETIC:4.3"''"The arithmetic processes as applied to decimals are the sameas for whole numbers except thatthe result must be corrected so that the decimal point is in theright place."'"e.g:":DIVFLAG2514 100d:10 ,2;"MULTIPLICATION:":Q=15:100d:12 ,10 ;"To find":NUM=(*9 +1):DEN=(*500+1):NUM2=(*9 +1):DEN2=(*500+1):H$=DEN:J$=DEN2 0H$(H$)="0"H$=H$((H$-1)):2502 (20,1;"1 OF 2" 0J$(J$)="0"J$=J$((J$-1)):2504 6MUL=10 ^(H$):TIP=10 ^(J$):12 ,18;NUM;".";H$;" X ";NUM2;".";J$:DEN=H$:DEN2=J$:RES=(NUM*MUL+DEN)*(NUM2*TIP+DEN2):100d:14,10 ;NUM;DEN;" X ";NUM2;DEN2;" = ";RES:100d:16,10 ;NUM;".";H$;" has ";H$;" places";:H$=116,25;" " \17,10 ;NUM2;".";J$;" has ";J$;" places";:J$=117,25;" " LONG=H$+J$:100d:19,10 ;"Places in answer=";H$;"+";J$;"=";LONG:K$=RES:100d:21,10 ;"Answer is ";K$((K$-LONG));".";K$((K$-LONG)+1):15906:CLINE="2511":1550 :BX2="12":BX3="12":BX4="21":BX="12":1580,:Q ҔDIVFLAG="1":20,1;"2 OF 2";10 ,2;"DIVISION: ":Q=15:12 ,8;"To find " NUM=(*9 +1):NUM2=(*9 +1):DEN=(*500+1):DEN2=(*500+1):H$=DEN:J$=DEN2:FRAC1=NUM+(DEN/(10 ^(H$))):FRAC2=NUM2+(DEN2/(10 ^(J$))) 0H$(H$)="0"H$=H$((H$-1)):2516 0J$(J$)="0"J$=J$((J$-1)):2518 E12 ,17;NUM;".";H$;" ";NUM2;".";J$:J$>H$H$=H$+"0" 100d:14,10 ;"Moving the decimal";15,10 ;"point to make the";16,10 ;"divisor a whole number";17,10 ;"gives;":100d:H$>J$19,10 ;NUM;H$(̱J$);".";H$(J$+1);"";NUM2;J$;" = ";FRAC1/FRAC2:2525 919,10 ;NUM;H$;"";NUM2;J$;" = ";FRAC1/FRAC2 '15906:CLINE="2526":1550 1580,:Q:DIVFLAG=ZE BX="10":1580, 2500  *ZE,ZE;"PERCENTAGES:4.4"''"Percent means ~out of 100~."'"A percentage can be thought of as a fraction whose denominator is always 100." +MIDFLAG="1"2620< ,;20,1;"1 OF 2";6,ZE;"e.g:" -Q=15 0NUM=(*89Y+10 ) 4100d:9 ,10 ;NUM;"% = ";8,17;NUM;10 ,17;100d:138,99c:20,0 6'15906:CLINE="2615":1550 8 BX="8":BX2="10":1580, :Q ;MIDFLAG="1" <Q=15 F:NUM=(*89Y+10 ):DEN=(*899+100d) H20,1;"2 OF 2";9 ,9 ;NUM;"% of ";DEN;" = x ";DEN;8,22;NUM;10 ,22;HU:177,99c:20,ZE:HU:13 ,19;" = ";(NUM/HU);" x ";DEN;15,19;" = ";(DEN/HU)*NUM L'15906:CLINE="2637":1550 N 1580, PQ Q MIDFLAG=ZE R 2600(  uZE,ZE;"CONVERSIONS:4.5"''"Conversion between fractions, decimals and percentages can be carried out as follows:" C'"PERCENTAGE TO FRACTION:";20,1;"1 OF 6" .8,ZE;"Divide percentage by 100. e.g:" /Q=15:NUM=(*89Y+10 ) }HU:11 ,10 ;NUM;"% = ";10 ,17;NUM;12 ,17;100d:137,83S:20,0 R=NUM:S=HU:1570" .K=12:R=M3:S=M4:1570":K rM3NUM11 ,21;"=";10 ,23;M3;12 ,23;M4:184,83S:12 ,0 '15906:CLINE="2721":1550 #BX="9":BX2="12":1580,:Q )BX="6":BX2="12":1580,:BX="9" k20,1;"2";6,ZE;"PERCENTAGE TO DECIMAL: "''"Divide percentage by 100. e.g:" /Q=15:NUM=(*89Y+10 ) 710 ,10 ;NUM;"% = ";NUM;"";HU;" = ";NUM/HU '15906:CLINE="2733":1550 E#1;1,ZE;" ":1580, Q BX="6":1580,:BX="9" j20,1;"3";6,ZE;"DECIMAL TO PERCENTAGE: "''"Multiply decimal by 100. e.g:" 4Q=15:NUM=((*89Y+10 ))/HU H10 ,10 ;NUM;" = ";NUM;"X";100d;" = ";NUM*100d;"%" '15906:CLINE="2749":1550 BX="9":1580,:Q BX="6":1580,:BX="9" q20,1;"4";6,ZE;"DECIMAL TO FRACTION: "''"Check number of decimal places. e.g:" fQ=15:NUM=((*999+1))/1000:N$=NUM:LL=N$-2:DEN=10 ^LL 1N$(1)="."LL=LL+1:DEN=10 ^LL 511 ,5;NUM;" has ";LL;" decimal places." v14,10 ;"Fraction is ";13 ,23;NUM*DEN;15,23;DEN:186,59;:25,ZE $R=(NUM*DEN):S=(DEN):1570" =K=12:(M4+1)"9"2810 SX,SY;M$ Z$=Z$+M$:W:4600 6A$=Z$(2):B$=Z$(3):B$=" "B$="0.5" A$=" "A$="0" B$<"1"2824 A$=" "A$="0"  ANS=A$/B$ 2(ANS-(NUM7/HU))<"1E-4"4000:2825 4100:12 ,10 ;"Correct answer is: ";14,12 ;NUM7;16,12 ;HU:98b,513:15,ZE:M3=NUM7:2826 M3=NUM7 M4=HU K=14:R=M3:S=M4:1570":K:(RɰA$)(M4ɰB$)200:12 ,10 ;"Answer can be written:";15,15;"=";14,17;M3;" ";16,17;M4;" ":136,513:15,ZE 6TESTFLAG="1":15906:CLINE="2830":1550 7BX2="12":RFLAG=ZE:TESTFLAG=ZE:BX="4":1580, Q ,MIDFLAG="1":RFLAG=ZE -RFLAG28640 .OQ=15:Z$="":NUM8=((*89Y+10 ))/HU:18,19 / 4500 02862. :4,ZE;"Convert ";NUM8;" to a percentage.";6,10 ;"Answer: %":W=12:YP:6,YP;"?" 2CLINE="2867":1550 3M$="13"M$=" ":28706 4M$<"0"M$>"9"28662 6 Z$=Z$+M$ 8(6,YP;M$:W:Z$=" "2876< 9 4600 :<((NUM8*100d)-Z$)<1E-4sQX4000:2878> 6TESTFLAG="1":15906:CLINE="2879":1550 @:BX2="12":TESTFLAG=ZE:RFLAG=ZE:BX="4":1580,:Q J5MIDFLAG=ZE:TESTFLAG=ZE:L=65190:RFLAG=ZE: TRZE,ZE;"TEST No.2:4.5"''"Enter required numbers:":TESTFLAGMIDFLAG2931s UTESTFLAGMIDFLAG2971 VRFLAGMIDFLAG2935w WRFLAG2905Y XDQ=15:Z$="":NUM9=((*999+1))/1000 Y4,ZE;"Convert ";NUM9;" to a fraction.";7,10 ;"Answer: ":2905Y :146,115s:22,0:6,18,6,19,6,20,8,18,8,19,8,20,8,21 ZRFLAG4500 [1Z$="":W=17:XP,YP:XP,YP;"?" \CLINE="2909":1550 ]M$="13"M$=" ":2911_ ^M$<"0"M$>"9"2907[ _$Z$=Z$+M$:XP,YP;M$:W:4600 `"A$=Z$(3):B$=Z$(4) aDA$=" "(A$(2)=" "A$(1)" "A$(3)" ")A$="0" bcNUMC=ZE:B$=" "((B$(2)=" "B$(3)=" ")B$(1)" "B$(4)" ")B$="00.5" cX(NUM9-(NUM9+.1}L))>1E-4sQXNUM9=NUM9*10 :NUMC=NUMC+1:2915c dA(A$/B$-NUM9/(10 ^NUMC))<"1E-4"4000:2920h f4100:12 ,10 ;"The correct answer is:";14,12 ;NUM9;16,12 ;10 ^NUMC:98b,513:22,0 h?R=(NUM9+.1}L):S=((10 ^NUMC)+.1}L):1570" j4(M4+1)<10 ^NUMCR=M3:S=M4:1570" l(M4+1)"9"2950 )Z$=Z$+M$:8,YP;M$:W:4600 Z$=" "Z$="0" .Z$=(NUM10*HU)/DEN104000:2970 54100:14,12 ;"Correct answer is:" )16,14;(NUM10*HU)/DEN10;"%" 6TESTFLAG="1":15906:CLINE="2971":1550 &TESTFLAG=ZE:1580,:RFLAG=ZE:Q :1250:150 5MIDFLAG=ZE:TESTFLAG=ZE:RFLAG=ZE:L=65190: \L=65190::ENDFLAG="1":ZE,ZE;"END OF MODULE":10 :200:550& SMARKZE W$=13 W$="" !CLINE=1W$="R"N$="R": 8W$=12 ƱN$>ZEN$=N$((N$-1)):5055 'W$<480ůW$>5795010 N$=N$+W$:N$>SLN$=N$(SL) 4#1;1,28;N$;"  ":5010 kilindestflaflaounflaidflaivflandflapagx x xZA^ teach5 d@aSdJ#1;1,0;"STOP THE TAPE and press ENTER"; n+.1}L,25:13 110n x>#1;1,0;" "; HU="100":ZE="0":TESTFLAG=ZE:BX="2":BX2="12":BX3=BX2:BX4="21":0:0:0::MIDFLAG=ZE:ENDFLAG=ZE:BPAGE=ZE:ZE,ZE;"CHAPTER 5:APPLYING PERCENTAGES-1":SETIME=ZE:TTIME=ZE:0j\,0:#0;0,ZE;"SELF TIMER ON? (Y/N) " CLINE=1:SKIP=ZE A$=:A$="Y"A$="N"0  0 90z# =,0:0:A$="Y"TTIME=ZE:SETIME="1"  COR=ZE:WRONG=ZE:#1;1,ZE;"PROGRESSION (35-99, or R) ";:SL=2:5000:B$=N$:MARK=ZE:300,:N$="R"B$="0":SKIP=1:538 &B$<35#ŰB$>99c524  PROG=B$:1500 &:ZE,0 ;"PROGRESS":TOTAL=COR+WRONG:0,ZE;"QUESTIONS:";TOTAL''"CORRECT: ";COR''"INCORRECT:";WRONG;:TOTAL=ZE0* (MARK=((COR/(TOTAL))*HU) *''"MARK: ";MARK''"PASS: ";PROG;:HOUR=(TTIME/0):REM=TTIME-HOUR:MIN=(REM/0<):REM2=REM-MIN*0<:''"TIME: ";HOUR;":";MIN;":";(REM2):QHT="150":TOTAL=ZECHT=ZE:WHT=ZE:00 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0T=00:ٰ"4":0+T,ZE:ZE,CHT:ٰ"2":0+T,ZE:ZE,WHT:T:ٰ"7":0,0:0P,ZE:0,0:0,-0:0,0:0,0:0 ,-0 :0,0:-0 ,-0 :06 2=""02 31SKIPENDFLAGTOTAL=34":MARK=PROG+1 401:ENDFLAG0 6 0Z Y CPAGE=PAGE ZX=0 0:X,0;" ":X:MENUX="16":01:0 ,0;"MENU"'''"RETURN "'"BACKPAGE"'"CALCMODE"'"GLOSSARY"'"PROGRESS"'"FINISH " gdMENUX,ZE;0;" ":OLDMENU=MENUX:ZE:A$=:A$="32"MENUX=MENUX+0 l%0z# =,0:A$="13"0 vMENUX="22"MENUX="16" {6OLDMENU,ZE;0;" ":0g MENUX="17"BPAGE0Z (MENUX="16"BPAGERFLAG="1":0 (0+MENUX) !PAGE=CPAGE:RFLAG="1":0  0 0j\,ZE:0  0   0&  0 1300:BPAGE="1" T#1;1,ZE;"WHICH PAGE ";:5000:N$=ZE701 fNO=N$:NO>(CPAGE+0)#0;0,ZE;"YOU HAVE NOT REACHED THAT PAGE.":0:0 mNO="2"NO="5"NO="7"NO="9"NO="12"#0;0,ZE;"YOU CANNOT REPEAT TESTS.":0:0 1PAGE=NO-0::0x:(0@+(PAGE*HU)) V#0;0,ZE;"ANOTHER PAGE? ":0 :ZE:="Y"0 BPAGE=ZE:01:0Z  .:ZE,0 ;"GLOSSARY":BPAGE0 "2,ZE;"BROKER:An agent appointed to purchase and sell stocks and shares"''"CUSTOMS & EXCISE:the Government body which collects V.A.T." &w'"P.A.Y.E.:~Pay As You Earn~ Income TAX"''"SHARES:Certificates signifying part ownership of a company." *'"STOCKS:Certificates issued by Governments or companies to raise capital."''"TAX:Money collected by Government to meet national expenditure." 4 15906 5=""8215 6 BX2="21":BX="2":1580, 82,ze;"TAX RETURN:A form filled in by the income tax payer, giving the amount earned in a year, together with other information." :'"V.A.T.:Value Added Tax, a tax onthe difference between the price at which an article is sold and the cost for which it was purchased or manufactured." J 15906 BX=12 :ZE:602Z #1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""904 &.002xn,30:z$" "cl="0" 4((z$"0")(z$"9"))z$="m"ts=0:1150~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z  z$=" "cl=11020 z$=" "cl=0952 =a$""acc=a$:decflagacc=acc*10 ^(pdecpos-8) z$="t"1012 z$="y"1016 z$="i"1006 z$="u"1010 z$="v"1024 z$="b"1028 z$="n"1008 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""904 tsf$="="f$=""948 970:error1000 +op1=acc:f$=g$:g$="":f$"="ts=1  902 8acc="0":pdecpos="8":cl="1":1052:902  ,acc<1e10Žop1<1e10986 ̌a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-480)+10 *(a$(a-1)-480):a$(a-2)="-"expa=-expa Zexpo=(o$(o)-480)+10 *(o$(o-1)-480):o$(o-2)="-"expo=-expo f$"/"aprox=expo+expa ,(f$="+"f$="-")ƽaprox<568986 f$="/"aprox=expo-expa aprox28986 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 3acc>1e28?9y(f$="/"acc=0)error="1": meme="0": 1052: V15,0;" ERROR ":1;15,47/:1;568,0 " "1002  1020 memo="0":902 !acc=-acc:1052:902 -acc=memo:1052:ts=0:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 L1022:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,8,0,0,0,0,0,0:1022:1052:902 acc<01000 !acc=acc:1052:902 f$="+"f$="-"1046 f$="*"f$="/"1036  >f$="/":op1=acc:acc=100d:970:error1000  f$="=":902  'me="1":970:error1000 4op1=acc:acc=100d:f$="*"f$="/":1042 f$="*" 970:error1000 f$="=":902 Ctemp1=op1:h$=f$:f$="*":me=1:970:error970 ;op1=acc:acc="100":f$="/":970:error1000 f$=h$:op1=temp1:902 s$=acc:l=s$:15,0;" ";:1;15,47/:1;568,0:(acc=0((acc>1Ž(acc-1)<10 ^-8)(acc99999999>)))1062& K(acc-1)<10 ^-8acc=1:l=1:pdecpos=8 110 ^(l-2)41114Z ,.s$=".000000"+s$(1):l="8":1092D .l>61114Z 0Gs$=".00000"+s$(1)+s$(3):l=4l=7:1092D 2"l="8":pdecpos="1":1092D 4!acc>99999999>1114Z 64(acc10 ^-5ƽacc<1)1090B 80s$(1)="0"s$=s$(2l):l=l-1 :l81088@ <9s$(9 )>"4"s$(8)=(s$(8)-47/) > s$=s$(18):l="8" @pdecpos=9 -l:1092D B 1114Z Dpdecpos=81106R Facc11104P HC15,0;e$(1pdecpos-1);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(1-decpos) Ns$(2l);:1112X: PA15,pdecpos+1;s$(l+pdecpos-7l);:l=l-1 R=15,0;e$(18-l);:acc0" "; Tacc<0"-"; Vacc;:1112X: Xq1;pdecpos*8+6,491:pdecpos*8+7,480:pdecpos*8+7,47/: Zs$(l-2)="E"a=3 \s$(l-3)="E"a=4 ^>15,0;:l-a>5pdecpos=1:1124d `3pdecpos=6+a-l:l-a=1pdecpos=4 b/pdecpos>1e$(1pdecpos-1); dacc<0"-"; facc0" "; h's$(1);:l-a=11134n j/l-a>5s$(35);:1134n ls$(3l-a); n@1112X:"E";:s$(l-a+2);:a=30;s$(l): pa=4s$(l-1l): ri=13 21:i,0;" ";:i:13 ,0;" "'" ";15,0;" ";17,1;"";17,3;"";17,5;"";17,7;"";18,1;"";18,3;"";18,5;"%";18,7;"X";19,1;"7";19,3;"8";19,5;"9";19,7;"";20,1;"4";20,3;"5";20,5;"6";20,7;"+";21,1;"1";21,3;"2";21,5;"3";21,7;"-";#1;0,0;" ";"0";" ";"";" ";"";" ";"=";" ";1,0;" ";#2:0:0:7: ~1a$=8(a$="0"z$="0"decflag)904 z$"m"1160 ,decflag=1:a$=""a$="0":1200  904 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-1  1200  904 ~15,0;" ";:1;15,47/:1;568,0:15,9 -a$;a$;:1112X  3#0;ZE,0;" BACKPAGE ": xX=0 0:X,0;" ":X:0 ,0;"KEYS"'''" MENU"''" PAGE": CLINE=ZE:PAGE=ZE:RFLAG=ZE :1400x:ZE,25;"Page:";PAGE+1:(1600@+(PAGE*HU)):PAGE=PAGE+1:SKIP(PAGE=1)(PAGE=4)(PAGE=6)PAGE=8PAGE=11 PAGE=PAGE+1  1502 &K=00:K:BPAGE0 =""0 1M$=:0z# =,0:M$="M"BPAGE=ZE0X Y(PAGE="1"PAGE="4"PAGE="6"PAGE="8"PAGE="11")(M$<":"M$>"/"ůM$="13")0 M$="M"BPAGE="1"0Z )M$="P"BPAGE=ZE(1690+(PAGE*HU)) M$="P"BPAGE="1"0 M$" "0 CLINE ,oT=BXBX2:T,0;" ":T:T=BX3BX4:T,0 ;" ":T 1FT=ZE0:#0;T,ZE;" ":T: 69#0;0,ZE;" PRESS SPACE TO CONTINUE": BKFLAG="1":0,0;"1 OF 3";ZE,ZE;"DISCOUNTS DEFINED:5.2"''"Discount is a deduction from theprice of an article."'"Trade discount is given by one trader to another."'"Cash discount is given for prompt cash payment.":06:CLINE="1603":0 D1BX="2":BX2="12":BX3=BX2:BX4="21":0, FWQ=00:X=(*0'+0):Y=(*0+HU):DP=(*0+0) H0H:"micro","video","bike","hi-fi":W=0DP:I$:W:0,0;"2";0,ZE;"In a sale all items are sold"'"for ";X;"% discount."'"If a ";I$;" was previously sold"'"for `";Y;",what is its sale price?":HU:'"Answer:";0 ,0;X;"% of `";Y;" = ":NUM=(Y/HU)*X:HU:0z,0c:0,ZE:0,0;Y;0 ,0;HU;0 ,0;"X ";X;" = ";NUM:HU:0 ,0 ;Y;" - ";NUM;" = ";Y-NUM:HU:0,0 ;"Sale price = `";Y-NUM:06:CLINE="1609":0 JBX="2":BX2="12":BX3=BX2:BX4="21":0,:Q:Q=00:X=(*0+0 ):Z=(*0 +0):Y=(*0+0x):0,0;"3";0,ZE;"A wholesaler allows a retailer ";X;"% trade discount and ";Z;"% cash discount,what cash price will the retailer pay for an article listed at `";Y;" ?":NUM=(Y/HU)*X:HU:0,0;"Answer:";0 ,0 ;X;"% of `";Y;" = ";NUM:HU:0 ,0 ;"Trade price = ";Y-NUM:ANS=((Y-NUM)/HU)*Z:A$=ANS:A$=A$+" ":B$=A$(0):HU:0,0 ;Z;"% of ";Y-NUM;" = ";B$:CP=Y-NUM-ANS:A$=CP:A$=A$+" ":B$=A$(0):HU:0,0 ;"Cash price = `";B$:06:CLINE=0K:0 L0,:Q:0F  RFLAG=ZE: UZE,ZE;"DISCOUNT TEST:5.2"''"Enter required answer:":TESTFLAGMIDFLAG1731 TESTFLAGMIDFLAG1753 MIDFLAG1734 RFLAG1706 C=13:V2=(*39'+1):Y2=(*399+HU):DP2=(*4+1):1608H:W=1DP2:I$:W 0,ZE;"In a sale all items are sold for";V2;"% discount."'"If a ";I$;" was previously sold"'"for `";Y2;",what is its sale price?";0 ,0 ;"Answer: ` . ":R$(0):NUM=(Y2/HU)*V2:ANS=Y2-NUM:RFLAG0 ^0:0,0,0,0,0:W=00:YP:0 ,YP;"?" CLINE="1711":0 M$="13"M$=" ":0 M$<"0"M$>"9"0 [0 ,YP;M$:R$(W)=M$:W:A$=ANS:0:T=00:R$(T)=" "R$(T)="0":T 7B$=A$(0):C$=A$(0):C$="1"C$=C$+"0" A$=B$+C$:R$=""0 )T=00:R$(T)=" "R$(T)="0" ,T:(R$/HU-ANS)<"1E-3"0:0 J0:0 ,0 ;"Correct answer is:";0,0;"`";ANS :TESTFLAG="1":RFLAG=ZE:06:CLINE="1731":0 ĕTESTFLAG=ZE:BX="4":1580,:C:MIDFLAG="1":F=13:V3=(*19+10 ):Z3=(*9 +1):Y3=(*499+1) 0,ZE;"A wholesaler allows a retailer ";V3;"% trade discount and ";Z3;"% cash discount,what cash price will the retailer pay for an article listed at `";Y3;" ?":Z$="":NUM=(Y3/HU)*V3:0 ,0 ;"Answer: ` . ":RFLAG0 ^0:0,0,0,0,0:W=00:YP:0 ,YP;"?" CLINE="1739":0 M$="13"M$=" ":0 M$<"0"M$>"9"0 Р0 ,YP;M$:Z$=Z$+M$:W:Z$=Z$(0)+"."+Z$(0):ANS=((Y3-NUM)/HU)*Z3:RES=Y3-NUM-ANS:A$=RES:0:D=00:Z$(D)=" "Z$(D)="0" $D:A$<0A$="0"+A$:0 2(Z$-(A$(0)))<"5E-2"0:0 ]0:0 ,0 ;"Correct answer is:";0,0;"`";A$((0-(A$"9"0 RZ$=Z$+M$:0,YP;M$:W:0:T=00:Z$(T)="13"Z$(T)="0" NT:B$=Z$(0):C$=Z$(0):Z$=B$+"."+C$:MARG=(Z1-Y1)/Y1:A$=MARG A$<"5"A$=A$+"0":0 uA$=A$(5):ANS=(A$)*HU:D$=((ANS*10 +.5)/10 ):(Z$-D$)<.2~L4000:2026 I0:0,0 ;"Correct answer is:";0,0;ANS;"%" /MIDFLAG="1":06:CLINE="2027":0  0 B$=" ":0 ,ZE;B$(0)'B$(0);0,0 ;B$(0);0,0;B$(0):0,0;D$:HU:0 ,0 ;"Margin: . %":Z$="":0:W=00:YP:0 ,YP;"?":RFLAG0 CLINE="2031":0 %M$="13"0 ,YP;" ":0 M$<"0"M$>"9"0 TZ$=Z$+M$:0 ,YP;M$:W:0:T=00:Z$(T)=0 Z$(T)="0" T:B$=Z$(2):C$=Z$(3):Z$=B$+"."+C$:MARK=(Z1-Y1)/Z1:A$=MARK:A$=A$(5):ANS=(A$)*100d:D$=ANS:(Z$-D$)<.11}aG4000:2042 I0:0,0 ;"Correct answer is:";0,0;ANS;"%" 0TESTFLAG="1":06:CLINE="2043":0 ITESTFLAG=ZE:MIDFLAG=ZE:RFLAG=ZE:1580,:Q:3500 :200 *2TESTFLAG=ZE:L="65190":MIDFLAG=ZE:RFLAG=ZE: 6 0,0;"1 OF 2";ZE,ZE;"V.A.T. EXPLAINED:5.4"''"V.A.T is a tax added to the costof some goods and services.Most businesses pay V.A.T in two ways"''"1) V.A.T. is paid to a supplier of goods or services.":CLINE="2103":06:0 8BX="6":0,:0,ZE;"2) V.A.T. is charged on goods orservices sold."'"Part of this is then paid to customs & excise. ":06:CLINE="2105":0 :BX="2":0, 20,0;"2";0,ZE;"Given that the current rate of V.A.T. is 15%."'"If a shop buys ";X;" articles at"'"`";Z;" + V.A.T. each from a"'"wholesaler and sells them all at"'"`";Y;" + V.A.T. each, how much"'"V.A.T. does the shop pay and"'"to whom?":0:0 ,0;"Total cost of goods";0 ,0;"from wholesaler = ":HU:0,0;0;X;0 ,0;X:HU:0,0;X;0 ,0;X;"x";0,0;0;Z;0 ,0;Z:HU:0,0;Z;0 ,0;Z:HU:0 ,0;"= `";X*Z:HU:0,0 ;"V.A.T. on `";X*Z:HU:0,0 ;"= ";0,0 ;X*Z;0,0 ;HU:0b,0:0,ZE:NUM=(X*Z*0)/HU:0,0;"x ";0;:HU:" = `";NUM:06:CLINE=0?:0 @BX="10":BX2="11":0,:0 ,0 ;"V.A.T paid to";0 ,0 ;"wholesaler=`";NUM:HU:0 ,0 ;"Total cost of goods";0,0 ;"sold = ";:0;X;0,0;X:HU:0,0;X;0,0;X;"x";0;0,0;Y;0,0;Y:HU:0,0;Y;0,0;Y;0,0;"= `";X*Y:DEN=(X*Y*0)/HU:HU:0,0 ;"V.A.T. on `";X*Y;0,0;"= `";DEN:06:CLINE="2113":0 B0,:0d:0 ,0 ;"Total V.A.T. to be";0 ,0 ;"paid = `";DEN:0d:0 ,0 ;"BUT `";NUM;" has ";0,0 ;"already been paid";0,0 ;"to the wholesaler.":0d:0,0 ;"Total V.A.T. left to";0,0 ;"pay to customs&excise":0d:0,0 ;" = `";DEN;"-`";NUM:0d:0,0 ;"= `";DEN-NUM:06:CLINE=0C:0 DBX="2":0,:0< TESTFLAG=ZE:RFLAG=ZE: 9ZE,ZE;"V.A.T. TEST:5.4":TESTFLAGMIDFLAG2247 TESTFLAGMIDFLAG2255 RFLAG0 V=00 QNX=(*0+0):Y3=(*0+HU):Z3=(*0+HU):Y3Z30 STOT=(NX*Y3*0)/HU:WHO=(NX*Z3*0)/HU:DIR=TOT-WHO:TOT00 D$=" ":B$=D$:C$=D$ Z$="":0,ZE;"Given that the current rate of V.A.T. is 15%."'"If a shop buys ";NX;" articles at"'"`";Z3;" + V.A.T. each from a"'"wholesaler and sells them all at"'"`";Y3;" + V.A.T. each, how much"'"V.A.T. does the shop pay and"'"to whom?":RFLAG0 R=00:Z$="" R="1"XP="11":0 R="2"XP="14":0 XP="17":0,0 ;"V.A.T paid to customs";0,0 ;"and excise = ` .";0,0;C$(0);".";C$(0) y0 ,0 ;"V.A.T. paid to";0,0 ;"wholesaler = ` .";0,0;B$(0);".";B$(0) h0 ,0 ;"Total V.A.T = ` .";0 ,0;D$(0);".";D$(0):RFLAG0 Y0:0,0,0,0,0:W=00:YP:XP,YP;"?" CLINE="2229":0 M$="13"M$=" ":0 M$<"0"M$>"9"0 XP,YP;M$:M$=" "M$="0" Z$=Z$+M$:W:R="1"D$=Z$ RFLAG="1":R="2"B$=Z$ R="3"C$=Z$ rR:0:(D$/HU-TOT)<"1E-4"ƽ(B$/HU-WHO)<"1E-4"ƽ(C$/HU-DIR)<"1E-4"0:T=0HU:T:0 }0:BX="12":BX2="12":BX3="10":0,0 ;"DO YOU WANT TO SEE THE";0,0 ;"CORRECT ANSWER? (Y/N)" =""0 AM$=:M$="Y"1580,:RFLAG=ZE:MIDFLAG=1:2250 M$"N"0 006:TESTFLAG="1":CLINE="2247":0 ?RFLAG=ZE:TESTFLAG=ZE:BX="2":BX3="8":0,:V:0 KBX="10":BX2="12":BX3="10":0,:0 ,0;"Total cost of goods";0 ,0;"from wholesaler = ":0d:0,0;0;NX;0 ,0;NX:0d:0,0;NX;0 ,0;NX;:"X";0,0;0;Z;0 ,0;Z:0d:0,0;Z;0 ,0;Z:0d:0 ,0;"= `";NX*Z:0d:0,0 ;"V.A.T. on `";NX*Z:0d:0,0 ;"= ";0,0 ;NX*Z;0,0 ;0d:0b,0:0,0:0,0;"X ";0;:0d:" = ";WHO:06 =""0 BX="10":BX2="11":0,:0 ,0 ;"V.A.T paid to";0 ,0 ;"wholesaler=`";WHO:0d:0 ,0 ;"Total cost of goods";0,0 ;"sold = ";:0;NX;0,0;NX:0d:0,0;NX;0,0;NX;:"X";0;0,0;Y;0,0;Y:0d:0,0;Y;0,0;Y:0,0;"= `";NX*Y:0d:0,0 ;"V.A.T. on `";NX*Y;0,0;"= `";TOT:06 =""0 θTESTFLAG="1":0,:0d:0 ,0 ;"Total V.A.T. to be";0 ,0 ;"paid = `";TOT:0d:0 ,0 ;"BUT `";WHO;" has ";0,0 ;"already been paid";0,0 ;"to the wholesaler.":0d:0,0 ;"Total V.A.T. left to";0,0 ;"pay to customs&excise":0d:0,0 ;" = `";TOT;"-`";WHO:0d:0,0 ;"= `";TOT-WHO:06:CLINE=0:0  MIDFLAG=ZE ,BX="2":0,:TESTFLAG=ZE:RFLAG=ZE:V :3500 :200 2TESTFLAG=ZE:L="65190":RFLAG=ZE:MIDFLAG=ZE: =0,0;"1 OF 5";ZE,ZE;"PAYE EXPLAINED:5.5"''"Income tax is an amount deductedfrom a persons wage by the government.The amount to be paidis calculated as a percentage of total earnings."'"There are two ways of paying income tax:";0 ,0 ;"1) P.A.Y.E.: Tax is";0 ,0 ;"deducted from an";0 ,0 ;"employees pay.":0:0,0 ;"2) A tax return is";0,0 ;"filled in each year";0,0 ;"and tax paid on the";0,0 ;"basis of this.":06:CLINE="2303":0 {BX2="11":BX3=BX2:BX4="21":BX="2":0,:0,0;"2";0,ZE;"The percentage of income paid astax varies with total income. Current rates of tax are:"''" INCOME (`)";0;"RATE (%)"''" 1-15400";0;"30 on 1st 15400"'" 15401-18200";0;"40 on next 2800"'" 18201-23100";0;"45 on next 4900":06:CLINE="2305":0 BX="8":1580,:8,ZE;" 23101-30600";15;"50 on next 7500"'" 30601-38100";15;"55 on next 7500"'" 38101-";15;"60 on all taxable";11 ,15;"income over 38100":15906:CLINE="2307":1550 BX="2":0,:0,0;"3";0,ZE;"All workers are also given a non-taxable allowance."'"This amount varies"'"e.g:"''"Married couple";0;"`3155"'"Single person";0;"`2005"'"Wifes earned income relief";0;"`2005"'"Age relief-married couple";0;"`3995";0,0 ;"Mortgage interest (on";0,0 ;"loans up to `30000)";0,0 ;"is also deducted";0,0 ;"from pay before";0,0 ;"tax is calculated.":06:CLINE="2309":0 BX="2":0, INC=(*0PF+0):Y="2005":0,0;"4";0,ZE;"How much income tax will be paidby a single person whose pre-taxincome is `";INC;" ?":HU:0,0;"Income";0;" `";inc;" ":HU:0,0;"LESS allowance";0;" `";(0+(inc0'));Y;" ":0,0l:0,,ZE:HU:0 ,0;"Tax chargeable on ";0;" `";(0+((inc-y<0')inc0'));inc-y;" ":a=inc-y-0(<:c=inc-y-0G:HU:AST=((INC-Y)/HU)*0:AGT=(0*0)+(A/HU)*0(:CLT=(0*0)+(0*0()+(C/HU)*0-:aZE0 ,0 ;"Tax = 30% of ";inc-y;0 ,0;"= `";AST gA>ZE0 ,0 ;"Tax = 30% of 15400";0 ,0;"+ 40% of ";a;0,0;"= `";agt C>ZE0 ,0 ;"Tax = 30% of 15400";0 ,0;"+ 40% of 2800";0,0;"+ 45% of ";c;0,0;"= `";clt !06:CLINE="2319":0 [BX="2":0,:NUM=(*0(#+0p):DEN=(*0+0):ALL="3155":0,0;"5";0,ZE;"A married man has an income of `";NUM;"."'"If he pays `";den;" interest on a"'"mortgage, how much will his after tax salary be ?":HU:0,0 ;"Income";0;"`";num:HU:0 ,0 ;"LESS interest";0;"`";0+(den<0)+(num0');den:HU:0 ,0 ;"LESS allowance";0;"`";0+(num0');ALL:HU:0 ,0 ;"Tax payable on";0;"`";0+(num0')+((num-den-0S )<0);num-den-ALL:0,0T:0&+0*(num0'),ZE:HU:0,0 ;"30% of `";num-den-ALL;" = `";:ans=((num-den-0S )/HU)*0:ans:0d:0,0 ;"Salary=`";num;"-`";ans;0,0;"= `";num-ans:06:CLINE=0 :0 0,:0 V RFLAG=ZE: `/ZE,ZE;"PAYE TEST:5.5":TESTFLAG12431 aTESTFLAG22441 bTESTFLAG2479 cMIDFLAG2448 dRFLAG2406f eAq=14:INC5=(*16000>+4000):Y5="2005" f0,ZE;"Given that the allowance for a single person is `2005."'"How much income tax will be paidby a single person whose pre-taxincome is `";INC5;" ?";0,0 ;"Answer: ` . ":RFLAG0 hmz$="":0h :0,0,0,0,0,0:t=00:yp:0,yp;"?" jCLINE="2411":0 kM$=0 M$=" ":0n lM$<"0"M$>"9"0j n0,yp;M$:z$=z$+m$:t:0:a=inc5-y5-0(<:c=INC5-Y5-0G:HU:AST=((INC5-Y5)/HU)*0:AGT=(0*0)+(A/HU)*0(:CLT=(0*0)+(0*0()+(C/HU)*0-:AZEANS=AST pA>ZEANS=AGT rC>ZEANS=CLT s)W=00:Z$(W)=" "Z$(W)="0" t?W:VA=Z$:(VA/HU-ANS)<"1E-4"0:X=ZEHU:X:0~ vg0:0:0,0 ;"Do you wish to see the";0,0 ;"correct answer (Y/N) ?" x=""0x yM$=:M$="Y"0 |M$"N"0x ~7TESTFLAG1="1":15906:CLINE="2431":1550 <TESTFLAG1=ZE:RFLAG=ZE:BX="2":1580,:q:2444 vBX="8":0,:HU:0,0;"Income";0;" `";inc5;" ";0 ,0;"LESS allowance";0;" `";(0+(inc50'));Y5;" ":0,0\:0,,ZE:HU:0 ,0;"Tax chargeable on ";0;" `";(0+((inc5-y5<0')inc50'));inc5-y5;" ":HU:aZE0 ,0 ;"Tax = 30% of ";inc5-y5;0,0;"= `";AST gA>ZE0 ,0 ;"Tax = 30% of 15400";0,0;"+ 40% of ";a;0,0;"= `";agt C>ZE0 ,0 ;"Tax = 30% of 15400";0,0;"+ 40% of 2800";0,0;"+ 45% of ";c;0,0;"= `";clt 7TESTFLAG2="1":15906:CLINE="2441":1550 0RFLAG=ZE:TESTFLAG2=ZE:BX="2":1580,:Q eMIDFLAG="1":Q=00:NUM5=(*0(#+0p):DEN5=(*0+0):ALL5="3155" 0,ZE;"Given that the allowance for a married man is `3155."'"A married man has an income of `";NUM5;"."'"If he pays `";DEN5;" interest on a"'"mortgage, how much will his after tax salary be ?":0 ,0 ;"Answer: ` . ":RFLAG0 uz$="":0 :0,0,0,0,0,0,0:W=00:YP:0 ,YP;"?" CLINE="2459":0 M$="13"M$=" ":0 M$<"0"M$>"9"0 r0 ,YP;M$:Z$=Z$+M$:W:0:ANS=((NUM5-DEN5-ALL5)/HU)*0:W=00:Z$(W)=" "Z$(W)="0" 5W:((Z$)/HU-(NUM5-ANS))<0wn0:0 t0:T=ZEHU:T:BX="10":0,0 ;"Do you wish to see the";0,0 ;"correct answer (Y/N) ?" =""0 M$=:M$="Y"0 M$"N"0,:0 0TESTFLAG="1":06:CLINE="2479":0 5RFLAG=ZE:TESTFLAG=ZE:BX="2":0,:Q:0 oTESTFLAG="1":0,:0 ,0 ;"Income";0;"`";num5:HU:0 ,0 ;"LESS interest";0;"`";0+(den5<0)+(num50');den5:HU:0 ,0 ;"LESS allowance";0;"`";0+(num50');ALL5:HU:0,0 ;"Tax payable on";0;"`";0+(num50')+((num5-den5-ALL5)<0);num5-den5-ALL5:0,0D:0&+0*(num50'),ZE:HU:0,0 ;"30% of `";num5-den5-ALL5;" = `";:ans=((num5-den5-ALL5)/HU)*0:ans:HU:0,0 ;"Salary=`";num5;"-`";ans;0,0;"= `";num5-ans:06:CLINE="2481":0 ,RFLAG=ZE:TESTFLAG=ZE:BX="2":0,:Q 3500 :200 2TESTFLAG=ZE:L="65190":MIDFLAG=ZE:RFLAG=ZE: 0,0;"1 OF 2";ZE,ZE;"COMMISSIONS:5.6"''"If a person is employed on a commission basis, it means that his pay is calculated as a percentage of his sales.":06:CLINE="2507":0 BX="2":0, [NUM=(*0d+0 ):DEN=(*0+0):PER=(*0 +0):0,0;"2";0,ZE;"A salesman receives a salary of `";NUM;" per annum (yearly) and"'"earns ";PER;"% commission on sales."'"If he sells `";DEN;" worth of goods"'"in one month, what is his before"'"tax pay for that month ?":U$=(NUM/0 ) !U$<0U$=U$+" ":0 V$=U$(0):NNUM=V$:ANS=NNUM+(PER*DEN)/0d:0d:0 ,0;"Monthly salary = ";NUM;"";0 ;0 ,0;" = `";NNUM:0d:0 ,0 ;"Commission";0,0;"= ";PER;"% of `";DEN:0d:0,0;"= `";(PER*DEN)/0d:0d:0,0 ;"Monthly pay";0,0;"= ";NNUM;"+";(PER*DEN)/0d:0d:0,0;"= `";NNUM+(PER*DEN)/0d:06:CLINE="2525":0 0,:0  RFLAG=ZE: ,.0,0;"1 OF 2";ZE,ZE;"BROKERAGE:5.6"''"Brokerage is a commission charged by a broker for the purchase or sale of stocks and shares.":HU:'"The brokerage is calculated on the amount for which they are bought or sold.":06:CLINE="2609":0 2 0, 4NUM=(*0(#+0d):DEN=(*0d+02):BRO=(*0+0):U$=BRO:V$=U$(0):BRO=V$:0,0;"2";0,ZE;NUM;" `1 shares, with a value of "'DEN;"p each are sold."'"If the brokerage is ";BRO;"% then"'"how much did the seller receive?":COM=(BRO*DEN*NUM)/0':U$=COM:V$=U$(0+(COM0 )):COM=V$:ANS=NUM*(DEN/HU)-COM:HU:0,0;"Value of shares = ";NUM;"x";(DEN/HU);0 ,0;"= `";NUM*(DEN/HU):HU:0 ,0 ;"Commission";0 ,0;"= ";BRO;"% of ";NUM*(DEN/HU):HU:0,0;"= `";COM:HU:0,0 ;"Amount received";0,0;"= `";NUM*(DEN/HU);"-`";COM:HU:0,0;"= `";ANS:06:CLINE="2631":0 H0,:04 RFLAG=ZE: =ZE,ZE;"COMMISSION TEST:5.6":TESTFLAGMIDFLAG2748 TESTFLAGMIDFLAG2784 MIDFLAG0 RFLAG0 dQ=00:NUM7=(*0d+0 ):DEN7=(*0+0):PER7=(*0 +0) 0,ZE;"A salesman receives a salary of `";NUM7;" per annum and earns ";PER7;"%"'"commission on sales."'"If he sells `";DEN7;" worth of goods"'"in one month, what is his before"'"tax pay for that month ?";0 ,0 ;"Answer: ` ." RZ$="":0 :0,0,0,0,0,0:RFLAG0 ,W=00:YP:0 ,YP;"?" CLINE="2721":0 M$="13"M$=" ":0 M$<"0"M$>"9"0 O0 ,YP;M$:Z$=Z$+M$:W:0:T=00:Z$(T)=" "Z$(T)="0" T:U$=(NUM7/0 ) !U$<0U$=U$+" ":0 cV$=U$(0):NNUM=V$:ANS=NNUM+(PER7*DEN7)/HU:((Z$)/HU-ANS)<"1E-3"0:HU:0 0:0 fX=0HU:X:0,0 ;"Do you wish to see the";0,0 ;"correct answer (Y/N) ?" =""0 M$=:M$="Y"0 M$"N"0 0TESTFLAG="1":06:CLINE="2748":0 ,RFLAG=ZE:TESTFLAG=ZE:0,:Q:0 BX="8":0,:0 ,0;"Monthly salary = ";NUM7;"";0 ;0 ,0;" = `";NNUM:HU:0 ,0 ;"Commission";0,0;"= ";PER7;"% of `";DEN7:HU:0,0;"= `";(PER7*DEN7)/HU:HU:0,0 ;"Monthly pay";0,0;"= ";NNUM;"+";(PER7*DEN7)/HU:HU:0,0;"= `";NNUM+(PER7*DEN7)/HU:06:TESTFLAG="1":CLINE="2752":0 ,RFLAG=ZE:TESTFLAG=ZE:BX="2":0,:Q MIDFLAG="1":RFLAG=ZE RFLAG0 ~Q=00:NUM8=(*0(#+HU):DEN8=(*HU+02):BRO8=(*0+0):U$=BRO8:V$=U$(0):BRO8=V$ ȑ0,ZE;NUM8;" `1 shares, with a value of "'DEN8;"p each are sold."'"If the brokerage is ";BRO8;"% then"'"how much did the seller receive?" uZ$="":0,0 ;"Answer: ` .":0 :0,0,0,0,0,0:RFLAG0 ,W=00:YP:0,YP;"?" CLINE="2769":0 M$="13"M$=" ":0 M$<"0"M$>"9"0 OZ$=Z$+M$:0,YP;M$:W:0:T=00:Z$(T)=" "Z$(T)="0" ֞T:COM=(BRO8*DEN8*NUM8)/0':U$=COM:V$=U$(0+(COM0 )):COM=V$:ANS=NUM8*(DEN8/HU)-COM:((Z$)/HU-ANS)<0}L0:0:0 s0:T=ZEHU:T:BX="7":0,0 ;"Do you wish to see the";0,0 ;"correct answer (Y/N) ?" =""0 M$=:M$="Y"0 M$"N"0 0TESTFLAG="1":06:CLINE="2784":0 5RFLAG=ZE:TESTFLAG=ZE:BX="2":0,:Q:0 0,:0,0;"Value of shares = ";NUM8;"x";(DEN8/HU);0 ,0;"= `";NUM8*(DEN8/HU):HU:0 ,0 ;"Commission";0 ,0;"= ";BRO8;"% of ";NUM8*(DEN8/HU):HU:0,0;"= `";COM:HU:0,0 ;"Amount received";0,0;"= `";NUM8*(DEN8/HU);"-`";COM:HU:0,0;"= `";ANS:TESTFLAG="1":06:CLINE="2787":0 ,RFLAG=ZE:TESTFLAG=ZE:BX="2":0,:Q 0:200 2TESTFLAG=ZE:MIDFLAG=ZE:L="65190":RFLAG=ZE: SL=0::ENDFLAG="1":ZE,ZE;"END OF MODULE":0 :0:0& OMARKZE W$=13 W$="" !CLINE=1W$="R"N$="R": 8W$=12 ƱN$>ZEN$=N$((N$-1)):5055 'W$<480ůW$>5795010 N$=N$+W$:N$>SLN$=N$(SL) 4#1;1,28;N$;"  ":5010 @}0\+0*0\-0e\-0*0f\::"M";0;"APP1":*"M";0;"APP1"0:*"M";0;"APP1" destflax x xidflandflapagetimtimlin1 ki1oronWRNRarroag flaxflaJyHu Ihi-fizn &WtSA431.6598 B431.65MPlota"oueiemhhh teach6 epdo%gpdJ#1;1,0;"STOP THE TAPE and press ENTER"; n+.1}L,25:13 110n x>#1;1,0;" "; ZE="0":TESTFLAG=ZE:BX=2:BX2=12 :BX3=12 :BX4=21:0:KFLAG="1":COUNT="0":TFLAG="0":1:7:1: 6MIDFLAG="0":DIVFLAG="0":ENDFLAG="0":BPAGE="0" TESTFLAG1=ZE:TESTFLAG2=ZE Z$="" 3ZE,ZE;"CHAPTER 6:APPLYING PERCENTAGES-2" SKIP=0:CLINE=1 gSETIME="0":TTIME="0":23658j\,8:#1;1,0;"SELF TIMER ON (Y/N)? "  A$=:A$="Y"A$="N"520  516 5.01z# =,30:A$="Y"4500:SETIME="1"  COR=ZE:WRONG=ZE:#1;1,ZE;"PROGRESSION (35-99, or R) ":SL=2:5000:B$=N$:MARK=ZE:200:N$="R"B$="0":SKIP=1:538 'B$<35#ŰB$>100d524  Z$="":PROG=B$:1500 &:0,10 ;"PROGRESS":TOTAL=COR+WRONG:2,0;"QUESTIONS:";TOTAL;4,0;"CORRECT: ";COR;6,0;"INCORRECT:";WRONG:TOTAL="0"554* (IMARK=((COR/(COR+WRONG))*100d):8,0;"MARK: ";MARK */MARK="0"8,0;"MARK: ";MARK ,10 ,0;"PASS: ";PROG:HOUR=(TTIME/3600):REM=TTIME-HOUR:MIN=(REM/60<):REM2=REM-MIN*60<:12 ,0;"TIME: ";HOUR;":";MIN;":";(REM2):QHT="150":TOTAL="0"CHT="0":WHT="0":5600 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0,T=130:ٰ"4":150+T,0:0,CHT:ٰ"2":200+T,0:0,WHT:T:ٰ"7":150,152:80P,0:160,160:5,-5:5,15:212,168:10 ,-10 :222,168:-10 ,-10 :15906 2=""5622 31SKIPENDFLAGTOTAL=14:MARK=PROG+1 4M#1;1,0;" ":ENDFLAG3202 6 602Z Y CPAGE=PAGE Z4X=13 21:X,0;" ":X [MENUX="16" \n#1;0,0;" ":#1;1,0;" ";#2; ]h16,0;"RETURN ";';"BACKPAGE";';"CALCMODE";';"GLOSSARY";';"PROGRESS";';"FINISH " _:7:1:;7;13 ,2;"MENU" gqMENUX,0;1;" ":OLDMENU=MENUX:0:A$=:A$=32 MENUX=MENUX+1 l.01z# =,30 qA$=13 650 vMENUX="22"MENUX="16" {BOLDMENU,0;1;1;" ":615g !MENUX=17BPAGE602Z 1MENUX=16BPAGERFLAG=1:1502 (644+MENUX) $PAGE=CPAGE:RFLAG="1":1502  700  23658j\,0:900  800   550&  3200 A#1;0,22;" BACKPAGE ":BPAGE="1" X#1;1,ZE;"WHICH PAGE? ";:5000:N$=ZE701 xNO=N$:NO=NO:NO>(CPAGE+1)#1;1,0;"YOU HAVE NOT REACHED THAT PAGE.":200:701 cNO=3NO=6#1;1,0;"YOU CANNOT REPEAT TESTS.":200:701 PAGE=NO-1::X=13 21:X,0;" ":X:13 ,2;"KEYS";16,1;"MENU";'';" PAGE":#1;0,22;" BACKPAGE ":(1700+(PAGE*100d)) c#1;1,0;"ANOTHER PAGE? ":10 :0:="Y"700 @BPAGE="0":#1;0,22;" ":602Z  `:0,10 ;"GLOSSARY":BPAGE#1;0,22;" BACKPAGE " ,Y2,ZE;"DEPRECIATION:the reduction in value of a CAPITAL ASSET over time." ..'"INTEREST:money paid for money lent." J?#1;1,0;"PRESS A KEY TO RETURN TO MENU" 0:602Z *I$=Z$:1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""904 &.002xn,30:z$" "cl="0" 4((z$"0")(z$"9"))z$="m"ts=0:1150~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z  z$=" "cl=11020 z$=" "cl=0952 =a$""acc=a$:decflagacc=acc*10 ^(pdecpos-8) z$="t"1012 z$="y"1016 z$="i"1006 z$="u"1010 z$="v"1024 z$="b"1028 z$="n"1008 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""904 tsf$="="f$=""948 970:error1000 +op1=acc:f$=g$:g$="":f$"="ts=1  902 8acc="0":pdecpos="8":cl="1":1052:902  ,acc<1e10Žop1<1e10986 ̌a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-480)+10 *(a$(a-1)-480):a$(a-2)="-"expa=-expa Zexpo=(o$(o)-480)+10 *(o$(o-1)-480):o$(o-2)="-"expo=-expo f$"/"aprox=expo+expa ,(f$="+"f$="-")ƽaprox<568986 f$="/"aprox=expo-expa aprox28986 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 3acc>1e28?9y(f$="/"acc=0)error="1": meme="0": 1052: V15,0;" ERROR ":1;15,47/:1;568,0 " "1002  1020 memo="0":902 !acc=-acc:1052:902 -acc=memo:1052:ts=0:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 L1022:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,8,0,0,0,0,0,0:1022:1052:902 acc<01000 !acc=acc:1052:902 f$="+"f$="-"1046 f$="*"f$="/"1036  >f$="/":op1=acc:acc=100d:970:error1000  f$="=":902  'me="1":970:error1000 4op1=acc:acc=100d:f$="*"f$="/":1042 f$="*" 970:error1000 f$="=":902 Ctemp1=op1:h$=f$:f$="*":me=1:970:error970 ;op1=acc:acc="100":f$="/":970:error1000 f$=h$:op1=temp1:902 s$=acc:l=s$:15,0;" ";:1;15,47/:1;568,0:(acc=0((acc>1Ž(acc-1)<10 ^-8)(acc99999999>)))1062& K(acc-1)<10 ^-8acc=1:l=1:pdecpos=8 110 ^(l-2)41114Z ,.s$=".000000"+s$(1):l="8":1092D .l>61114Z 0Gs$=".00000"+s$(1)+s$(3):l=4l=7:1092D 2"l="8":pdecpos="1":1092D 4!acc>99999999>1114Z 64(acc10 ^-5ƽacc<1)1090B 80s$(1)="0"s$=s$(2l):l=l-1 :l81088@ <9s$(9 )>"4"s$(8)=(s$(8)-47/) > s$=s$(18):l="8" @pdecpos=9 -l:1092D B 1114Z Dpdecpos=81106R Facc11104P HC15,0;e$(1pdecpos-1);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(1-decpos) Ns$(2l);:1112X: PA15,pdecpos+1;s$(l+pdecpos-7l);:l=l-1 R=15,0;e$(18-l);:acc0" "; Tacc<0"-"; Vacc;:1112X: Xq1;pdecpos*8+6,491:pdecpos*8+7,480:pdecpos*8+7,47/: Zs$(l-2)="E"a=3 \s$(l-3)="E"a=4 ^>15,0;:l-a>5pdecpos=1:1124d `3pdecpos=6+a-l:l-a=1pdecpos=4 b/pdecpos>1e$(1pdecpos-1); dacc<0"-"; facc0" "; h's$(1);:l-a=11134n j/l-a>5s$(35);:1134n ls$(3l-a); n@1112X:"E";:s$(l-a+2);:a=30;s$(l): pa=4s$(l-1l): r)i=13 21:i,0;" ";:i:;0;13 ,0;" "'" ";:15,0;" ";17,1;"";17,3;"";17,5;"";17,7;"";18,1;"";18,3;"";18,5;"%";18,7;"X";19,1;"7";19,3;"8";19,5;"9";19,7;"";20,1;"4";20,3;"5";20,5;"6";20,7;"+";21,1;"1";21,3;"2";21,5;"3";21,7;"-";:#1,0,0;" ";"0";" ";"";" ";"";" ";;"=";" ";:#1;1,0;" ";#2:0:0:7: ~1a$=8(a$="0"z$="0"decflag)904 z$"m"1160 ,decflag=1:a$=""a$="0":1200  904 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-1  1200  904 ~15,0;" ";:1;15,47/:1;568,0:15,9 -a$;a$;:1112X  x*A=111 :Z$(A)=" "Z$(A)="0" }A  KKFLAG="0":CLINE="1500":PAGE="0":BPAGE="0":MENUX="16":RFLAG="0" H0:1:7::23658j\,8:x=13 21:x,0;" ":x:13 ,2;"KEYS";16,0;" MENU";'';" PAGE":0,25;"Page:";PAGE+1:(1700+(PAGE*100d)):PAGE=PAGE+1:SKIPPAGE=2PAGE=5PAGE=PAGE+1  1502 iK=16:K:23658j\,8:BPAGE#1;0,22;" BACKPAGE " =""1552 ;M$=:.01z# =,30:M$="M"BPAGE=0600X S(PAGE=2PAGE=5PAGE=9 )(M$<":"M$>"/"ůM$=13 )1566 M$="M"BPAGE="1"602Z 2M$="P"BPAGE="0"(1790+(PAGE*100d)) M$="P"BPAGE="1"706 M$" "1552 KFLAGCLINE  1554 "0M3="1000":M4="1000":M5="1000":M6="1000" #GT=9 1-1:(R/T)=(R/T)(S/T)=(S/T)M3=R/T:M4=S/T $ M5>M3M3>0M5=M3:M6=M4 'T )M3=M5:M4=M6: ,pT=BXBX2:T,0;" ":T:T=BX3BX4:T,10 ;" ":T .>#1;1,0;" " 1 6<#1;1,0;" PRESS SPACE TO CONTINUE" ; 7KFLAG=1:0,0;"SIMPLE INTEREST:6.2" 20,1;"1 OF 2";2,0;"Simple interest is non-cumulative, ie,the interest is not added to the sum investeduntil the end of the given time." >100d:7,0;"Simple interest is calculated:" n100d:11 ,2;"INTEREST =";10 ,13 ;"AMOUNTxRATExTIME";12 ,19;100d '104h,84T:128,0 T100d:14,10 ;"AMOUNT is initial";15,10 ;"investment." 8100d:17,10 ;"RATE is interest rate." 100d:19,10 ;"TIME is the number of";20,10 ;"years for which the";21,10 ;"amount is invested." *15906:CLINE=1719:1550  1580, TNUM=(*9000(#+1000):DEN=(*8+2):RAT=(*9 +1) 20,1;"2";2,0;"If `";NUM;" is invested for ";DEN;" yearsat ";RAT;"% interest, then how much interest will be received?" m100d:8,4;"Interest = ";7,15;NUM;"x";RAT;"x";DEN;9 ,17;100d '120x,108l:64@,0 ANS=NUM*RAT*DEN W100d:12 ,13 ;"=";11 ,15;ANS;13 ,16;100d @122z,76L:30+8*(ANS10000'),0 3100d:16,13 ;"= `";ANS/100d *15906:CLINE=1737:1550 1580,:1722   *0,0;"COMPOUND INTEREST:6.2"  %20,1;"1 OF 2";2,0;"The interest is added to the suminvested at the end of the firstinterest earning period (usuallyone year). The interest for the next period is then calculated from the amount invested plus the interest from the first period."  300,:11 ,10 ;"To calculate compound";12 ,10 ;"interest, express the";13 ,10 ;"interest rate as a";14,10 ;"decimal, add one, and";15,10 ;"multiply by the sum";16,10 ;"invested.";18,10 ;"(See manual for an ";19,10 ;"alternative method of";20,10 ;"calculating compound";21,10 ;"interest)." *15906:CLINE=1807:1550  1580, SNUM=(*8000@+1000):DEN=(*7+2):YR=(*3+2) 20,1;"2";2,0;"If `";NUM;" is invested at ";DEN;"%"'"interest (compound) for ";YR;" years,"'"then what is the final value of the investment?" 7100d:7,15;DEN;"% = ";DEN/100d ANS=1+(DEN/100d)  .100d:9 ,11 ;"Add 1: = ";ANS "T=1YR $9100d:9 +2*T,11 ;ANS;"x";NUM;"="; & NUM=ANS*NUM (0U$=NUM:U$7U$=U$(7):NUM=U$ *100d:"`";NUM ,T .^100d:9 +2*T,11 ;"Final value:";11 +2*T,18;"= `";NUM 0*15906:CLINE=18411:1550 21580,:1818 bTESTFLAG=ZE:RFLAG=0: l=0,0;"INTEREST TEST:6.2":TESTFLAG11925 mTESTFLAG21935 nTESTFLAG1949 oRFLAG1906r p~Q=14:NUM=(*8000@+1000):DEN=(*3+2):PER=(*7+2):PER2=PER+(*2) r2,0;"Find the difference between simple interest at ";PER2;"% and"'"compound interest at ";PER;"% on `";NUM;"invested for ";DEN;" years.";8,13 ;"Simple: ` ." sRFLAG4500 t^MIDFLAG8,22;Z$(4);".";Z$(56):Z$=Z$(6):1915{ uv1908t:Z$="":22,23,24,25,27,28:W=16:YP:8,YP;"?" vCLINE=1911w:1550 w"M$=13 M$=" ":1914z xM$<"0"M$>"9"1910v zFZ$=Z$+M$:8,YP;M$:W:T=16:Z$(T)=" "Z$(T)="0" {tT:MIDFLAG=1:10 ,11 ;"Compound: ` .":1908t:W=16:YP:10 ,YP;"?" |CLINE=1917}:1550 }"M$=13 M$=" ":1919 ~M$<"0"M$>"9"1916| Z$=Z$+M$:10 ,YP;M$:W:TESTFLAG=1:4600:1400x:SI=(NUM*DEN*PER2)/100d:NUM2=NUM:RAT=1+(PER/100d):T=1DEN:CI=RAT*NUM2:NUM2=CI:T:CI=CI-NUM:U$=Z$(6):V$=Z$(7) 9Z$(6)=" "Z$(7)=" "1922 U$=Z$(6):V$=Z$(7):U=U$:V=V$:U=U/100d:V=V/100d:((U-SI)<1E-2z# =)((V-CI)<.02{# =)4000:1924 4100:1928 `TESTFLAG=0:TESTFLAG1=1:MIDFLAG=0:15906:CLINE=1925:1550 TESTFLAG1=ZE *RFLAG=0:1580,:Q:1960 }W=1100d:W:BX=7:12 ,10 ;"Do you wish to see the";13 ,10 ;"correct answer (Y/N) ?" =""1930 M$=:.01z# =,30 M$="Y"1936 M$"N"1930 dTESTFLAG2=1:BX=2:MIDFLAG=0:CLINE=1935:15906:40(:1550 OTESTFLAG2=0:RFLAG=0:1580,:TESTFLAG=0:Q:1960  BX=6:1580,:8,0;"Simple Interest = ";7,18;NUM;"x";PER2;"x";DEN;9 ,20;100d:144,108l:64@,0:100d:12 ,16;"= `";:SI=SI*100d:SI=SI:SI=SI/100d:SI:15906 =""1937 HNUM3=NUM:1580,:6,0;"Compound Interest":100d:7,15;PER;"% = ";PER/100d:ANS=1+(PER/100d):100d:9 ,11 ;"Add 1: = ";ANS:T=1DEN:100d:9 +2*T,11 ;ANS;"x";NUM3;"=";:NUM3=ANS*NUM3:U$=NUM3:U$>7U$=U$(7):NUM3=U$ U100d:"`";NUM3:T:100d:9 +2*T,11 ;"Final value=`";NUM3 15906:=""1942 BX=6:1580, u7,0;"Compound Interest=";NUM3;"-";NUM:CI=(CI*100d):CI=CI/100d:9 ,17;"= `";CI ,11 ,1;"Simple interest = `";SI *15906:CLINE=1949:1550 >TESTFLAG=0:MIDFLAG=0:BX=2:1580,:Q _0,0;"END OF TEST "''"SEE MENU FOR PROGRESS ":100d DTESTFLAG=0:MIDFLAG=0:L=65190:RFLAG=0: P$="LINEAR DEPRECIATION:6.3" <20,1;"1 OF 3";0,0;P$ Է2,0;"Depreciation is a loss in value.Linear depreciation is where an asset loses the same amount in value each year."'"Yearly depreciation is calculated:" n10 ,0;"Depreciation=";9 ,13 ;"Cost - Resale Value";11 ,16;"Life of Asset" '106j,91[:148,0 *15906:CLINE=2011:1550 ۝STEP=200/(*9 +1):DEN=10 *((*500+100d)):NUM=DEN+10 *((*500+100d)):DEN2=NUM:INC=((DEN2-DEN)/STEP)  2050 W:21,1;"3 OF 3";0,0;"GRAPH OF LINEAR DEPRECIATON" L40(,20:200,0:40(,20:0,100d STEP=200/(YR-1) STEP2=100d/8  SP=1 T=40(240STEP '20,T/8;SP:SP=SP+1 !T,20:0,-2:T ,19,0;DEN;6,0;NUM 44,0;"VALUE";21,25;"YEAR" 40(,120x 200,-100d *15906:CLINE=2049:1550  5100 NUM=10 *((*900+100d)):DEN=10 *((*500+100d)):YR=(*8+2):NUMDEN2052 20,1;"2 OF 3";2,0;"Find the depreciation per year on an asset bought for `";NUM;" and"'"sold for `";DEN;" ";YR;" years later." d100d:7,2;"Depreciation = ";6,17;NUM;" - ";DEN;8,22;YR  '136,115s:88X,0  l100d:11 ,15;"= ";10 ,17;NUM-DEN;12 ,18+((NUM-DEN)>1000);YR E136,84T:24+8*((NUM-DEN)>1000),0 s100d:15,15;"= `";:RESR=(NUM-DEN)/YR:RESR=RESR*10 :RESR=RESR:RESR=RESR/10 :RESR *15906:CLINE=2067:1550  2014 * 6P$="NON-LINEAR DEP'N:6.3" 70,0;P$ 8)20,1;"1 OF 3";2,0;"This term refers to all other methods of calculating depreciation."'"The most common of these is the REDUCING BALANCE method. This iswhere the asset is assumed to depreciate at a percentage of its previous value each year." :`BX=2:BX2=12 :BX3=12 :BX4=21:15906:CLINE=2107;:1550 < 1580, >]NUM=10 *((*800 +100d)):PER=(*30+5):YR=(*4+2) @20,1;"2 OF 3";2,0;"An asset is bought for `";NUM;". Ifit depreciates at ";PER;"% per year, what is its value after ";YR;" years?" Bo6,0;"Value of asset = ";100d;"-";PER;" = ";100d-PER;"% of"'"its previous years worth." F6100d:9 ,10 ;"Initial value = `";NUM H-W(YR+1):W(1)=NUM:T=1YR JG100d:9 +T*2,10 ;100d-PER;"% of ";NUM;"="; K#NUM=NUM*(100d-PER)/100d L U$=NUM N$U$<7U$=U$+" ":2126N PV$=U$(7):NUM=V$ R@100d:NUM=NUM*100d:NUM=NUM:NUM=NUM/100d:NUM SW(T+1)=NUM TT V<100d:9 +T*2,10 ;"Final value=`";NUM X*15906:CLINE=2137Y:1550 Y Zp21,1;"3 OF 3":40(,20:200,0:40(,20:0,100d \STEP=200/YR ^STEP2=100d/YR ` SP=0 bT=40(240STEP d'20,T/8;SP:SP=SP+1 f!T,20:0,-2:T j*POI=1:T=120x20-STEP2 l621-T/8,0;W(POI):POI=POI+1 n!40(,T:-2,0:T ph0,0;"GRAPH OF NON-LINEAR DEPRECIATION";4,0;"VALUE";21,25;"YEAR" sST=100d t!POI=2:OX=40(:OY=ST vT=40(240STEP xCT,ST+20:0,2:0,-4:0,2 z&T>40(-STEP,(OY-(ST+20)) |T,ST+20 ~"OX=23677}\:OY=23678~\ cPOIYR+1ST=(W(POI)-W(YR+1))*(100d/(W(1)-W(YR+1))):POI=POI+1 T *CLINE=2182:15906:1550  5100  2110> RFLAG=0: I0,0;"DEPRECIATION TEST:6.3":TESTFLAGMIDFLAG2229 TESTFLAGMIDFLAG2263 RFLAG2208 H=15 NUM7=10 *((*900+100d)):DEN=10 *((*500+100d)):YR=(*8+2):NUM7DEN2206 MIDFLAG2236 2,0;"Find the LINEAR depreciation per"'"year on an asset bought for"'"`";NUM7;" and sold for `";DEN'YR;" years later.":7,10 ;"Answer: ` ." RFLAG4500 vZ$="":2212:19,20,21,22,24,25:T=16:YP:7,YP;"?" CLINE=2215:1550 "M$=13 M$=" ":2218 M$<"0"M$>"9"2214 R7,YP;M$:Z$=Z$+M$:T:4600:W=16:Z$(W)=" "Z$(W)="0" qW:TESTFLAG=1:((Z$)/100d-(NUM7-DEN)/YR)<.02{# =4000:X=0100d:X:2228 (11 ,0)=" "4100:T=1100d:T:BX=7:12 ,10 ;"Do you wish to see the";13 ,10 ;"correct answer (Y/N) ?" =""2222 M$=:.01z# =,30 M$="Y"2232 M$"N"2222 *15906:CLINE=2229:1550 HTESTFLAG=0:BX=2:1580,:RFLAG=0:H:2236 1580,:502:7,2;"Depreciation = ";6,17;NUM7;" - ";DEN;8,22;YR:136,115s:88X,0:100d:11 ,15;"= ";10 ,17;NUM7-DEN;12 ,18+((NUM7-DEN)>1000);YR:136,84T:24+8*((NUM7-DEN)>1000),0:100d:15,15;"= `";:OUTC=(NUM7-DEN)/YR:OUTC=(OUTC*100d):OUTC=OUTC/100d:OUTC:15906 CLINE=2234:1550 <TESTFLAG=0:BX=2:1580,:H:RFLAG=0 RFLAG2240 MIDFLAG=1:H=15:NUM8=10 *((*800 +100d)):PER=(*40(+5):YR=(*4+2):NUM2=NUM8 2,0;"An asset is bought for `";NUM8;". Ifit depreciates at ";PER;"% per year"'"what is its value after ";YR;" years?":7,10 ;"Answer: ` ." RFLAG4500 vZ$="":2242:19,20,21,22,24,25:W=16:YP:7,YP;"?" CLINE=2245:1550 "M$=13 M$=" ":2248 M$<"0"M$>"9"22440 f7,YP;M$:Z$=Z$+M$:W:4600:T=1YR:NUM8=NUM8*(100d-PER)/100d:U$=NUM8 )X=16:Z$(X)=" "Z$(X)="0" 'X:U$<7U$=U$+" ":2250 TESTFLAG=1 rV$=U$(7):NUM8=V$:T:((Z$)/100d-NUM8)<1E-2z# =4000:X=0100d:X:2262 ά(11 ,0)=" "4100:T=1100d:T:BX=6:1580,:8,10 ;"Do you wish to see the";9 ,10 ;"correct answer (Y/N) ?" =""2256 M$= M$="Y"2266 M$"N"2256 415906:502:CLINE=2263:1550 HRFLAG=0:TESTFLAG=0:BX=2:1580,:H:2288 BX=6:1580, o6,0;"Value of asset = ";100d;"-";PER;" = ";100d-PER;"% of"'"its previous years worth." BNUM8=NUM2:100d:9 ,10 ;"Initial value = `";NUM8 T=1YR H100d:9 +T*2,10 ;100d-PER;"% of ";NUM8;"="; %NUM8=NUM8*(100d-PER)/100d  U$=NUM8 $U$<7U$=U$+" ":2280 V$=U$(7):NUM8=V$ 100d:NUM8:T =100d:9 +T*2,10 ;"Final value=`";NUM8 *15906:CLINE=2287:1550 <RFLAG=0:TESTFLAG=0:BX=2:1580,:H ^0,0;"END OF TEST "''"SEE MENU FOR PROGRESS ":150 DTESTFLAG=0:RFLAG=0:MIDFLAG=0:L=65190: fL=65190::ENDFLAG="1":0,0;"END OF MODULE":10 :200:550& [MARKZE W$=13 W$="" !CLINE=1W$="R"N$="R": 8W$=12 ƱN$>ZEN$=N$((N$-1)):5055 'W$<480ůW$>5795010 N$=N$+W$:N$>SLN$=N$(SL) 4#1;1,28;N$;"  ":5010 0:1:7::23658j\,8:x=13 21:x,0;" ":x:13 ,2;"KEYS";16,0;" MENU";'';" PAGE":0,25;"Page:";PAGE+1 0,0;P$  X estflax x xflaounflaidflaivflandflapagestflagestflagZkilinetimtimAz teach7 ddJ#1;1,0;"STOP THE TAPE and press ENTER"; n+.1}L,25:13 110n x>#1;1,0;" "; TESTFLAG=0:BX=2:BX2=12 :BX3=12 :BX4=21:0:KFLAG="1":COUNT="0":TFLAG="0":1:7:1: 6MIDFLAG="0":DIVFLAG="0":ENDFLAG="0":BPAGE="0" )ZE=0:SKIP=0:CLINE=1 3ZE,ZE;"CHAPTER 7:GROWTH RATES & INDICES" Z$="" TESTFLAG1=ZE:TESTFLAG2=ZE sTIME="0":SETIME="0":TTIME="0":23658j\,8:#1;1,0;"SELF TIMER ON? (Y/N) "  A$=:A$="Y"A$="N"520  516 8.01z# =,30:A$="Y"4500:SETIME=1  COR="0":WRONG="0":#1;1,0;"PROGRESSION (35-99, or R) ":SL=2:5000:B$=N$:MARK="0":200:N$="R"B$="0":SKIP=1:538 &B$<35#ŰB$>99c524  Z$="":PROG=B$:1500 &:0,10 ;"PROGRESS":TOTAL=COR+WRONG:2,0;"QUESTIONS:";TOTAL;4,0;"CORRECT: ";COR;6,0;"INCORRECT:";WRONG:TOTAL="0"554* (IMARK=((COR/(COR+WRONG))*100d):8,0;"MARK: ";MARK */MARK="0"8,0;"MARK: ";MARK ,10 ,0;"PASS: ";PROG:HOUR=(TTIME/3600):REM=TTIME-HOUR:MIN=(REM/60<):REM2=REM-MIN*60<:12 ,0;"TIME: ";HOUR;":";MIN;":";(REM2):QHT="150":TOTAL="0"CHT="0":WHT="0":5600 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0,T=130:ٰ"4":150+T,0:0,CHT:ٰ"2":200+T,0:0,WHT:T:ٰ"7":150,152:80P,0:160,160:5,-5:5,15:212,168:10 ,-10 :222,168:-10 ,-10 :15906 2=""5622 31SKIPENDFLAGTOTAL=18:MARK=PROG+1 4M#1;1,0;" ":ENDFLAG3202 6 602Z Y CPAGE=PAGE Z4X=13 21:X,0;" ":X [MENUX="16" \n#1;0,0;" ":#1;1,0;" ";#2; ]h16,0;"RETURN ";';"BACKPAGE";';"CALCMODE";';"GLOSSARY";';"PROGRESS";';"FINISH " _:7:1:;7;13 ,2;"MENU" gqMENUX,0;1;" ":OLDMENU=MENUX:0:A$=:A$=32 MENUX=MENUX+1 l.01z# =,30 qA$=13 650 vMENUX="22"MENUX="16" {BOLDMENU,0;1;1;" ":615g !MENUX=17BPAGE602Z 1MENUX=16BPAGERFLAG=1:1502 (644+MENUX) $PAGE=CPAGE:RFLAG="1":1502  700  23658j\,0:900  800   550&  3200 C#1;0,22;" BACKPAGE ":BPAGE="1" ]#1;1,0;"WHICH PAGE ":5000:N$=ZE701 xNO=N$:NO=NO:NO>(CPAGE+1)#1;1,0;"YOU HAVE NOT REACHED THAT PAGE.":200:701 yNO=2NO=4NO=8NO=9 #1;1,0;"YOU CANNOT REPEAT TESTS.":200:701 PAGE=NO-1::X=13 21:X,0;" ":X:13 ,2;"KEYS";16,1;"MENU";'';" PAGE":#1;0,22;" BACKPAGE ":(1600@+(PAGE*100d)) c#1;1,0;"ANOTHER PAGE? ":10 :0:="Y"700 @BPAGE="0":#1;0,22;" ":602Z  b:0,10 ;"GLOSSARY":BPAGE#1;0,22;" BACKPAGE " *F2,0;"AGGREGATE:to collect into a single value." +P'"BASE YEAR:the year in an INDEX series at which the index is setto 100." ,'"INDEX:a way to measure the change in a quantity relative to some initial value. An economic index measures the change in a quantity relative toa BASE YEAR, at which time it isarbitrarily set to 100." .T'"WEIGHTING:A value given to something according to its importance." J?#1;1,0;"PRESS A KEY TO RETURN TO MENU" 0:602Z *I$=Z$:1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""904 &.002xn,30:z$" "cl="0" 4((z$"0")(z$"9"))z$="m"ts=0:1150~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z  z$=" "cl=11020 z$=" "cl=0952 =a$""acc=a$:decflagacc=acc*10 ^(pdecpos-8) z$="t"1012 z$="y"1016 z$="i"1006 z$="u"1010 z$="v"1024 z$="b"1028 z$="n"1008 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""904 tsf$="="f$=""948 970:error1000 +op1=acc:f$=g$:g$="":f$"="ts=1  902 8acc="0":pdecpos="8":cl="1":1052:902  ,acc<1e10Žop1<1e10986 ̌a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-480)+10 *(a$(a-1)-480):a$(a-2)="-"expa=-expa Zexpo=(o$(o)-480)+10 *(o$(o-1)-480):o$(o-2)="-"expo=-expo f$"/"aprox=expo+expa ,(f$="+"f$="-")ƽaprox<568986 f$="/"aprox=expo-expa aprox28986 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 3acc>1e28?9y(f$="/"acc=0)error="1": meme="0": 1052: V15,0;" ERROR ":1;15,47/:1;568,0 " "1002  1020 memo="0":902 !acc=-acc:1052:902 -acc=memo:1052:ts=0:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 L1022:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,8,0,0,0,0,0,0:1022:1052:902 acc<01000 !acc=acc:1052:902 f$="+"f$="-"1046 f$="*"f$="/"1036  >f$="/":op1=acc:acc=100d:970:error1000  f$="=":902  'me="1":970:error1000 4op1=acc:acc=100d:f$="*"f$="/":1042 f$="*" 970:error1000 f$="=":902 Ctemp1=op1:h$=f$:f$="*":me=1:970:error970 ;op1=acc:acc="100":f$="/":970:error1000 f$=h$:op1=temp1:902 s$=acc:l=s$:15,0;" ";:1;15,47/:1;568,0:(acc=0((acc>1Ž(acc-1)<10 ^-8)(acc99999999>)))1062& K(acc-1)<10 ^-8acc=1:l=1:pdecpos=8 110 ^(l-2)41114Z ,.s$=".000000"+s$(1):l="8":1092D .l>61114Z 0Gs$=".00000"+s$(1)+s$(3):l=4l=7:1092D 2"l="8":pdecpos="1":1092D 4!acc>99999999>1114Z 64(acc10 ^-5ƽacc<1)1090B 80s$(1)="0"s$=s$(2l):l=l-1 :l81088@ <9s$(9 )>"4"s$(8)=(s$(8)-47/) > s$=s$(18):l="8" @pdecpos=9 -l:1092D B 1114Z Dpdecpos=81106R Facc11104P HC15,0;e$(1pdecpos-1);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(1-decpos) Ns$(2l);:1112X: PA15,pdecpos+1;s$(l+pdecpos-7l);:l=l-1 R=15,0;e$(18-l);:acc0" "; Tacc<0"-"; Vacc;:1112X: Xq1;pdecpos*8+6,491:pdecpos*8+7,480:pdecpos*8+7,47/: Zs$(l-2)="E"a=3 \s$(l-3)="E"a=4 ^>15,0;:l-a>5pdecpos=1:1124d `3pdecpos=6+a-l:l-a=1pdecpos=4 b/pdecpos>1e$(1pdecpos-1); dacc<0"-"; facc0" "; h's$(1);:l-a=11134n j/l-a>5s$(35);:1134n ls$(3l-a); n@1112X:"E";:s$(l-a+2);:a=30;s$(l): pa=4s$(l-1l): r)i=13 21:i,0;" ";:i:;0;13 ,0;" "'" ";:15,0;" ";17,1;"";17,3;"";17,5;"";17,7;"";18,1;"";18,3;"";18,5;"%";18,7;"X";19,1;"7";19,3;"8";19,5;"9";19,7;"";20,1;"4";20,3;"5";20,5;"6";20,7;"+";21,1;"1";21,3;"2";21,5;"3";21,7;"-";:#1,0,0;" ";"0";" ";"";" ";"";" ";;"=";" ";:#1;1,0;" ";#2:0:0:7: ~1a$=8(a$="0"z$="0"decflag)904 z$"m"1160 ,decflag=1:a$=""a$="0":1200  904 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-1  1200  904 ~15,0;" ";:1;15,47/:1;568,0:15,9 -a$;a$;:1112X  KKFLAG="0":CLINE="1500":PAGE="0":BPAGE="0":MENUX="16":RFLAG="0" H0:1:7::23658j\,8:x=13 21:x,0;" ":x:13 ,2;"KEYS";16,0;" MENU";'';" PAGE":0,25;"Page:";PAGE+1:(1600@+(PAGE*100d)):PAGE=PAGE+1:SKIPPAGE=1PAGE=3PAGE=PAGE+1 'SKIPPAGE=7PAGE=PAGE+2  1502 iX=16:X:23658j\,8:BPAGE#1;0,22;" BACKPAGE " 3TIMECOUNT10 ,0;"TIME:";(S());" " =""1552 ;M$=:.01z# =,30:M$="M"BPAGE=0600X `(PAGE=1PAGE=3PAGE=7PAGE=8)(M$<":"M$>"/"ůM$=13 )1566 M$="M"BPAGE="1"602Z 2M$="P"BPAGE="0"(1690+(PAGE*100d)) M$="P"BPAGE="1"706 M$" "1552 KFLAGCLINE  1554 "0M3="1000":M4="1000":M5="1000":M6="1000" #GT=9 1-1:(R/T)=(R/T)(S/T)=(S/T)M3=R/T:M4=S/T $ M5>M3M3>0M5=M3:M6=M4 'T )M3=M5:M4=M6: ,pT=BXBX2:T,0;" ":T:T=BX3BX4:T,10 ;" ":T .>#1;1,0;" " 1 6<#1;1,0;" PRESS SPACE TO CONTINUE" ; B4KFLAG=1:0,0;"GROWTH RATES:7.2" DR2,0;"Growth is the rate at which the assets of a company increase." FO4,0;"Growth, like interest, is"'"calculated at a compound rate." H"e.g:" JDASS=10 *(*4000+1000):GRO=(*35#+5) L150:7,0;"If a business is calculated to be worth `";ASS;" and its rate of growth is ";GRO;"% per annum; then"'"how long will it take to double its assets." N#150:AMT=ASS:COUNT=1 P#14,14;"Year: ";COUNT RH100d:16,12 ;AMT;"x";(1+(GRO/100d));" = "; T#AMT=AMT*(1+(GRO/100d)) U U$=AMT V$U$<6U$=U$+" ":1622V XV$=U$(6) \150:AMT=V$:V$ ](20,12 ;"Assets worth `";V$ ^*15906:CLINE=1631_:1550 _CBX4=17:BX=12 :BX2=12 :BX3=15:1580, `2AMT<2*ASSCOUNT=COUNT+1:1616P bBBX=12 :BX4=21:BX2=12 :BX=12 :1580, dK14,12 ;"Assets double in ";16,14;COUNT;" years." f*15906:CLINE=1639g:1550 h2BX=7:BX3=12 :1580,:1610J RFLAG=0: )0,0;"GROWTH RATE TEST:7.2" TESTFLAG1761 RFLAG1712 H=14 DASS=10 *(*4000+1000):GRO=(*35#+5) 2,0;"If a business is calculated to be worth `";ASS;" and its rate of growth is ";GRO;"% per annum; then"'"how long will it take to double its assets." AMT=ASS:COUNT=1 #AMT=AMT*(1+(GRO/100d))  U$=AMT $U$<6U$=U$+" ":1724 V$=U$(6) ABX4=17:BX=7:BX2=7:BX3=15:1580, 2AMT<2*ASSCOUNT=COUNT+1:1716 &8,10 ;"Answer: years" RFLAG4500 &Z$="":1740:18,19 W=12 YP:8,YP;"?" CLINE=1747:1550 "M$=13 M$=" ":1750 M$<"0"M$>"9"1746 Z$=Z$+M$:8,YP;M$ W:4600 Z$=" "1756  #Z$=COUNT4000:1760 %(11 ,0)=" "4100 L16,12 ;"Correct answer";18,16;"= ";COUNT;" years" <TESTFLAG=1:15906:CLINE=1761:1550 TTESTFLAG=0:BX2=12 :BX3=12 :BX4=21:BX=2:1580, RFLAG=0:H ^0,0;"END OF TEST "''"SEE MENU FOR PROGRESS ":200 3TESTFLAG=0:L=65190:RFLAG=0: T20,1;"1 OF 2";0,0;"AVERAGE ANNUAL RATES:7.2"  2,0;"Average annual growth rate (or interest rate) can be calculatedif the initial and final amountsare known, together with the total time for which the amount has been accumulating."  *15906:CLINE=1803 :1550  BX=2:1580,  {NUM=10 *((*4000+1000)):DEN=(*40000@+10000'):YR=(*6+4):NUMDEN1804   20,1;"2";2,0;"If `";NUM;" has grown to `";DEN;" in"'YR;" years, then what is the"'"average annual growth rate?" 100d:6,2;"Final Amount";8,1;"Initial Amount";7,16;"=";8,18;NUM;6,18;DEN N10 ,115s:108l,0:144,115s:40(,0 RAT=DEN/NUM:U$=RAT $U$<5U$=U$+" ":1809 ,V$=U$(5):7,25;"= ";V$ 7100d:10 ,12 ;"Number of years = ";YR 3100d:12 ,12 ;YR;"th root of ";V$ IN=(1/YR) ROOT=RAT^(IN)  U$=ROOT $U$<5U$=U$+" ":2334 -V$=U$(5):14,24;"= ";V$ X100d:V=V$:16,12 ;V$;" - ";1;24;"= ";:U$=(V-1) $U$<5U$=U$+" ":1819 dV$=U$(5):V$:100d:18,12 ;V$;" x ";100d;24;"= ";V$*100d O100d:20,12 ;"Average Rate";24;"= ";V$*100d;"%" `BX=2:BX2=12 :BX3=12 :BX4=21:15906:CLINE=1823:1550 1580,:1804  bRFLAG=0: l)0,0;"ANNUAL RATE TEST:7.2" mTESTFLAG1942 nRFLAG1905q oQ=15 p{NUM=10 *((*4000+1000)):DEN=(*40000@+10000'):YR=(*6+4):NUMDEN1904p qv 2,0;"If `";NUM;" has grown to `";DEN;" in"'YR;" years, then what is the"'"average annual growth rate?" r!8,10 ;"Answer: ." s/Z$="":1907s:18,19,21 tRFLAG4500 uW=13 vYP:8,YP;"?" wCLINE=1912x:1550 x,W=1ƯM$=13 M$=" ":1914z yM$<"0"M$>"9"1911w zZ$=Z$+M$:8,YP;M$ {W:4600 |)T=13:Z$(T)=" "Z$(T)="0" }`T:TESTFLAG=1:RAT=DEN/NUM:IN=1/YR:ROOT=RAT^IN:V=ROOT-1:RATE=V*100d ~Z$=" "1920 o((Z$/10 )-RATE)<.1}L4000:X=0100d:X:15906:CLINE=1925:1550 %(11 ,0)=" "4100 qX=0100d:X:12 ,10 ;"Do you wish to see the";13 ,10 ;"correct answer (Y/N) ?" M$= M$="Y"1927 M$"N"1922 V.01z# =,30:BX=2:BX2=12 :BX3=12 :BX4=21:1580, 0TESTFLAG=0:RFLAG=0:Q:1943 ,.01z# =,30:BX=8:1580, 100d:6,2;"Final Amount";8,1;"Initial Amount";7,16;"=";8,18;NUM;6,18;DEN N10 ,115s:108l,0:144,115s:40(,0  U$=RAT $U$<5U$=U$+" ":1931 7100d:V$=U$(5):7,25;"= ";V$ 7100d:10 ,12 ;"Number of years = ";YR 3100d:12 ,12 ;YR;"th root of ";V$  U$=ROOT $U$<5U$=U$+" ":1936 V$=U$(5):14,24;"= ";V$:100d:V=V$:16,12 ;V$;" - ";1;24;"= ";:U$=(V-1) $U$<5U$=U$+" ":1938 dV$=U$(5):V$:100d:18,12 ;V$;" x ";100d;24;"= ";v$*100d 100d:20,12 ;"Average Rate";24;"= ";:ILT=v$*100d:ILT=ILT*10 +.1}L:ILT=ILT:ILT=ILT/10 :ILT;"%" *15906:CLINE=1942:1550 <TESTFLAG=0:RFLAG=0:BX=2:1580,:Q ^0,0;"END OF TEST "''"SEE MENU FOR PROGRESS ":150 3TESTFLAG=0:L=65190:RFLAG=0: S20,1;"1 OF 2";0,0;"USE OF AN INDEX:7.3" R2,0;"An index is a way to measure a changing economic factor." Җ"Every index has a base year whenit is arbitrarily set to be 100.Subsequent and previous years can then be measured in terms ofthe base year." 9200:10 ,8;"Examples of indices are:" 4502:12 ,12 ;"Retail Price Index " +502:14,12 ;"Wage Index" 4502:16,12 ;"Raw Materials Index" *15906:CLINE=2008:1550 4BX=2:BX2=12 :BX3=12 :1580, q20,1;"2";2,0;"An index reading can easily be converted to a percentage." "e.g:" fNUM=(*40(+80P):YR=(*5+7):DEN=(*40(+90Z):NUMDEN2011 ܔ502:6,0;"If an index reading for one yearis ";NUM;" and ";YR;" years later is ";DEN'"then calculate the percentage"'"increase." d100d:12 ,10 ;DEN;"-";NUM;14,12 ;NUM;13 ,17;"x";100d; U82R,68D:40(+6*(NUM100d)+6*(DEN100d),0 U=((DEN-NUM)*100d)/NUM U$=U $U$<5U$=U$+" ":1836, V$=U$(5) 100d:" = ";V$;"%" *15906:CLINE=2021:1550 $BX=5:1580,:2011 *RFLAG=0: 4P20,1;"1 OF 2";0,0;"SIMPLE INDEX:7.3" 5j2,0;"A simple index is one which measures the change of a single commodity or average." 6Y100d:6,0;"Examples which could be measuredusing a simple index are:" 7\100d:10 ,12 ;"The price of tin on";11 ,12 ;"the world market." 8X100d:13 ,12 ;"The average price of";14,12 ;"a new house." 9R100d:16,12 ;"The cost of a pint";17,12 ;"of milk." :*15906:CLINE=2107;:1550 ;BBX2=12 :BX3=12 :BX4=21:BX=2:1580,  "Cocoa" ? "Rubber" @ "Sugar" A0PNT=(*4+1):(2108<+PNT):A$ BfNUM=(*90Z+10 ):DEN=(*90Z+10 ):YR=(*5+4):NUMDEN2114B C3PNT=1NUM=NUM+675:DEN=DEN+675 DGPNT=2NUM=NUM*10 +1300:DEN=DEN*10 +1300 E3PNT=3NUM=NUM+800 :DEN=DEN+850R F1PNT=4NUM=NUM+80P:DEN=DEN+80P G100d:5,0;"If the value of ";A$;" was `";NUM'"per tonne in its base year, and"'"it is now worth `";DEN;" per tonne,"'"then what is its current index"'"value?" Hg150:11 ,2;"Index = ";DEN;" x ";10 ,17;100d;12 ,17;NUM I?136,84T:24+6*(NUM1000),0 J<100d:11 ,22;"= ";:U=DEN*(100d/NUM) KU$=U L$U$<5U$=U$+" ":2124L MV$=U$(5) NV$ O*15906:CLINE=2128P:1550 P$BX=4:1580,:2113A RFLAG=0: 20,1;"1 OF 2";0,0;"WEIGHTED AGGREGATES:7.3":2,0;"An aggregate index is one which is used to group together several items.":"A weighted aggregate index is"'"one where each item is given a"'"weighting according to its value"::"Retail Price index (RPI) is an"'"example of a weighted aggregate index.":15906:CLINE=2201:1550 HBX3=12 :BX2=12 :BX=2:1580,:"Coal","Gas","Oil" "Zinc","Lead","Copper" "Cocoa","Rubber","Coffee" oPNT=(*3+1):2202+PNT:U$,V$,W$:PNT=1A$="tonnes":B$="cubic metres":C$="barrels" 4PNT=2PNT=3A$="tonnes":B$=A$:C$=A$ qPNT=1WT1=15:WT2=12 :WT3=10 :PR1=200:PR2=250:PR3=300,:FL=502 vPNT=2WT1=1.437 =p:WT2=3.33UR:WT3=1:PR1=700:PR2=300,:PR3=1000:FL=200 sPNT=3WT1=10 :WT2=20:WT3=9 :PR1=1800:PR2=900:PR3=2000:FL=400 #20,1;"2" 2,0;"A weighted aggregate index is tobe calculated from the prices of ";U$;", ";V$;" & ";W$;".":CP1=PR1+(*FL)-(*FL):CP2=PR2+(*FL)-(*FL):CP3=PR3+(*FL)-(*FL):100d:6,10 ;U$;18;V$;26;W$:100d:6,0;"Price"''"Current"'"Base"''"Weighting":0,114r:255,0:100d:8,10 ;CP1;18;CP2;26;CP3:100d:9 ,10 ;PR1;18;PR2;26;PR3:100d:11 ,10 ;WT1;18;WT2;26;WT3:100d:13 ,12 ;"Base Year:":SUM1=PR1*WT1:SUM2=PR2*WT2:SUM3=PR3*WT3:100d:15,12 ;PR1;"x";WT1;20;"= ";SUM1:100d:16,12 ;PR2;"x";WT2;20;"= ";22+(SUM2<1000);SUM2:100d:17,12 ;PR3;"x";WT3;20;"= ";SUM3;28;"+":100d:19,22;SUM1+SUM2+SUM3:178,28:30+6*(SUM110000'),0:100d:21,20;"Index=100":15906:CLINE=2211:1550 FSUM=SUM1+SUM2+SUM3 BX4=21:BX=12 :1580,:13 ,12 ;"Current Year:":SUM1=CP1*WT1:SUM2=CP2*WT2:SUM3=CP3*WT3:100d:15,12 ;CP1;"x";WT1;20;"= ";22+(SUM1<1000);SUM1:100d:16,12 ;CP2;"x";WT2;20;"= ";22+(SUM2<1000);SUM2:100d:17,12 ;CP3;"x";WT3;20;"= ";22+(SUM3<1000);SUM3;29;"+":100d:19,22;SUM1+SUM2+SUM3:178,28:30+18*(U$="Zinc")+6*(SUM110000'),0 *15906:CLINE=2214:1550  1580, t13 ,10 ;"Base Year";23;"= ";FSUM;14,10 ;"Current Year";23;"= ";SUM1+SUM2+SUM3 %16,10 ;"Current Index:" SSUM=SUM1+SUM2+SUM3 <100d:18,10 ;SSUM;20,10 ;FSUM X80P,20:32 +6*(SSUM10000')+18*(SSUMɺ(SSUM)),0 F100d:19,17;"x 100 = ";:IND=(SSUM/FSUM)*100d  A$=IND $A$<5A$=A$+" ":2222  100d:B$=A$(5):B$ *15906:CLINE=2225:1550  2201 RFLAG=0: (0,0;"INDEX TEST No.1:7.3" TESTFLAG2336 RFLAG2314 H=15 "Zinc"  "Cocoa"  "Rubber"  "Sugar" 0PNT=(*4+1):(2303+PNT):D$ fNUM=(*90Z+10 ):DEN=(*90Z+10 ):YR=(*5+4):NUMDEN2309 3PNT=1NUM=NUM+675:DEN=DEN+675 GPNT=2NUM=NUM*10 +1300:DEN=DEN*10 +1300 3PNT=3NUM=NUM+800 :DEN=DEN+850R 1PNT=4NUM=NUM+80P:DEN=DEN+80P 100d:2,0;"If the value of ";D$;" was `";NUM'"per tonne in its base year, and"'"it is now worth `";DEN;" per tonne,"'"then what is its current index"'"value?" "9 ,12 ;"Answer: ." AZ$="":2316 :20,21,22,24,25 RFLAG4500 W=15 YP:9 ,YP;"?" CLINE=2321 :1550 "M$=13 M$=" ":2323 M$<"0"M$>"9"2320 Z$=Z$+M$:9 ,YP;M$:W )T=15:Z$(T)=" "Z$(T)="0" T  4600 U=DEN*(100d/NUM) U$=U $U$<5U$=U$+" ":2329 V$=U$(6) Z$=" "2333 8((Z$)/100d-U)<.01z# =4000:2335 %(11 ,0)=" "4100 *12 ,10 ;"Correct Answer: ";V$ <15906:TESTFLAG=1:CLINE=2336 :1550 JTESTFLAG=0:RFLAG=0:BX2=12 :BX=2:1580,:H V3TESTFLAG=0:L=65190:RFLAG=0: `?0,0;"INDEX TEST No.2:7.3":TESTFLAG12437 aTESTFLAG22455 bRFLAG2413m cH=14 d"Coal","Gas","Oil" e"Zinc","Lead","Copper" f"Cocoa","Rubber","Coffee" goPNT=(*3+1):2403c +PNT:F$,G$,H$:PNT=1A$="tonnes":B$="cubic metres":C$="barrels" h4PNT=2PNT=3A$="tonnes":B$=A$:C$=A$ iqPNT=1WT1=15:WT2=12 :WT3=10 :PR1=200:PR2=250:PR3=300,:FL=502 jvPNT=2WT1=1.437 =p:WT2=3.33UR:WT3=1:PR1=700:PR2=300,:PR3=1000:FL=200 ksPNT=3WT1=10 :WT2=20:WT3=9 :PR1=1800:PR2=900:PR3=2000:FL=400 lKCP1=PR1+(*FL)-(*FL):CP2=PR2+(*FL)-(*FL):CP3=PR3+(*FL)-(*FL) m2,0;"A weighted aggregate index is tobe calculated from the prices of ";F$;", ";G$;" & ";H$;".";6,10 ;F$;18;G$;26;H$;6,0;"Price"''"Current"'"Base"''"Weighting":0,114r:255,0:8,10 ;CP1;18;CP2;26;CP3;9 ,10 ;PR1;18;PR2;26;PR3;11 ,10 ;WT1;18;WT2;26;WT3 n*SUM1=PR1*WT1:SUM2=PR2*WT2:SUM3=PR3*WT3 oFSUM=SUM1+SUM2+SUM3 p*SUM1=CP1*WT1:SUM2=CP2*WT2:SUM3=CP3*WT3 qSSUM=SUM1+SUM2+SUM3 rIND=(SSUM/FSUM)*100d s*14,10 ;"Current Index: ." tAZ$="":2420t :25,26,27,29,30 uRFLAG4500 vW=15 wYP:14,YP;"?" xCLINE=2425y :1550 y"M$=13 M$=" ":2427{ zM$<"0"M$>"9"2424x {Z$=Z$+M$:14,YP;M$ |!W:4600:TESTFLAG=1 })T=15:Z$(T)=" "Z$(T)="0" ~T:((Z$)/100d-IND)<.1}L12 ,0;"CORRECT":COR=COR+1:15906:CLINE=2436 :1550 M(12 ,0)=" "12 ,0;"WRONG":WRONG=WRONG+1 qX=1150:X:17,10 ;"Do you wish to see the";18,10 ;"correct answer (Y/N) ?" M$=:M$=""2433 M$="Y"2438 M$"N"2433 =TESTFLAG1=1:15906:CLINE=2437 :1550 sTESTFLAG1=0:RFLAG=0:BX=2:BX2=12 :BX3=12 :BX4=21:1580,:H:2456 S10 ,0;" ":BX2=12 :BX=12 :BX3=12 :1580, 13 ,12 ;"Base Year:":SUM1=PR1*WT1:SUM2=PR2*WT2:SUM3=PR3*WT3:100d:15,12 ;PR1;"x";WT1;20;"= ";SUM1:100d:16,12 ;PR2;"x";WT2;20;"= ";22+(SUM2<1000);SUM2:100d:17,12 ;PR3;"x";WT3;20;"= ";SUM3;28;"+":100d:19,22;SUM1+SUM2+SUM3:178,28:30+6*(SUM110000'),0:100d:21,20;"Index=100":15906 =""2440 FSUM=SUM1+SUM2+SUM3 BX4=21:BX=12 :1580,:13 ,12 ;"Current Year:":SUM1=CP1*WT1:SUM2=CP2*WT2:SUM3=CP3*WT3:100d:15,12 ;CP1;"x";WT1;20;"= ";22+(SUM1<1000);SUM1:100d:16,12 ;CP2;"x";WT2;20;"= ";22+(SUM2<1000);SUM2:100d:17,12 ;CP3;"x";WT3;20;"= ";22+(SUM3<1000);SUM3;28;"+":100d:19,22;SUM1+SUM2+SUM3:178,28:30+6*(SUM110000')+18*(F$="Zinc"),0 15906:=""2443 1580, t13 ,10 ;"Base Year";23;"= ";FSUM;14,10 ;"Current Year";23;"= ";SUM1+SUM2+SUM3 %16,10 ;"Current Index:" SSUM=SUM1+SUM2+SUM3 <100d:18,10 ;SSUM;20,10 ;FSUM X80P,20:32 +6*(SSUM10000')+18*(SSUMɺ(SSUM)),0 F100d:19,18;"x 100 = ";:IND=(SSUM/FSUM)*100d A$=IND $A$<5A$=A$+" ":2452 100d:B$=A$(5):B$ =TESTFLAG2=1:15906:CLINE=2455 :1550 =TESTFLAG2=0:RFLAG=0:BX=2:1580,:H \0,0;"END OF TEST "''"SEE MENU FOR PROGRESS ":200 3TESTFLAG=0:L=65190:RFLAG=0: fl=65190::ENDFLAG="1":0,0;"END OF MODULE":10 :200:550& [MARKZE W$=13 W$="" !CLINE=1W$="R"N$="R": 8W$=12 ƱN$>ZEN$=N$((N$-1)):5055 'W$<480ůW$>5795010 N$=N$+W$:N$>SLN$=N$(SL) 4#1;1,28;N$;"  ":5010 estflax x xflaounflaidflaivflandflapagkilinZestflagestflagimetimtimAP teach8 eddbDedJ#1;1,0;"STOP THE TAPE and press ENTER"; n+.1}L,25:13 110n x>#1;1,0;" "; TESTFLAG=0:BX=2:BX2=12 :BX3=12 :BX4=21:0:KFLAG="1":COUNT="0":TFLAG="0":1:7:1: 6MIDFLAG="0":DIVFLAG="0":ENDFLAG="0":BPAGE="0" )ZE=0:SKIP=0:CLINE=1 .ZE,ZE;"CHAPTER 8:USEFUL TECHNIQUES" HU=100d MULTI=0 sTIME="0":SETIME="0":TTIME="0":23658j\,8:#1;1,0;"SELF TIMER ON? (Y/N) "  A$=:A$="Y"A$="N"520  516 8.01z# =,30:A$="Y"4500:SETIME=1  COR=ZE:WRONG=ZE:#1;1,0;"PROGRESSION (35-99, or R) ":SL=2:6000p:B$=N$:MARK=ZE:200:N$="R"B$="0":SKIP=1:538 &B$<35#ŰB$>99c524  Z$="":PROG=B$:1500 &:0,10 ;"PROGRESS":TOTAL=COR+WRONG:2,0;"QUESTIONS:";TOTAL;4,0;"CORRECT: ";COR;6,0;"INCORRECT:";WRONG:TOTAL="0"554* (IMARK=((COR/(COR+WRONG))*100d):8,0;"MARK: ";MARK */MARK="0"8,0;"MARK: ";MARK ,10 ,0;"PASS: ";PROG:HOUR=(TTIME/3600):REM=TTIME-HOUR:MIN=(REM/60<):REM2=REM-MIN*60<:12 ,0;"TIME: ";HOUR;":";MIN;":";(REM2):QHT="150":TOTAL="0"CHT="0":WHT="0":5600 .,CHT=(COR/TOTAL)*QHT:WHT=(WRONG/TOTAL)*QHT 0,T=130:ٰ"4":150+T,0:0,CHT:ٰ"2":200+T,0:0,WHT:T:ٰ"7":150,152:80P,0:160,160:5,-5:5,15:212,168:10 ,-10 :222,168:-10 ,-10 :15906 2=""5622 31SKIPENDFLAGTOTAL=30:MARK=PROG+1 4M#1;1,0;" ":ENDFLAG3202 6 602Z Y CPAGE=PAGE Z4X=13 21:X,0;" ":X [MENUX="16" \n#1;0,0;" ":#1;1,0;" ";#2; ]h16,0;"RETURN ";';"BACKPAGE";';"CALCMODE";';"GLOSSARY";';"PROGRESS";';"FINISH " _:7:1:;7;13 ,2;"MENU" gqMENUX,0;1;" ":OLDMENU=MENUX:0:A$=:A$=32 MENUX=MENUX+1 l.01z# =,30 qA$=13 650 vMENUX="22"MENUX="16" {BOLDMENU,0;1;1;" ":615g !MENUX=17BPAGE602Z 1MENUX=16BPAGERFLAG=1:1502 (644+MENUX) $PAGE=CPAGE:RFLAG="1":1502  700  23658j\,0:900  800   550&  3200 C#1;0,22;" BACKPAGE ":BPAGE="1" ]#1;1,0;"WHICH PAGE ":6000p:N$=ZE701 xNO=N$:NO=NO:NO>(CPAGE+1)#1;1,0;"YOU HAVE NOT REACHED THAT PAGE.":200:701 nNO=2NO=4NO=7#1;1,0;"YOU CANNOT REPEAT TESTS.":200:701 PAGE=NO-1::X=13 21:X,0;" ":X:13 ,2;"KEYS";16,1;"MENU";'';" PAGE":#1;0,22;" BACKPAGE ":(1600@+(PAGE*100d)) c#1;1,0;"ANOTHER PAGE? ":10 :0:="Y"700 @BPAGE="0":#1;0,22;" ":602Z  b:0,10 ;"GLOSSARY":BPAGE#1;0,22;" BACKPAGE " $C2,0;"AREA:a measure of the extent of a surface." &N'"GRAPH:a digrammatic display of the relationship between sets ofDATA." ('"RECTANGLE:a figure which has four sides, all of which are straight lines, and whose corners are right angles." J?#1;1,0;"PRESS A KEY TO RETURN TO MENU" 0:602Z *I$=Z$:1138r:memo="0":1020 9a$="":no="0":decpos="0":pdecpos="8":decflag="0" z$=:z$=""904 &.002xn,30:z$" "cl="0" 4((z$"0")(z$"9"))z$="m"ts=0:1150~ Gz$=13 23658j\,8:Z$=I$:1:7:602Z  z$=" "cl=11020 z$=" "cl=0952 =a$""acc=a$:decflagacc=acc*10 ^(pdecpos-8) z$="t"1012 z$="y"1016 z$="i"1006 z$="u"1010 z$="v"1024 z$="b"1028 z$="n"1008 z$="g"g$="*" z$="h"g$="/" z$="j"g$="-" z$="k"g$="+" z$="l"g$="=" g$=""904 tsf$="="f$=""948 970:error1000 +op1=acc:f$=g$:g$="":f$"="ts=1  902 8acc="0":pdecpos="8":cl="1":1052:902  ,acc<1e10Žop1<1e10986 ̌a$=acc:a=a$:o$=op1:o=o$:expa=(a$(a)-480)+10 *(a$(a-1)-480):a$(a-2)="-"expa=-expa Zexpo=(o$(o)-480)+10 *(o$(o-1)-480):o$(o-2)="-"expo=-expo f$"/"aprox=expo+expa ,(f$="+"f$="-")ƽaprox<568986 f$="/"aprox=expo-expa aprox28986 error="1": f$="*"acc=op1*acc !f$="/"acc0acc=op1/acc f$="+"acc=op1+acc f$="-"acc=op1-acc 3acc>1e28?9y(f$="/"acc=0)error="1": meme="0": 1052: V15,0;" ERROR ":1;15,47/:1;568,0 " "1002  1020 memo="0":902 !acc=-acc:1052:902 -acc=memo:1052:ts=0:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="+":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 Ytemp1=acc:temp2=op1:op1=memo:h$=f$:f$="-":me=1:970:error1000 2memo=acc:f$=h$:acc=temp1:op1=temp2:902 L1022:error,op1,f$,g$,e$,acc,decpos,pdecpos,decflag,sign,no,ts,cl,me 0,0,"",""," ",0,0,8,0,0,0,0,0,0:1022:1052:902 acc<01000 !acc=acc:1052:902 f$="+"f$="-"1046 f$="*"f$="/"1036  >f$="/":op1=acc:acc=100d:970:error1000  f$="=":902  'me="1":970:error1000 4op1=acc:acc=100d:f$="*"f$="/":1042 f$="*" 970:error1000 f$="=":902 Ctemp1=op1:h$=f$:f$="*":me=1:970:error970 ;op1=acc:acc="100":f$="/":970:error1000 f$=h$:op1=temp1:902 s$=acc:l=s$:15,0;" ";:1;15,47/:1;568,0:(acc=0((acc>1Ž(acc-1)<10 ^-8)(acc99999999>)))1062& K(acc-1)<10 ^-8acc=1:l=1:pdecpos=8 110 ^(l-2)41114Z ,.s$=".000000"+s$(1):l="8":1092D .l>61114Z 0Gs$=".00000"+s$(1)+s$(3):l=4l=7:1092D 2"l="8":pdecpos="1":1092D 4!acc>99999999>1114Z 64(acc10 ^-5ƽacc<1)1090B 80s$(1)="0"s$=s$(2l):l=l-1 :l81088@ <9s$(9 )>"4"s$(8)=(s$(8)-47/) > s$=s$(18):l="8" @pdecpos=9 -l:1092D B 1114Z Dpdecpos=81106R Facc11104P HC15,0;e$(1pdecpos-1);:acc0" "; Jacc<0"-"; L30;:acc=0"0000000"(1-decpos) Ns$(2l);:1112X: PA15,pdecpos+1;s$(l+pdecpos-7l);:l=l-1 R=15,0;e$(18-l);:acc0" "; Tacc<0"-"; Vacc;:1112X: Xq1;pdecpos*8+6,491:pdecpos*8+7,480:pdecpos*8+7,47/: Zs$(l-2)="E"a=3 \s$(l-3)="E"a=4 ^>15,0;:l-a>5pdecpos=1:1124d `3pdecpos=6+a-l:l-a=1pdecpos=4 b/pdecpos>1e$(1pdecpos-1); dacc<0"-"; facc0" "; h's$(1);:l-a=11134n j/l-a>5s$(35);:1134n ls$(3l-a); n@1112X:"E";:s$(l-a+2);:a=30;s$(l): pa=4s$(l-1l): r)i=13 21:i,0;" ";:i:;0;13 ,0;" "'" ";:15,0;" ";17,1;"";17,3;"";17,5;"";17,7;"";18,1;"";18,3;"";18,5;"%";18,7;"X";19,1;"7";19,3;"8";19,5;"9";19,7;"";20,1;"4";20,3;"5";20,5;"6";20,7;"+";21,1;"1";21,3;"2";21,5;"3";21,7;"-";:#1,0,0;" ";"0";" ";"";" ";"";" ";;"=";" ";:#1;1,0;" ";#2:0:0:7: ~1a$=8(a$="0"z$="0"decflag)904 z$"m"1160 ,decflag=1:a$=""a$="0":1200  904 decflaga$="0"a$="" ,a$=a$+z$:decflagpdecpos=pdecpos-1  1200  904 ~15,0;" ";:1;15,47/:1;568,0:15,9 -a$;a$;:1112X  GKFLAG=ZE:CLINE="1500":PAGE=ZE:BPAGE="0":MENUX="16":RFLAG="0" U0:1:7::23658j\,8:x=13 21:x,0;" ":x:13 ,2;"KEYS";16,0;" MENU";'';" PAGE":0,25;"Page:";PAGE+1:(1600@+(PAGE*100d)):PAGE=PAGE+1:SKIPPAGE=1PAGE=3PAGE=6PAGE=PAGE+1  1502 iX=16:X:23658j\,8:BPAGE#1;0,22;" BACKPAGE " =""1552 M$=:.01z# =,30 !M$="M"BPAGE=0600X S(PAGE=1PAGE=3PAGE=6)(M$<":"M$>"/"ůM$=13 )1566 M$="M"BPAGE="1"602Z 2M$="P"BPAGE="0"(1690+(PAGE*100d)) M$="P"BPAGE="1"706 M$" "1552 KFLAGCLINE  1554 "0M3="1000":M4="1000":M5="1000":M6="1000" #GT=9 1-1:(R/T)=(R/T)(S/T)=(S/T)M3=R/T:M4=S/T $ M5>M3M3>0M5=M3:M6=M4 'T )M3=M5:M4=M6: ,pT=BXBX2:T,0;" ":T:T=BX3BX4:T,10 ;" ":T .>#1;1,0;" " 1 6<#1;1,0;" PRESS SPACE TO CONTINUE" ; @BX="7":BX2="12":BX3="13":BX4="21":ZE,ZE;"USE OF BRACKETS:8.2"''"Brackets, ()[]{}, are used to show the order in which calculations must be worked out.Expressions within brackets are worked out first. e.g:" A COUNT=ZE BKFLAG="1":NUM1=(*9 +1):NUM2=(*9 +1):DEN1=(*9 +1):DEN2=(*9 +1):NUM1DEN1NUM2DEN21602B CNUM1=11602B D1100d:8,2;"(";NUM1;"x";DEN2;") + (";NUM2;"x";DEN1;")":100d:M1=NUM1*DEN2:M2=NUM2*DEN1:8,16;"= ";1;M1;8,3;NUM1;"x";DEN2:100d:8,18;M1;8,3;NUM1;"x";DEN2;8,20;"+";1;M2;8,11 ;NUM2;"x";DEN1:100d:8,21;M2;8,11 ;NUM2;"x";DEN1;8,24;"= ";M1+M2:100d:10 ,ZE;"BUT";11 ,2;NUM1;"x[";DEN2;"+(";NUM2;"x";DEN1;")]":100d:11 ,14;"= ";NUM1;"x(";DEN2;"+";1;M2;11 ,8;NUM2;"x";DEN1;ze;11 ,23;")":100d:11 ,21;M2;11 ,8;NUM2;"x";DEN1;11 ,25;"= ";NUM1;"x";DEN2+M2:100d:14,24;"= ";NUM1*(DEN2+M2):15906:CLINE=1605E:1550 F1580,:1602B RFLAG=0: &0,0;"BRACKETS TEST:8.2" K2,0;"Enter required numbers:":TESTFLAGMIDFLAG1745 TESTFLAGMIDFLAG1781 RFLAGMIDFLAG1748 RFLAG1714 H=15 NUM6=(*9 +1):NUM7=(*9 +1):DEN6=(*9 +1):DEN7=(*9 +1):NUM6>DEN6NUM7>DEN71710 NUM6=11710 @4,8;"(";NUM6;"x";DEN7;") + (";NUM7;"x";DEN6;") =" /1716:Z$="":24,25,26 RFLAG4500 W=13 YP:4,YP;"?" CLINE=1725:1550 !M$=13 M$="":1730 M$<"0"M$>"9"1724 4,YP;M$:Z$=Z$+M$ M$=""4,YP;" " W TESTFLAG=1:4600 Z$=""Z$="0"  BRAC=Z$ 1Z$=NUM6*DEN7+NUM7*DEN64000:1744 Ά4100:100d:10 ,7;"Correct answer = ";(NUM6*DEN7);" + ";NUM7*DEN6;12 ,22;"= ";NUM6*DEN7+NUM7*DEN6 *15906:CLINE=1745:1550 PTESTFLAG=ZE:BX=10 :BX2=12 :BX3=12 :BX4=21:1580, \4,8;"(";NUM6;"x";DEN7;") + (";NUM7;"x";DEN6;") = ";BRAC;" ":MIDFLAG=1 >8,8;NUM6;" x [";DEN7;"+(";NUM7;"x";DEN6;")] = " /1752:Z$="":24,25,26 RFLAG4500 W=13 YP:8,YP;"?" CLINE=1761:1550 !M$=13 M$="":1766 M$<"0"M$>"9"1760 8,YP;M$:Z$=Z$+M$ M$=""8,YP;" " W TESTFLAG=1:4600 Z$=""Z$="0" 5Z$=NUM6*(DEN7+(NUM7*DEN6))4000:1780 4100:100d:12 ,12 ;"Correct answer:";14,16;"= ";NUM6;"x(";DEN7;"+";NUM7*DEN6;")";16,16;"= ";NUM6;"x";(DEN7+(NUM7*DEN6));18,16;"= ";NUM6*(DEN7+(NUM7*DEN6)) <15906:TESTFLAG=1:CLINE=1781:1550 MMIDFLAG=0:TESTFLAG=0:RFLAG=0:BX=3:1580,:H TESTFLAG=ZE:MIDFLAG=ZE:L=65190:RFLAG=ZE:ZE,ZE;"END OF TEST ":BX=2:1580,:200: lZE,ZE;"DIVISIBILITY HINTS:8.3";2,ZE;"Simple rules for divisibility.";';"A number is divisible by;"  COUNT=ZE  \Q$="For example:":100d:20,1;"1 OF 4";5,ZE;"3 if the sum of its digits can be divided by 3.";8,10 ;Q$;10 ,14;"123:(1+2+3=6)";12 ,14;"411:(4+1+1=6)";14,14;"4914:(4+9+1+4=18)";16,14;"9624:(9+6+2+4=21)":15906:CLINE=1805 :1550 YBX="5":1580,:HU:20,1;"2";5,ZE;"4 if its last two digits can be divided by 4. ";8,10 ;Q$;10 ,14;"312:(124=3) ";12 ,14;"1024:(244=6) ";14,14;"6108:(84=2) ";16,14;"12348:(484=12) ":15906:CLINE=1807:1550 [1580,:100d:20,1;"3";5,ZE;"5 if it ends with 5 or 0. ";8,10 ;Q$;10 ,14;"45,125,3025 ";12 ,14;"70,130,9780 ";14,14;" ";16,14;" ":15906:CLINE=1809:1550 1580,:100d:20,1;"4";5,ZE;"6 if even and divisible by 3.";8,10 ;Q$;10 ,14;"120:(1+2+0=3)";12 ,14;"912:(9+1+2=12)";14,14;"4914:(4+9+1+4=18)":15906:CLINE=1811:1550 !7:1580,:1804  $21,10 ;" ": bRFLAG=0: l ZE,ZE;"DIVISIBILITY TEST:8.3" nI2,0;"Please answer Y or N to the following questions:" oTESTFLAG1937 pRFLAG1918~ t%H=110 :DIVFLAG=0 vMULTI=(*4+3) xMULT2=(*10 +1) zdMULT3=(*4+3):((MULTI*MULT2)/MULT3=((MULTI*MULT2)/MULT3))(MULT3MULTI)1914z |MULT3=MULTIDIVFLAG=1 ~;6,4;"Is ";MULTI*MULT2;" divisible by ";MULT3 RFLAG4500 6,28;"?" M$=:M$=""1922 .01z# =,30 "M$=13 M$="0":1928 M$="P"M$="M"1556 M$"Y"M$"N"1922  6,28;M$:20  4600 3M$="Y"DIVFLAG4000:100d:1936 4M$="N"DIVFLAG4000:100d:1936 i4100:100d:M$="N"DIVFLAG12 ,16;MULTI*MULT2;" = ";MULTI;"x";MULT2:1936 <TESTFLAG=1:CLINE=1937:15906:1550 <TESTFLAG=0:BX=4:1580,:RFLAG=0:H {TESTFLAG=ZE:L=65190:RFLAG=ZE:0,0;"END OF TEST ":BX=2:1580,:150: *0,0;"SQUARES EXPLAINED:8.4" 2,0;"A square is a rectangle with all4 sides equal in length."'"The area of a square is found bymultiplying the length of one side of the square by itself."'"The number obtained is called a SQUARE NUMBER." "e.g:" 0100d:11 ;"Length";24;"Area" T=19 >502:T+11 ,14;T;22;T;"x";T;" = ";T*T T *15906:CLINE=2015:1550 BX=12 :1580, T=10 18 =502:T+2,13 ;T;20;T;"x";T;" = ";T*T T *15906:CLINE=2025:1550 1580,:2008 * RFLAG=ZE: 4%0,0;"SQUARE ROOTS:8.4" 6|2,0;"The Square Root of a number is a number which when multiplied by itself produces the given number." 8z"To calculate the square root of a given number it is easiest to use the square root key of a"'"calculator (marked )." :"e.g:" <7100d:10 ;"Number";20;"Square Root" >T=19 @SQ=T BU$=SQ D$U$<4U$=U$+" ":2116D F9502:T+11 ,13 ;T;23;U$(4) HT J*15906:CLINE=2123K:1550 LBX=12 :1580, NT=10 19 PSQ=T RU$=SQ T$U$<4U$=U$+" ":2132T V8502:T+2,13 ;T;23;U$(4) XT Z*15906:CLINE=2139[:1550 \BX=12 :1580, ^ ST=25 `%12 ,13 ;ST;23;ST bT=29 dST=ST+(*9 +1) fSQ=ST:U$=SQ h$U$<4U$=U$+" ":2152h j:502:T+11 ,13 ;ST;23;U$(4) lT n*15906:CLINE=2159o:1550 p%BX=12 :1580,:2110>  RFLAG=ZE: O0,0;"POWERS TEST:8.4";2,0;"Enter required numbers:" TESTFLAGMIDFLAG2225 TESTFLAGMIDFLAG2247 RFLAGMIDFLAG2226 RFLAG2207 H=15 ST1=(*30+1) 8,12 ;ST1 +6,10 ;"Number Square" /2209:Z$="":27,28,29 RFLAG4500 W=13 YP:8,YP;"?" CLINE=2214:1550 !M$=13 M$="":2216 M$<"0"M$>"9"2213 8,YP;M$:Z$=Z$+M$ M$=""8,YP;" " W TESTFLAG=1:4600  SQ=ST1*ST1 Z$=""Z$="0" .(Z$-SQ)<1E-2z# =4000:2224 [(11 ,0)=" "4100:100d:15,12 ;"Correct answer = ";SQ *15906:CLINE=2225:1550 <TESTFLAG=0:RFLAG=0:BX=8:1580,:H MIDFLAG=1 RFLAG2230 H=15 ST2=(*99c+1) 46,10 ;"Number";20;"Square Root" -8,12 ;ST2;8,25;"." /2232:Z$="":24,26,27 RFLAG4500 W=13 YP:8,YP;"?" CLINE=2237:1550 M$<"0"M$>"9"2236 8,YP;M$:Z$=Z$+M$ W 4600:TESTFLAG=1 ;((Z$)/100d-ST2)<.01z# =4000:2246 N(11 ,0)=" "4100:15,11 ;"Correct answer = "; U=ST2:U$=U $U$<4U$=U$+" ":2244 U$(4) *15906:CLINE=2247:1550 <TESTFLAG=0:BX=8:1580,:RFLAG=0:H TESTFLAG=ZE:MIDFLAG=ZE:L=65190:RFLAG=ZE:0,0;"END OF TEST ":BX=2:1580,:K=1100d:K:  P$="GRAPHS:8.5":KFLAG=1 <20,1;"1 OF 2";0,0;P$ 2,0;"A graph is a diagram used to show certain numerical information more clearly."'"Graphs are used to show the change in one quantity with respect to another." T9 ,0;"One of the most common uses for graphs is to plot sales charts:" *15906:CLINE=2309 :1550 SC3=12 U$="SALES":V$="MONTH" X$="JFMAMJJASOND " +Q$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" [HI=100d*((*60<)):LOW=100d*((*29+1)):HILOW2318 SCALE=(HI/LOW)  Q(20)  5000 BBX=2:BX2=12 :BX3=12 :BX4=21:1580,  2300 V RFLAG=ZE: fl=65190::ENDFLAG="1":0,0;"END OF MODULE":10 :200:550& [MARK175Y=Y-20 T  15906 " "5092 .01z# =,30 0:1:7::23658j\,8:x=13 21:x,0;" ":x:13 ,2;"KEYS";16,0;" MENU";'';" PAGE":0,25;"Page:";PAGE+1 0,0;P$  p+N$="":#1;1,28;" " z=""6010z 1W$=:.01z# =,30:W$=13 ƱN$>ZE W$=13 W$="" !CLINE=1W$="R"N$="R": 8W$=12 ƱN$>ZEN$=N$((N$-1)):6055 'W$<480ůW$>5796010z N$=N$+W$:N$>SLN$=N$(SL) 4#1;1,28;N$;"  ":6010z estflax x xflaounflaidflaivflandflapagkilindultimetimtimA