MACHINE e g "MACHINE" (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 PAPHYSICSMachine W UWZ=57012:90Z "Machine" D 1984 MERCURIAN PULP PRODUCTS/CONTRACT BOOKS -A$=" MACHINE ":7:1:C=4 ([23729\,13 :N=19 :23728\,C:13 ,C;A$(N):Z=57150> 2GZ=57050:23728\,C+1:Z=57050:C=C+2:N :42*,42*:102f,108l:30,0 hXX=36$:C=1522:T=13:F=1+(C/2=(C/2)) rJ6+T,C;F$(F,T):T:102f,108l:C*8-40(,0 uQ=14:1:X,X:-8,8:0:X+20,X+20:-8,8:X=X+1:Q .4L,-6*F:C }X=88X:L=618:L,29;" ";L+1,29;"";L+2,29;"";L+3,29;"" uQ=13:1:X,X:-8,8:0:X-20,X-20:-8,8:X=X-1:Q +.003xD,10 :L:.5,40( /N=021:N,0;1;Z$:N >Z=57012:21,8;" END OF PROGRAM ":  U4:4:0::L=210-1:7;L,0;Z$:L -7::1,12 ;" LEVERS " 8X=-66:127,16:X,-10 :X '87W,26:80P,-20 20,20;"" 7C=08:N=1+(C/2=(C/2)) $JT=13:17+T,C;M$(N,T):T:.1}L,10 :10 .-T=13:17+T,C;" ":T:C 8wL=1714-1:T=13:L+T,9 +(L<14);M$(N,T):T:.03{u\,(22-L)*3 B9T=13:L+T,9 +(L<14);" ":T:L GE1:87W,26:40(,-10 :-40(,-10 L=0:T=13:17+T,10 ;M$(N,T):T Vq20,20;" ":1:127,16:40(,-10 :127,16:40(,10 `,0:X=1:L=17:C=20 e S$="" j]N=127:L,C;S$:L1=L:C1=C:L=L-X:L=13 L=8L=9 C=C-1 tVL=6C>13 L=L+1:C=C-1:S$="":C=14S$="" ~/L=6C=13 X=-1:S$="" L1,C1;" ":N >L=1720:L-1,10 ;" ";L,10 ;S$ .1}L,-2*L:L 9502:L=021:L,0;4;Z$:L B502:L=210-1:7;L,0;Z$:L BL=021:L,0;6;Z$(17);"":L z7,18;"";14,18;"";21,18;"" R8;1,1;"MOMENT of FORCE=";2,1;"FORCE * DISTANCE" Ζ0,21;"Type 1":148,144:100d,0:197,138:3,6:3,-6:-6,0 ؔ5,24;"F":.5,0:502:244,158:0,-12 :-3,6:3,-6:3,6 /1,30;"E":.5,5 g502:156,158:0,-12 :-3,6:3,-6:3,6 .1,19;"L":.5,10 <502:2,20;"<-Y->":.5,10  ;502:2,25;"<-X->":.5,5 T8;4,1;"Load Effort";5,4;"Fulcrum" 7,1;8;"If L*Y=E*X then";9 ,1;"the MOMENTS are";11 ,1;"equal. This is";13 ,1;"EQUILIBRIUM." 200:8,26;"Type 2":148,88X:100d,0:245,82R:3,6:3,-6:-6,0 (12 ,30;"F":.5,0:502:156,102f:0,-12 :-3,6:3,-6:3,6 2-8,19;"L":.5,5 ":.5,10 ZA502:9 ,20;"<----Y---->":.5,5 ds8;15,1;"This applies to";17,1;"every type of";19,1;"turning force." n200:15,18;"Type 3":148,24:100d,0:245,18:3,6:3,-6:-6,0 x20,30;"F":.5,0:502:196,38&:0,-12 :-3,6:3,-6:3,6 .16,24;"L":.5,5 f502:156,12 :0,12 :-3,-6:3,6:3,-6 /20,19;"E":.5,10 A502:19,20;"<---X--->":.5,10 <502:17,25;"<-Y->":.5,5  5200P :L=021:L,0;6;Z$(17):L p1,1;8;"Movement can be";3,1;"CLOCKWISE or";5,1;"ANTI-CLOCKWISE." Q8,1;8;"Which way will";10 ,1;"this lever move?" 2x=(*20)+2:y=(*20)+2 2l=(*20)+2:e=(*20)+2 &T=2:(X-Y)<3T=1 X-Y>3T=3 r$="B":l*y>e*xr$="A" l*y"C"1540 ,{a$=r$#1;1,0;"Correct -  A  Another  E  to End":.1}L,0:1600@ 6f#1;1,0;" Wrong -  A  Another  E  to End ":.1}L,-10 @""1600@ E.23658j\,8:a$=:A$=""1605E JA$="A"1500 TA$"E"1605E ^5:7: h,1,5;" THE LEVER AT WORK " r"Y=3:X=6:1900l |3,3;"If the weight W":25:n=110 :16,21;"W":.05|L,10 :16,21;"W":.05|L,20:n w502:3,19;"is heavy";4,3;"enough,":502:4,11 ;"then the stone S" 25:n=110 :19,30;"S":.05|L,-10 :19,30;"S":.05|L,-20:n u502:5,3;"will travel through the air":502:6,3;"to land on the Castle C." y25:n=110 :16,4;"C":.05|L,0:16,4;"C":.05|L,5:n 98,2;"Changing the lengths X and Y" 25:n=110 :19,22;"Y";19,28;"X":.05|L,10 :19,22;"Y";19,28;"X":.05|L,-5:n ˜502:9 ,2;"will alter the Moments of";10 ,2;"Force, and also the angle at";11 ,2;"which the stone is thrown." #w=14:s=2:1960 /5200P:g=1:1980:5200P wg=0:#1;0,0;" Would you like to have a shot? Press  T  to try  O  new Option" .5,10 .23658j\,8:a$=:a$=""1780  a$="O" a$"T"1770  S=0 x=6:y=3::1900l:16,21;"W";19,30;"S";19,22;"Y";19,28;"X" z4,171:480,0:0,-480:-480,0:0,480:1,1;"DATA" AS188,171:64@,0:0,-480:-64@,0:0,480:1,24;"LAST GO";2,25;" S=";S;Z$(1+(S<10 ));"";3,25;" X=";X;" ";4,25;" W=";W;Z$(1+(W<10 ));"";5,25;" Y=";Y;" " b.5,0:0,0;" MASS OF STONE?(1 to 10)";a$:5300:f1820 !)s=a$:s<1s>10 1820 &<2,1;"S=";s;Z$(1+(S<10 ));"" +_.5,7:0,0;" DISTANCE X ?(3 to 6)";a$:5300:f1835+ 0(X=a$:X<3X>61835+ 5"3,1;"X=";X;" " :e.5,10 :0,0;" MASS OF WEIGHT?(1 to 20)";a$:5300:f1850: ?)W=a$:W<1W>201850: D<4,1;"W=";W;Z$(1+(W<10 ));"" I`.5,12 :0,0;" DISTANCE Y ?(3 to 6)";a$:5300:f1865I N(Y=a$:Y<3Y>61865I S"5,1;"Y=";Y;" " X3N=1421:N,16;Z$(16):N b$1900l:1960:5200P g1980:E k 1800 lm17,2;"";18,2;"";19,2;"";20,2;" " qM200,24:-6,-16:12 ,0:-6,16 vBXA=8*X+8*Y:Y1=(X+Y)*16/X:y2=(X+Y)*16/y {:X1=(XA^2-Y1^2):X2=(XA^2-Y2^2) |8X1=X1+(8X1=0):X2=X2+(8X2=0) %200+8*X,8:-X1,Y1 H20,24+X;"";20-Y1/8,24-Y*.73333;""  ,ew=(w*y)-(s*x):m=ew*(2+y*2/x) ZEW<0#1;0,0;" THE STONE OUTWEIGHS THE BALLAST":2080  0v=m/s:i=v*2/y:j=(v^2-i^2) Msl=(x+y)*2/y:sc=24-y+(((x+y)^2-sl^2))+.5: ySL=21-SL:1:1915{:0:200-8*y,8:x2,y2:sl,sc;"":20,24-y;"" !.05|L,-10 :sl,sc;" " 4N=130:SC=SC-1:SL=SL-J/8 !SL<05:2045 $SC<0SL>202060  N>1CX,CY  SL,SC;"" CSL>16.9333SL<20.1 SC>1.9s333SC<6.1C3332070 9CX=SC*8+4:CY=(21-SL)*8+4 2B=-(SL*2-20):B>502B=502  SL,SC;" "  .01z# =,B J=J-3:N  c#1;0,0;"  MISSED. LIKE TO TRY AGAIN? ":1,-10 :2080  g V#1;0,0;" GOOD SHOT! LIKE ANOTHER GO? ":1,10  J#1;1,0;" Press  T  Try again -  E  End " *.23658j\,8:a$=:a$=""2090* 4E=0:a$="T" >a$"E"2080  H E=1: &0:6:6:0: CN=210-1:N,0;7;Z$:N:7: 3,4;"";4,4;"";5,4;"";6,4;"";3,19;"";4,19;"";15,4;"";16,4;"" 40(,568:-6,68D:47/,124|:0,-72H:33!,524:0,92\:42*,151:120x,0 E167,143:0,-107k:163,40(,4 <18,4;"":40(,32 :0,8 "1,9 ;" PULLEYS " BC=3021-1:N=3+(C/2=(C/2)) JT=13:15+T,C;M$(N,T):T:.1}L,10 :10 -T=13:15+T,C;" ":T:C MX=31:C=184-1:N=1+(C/2=(C/2)) T=13:15+T,C;M$(N,T):T:C*8+12 ,35#:12 -(3C=18),0:.1}L,10 :10 iT=13:1:32 ,X-7:15,0:0:32 ,X:15,0 w1:32 ,X+14:5,-5:2,0:41),X+9 :1,0:5,5 b0:32 ,X+20:5,5:5,0:5,-5:X=X+1:T $C=423608 .-T=13:15+T,C;" ":T:C 8{502:.2~L,40(:1:40(,84T:0,-8:0:40(,84T:4,-4, =;L=12 19:L,4;"":.02{# =,-20 BL=192390V LL,4;" ":L V9502:N=021:N,0;6;Z$:N `@5200P:7::0,8;" PULLEY SYSTEMS " j 3200 tm2,2;" VELOCITY RATIO ";4,3;"Effort Distance";5,4;"Load Distance" ~q10 ,136:6,0:10 ,133:6,0:24,135:112p,0 J.5,0:150:9 ,0;"MECHANICAL ADVANTAGE" 511 ,6;"Load";12 ,5;"Effort" m30,80P:6,0:30,77M:6,0:40(,79O:480,0 Ė.5,5:150:17,3;" EFFICIENCY ";19,2;" M.A.  *100 =...% ";20,2;" V.R.  1 " ΐ6,17:6,0:6,14:6,0:16,16:480,0:80P,16:24,0 ]#1;1,0;"  E  Exercises  O  new Option ":.5,10 .23658j\,8:a$=:a$=""2530 " ":a$="E"2600( a$="O" 2520 (+:0,8;" PULLEY SYSTEMS " 20P=(*4)+2:2800 +100d*P <%L=((*100d)+1)*10 FE=((*40()+502) P8M=(P*E/100d):M=(M*10 )/10 :EF=(L/M) UE=((M/P)*100d+.5) ZY=16383S-16:4,Y:136,0:Y:4,163:0,-80P:140,163:0,-80P dO2,2;" LOAD  = ";L;4,2;"EFFORT = ";EF; no6,2;" V.R.  =";8,2;" M.A.  =";10 ,2;"EFFICIENCY=" x.6,14;"?":.5,10 V0,0;" ENTER the Velocity Ratio:";a$:5300:f2680x `a$p6,14;1;P:1,-10 :12 ,1;" ";P;" ROPES " 16,14;6;p:.5,10 -8,14;"?":.5,6 {0,0;" ENTER the Mechanical Advantage. Answer to 1 decimal place:";a$:5300:f2720 v(a$-m)>.15~8,14;1;m:1,-10 :14,0;"L/E=";L;"/";EF;"=";M;" " 18,14;5;m:.5,10 .10 ,14;"?":.5,2 r0,0;" ENTER the Efficiency. Answer as whole percentage:";a$:5300:f2760 (a$-e)>310 ,14;1;E:1,-10 :16,0;1;7;"Ef=M.A./V.R.*100";17,0;z$(16);17,1;M;"/";P;"*100 =";E;"%" ;10 ,14;1;7;E:.5,10 \#1;0,0;"  A  for Another  E  to End ":.5,0 .23658j\,8:a$=:a$=""2800 " ":a$="A"2600(  a$="E"  2790  3400H T-20,0,-:20,0,-:-20,0,-:10 ,88X ]223,155:2,0:0,-25:-2,0:0,25 223,557:2,0:0,-20:-2,0:0,20:224,35#:0,-4 3500   3400H 0S-20,0,-:20,0,-:-20,0,-:2,76L :T16,0,-:-16,0,-:16,0,-:-8,-66B D]223,155:2,0:0,-40(:-2,0:0,40( N223,557:2,0:0,-20:-2,0:0,20:224,35#:0,-4 X 3500 v 3400H S-20,0,-:20,0,-:-20,0,-:2,76L T16,0,-:-16,0,-:16,0,-:-2,-58: S-12 ,0,-:12 ,0,-:-12 ,0,-:6,524 ]223,155:2,0:0,-40(:-2,0:0,40( 223,65A:2,0:0,-30:-2,0:0,30:224,35#:0,-4 3500  3400H S-20,0,-:20,0,-:-20,0,-:2,76L T16,0,-:-16,0,-:16,0,-:-2,-58: S-12 ,0,-:12 ,0,-:-12 ,0,-:2,45- Q8,0,-:-8,0,-:8,0,-:-4,-40( ]223,155:2,0:0,-46.:-2,0:0,46. *223,72H:2,0:0,-37%:-2,0:0,37%:224,35#:0,-4 43500 : Hm176,72H:0,72H:16,0,-:-16,0,-:8,8,-/2 Ro40(,0:0,-20,-:0,20,-:10 ,-10 ,-/2:0,-96` \ S18,26;" ";19,26;"LOAD";20,26;" " #12 ,19;"EFFORT":  I5000:N=121:G$:R=07:B:G$+R,B:R:N 1"A",3,7,7,7,7,3,3,7,"B",192,224,160,240,224,192,128,192,"C",7,7,7,5,5,6,7,7,"D",224,224,160,252,252,252,224,224 6"E",7,15,30,60<,120x,112p,60<,28,"F",224,224,224,224,224,224,248,248,"G",7,7,7,7,7,7,7,7,"H",240,120x,568,24,24,30,222,192 4"I",3,7,6,15,7,3,1,3,"J",192,224,224,224,224,192,192,224,"K",7,7,5,63?,63?,63?,7,7,"L",224,224,224,160,160,96`,224,224 7"M",7,7,7,7,7,7,31,31,"N",224,240,120x,60<,30,14,60<,568,"O",15,30,28,24,24,120x,123{,3,"P",224,224,224,224,224,224,224,224 G"Q",7,15,31,63?,127,255,255,255,"R",224,240,248,252,254,255,255,255,"S",255,255,255,127,63?,31,15,7,"T",255,255,255,254,252,248,240,224 M"U",0,0,24,60<,126~,126~,60<,24 RM$(4,3,2):N=14:T=13:M$(N,T):T:N ="","","","","","","","","","","",""  PX#1;1,0;" Press  any key  to go on ":.5,7 Za$=:a$=""5210Z d" ": a$=""f=1: :f=0:q=1̱a$:a$(q)<"0"a$(q)>"9"f=1 A$(Q)="."F=0 q: zb1:Jh yeH@@ögVOw s4mdvdijI۳셮1ぐ]gZ" 0fSRC# = A MACHINE GU