ZXTape! 2 Mathskills II - Side AGriffin Software1984English Educational9.99 UKPNoneOriginal ReleaseTZXed by Andrew Barkerareas  E "AREAS" QAREAS    N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QnAAREAS{logo @M  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file _&^&_ start=0:40( )23659k\,12 :"":start=4 33!,0,88X,17,1,88X,1,255,2,546,32 ,237,176,201:30:z=60000`60013m:z1:z,z1:z ( 8000@ -Vstartz=821:z,0;0;0;j$:z:60000`:4 2)n$="":m$="":end=0:j$(32 ) <%start4:4:4: F 5000 Kqstart200:4:z=118:23692\,255::z:0,175:255,0 Pstart=0:8 Zxendyc=10 :xc=6:yc1=1:p=7:lbox:yc,xc;"Same person? yn":0:="y"Ŧ="Y"300, _ 5200P dyc=10 :xc=4:yc1=3:p=5:lbox:yc,xc;"Please ENTER your first";yc+1,xc;"name (no more than 15";yc+2,xc;"letters, please)." n$n$:lnm:n$<2err=1 xerr=0150 err=1:18,5;;"THAT'S NOT YOUR NAME!!":1,-36$:502:18,0;0;j$:110n {err=1518,4;"SORRY! TOO MANY LETTERS!":1,-36$:502:18,0;;j$:110n @xc1=11 -(n$/2-.5):xc1>7xc1=7 Wyc=7:yc1=1:xc=xc1:p=5:5200P:lbox:yc,xc;"Hello, ";n$;"!" end200:190 yc=13 :xc=5:yc1=2:p=7:lbox:yc,xc;"Now, ENTER the date.";yc+1,xc;"Less than 14 characters" m$ m$>14űm$<2ům$<40(ům$>122z1,-10 :18,4;"THAT IS NOT THE DATE !!!":1,-20:18,4;" ":180 !z=10 15:5210Z 47,xc1;"Name: ";7,xc1+7+n$;" " Gyc=10 :xc=xc1:p=5:yc1=1:lbox:yc,xc1;"Date:";m$ :200 , 5200P 6prog=0 @yc=7:xc=6:yc1=8+end:p=6:lbox:;yc,xc;" Do you want:-";yc+2,xc;" 1 AREAS";yc+4,xc;" 2 PERIMETERS";"?"end Jxyc+6,xc;" 3 To Finish?"end;yc+7+end,xc;" Type 1";", 2"end;"";"3"end;"2"end T=0:i$=:i$<"1"i$>(502+end/2)340T ^i$<"3"prog=i$ _i$="3"end10000' hprog16,8;" END PROGRAM ";20,6;0;"ENTER c to ":23624H\,36$::23624H\,32 :18,0;0;j$:330J |z=03:z,0;1;6;j$:z,13 *(2-prog);0;4;1;j$(25-6*prog):z prog-13000  A.Cowley Sept.1982 $p$=" THE AREA OF A:- " .!t=0:u=0:v=0 8 5800 B""1090B L=""1100L Vq$=:q$="y"2370B W'"n"Ʀ"y"Ʀ(13 )1090B `*j=(*4)+4:j:j:9 :: j h=0 t("WHAT IS THE AREA OF THIS FIGURE?" ~0j=(*7)+1:l=(*9 )+1 j=71250 mi=08:i+2,1;"|":i:1,1;"_":1:10 ,1;"_":0 6,0;l;" cm" "b=2*((*6)+1) j=3b=l j=4b=l1190 !j=6b=21190 011 ,10 +5*(j=6);b;" cm" k=l*b -20*j+1790+100d*(j=7) (21,1;"NEED HELP? ENTER h" 913 ,0;" ENTER YOUR ANSWER (in sq.cms.)" wq$:err=(q$=""):z=1̱q$:((q$(z)"9")(q$(z)"0")((q$(z)="")(z>1)(j=7))q$="h")err=1 z:err=11280  q$="h"1770 q$>141280 -14,0;q$:j71350F (q$=k+1671510 2k=1q$=""1510 < 1360P Fq$=k1510 P215,0;"SORRY, CORRECT ANSWER IS ";K; Z;j=715,25+(k1)+(k>9 );"" dv=v+1:t=t-1 n).5,-10 :1.5@,-20 x'z=1921:z,0;j$:z 016,0;" SINCE ";p$:2480 :p$ ,2320 :i=0j-1:a$:i:a$ Fj=6"DIMENSIONS ";c;",";b;" and ";l;"cm (height)":1470 6j=7"DIMENSIONS ";l;"cm (radius)":1470 *"DIMENSIONS ";b;"cm by ";l;"cm (height)" ="Your answer (wrong) ";q$;" (sq.cm)":j=71490 1"Correct answer is: ";k;" (sq.cm)":1500 &"Correct answer is: ";k;" (sq.cm)" 4::"________________________________":1550 .1;16,0;" WELL DONE " u=u+1:t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 V18,0;" " V20,0;" " 720,0;"CORRECT so far ";u;" INCORRECT ";v "@21,0;" More ?  y or n " ,=""1580, 6q$= 7q$"y"Ʀ"n"15906 @ 2070 Jq$"n"1120` T7:7: ^:z=084:z/2,175-z/2:255-z,0:0,z-144:z-255,0:0,144-z:z r82,9 ;" CERTIFICATE " |5,2;" NAME:  ";N$((N$-((N$>17)*(N$-17)))) _7,2;" DATE:  ";M$((M$-((M$>17)*(M$-17)))) =9 ,2;" PROGRAM:  ""AREAS""" !11 ,5;"CORRECT: ";U #13 ,3;"INCORRECT: ";V U+V=01730 715,2;"PERCENTAGE: ";(100d*U/(U+V)) º2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 ::20,0;"PRESS ANY KEY TO CONTINUE":0  end=2  60< h=11280 621,0;" " :19-(j=5)-(j=6),0;p$:2480 h=1:1270 O480,88X:100d,0:-70F,70F:-30,-70F k=k/2: &N568,88X:100d,0:-100d,70F:0,-70F 0k=k/2: :]568,88X:70F,0:0,70F:-70F,0:0,-70F D N_480,88X:110n,0:0,70F:-110n,0:0,-70F X bb480,88X:100d,0:502,70F:-100d,0:-502,-70F l vb480,88X:160,0:-502,70F:-60<,0:-502,-70F "c=b-2-2*(b=12 ) 1,14;c;" cm" k=(b+c)/2*l:  u0,12 ;"HI THERE";1;0,12 ;8;"________";0:0 -20,5;"Please key in your name"  n$:n$: :20,0;" NOW Today's date (in any form) "  m$:m$:  72H,120x,40( F6,9 ;l;" cm":1:6,9 ;"_____":0 ~4,20;"Key in your";5,20;"answer as";6,20;"2,3,etc.";7,20;"using key"  k=l*l: S6:6:1::1;6;1;" WIN THE RACE ":0  79 ;2,0;"With five correct answers" *t<0t=0 4Z0;4;0;17,0;"";1 >v6:2:17,25;"|";16,25;"|";15,25;"|" Hj=140(:j Ri=5*t+(t=0) \k=1i2 fw0:6:13 ,k-1;"";14,k-1;"";15,k-1;"";16,k-1;"" p 5 zh13 ,k-1;" ";14,k-1;"";15,k-1;"";16,k-1;"" k=i-1k=i2200 q3:13 ,k-1;" ";14,k-1;" ";15,k-1;" ";16,k-1;" " k j=25 11 +j,k;" ":j R13 ,k-1;" ";17,0;"":j=140(:j t=52270 j=1502:j   t=0 502,130:0,-502:25,25:25,-25:0,502:130,130:0,-502:150,80P:0,502:35#,-502:0,502:0 .5,2,.5,2,1,7,1,7,.5,2,.5,2,1,7,1,7,.5,9 ,.5,9 ,1,11 ,1,11 ,.5,9 ,.5,9 ,1,11 ,1,11 ,1,14,2,14,1,14,2,14,.5,14,.5,12 ,1,11 ,1,11 ,.5,11 ,.5,9 ,1,7,1,7 52290:i=128:z,y:z/2,y:i  "triangle = 1/2 base x perpendicular height","right-angled triangle = 1/2 base x height" R"square = length of one side x itself","rectangle = length x breadth" $Z"parallelogram = base x perpendicular height" .d"trapezium = 1/2 of the sum of the parallel sides x perpendicular height" 8#"circle = x radius x radius","" B L2k=12:0,10 ;"""AREAS""" V2,0;p$: `j=4*k-34*k jj8j;")" t 2480 ~j &20,0;"Press ENTER to "; j<7"continue" j>6"start" q$::k:1120` .2320 :i=0j-1:a$:i:a$: !u=0:v=0:t=0 "b$(2,17):l(4) #b$(1)=" PERIMETER " #b$(2)=" CIRCUMFERENCE " ;a$=" THE CIRCUMFERENCE  OF A CIRCLE = 2 x x RADIUS"  5800 ""3090 =""3100 &q$=:q$="y"4270 ''"n"Ʀ"y"Ʀ(13 )3110& 0 : 4880 Dh=0:w=0 Nj=(*5)+1 XTi=12:l(i)=(*5)+1:l(i+2)=(*4)+6:i bd1;" WHAT IS THE";b$(1+(j=5));"OF "'" THIS FIGURE? " l,3790+60<*j+10 *(j=1) wz=1921:z,0;1;j$:z:20,0;1;7;" ENTER  YOUR ANSWER (in cm)" dq$:err=(q$=""):z=1̱q$:((q$(z)"9")(q$(z)"0")((q$(z)="")(z>1)))err=1 z:err=13280 q$="h" q$>9 3280 Aj=515,0;" " 'z=1621:z,0;j$:z %17,0;"Your answer ";q$ j53370* q$=k+1673460 33804 *q$=k3460 4&" SORRY , correct answer is ";k; >j=5" " Hv=v+1:t=t-1 R).5,-10 :1.5@,-20 \3:"PERIMETERS":"Your answer (wrong) ";q$;" (cm)" f:j=5"Correct answer is: ";k;" (cm)":3450z p""Correct answer is: ";k;" (cm)" z4:"________________________________"::3500 (" WELL DONE  " u=u+1 t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 319,0;"So far,you have ";u;" correct" *20,12 ;"and ";v;" incorrect" B21,0;" MORE ? y OR n ":""3520 =""3530 q$= q$"y"q$"n"3540 4420D q$="n"3580 31200 7:2: %2,6;" CERTIFICATE " #5,2;" Name: ";n$ #7,2;" Date: ";m$ $+9 ,2;" Program: 'PERIMETERS'" ."11 ,5;"Correct: ";u 8$13 ,3;"Incorrect: ";v Bu+v=03670V L815,2;"Percentage: ";(100d*u/(u+v)) Vz=084:z/2,175-z/2:255-z,0:0,z-144:z-255,0:0,144-z:z ~z=16:ٺ(*8):2,6;"*";2,22;"*":ٺ(*8):2,7;"*";2,23;"*":ٺ(*8):2,8;"*";2,24;"*":30:z 93:2,6;"***";2,22;"***" ::20,0;"PRESS ANY KEY TO CONTINUE":0  end=2  60< h=13280 ?h=1:15,0;a$;" ":3270 X20,0;" ";16,20;" " q$ j=5q$="h"3760 #w+1+q$>92\w=0 917+(w/31),w-(w/31)*31;q$;" " w=w+1+q$ Aj=515,0;" "  3190v h3,15;l(3);"cm";5,21;l(1);"cm";12 ,15;l(2);"cm" ei=411 :i,9 ;".":i:1:4,9 ;"-";11 ,9 ;"_":0 ("8,9 ;l(4);"cm" 2120x,80P:15,0:0,45-:25,0:0,15:-65A,0:0,-15:25,0:0,-45- <%k=2*(l(3)+l(4)): FE3,13 ;l(1);"cm";3,18;l(1);"cm" Pii=512 :i,10 ;"|":i:1:4,10 ;"_":12 ,10 ;"_":0 Z8,8;l(2)+l(4);"cm";14,13 ;"--";2*l(1)+l(3);"cm";14,19;"--" d10 ,21;"|";11 ,21;"|";l(2);"cm";12 ,21;"|":1:9 ,21;"_";12 ,21;"_":0 n104h,72H:15,0:0,25:30,0:0,-25:15,0:0,65A:-15,0:0,-25:-30,0:0,25:-15,0:0,-65A xXk=2*(l(3)+l(4))+4*(l(1)+l(2))+2*l(2): s2,15;l(1);"cm";7,22;l(1);"cm";14,11 ;"|...";l(4);"cm...|" 'i=312 :i,7;".":i a7,6;l(3);"cm";2,7;"_"::1:12 ,7;"_":0 #k=2*(l(3)+l(4)) 120x,72H:20,0:0,30:30,0:0,20:-30,0:0,30:-20,0:0,-30:-30,0:0,-20:30,0:0,-30  'i=412 :i,8;".":i r3,13 ;l(1);"cm";11 ,21;l(2);"cm";14,12 ;"|..";l(3);"cm..|" `8,7;l(4);"cm":1:3,8;"_";12 ,8;"_":0 #k=2*(l(3)+l(4)) 104h,72H:60<,0:0,20:-40(,0:0,502:-20,0:0,-70F  152,104h,40( =7,20;l(3);"cm";8,19;"-----" z6,0;"Key in your";7,0;"answer as";8,0;"2,3 etc.";9 ,0;"using key" k=2*l(3) " , 66:4890: @2:128,88X J1,12 ;"HI THERE" T60:20,5;"Please key in your name" ^ n$:n$: h0:5: r 4880 |1,13 ;"NOW" /5,3;"Please key in today's date" "8,8;"(in any form)"  m$:m$::   4880 #0,9 ;"""Perimeters""" Y3,0;" THE";b$(1);" OF A FIGURE MEANS THE DISTANCE ALL ROUND IT." "6,0;"For example:-" _80P,64@:100d,0:0,40(:-100d,0:0,-40( G11 ,6;"5 cm":1:8,14;"10 cm":0 J17,0;"The perimeter of this rectangle is 10+5+10+5 = 30 cm" /21,18;" Press  ENTER":q$: 120x,128,40( G5,16;"5 cm":1:5,15;"_____":0 ]12 ,0;" THE";b$(1);;"OF A CIRCLE IS CALLED ITS ";b$(2);" " 15,0;a$ &Q18,0;"So the circumference of this circle = 2 x x 5 = 10 cm" 0021,0;" Press  ENTER to start" :0::31200 D0:6:6: N"0,8;" PLAY SNOOKER" X*3,4;"5 correct answers win" bt<0t=0 l8,11 ;"COUNTER" v89 ,9 ;"0 1 2 3 4 5":x=(t+1)*16 {4,6,12 ,14:4475{:z=14:z1:568+z1/2,95_-z1/2:111o-z1,0:0,z1-23:z1-111o,0:0,23-z1:z @3:z=1x:63?+z,87W:0,-7:z P4:z=1820:z,0;" ":z $""  4780 J7:17,10 ;"":2:17,21;""  4810 i=16 317,10 -i;"";17,10 -i;" " i  4820 !i=12*t+(t=0) ?7:17,9 +i;" ";17,i+10 ;""  4850  i t<54760  i=2125 *62:17,i;" ";17,i+1;"" 4 4850 >i Hi=1719 R62:i,26;" ";i+1,26;"" \ 4850 fi p t=0 z8,2,2,4,5,2,8,7,2,7,2,7,6,9 ,2,11 ,4,9 ,12 ,14,6,11 ,2,9 ,4,11 ,8,4,4,4,20,2,4,11 ,4,7,4,11 ,12 ,11 ,4,9 ,4,4,4,9 ,12 ,9 ,4,7,4,4,4,7,8,7,4,7,20,4 z=130 x:y:x/19,y:z '502:0:7:7: : j=130 j  ^0:0,36$:75K,0:0,1:-75K,0:100d: U0:32 ,36$:47/,0:32 ,37%:47/,0: i:z  j=115 j  0:7 (*6)+1: $ .m=xc*8-9 :m,176-8*(yc-1):255-2*m,0:0,-16-8*yc1:2*m-255,0:0,16+8*yc1 8Vz=yc-1yc+yc1:z,xc-1;1;pc;j$(32 -(m+1)/4):z B U3,24,158,15,-11 ,-8,24,-13 ,-24 3,43+,147,0,24,11 ,-13 ,-11 ,-11 ,1,480,151,6,-4 x5,78N,154,-10 ,-6,-10 ,10 ,12 ,14,8,-14,-20,0 U3,84T,158,15,-11 ,-8,24,-13 ,-24 2,103g,147,11 ,7,-7,14,2,109m,152,-7,14,11 ,7 6,128,148,0,23,9 ,0,0,-12 ,-6,0,0,-11 ,-3,0,4,131,162,0,6,3,0,0,-6,-3,0 12 ,142,148,0,23,10 ,0,0,-4,-7,0,0,-6,2,0,0,-2,-2,0,0,-7,7,0,0,-4,-10 ,0 9 ,156,148,0,23,9 ,0,0,-12 ,-6,0,7,-11 ,-3,0,-4,7,0,-7,-3,0,4,159,162,0,6,3,0,0,-6,-3,0 a4,170,148,0,23,4,0,0,-23,-4,0 12 ,178,148,0,23,4,0,5,-7,5,7,4,0,0,-23,-4,0,0,17,-5,-7,-5,7,0,-17,-4,0 12 ,200,148,0,23,10 ,0,0,-4,-7,0,0,-6,2,0,0,-2,-2,0,0,-7,7,0,0,-4,-10 ,0 8,218,148,0,19,-4,0,0,4,12 ,0,0,-4,-4,0,0,-19,-4,0 12 ,230,148,0,23,10 ,0,0,-4,-7,0,0,-6,2,0,0,-2,-2,0,0,-7,7,0,0,-4,-10 ,0 9 ,244,148,0,23,9 ,0,0,-12 ,-6,0,7,-11 ,-3,0,-4,7,0,-7,-3,0,4,247,162,0,6,3,0,0,-6,-3,0 12 ,257,148,0,4,8,0,0,5,-8,0,0,14,12 ,0,0,-4,-8,0,0,-5,8,0,0,-14,-12 ,0,0 0:yc=1+3.03125B*start:xc=1:p=4:yc1=2:0:lbox:103g,175-24*start:0,-32 "0:5000:xc=16 zno:nonx,ny:nx-xc+2-5*(nx>119w),ny-1-24*start:z=1no:nx,ny:nx,ny:z:5110  Pz=521 Z&z,0;4;0;j$:z: _yc=yc+end+10 :xc=6:yc1=1:p=3:lbox:yc,xc;"Instructions? y or n": @LIBRARY ROUTINES Ezx=9901& |lbox=8070:8091 mc=8*xc-9 +(xc=1):mc,176-8*(yc-1)-(yc=1):255-2*mc,0:0,-16-8*yc1:2*mc-255,0:0,16+8*yc1 _z=yc-1yc+yc1:z,xc-1;1;8;p;j$(32 -2*(xc-1)):z  lnm=8110:8901" ~err=15*(n$>15):z=1(n$err):n$(z)<"A"n$(z)>"z"(n$(z)>"Z"n$(z)<"a")err=1:z=n$:8130 =z=1n$(z)>"Z"n$(1)=((n$(1))-32 ) z  &~p(p=(pp)=(p0+14+2*(p))+256*(p0+15+2*(p)):p0=1+23730\+256*23731\: &"":20 &."file"9899&:"usr"p0,65536-p0: ' "":"" tar&bonXn# pc' NPookrcMkpprouvthw kxI2' PERIMETER  CIRCUMFERENCE  A4 THE CIRCUMFERENCE  OF A CIRCLE = 2 x x RADIUSQ apusr X"*<~~~~~|||||<80>8|||8|`````p??0033 3300??É~~~~~~ equations Nt  "EQUATIONS" ^EQUATIONS  U N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QyxA EQUATIONS:logo @  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file c-&,e-Kn$()=n$(z1):n(i$)F)=(n$(z-(z-1))i$)z1:j$(32 ) start=9 :9 start=0:6 8000@ +date=0:intro=0:j$(32 ) $start6:1:6:  7000X 2/8:pc=6:5:1:lframe  A.Cowley Sept.1982  1040 "gr""a":"sc" 723624H\,546:6:1750:1060$ 1740:1 $ b(3) .!u=0:t=0:v=0 B=""1090B La$= V-i=(*4)+4:i:i:1:pc=i ` h=0 j1i=13:b(i)=(*8)+2:i ty=(*9 )+1 ~a$="y"1800 a$=(13 )1170 a$="y"a$="":1110V a$"n"a$"y"1090B Alframe:1,0;" FIND THE VALUE OF y WHEN:- " #2080 :c=01110V .20,0;" NEED HELP?  ENTER h" 010 ,0;" ENTER   your answer" F-q$:q$="h"lframe:1950:1170 Pq$>9 1350F Z&12 ,1;"Your answer: ";q$ dq$=y1460 n:14,0;" Bad luck, correct answer is: ";y xCt=t-1:v=v+1:.5,-10 :1.5@,-20 Kb(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y y=?" 5"Your answer (wrong) ";q$:"Correct answer is: ";y (:"________________________________": 920,0;" Press  ENTER and check with me" 6q$:0:lframe:1950:lframe:1490 +14,1;1;" WELL DONE !" u=u+1:t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 o17,1;0;"So far, you have ";u;" correct";18,1;14;"and ";v;" incorrect" .20,0;" More?  y or n " ""1510 =""1520 q$=  2130R q$="n"q$="N"1570"  1110V "30:23624H\,63?:7:7: ,&"" 6T17,0;"" @i=116 J%i,0;"";i,31;"":i T.2,9 ;" CERTIFICATE " ^W5,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) hW7,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) r@9 ,2;" PROGRAM:  ""SIMPLE EQUATIONS""" |!11 ,5;"CORRECT: ";u #13 ,3;"INCORRECT: ";v u+v=01710 ;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0  yc=20:xc=7:yc1=1:pc=4:8:1:lbox:yc,xc;"Another go? (y/n) ":0:q$=:q$="y"q$="Y"1730 q$="n"q$="N"  1720 `pc=1:6:lbox:yc,xc;"Same Person? (y/n)":0:b$=:b$="N"b$="n"502 )b$="y"b$="Y"1785:1060$  1730 ̄yc=4:xc=3:yc1=3:pc=1:7:lbox:len=15:yc,xc;"ENTER your name, please":yc=yc+2:lnm yc=11 :xc=3+date*(11 -(2+z1/2)):yc1=2-date:pc=2:lbox:yc,xc;"Hello ";" "(z1=2*(z1/2));n$();"!":dateyc+1,xc;"Now ENTER today's date." datem$:m$:: &xc=3:yc=17:yc1=1 Lpc=0:lbox:xc=3:yc,xc;" Instructions? y/n":date=1  0: 1lframe:1,8;"SIMPLE EQUATIONS" Z10 ,0;" This is an example of a simple equation. " *intro=3:2080 :intro=0 &c=01110V 0+ 20,1;" Press  ENTER " :q$ Delframe:0,83S:255,0:1,1;"In order to find y when":2080  Ni6,1;"we want all the unknown y";7,1;"terms on one side of the ""=""" X8,1;"sign...";9 ,1;" ...and all the known";10 ,1;"numbers on the other side." b512 ,1;" REMEMBER THIS SIMPLE RULE:" l}14,1;"A term can be moved from one";15,1;"side of the equation to the";16,1;"other," ve17,1;"PROVIDING the  SIGN  in front";18,1;"of it is  ALTERED. " ( 20,1;"Press  ENTER "  q$:lframe 21,1;" LET'S APPLY THAT RULE:- "  2080  c=01110V a5,1;"Move ";b(3);"y from the right to the";6,1;"left hand side" .7,1;" and change the SIGN " ^9 ,1;"giving us: ";b(1);"y ";c$;" ";c;" + ";b(3);"y = ";b(2) c11 ,1;"NOW move ";c;" from the left to";12 ,1;"the right hand side:" /13 ,1;" and change the SIGN " 15,1;"giving us: ";b(1);"y + ";b(3);"y = ";b(2);" ";(c$+2*(c0)-2*(c<0));" ";c v17,12 ;"so";17,17-(b(1)+b(3)>9 );b(1)+b(3);"y = ";b(2)-c '19,10 ;"Answer: y = ";y 5#0;1,0;" Press  ENTER ";  *a$="y"#0;" to start":2062  (13 )2061     (c=b(2)-y*(b(1)+b(3)) * c=0 4$c$=(43++2*(c<0)) >n3+intro,3+5/3*intro;b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y" H R<0:6:23624H\,546:6:1: \80,1;" DON'T LET THE CATERPILLAR DIE " f-4,4;"FIVE CORRECT ANSWERS WIN" p!15,27;"FOOD" zt<0t=0  x=14 z=05.50.5 y=1+z*4  2660d z>4.52780 z=tt52740 &y=y-1:z=5.502450  2720  y=y+1 x+1,y;" "  2710  y=y+1 x+1,y;" "  2700  x,y;" "  y=y+1 $ 2690 .w=12 8$4:x,y;" ";x+1,y;"" B y=y+1 L 2690 Vw `$4:x+1,y+1;" " j"x,y+1;"";:0:"" t 6-t ~ x,y;" " z t=0 15,31;" " 5 &4:14,25;"" .15,23;" ";:0:"" 502 ?14,25;" " x=13 :2640P 4,4,2,4,2,11 ,2,9 ,2,11 ,3,6,1,7,2,6,6,4 4,11 ,2,14,4,16,2,14,2,11 ,2,13 ,2,9 ,4,11 2,16,4,16,2,14,4,11 ,2,9 ,3,11 ,1,9 ,2,7,4,6 2,2,4,4,2,11 ,4,9 ,2,7,2,6,2,4,2,2,6,4 2530 +w=135#:x:y:x/10 ,y:w x=12 1-1 ( 2640P 2x+4,25;" ":x <>100d:7:23624H\,63?:7:0: F P0:x,26;"":1:x+1,25;"":5:3:x+2,25;"";:0:"";:5:6:"":2:x+3,25;"" Z d!4:x+1,y;""; n0:"" x 4:x+1,y;"" 4:x,y;"" 4:x,y+1;"" #4:x+1,y+1;""  20 !0:x+1,y;"" 502 57:23624H\,63?:7:0:: w=17 #0:x+1,y+6;"" #3:x+1,y+6;"" w  w2:6:6::128,88X:30,30:30,-30,-:-30,-30,-:128,88X:30,-30:-30,-30,-:-30,30,-:128,88X:-30,-30:-30,30,-:30,30,-:128,88X:-30,30:30,30,-:30,-30,-: X.23675{\,216:23676|\,254 bSz=9 21+start:z-start,0;"":z lOstart#0;0,0;6;"" I10 -start,19;"";11 -start,8;"" ,12 -start,8;"" ,13 -start,8;"" +14-start,8;"" 15-start,16;"" 16-start,16;"" 417-start,4;"" 418-start,4;""  419-start,4;"" 420-start,4;""  l21-start,9 ;"":start#0;0,0;6;"" 4 200 L/23675{\,88X:23676|\,255: @LIBRARY ROUTINES Azx=9901& |0lbox=8070:lframe=8065:8091 Qlframe=0:yc=1:xc=1:yc1=20:pc::8:8080 Wz=yc-1yc+yc1:z,xc-1;޼lframe;pc;j$(32 -2*(xc-1)):z mc=(8*xc-9 )(xc>1):mc,176-8*(yc-1)-(yc=1):255-2*mc,0:0,(lframe)-16-8*yc1:2*mc-255,0:0,16+8*yc1-(lframe) lframe=8065: lnm=8110:8141 n$="":n$(len):z=1 &z1=(n(".")ƨn(" ")ƨn("-")):yc,xc+z-1;1;"L"z1;"C"z1:0:i$=:((i$>"z")(i$<"A")((i$>"Z")(i$<"a")))((i$=" "ƨn("-")ƨn(" "))((i$=".")ƨn(".")ƨn("-")ƨn(" "))((i$="-")ƨn(i$)ƨn(".")ƨn(" "))((i$=12 )(i$=13 ))(z>i$-11 ))8115 i$>13 n$(z)=(i$-32 *(z1i$>"Z")):yc,xc+z-1;n$(z):.1}L,24:z=z+1:z^~/F?8|b?|z8~~<x0<~goooooo~<