FORMULAE f ah "FORMULAE" (1:1:7:56999  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x0A$="PHYSICS":L=9 :C=4:9180# 0:1 140 &N=5700057023:B:N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 621,0;" " 57000 :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #("DOUBLE HEIGHT" #<&n=5705057129):b:n,b:n #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201 #"DOUBLE WIDTH" #&n=57150>57241:b:n,b:n #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ț16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201 # #$23729\,9 :n=1̱a$ #23728\,c # l,c;a$(n) #57150> #357050:23728\,c+1:57050 #c=c+2:n $ (bGIZ PAPHYSICSFormulae x6 4Vz6!1:57012:80P "Formulae" D 1984 MERCURIAN PULP PRODUCTS/CONTRACT BOOKS DA$=" FORMULAE ":7:1:23729\,13 :C=4 (?N=1̱A$:13 ,C;A$(N):23728\,C:57150> 2C57050:23728\,C+1:57050:C=C+2:N 250:8,0;" You know A,V and T. Find V." 6~150:.5,2:10 ,7;"A = V - V";11 ,17;"T":112p,87W:568,0 @V150:.5,4:13 ,0;" Multiply both sides by T " Jb100d:10 ,9 ;"* T";10 ,21;"* T":.5,7:100d TT10 ,11 ;"T";10 ,23;"T":.5,0:100d ^:15,0;" Cancel the T's on the right. " h_100d:11 ,17;"T";10 ,23;"T":.5,7:100d rN11 ,17;" ";10 ,21;" ":.5,7:100d |W150:.5,4:17,0;" Add V to both sides. " e100d:10 ,3;"V +";10 ,21;" + V":.5,7:100d Z10 ,3;"V +";10 ,21;" + V":.5,7:100d W150:.5,4:19,0;" - V + V is nothing. Cancel. " B10 ,17;"- V + V":.5,10 :100d =10 ,17;" ":.5,0:100d W21,0;" New equation V = V + A * T ":.5,5:100d 5300:E1000 &N=521:N,0;Z$:N 95,0;" 3: GAS PRESSURE,TEMP. & VOLUME " 07,2;"Find T. You know the rest." 9 ,6;"P*V = P*V";10 ,8;"";10 ,22;"T":480,95_:40(,0:160,95_:40(,0 W150:.5,4:13 ,0;" Multiply both sides by T & T " b100d:9 ,1;"T *";9 ,16;"T *":.5,7:100d W9 ,1;"T *";9 ,16;"T *":.5,2:100d c100d:9 ,11 ;"* T";9 ,26;"* T":.5,7:100d  X9 ,11 ;"* T";9 ,26;"* T":.5,2:100d X15,0;"Cancel T's -left & T's -right.":.5,10 :100d U9 ,1;"T *";10 ,8;"T":.5,7:100d !M9 ,1;" ";10 ,8;" ":.5,2:100d &W9 ,26;"* T";10 ,22;"T":.5,7:100d +O9 ,26;" ";10 ,22;" ":.5,2:100d 0X17,0;" Divide both sides by (P*V). ":.5,10 :100d :O10 ,6;"P*V P*V":.5,12 :100d ?N10 ,6;"P*V P*V":.5,4:100d DX19,0;" Cancel (P*V)'s on the left. ":.5,10 :100d NY9 ,6;"P*V";10 ,6;"P*V":.5,9 :100d SR9 ,6;" ";10 ,6;" ":.5,0:100d X921,0;" Now :- T= (P*V*T)/(P*V)." bW#1;1,0;" Last example  any key to go on ":1,0 l0:" ": v|#1;0,0;" Do you want any of those again? Press  Y  or  N  ":.5,5 -23658j\,8:a$=:a$=""640 " ":a$="N" a$"Y"630v #1;0,0;" Which one? Press  1  Density  2  Acceleration  3  Gas P,V&T ":.5,0 a$=:a$=""680 a$<"1"a$>"3"680 " ":a$="1"140 a$="2"280 a$="3"460  670  E1:57012:21,8;" END OF PROGRAM ": 1:1:0: <2;Z$;Z$;Z$;1,8;" PROGRAM OPTIONS " [4,3;"  FORMULAE ";6,3;" WAVES  1 " l8,3;"  MOTION  2 ";10 ,3;" HEAT CAPACITY  3 " m12 ,3;"  DENSITY & PRESSURE  4 ";14,3;" AREA  5 " q16,3;"  VOLUME  6 ";18,3;FB;" SOLVING EQUATIONS  7 "  FB=0 $820,3;" END OF PROGRAM  8 " .Z#1;1,0;" Press  a number  to select. ":.5,0 8a$=:a$=""10808 B" ":a$="8"800  La$="7"140 Va$<"1"a$>"6"1070. `r=2000+200*a$ e r:p$,n jG7:0::1,4;" FORMULA SELECTION " tW3,1;" FIELD : ";3,10 ;8;P$ ~t=1n:R+20*T:p$:4+2*T,3;" ";T;"  ";Z$(22);" ";4+2*T,7;8;P$ ET:4+t*2,3;" 0  Return to main options." [#1;1,0;" Press  a number  to select. ":.5,10 a$=:a$=""1180 " ":a$="0"1000 a$<"1"a$>"9"1170 a$>n1170 ft=a$ &n=621:n,0;z$:n r+20*ft:p$,n Q5,1;" Type: ";z$(21);" ";5,7;8;p$ yt=1n:p$:6+2*T,3;" ";T;"  ";Z$(22);" ";6+2*T,7;8;P$ ET:6+t*2,3;" 0  Return to main options." [#1;1,0;" Press  a number  to select. ":.5,10 a$=:a$=""1280  " ":a$="0"1000 a$<"1"a$>"9"1270 a$>n1270 (RTC=A$:6+2*TC,2;">";6+2*TC,30;"<" -""1325- 2Z#1;1,0;"  Press  any key  to go on ":.5,0 "z"1600@ 5k=123:w$(n)c$(k,1)1485 Si$=c$(k,3):K=22:t=201-1:i$(t)" "1490 t K  i$=i$(t) N=W$1510 :w$(n+1)=""w$(n+1)=""i$=i$+w$(n+1) [0,0;(" Value of ";i$;"?";z$(21-i$);" ENTER numbers .");a$ a$=""1510 Ot=1̱a$:(a$(t)<"0"a$(t)>"9")a$(t)"."1,-20:1510  t:e$=e$+a$ f=1e$=e$+"^(1/3)" @+11 ,6;e$:.5,0:n J;k=123:P$(1)c$(k,1)1630^ TSi$=c$(k,3):K=22:t=201-1:i$(t)" "1640h Yt ^K h i$=i$(t) r4p$(2)=""p$(2)=""i$=i$+p$(2) |)13 ,1;6;I$;" = ";E$ #1;0,0;" Another calculation like this? Press  Y  or  N  ":.5,15 .23658j\,8:a$=:a$=""1680 a$="Y"1340< a$"N"1670 ""1705 #1;0,0;" Another form of this equation? Press  Y  or  N  ":.5,10 .23658j\,8:a$=:a$=""1720 a$="Y"1225 a$"N"1710 ""1745 #1;0,0;" Another one from this field? Press  Y  or  N  ":.5,15 .23658j\,8:a$=:a$=""1760 a$="Y"1125e a$"N"1750  1000 "WAVES",3 "Velocity",3 "v=f*","=v/f","f=v/"  "Wavelength,Open Pipe",2 "=2*l","l=/2" ""Wavelength,Closed Pipe",2 "=(4*l)/3","l=(3*)/4" `"MOTION",6 t"Force",3 ~"F=M*A","M=F/A","A=F/M" "Momentum",3 "m=M*v","M=m/v","v=M/m" "Velocity",3 "v=k/t","k=v*t","t=k/v" "Acceleration",4 9"A=(v-v)/t","t=(v-v)/A","v=v-(A*t)","v=v+(A*t)" #"Free fall under Gravity",3 ,"g=(2*h)/t^2","h=(g*t^2)/2","t=((2*h)/g)" "Pendulum times",3 4"t=2**(l/g)","l=g*(t/(2*))^2","g=l/(t/(2*))^2" ("HEAT CAPACITY",2 <""Specific Heat Capacity",4 FE"C=E/(M*(T-T))","E=C*M*(T-T)","M=E/(C*(T-T))","T=T+E/(C*M)" P "Latent Heat Capacity",3 Z"L=E/M","E=L*M","M=E/L" "DENSITY & PRESSURE",4 !"Density,Mass & Volume",3 "D=M/V","M=D*V","V=M/D" "Pressure & Area",3 ""P=F/a","F=P*a","a=F/P" ,"Height & Pressure",3 6#"P=h*D*g","h=P/(D*g)","D=P/(h*g)" @%"Gas Pressure,Temp. & Vol.",3 JI"T=(P*V*T)/(P*V)","P=(P*V*T)/(T*V)","V=(P*V*T)/(T*P)" "AREA",5 "Area of Square",2 "a=l^2","l=a" !"Area of Parallelogram",3 "a=l*h","l=a/h","h=a/l" "Area of Triangle",3 %"a=(l*h)/2","l=(2*a)/h","h=(2*a)/l" "Area of Circle",2 "a=*r^2","r=(a/)" ""Surface Area of Sphere",2 &"a=4**r^3","r=(a/(4*))" "VOLUME",4 "Volume of Cube",2 "V=l^3","l=V" "Volume of Block",4 /"V=l*d*h","l=V/(d*h)","h=V/(l*d)","d=V/(l*h)" "Volume of Sphere",2 $"V=(4/3)**r^3","r=((3*V)/(4*))" "Volume of Cylinder",3 *"V=*r^2*h","h=V/(*r^2)","r=(V/(*h))" f=1:w$"V"f=2    5000 <N=15:G$:R=07:B:G$+R,B:R:N N"A",480,24,8,12 ,28,524,100d,198 "B",0,0,16,480,16,16,16,568,"C",0,0,480,72H,8,480,64@,120x "d",7,4,4,4,4,36$,20,12 ,"e",195,34",98b,34",194,18,10 ,6 5c$(23,22):n=123:c$(n):n @"a AREA","d DEPTH","h HEIGHT","l LENGTH","V VOLUME","r RADIUS" W"M MASS","D DENSITY","W WEIGHT","g GRAVITY","T TEMPERATURE","P PRESSURE","v VELOCITY"  B"A ACCELERATION","t TIME"," WAVELENGTH","f FREQUENCY","F FORCE" D"L LATENT HEAT CAPACITY","C HEAT CAPACITY","E ENERGY","m MOMENTUM" "k DISTANCE" F Pa$=""q=1: Z/z=1̱a$:a$(z)<"0"a$(z)>"9"f=1 da$(a)="."f=0 nz: _#1;1,0;"   A  for Another  E  to End ":.5,12 .23658j\,8:A$=:A$=""5310 " ":e=0:a$="A" a$="E"e=1:  5300 #(M(23730\+256*23731\)-(23653e\+256*23654f\) A FORMULAE c# bGea AREA d DEPTH h HEIGHT l LENGTH V VOLUME r RADIUS M MASS D DENSITY W WEIGHT g GRAVITY T TEMPERATURE P PRESSURE v VELOCITY A ACCELERATION t TIME WAVELENGTH f FREQUENCY F FORCE L LATENT HEAT CAPACITYC HEAT CAPACITY E ENERGY m MOMENTUM k DISTANCE *