ZXTape! 2 #Physics (Longman Software) - Side BLongman Software1985English Educational7.95 UKPNoneOriginal ReleaseTZXed by Andrew BarkerCIRCUITS f jah "CIRCUITS" (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 PAPHYSICSCircuits c ic/cZ=57012:80P "Circuits" E  1984 MERCURIAN PULP PRODUCTS/CONTRACT BOOKS  BA$="CIRCUITS":7:1:23729\,13 :C=4 (lN=18:23728\,C:13 ,C;A$(N):Z=57150>:Z=57050:23728\,C+1 2 Z=57050:C=C+2:N <21,0;" ":Z=57000:21,0;" PLEASE STOP THE TAPE AND WAIT ":1,0 F 5000 PN21,0;" PROGRAM READY - PRESS ANY KEY ":.5,0 ZA$=:A$=""90Z d+Z$(32 ):1:1:7: n>2;Z$;Z$;Z$;1,8;" PROGRAM OPTIONS " xe6,5;" 1  CIRCUITS ";9 ,5;" 2  RESISTANCE " g12 ,5;" 3  SEMI-CONDUCTORS ";15,5;" 4  END OF PROGRAM " Z#1;0,0;" PRESS  A NUMBER  TO SELECT ":.5,0 A$=:A$=""150 A$<"1"A$>"4"140 A$="1"300,:210 a$="2"1000:210 A$="3"2000:210 290" ^#1;1,0;" Another Option ?  Y  or  N  ":.5,0 -23658j\,8:a$=:a$=""220 a$="Y"100d a$"N"210 ">z=57012:21,8;" END OF PROGRAM ": ,7:0: 6&1,11 ;" CIRCUITS " @4,7;"";3,8;"-";3,6;"+":64@,140:36$,0:0,-480:-26,0 J#L=10 :C=8:6000p TJ62>,92\:-42*,0:0,480:36$,0 ^Z4,19;" CELL":L=7:C=19:6000p:7,22;"LAMP" h6220L:.5,7 rJW$=Z$+"The ELECTRON CURRENT flows from negative (-) to positive (+)."+z$ | 6300 .n=14:n:62008:n:0 (502:6270~:.5,7 \w$=z$+"The CONVENTIONAL CURRENT flows the opposite way - positive (+) to negative (-)."+z$ :6300:n=14:n:6250j:n:0 Yl=8:c=12 :6010z:.5,4:l=10 :c=19:6010z 10 ,22;"AMMETER" -w$=z$+"An AMMETER measures the current."+z$  6300 _28,524:200,0:0,-16:-200,0:0,16 416,4;"AMMETER Reading  3 Amps" }w$=z$+"The Current - I - depends upon the ElectroMotive Force of the cell - V - and the resistance of the circuit - R."+z$  6300 j13 ,12 ;" I=V/R ";5,20;" V=3 volts";8,20;" R=1 ohms "  6400 #l=10 :c=5:6000p 8,23;"2";16,20;8;"1.5":w$=z$+" With a second lamp in the circuit the resistance is doubled and the current is halved."+z$ *.5,7:6300:6400 &n4,8;"";3,8;" -";5,23;"6";16,20;8;" 3 " 0pw$=z$+"A second cell doubles the Potential Difference across the circuit. The current is now 3 Amps again."+Z$ :.5,9 :6300 Dl=13 :c=6:6020:60<,68D:16,0:0,24:44,,68D:-16,0:0,24 NNw$=z$+"A VOLTMETER measures the Potential Difference between two points."+z$ X 6300 bK28,36$:0,-16:200,0:0,16 l.18,4;"VOLTMETER Reading 6 V." v.5,8:6400 p1:76L,91[:0,-11 :0:76L,80P:-20,0:0,12 C18,22;" 3 ":.5,8:100d:6400 p1:568,91[:0,-11 :0:568,80P:-20,0:0,12 C18,22;" 0 ":.5,8:100d:6400 ^#1;1,0;" Circuit Test  C  New Option  N ":.5,5 -23658j\,8:a$=:a$=""690  a$="N" a$"C"680 " ": ,1,8;" CIRCUIT TESTING " 4,7;"";3,8;"-";3,6;"+":64@,140:36$,0:0,-480:-26,0 #L=10 :C=8:6000p J62>,92\:-42*,0:0,480:36$,0 #l=8:c=12 :6010z  <I=(*8)+1:I>4ƥ>.3I=I/10 <R=(*8)+1:R>5ƥ>.3R=R/10  z=0:V=I*R:x= %!18,2;Z$(26) *4,14;" E.M.F. of cell ";6,18;z$(12 );8,14;"Total Resistance";10 ,18;z$(12 );12 ,14;" Current ";14,18;z$(12 ) 4~x>.67+q$="I":p$="A":an=i:6,18;"  V = ";v;"V ";10 ,18;" R = ";r;" ":850R >x<.67+x>.33(q$="V":an=v:p$="V":14,18;"  I = ";i;"A ";10 ,18;" R = ";r;" ":850R Hfq$="R":an=r:p$="":6,18;"  V = ";v;"V ";14,18;" I = ";i;"A " RU1,-2:0,0;("  ENTER  the value for ";q$;" ");a$ \6500d:f850R f (a$-an)<.01z# =940 pcz6+(4q$="R")+(8q$="I"),18;1;" ";q$;" = ";an;p$;" ":950 z c$="I=V/R":Q$="V"C$="V=I*R" Q$="R"C$="R=V/I" `18,2;" Use ";c$;" to calculate.":1,-10 :z=1:850R 1,10 :6+(4q$="R")+(8q$="I"),18;2;7;;" ";q$;" = ";an;p$;" ":.5,7 ^#1;1,0;"  A  for Another  E  to End ":.5,2 -23658j\,8:a$=:a$=""960 a$="A"780  a$"E"950  "v=3:r=2:1500 ZW$=Z$+"Cells have an internal resistance. This must be included in any calculations."+z$  6300 A19,7;" R = 1+2 = 3 ":.5,2 g502:20,5;" I = V/R = 3/3 = 1 A ";17,20;" 1 ":.5,10  6400  28,60<:1;18,0:X=28:Y=60<:6050:15,4;"2":.5,6 W$=Z$+"If a second resistor, or any other element with a resistance, is joined IN SERIES then the total resistance increases."+z$  6300 $G19,5;" R = 1+2+2 = 5 ":.5,2 .g502:20,5;" I = V/R = 3/5 =0.6A ";17,20;"0.6":.5,10 8 6400 BI4,8;"";3,9 ;" 3V";5,9 ;"1" L.5,5:502 Vw$=z$+"If a second cell is joined IN SERIES it will increase the Potential Difference, but it will also increase the total resistance."+z$ ` 6300 jH19,5;" R = 1+2+2+1 = 6 ":.5,2 th502:20,5;" I = V/R =(3+3)/6 =1A ";17,20;" 1 ":.5,10 ~}#1;0,0;" Like to test your resistance? Press  Y  for yes  N  for no. ":1,0 .23658j\,8:a$=:a$=""1160 a$="N"1600@ a$"Y"1150~ <G=0::1,6;" RESISTANCE: TEST 1 " t40(,99c:32 ,0:X=72H:Y=99c:6050:16,0:X=106j:6050 32 ,0:L=9 :C=20:6010z:172,99c:16,0:-4,4:4,-4:-4,-4 Z60<,99c:0,40(:32 ,0:L=4:C=12 :6020 88,9 ;"R1";8,13 ;"R2" :108l,139:32 ,0:0,-40( 4R1=(*10 )+1:R2=(*10 )+1 ?G>3R1=(*40()+1:R2=(*40()+1 &I=(*10 )+1:V=I*(R1+R2) <G>3I=((*502)+1)/10 :V=I*(R1+R2) _28,76L:200,0:0,-16:-200,0:0,16 /13 ,4;"VOLTMETER Reading ";v;" V" _28,60<:200,0:0,-16:-200,0:0,16 415,4;"  RESISTOR 1 = ";R1;" " _28,44,:200,0:0,-16:-200,0:0,16  417,4;"  RESISTOR 2 = ";R2;" " _28,28:200,0:0,-16:-200,0:0,16 =z=0:19,4;"AMMETER Reading ? Amps" #21,0;z$ (j1,0:0,0;" What does the Ammeter read?  ENTER  the number: ";a$ 26500d:f1320( 719,20;a$;" " x=72H:y=100d:6050:y=132:6050 0ex=0:r1=2:r2=4:1800 4r1=(*10 )+1:r2=(*10 )+1 'L=1621:L,0;Z$:L iz=0:6,9 ;5;r1;"";7;" ";5;10 ,9 ;r2;"";7;" " <ex=01900l:6400:ex=1:1790 j.5,0:0,0;" What is the total resistance ?  ENTER  the number: ";a$ &6500d:f1820 0y(a$-(r2*r1)/(r2+r1))<.1}L21,2;" VERY GOOD. LIKE ANOTHER ? ":.5,10 :1870N :.Z=01900l:Z=1:1820 DX21,1;"WRONG AGAIN! HERE'S THE ANSWER.":1,-10 :1950 N^#1;1,0;"  A  for Another  E  to End ":.5,0 S.23658j\,8:a$=:a$=""1875S Xa$="A"1790 ]a$"E"1870N b l11 ,3;" Use this to calculate R ";13 ,5;" 1 = 1 + 1 +..";14,5;" R R1 R2 " qo480,63?:8,0:80P,63?:14,0:112p,63?:14,0 vJ16,5;6;z$(14);17,5;z$(14) {J19,3;5;z$(17);20,3;z$(17) U8;16,6;"1 = 1 + 1 = ?";17,6;"R ";r1;14;r2 o480,39':8,0:80P,39':10 ,0:112p,39':10 ,0 8;19,4;"1 = ";r2;" +";12 ;r1;" =";17;r1+r2;20,4;"R ";r1*r2;12 ;r1*r2;17;r1*r2;"" 32 ,15:8,0:64@,15:14,0:96`,15:14,0:136,15:14,0 ex Tr=(((r2*r1)/(r2+r1))*10 )/10 :19,21;5;"R = ";r;" " ex w$=z$+"While each resistor reduces the current in its part of the circuit, the TOTAL RESISTANCE is less and the current increases."+z$ 6300: @7:0::1,7;" SEMI-CONDUCTORS " "p=4:Q=4:2900T e10 ,1;"SEMI-CONDUCTORS are usually";12 ,1;"made from GERMANIUM or SILICON."  14,1;"They are poor conductors. They";16,1;"have few free Electrons ()";18,1;"and few 'positive holes' ()." ^200:c=625:5,c;"";7,31-c;"":.01z# =,0 c=25100d  >20:5,c;4;" ";7,31-c;" ":c *.6400:p=6:Q=6:2900T 4/l=10 182:l,0;z$:l >_10 ,2;"Adding certain impurities";12 ,2;"changes their conductivity." H14,1;"Arsenic frees more electrons.";16,1;"This is now a normal conductor.";18,1;"It is ""N"" (NEGATIVE) material." M,2,7;" >>> CURRENT >>> " Rn=110 :x=41-1:6,5;6;z$(x);"     ":.01z# =,0 \#5:x:n=10 100d fn p.6400:p=5:Q=5:2900T z/l=10 182:l,0;z$:l 10 ,1;"INDIUM creates more 'holes'";12 ,1;"and a charge can again flow.";18,2;" ""P"" (POSITIVE) material." g14,1;"It is the electrons that move-";16,1;"leaving new holes behind them." n=110 :x=14:6,6;5;z$(x);"    ":.01z# =,0 #5:x:n=10 100d n .6400:P=6:Q=5:2900T /n=10 202:n,0;z$:n ]0,175:32 ,0:0,-32 :-32 ,0:0,32 4,159:24,0:12 ,167:0,-16:8,8:-8,8:20,167:0,-16 z10 ,1;"A JUNCTION DIODE is made from";12 ,1;"""N"" material and ""P"" material." ʒ14,1;"If the power supply is this way";16,1;"the 'holes' and electrons move";18,1;"to opposite ends." ,2,7;" <<< CURRENT <<< " nn=156-1:l=572:l,n;"";l,31-n;"":l:.01z# =,0 n=62280 Q20:l=572:l,n;" ";l,31-n;" ":l:n 520,3;" No current can flow now." 6400:2900T 65,3;"-";5,28;"+" /l=10 202:l,0;z$:l 10 ,1;"If the battery is connected";12 ,1;"this way,'holes' and electrons";14,1;"can flow across the junction." 16,1;"DIODES allow current to flow ";18,1;"one way only. This is how they";20,1;"can convert AC current to DC." fn=16:c=625:5,c;"";7,31-c;"":.01z# =,5 $W5,c;6-(c>15);" ";7,31-c;6-(c<16);" ":c .!25:n=10 100d 8n B 6400 `<7:0::1,9 ;" TRANSISTORS " jdL=48:6;L,5;Z$(9 );5;Z$(4);6;Z$(9 ):L t`39',143:178,0:0,-40(:-178,0:0,40( ~L8,123{:31,0:217,123{:31,0 _128,103g:0,-20:124|,87W:4,4:4,-4 |5,3;"+";5,28;"-";10 ,14;"?";2,7;" >>> CURRENT >>> " V10 ,1;"COLLECTOR";10 ,24;"EMITTER";12 ,14;"BASE" ]0,175:32 ,0:0,-32 :-32 ,0:0,32 4,159:8,0:12 ,167:0,-16:20,172:0,-5:-8,-8:8,-8:0,-5 T16,159,9 :19,156:0,-3:-3,0 8,17;"";6,5;"";6,18;"";13 ,1;"When no current flows via the"'" BASE, none can flow between" " COLLECTOR & EMITTER,but a small"'" current from the BASE causes a "'" much larger current to flow"'" across the transistor." }#1;0,0;" Hold down  C  to watch it work Press  E  to end the section ":1,0 g=2750 Į9 ,16;"";10 ,14;"?";7,26;" ";8,16;"  ";6,5;"   " .23658j\,8:a$=:a$=""2505 a$="E"2550 a$"C"2505 10 ,14;"+" Ag:.01z# =,-5:g=g-10 :g<2700 g=2750 >t=5020-10 :2800 +t:=""2500 ".01z# =,5:T:2505 'L=13 20:L,0;Z$:L 13 ,1;"The transistor here is of the"'"  N P N  type."''" The  P N P  types work in the"'" same way,but the current flows"'" in the opposite directions." 6400: =8,16;"    ": 98,16;"   ": ;8,16;"   ": m8,16;"    ";9 ,16;"";7,26;" ": g8,16;"   ";9 ,16;"";7,26;"": k8,16;"   ";9 ,16;"";7,26;"": ]6,5;"       ": S6,5;"     ": S6,5;"     ": ]6,5;"       ": P6,5;"      ": "P6,5;"      ": S TDL=48:p;L,5;Z$(11 );Q;Z$(11 ):L ^`39',143:178,0:0,-40(:-178,0:0,40( hL8,123{:31,0:217,123{:31,0 r65,3;"+";5,28;"-" | m3000 :1:7::#1;0,4;" ONE MOMENT PLEASE ":.5,0 GS$(14,18):S(14):N=114:S$(N),S(N):N 0  I5000:N=113 :G$:R=07:B:G$+R,B:R:N "A",129,66B,36$,24,24,36$,66B,129,"B",64@,76L,76L,207,76L,76L,76L,64@ "C",64@,105i,121y,255,121y,105i,64@,0,"D",524,568,480,240,480,480,568,524 "E",0,102f,102f,231,102f,102f,0,0,"j",60<,66B,129,129,129,66B,36$,231 "F",8,12 ,254,131,254,12 ,8,0,"G",28,20,20,20,119w,546,28,8 "H",0,16,480,127,193,127,480,16,"I",8,28,546,119w,20,20,20,28 ģ"K",60<,66B,129,189,189,129,66B,60<,"L",60<,126~,255,255,255,255,126~,60< U"M",255,128,128,128,128,128,128,128 +Y(L )=((21-L)*8+3)  X(C)=(C*8+3)  p!L,C;"":بX(C),Y(L),6: z!L,C;"A":بX(C),Y(L),8: !L,C;"V":بX(C),Y(L),8: NL,C;"":بX(C)+4,Y(L),10 :X(C),Y(L)+2:8,8 jX(C),Y(L)-2:8,-8:X(C)+5,Y(L)-3:0,-4:-4,0: X,Y:2,3:3,-6:3,6:3,-6:3,6:3,-6:2,3: 83,10 ;"":.2~L,0:10 :3,10 ;" ";6,13 ;"":.2~L,0:10 :6,13 ;" ";11 ,5;"" B.2~L,0:10 :11 ,5;" ";6,1;"":.2~L,0:10 :6,1;" ";3,4;"":.2~L,0:10 :3,4;" ": L}3,10 ;"":.2~L,0:10 :6,13 ;"":.2~L,0:10 :11 ,5;"" V.2~L,0:10 :6,1;"":.2~L,0:10 :3,4;"":.2~L,0:10 : j3,4;"":.2~L,5:10 :3,4;" ";6,1;"":.25~,5:10 :6,1;" ";11 ,5;"":.25~,5:10 t11 ,5;" ";6,13 ;"":.25~,5:10 :6,13 ;" ";3,10 ;"":.25~,5:10 :3,10 ;" ": ~3,4;"":.2~L,5:10 :6,1;"":.25~,5:10 :11 ,5;"":.25~,5:10 j6,13 ;"":.25~,5:10 :3,10 ;"":.25~,5:10 : q=1̱w$-(31) >#1;1,0;7;0;w$(qq+31) 10 :q: _" ":#1;1,0;" Press  any key  to go on ":.5,0  a$=:a$=""6410  " ": da$=""f=1: n:f=0:q=1̱a$:a$(q)<"0"a$(q)>"9"f=1 xa$(q)="."f=0 q: #(M(23730\+256*23731\)-(23653e\+256*23654f\) z# ACIRCUITSc bGK LIGHT c  e "LIGHT" (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 PAPHYSICSLight d 3`P0dZ=57012:90Z "Light" E 1984 MERCURIAN PULP  PRODUCTS/CONTRACT BOOKS  6A$=" LIGHT ":7:1:23729\,13 (@C=4:N=17:13 ,C;A$(N):23728\,C 2-Z=57150>:Z=57050:C=C+1 "4"140 A$="2"300,:110n a$="1"1000:110n a$="3"2000:220 4000 e1:#1;1,0;" ANOTHER OPTION ?  Y  OR  N  ":1,0 -23658j\,8:A$=:A$=""230 A$="Y"110n A$"N"220  4000 ,V1:7:0::1,1;" REFLECTIONS IN PLANE MIRRORS " 1@#1;0,0;" " 6V76L,144:104h,0:Y=14478N-3:127,Y:Y @S12 ,16;"N";14,1;"NORMAL: line at 90 to surface" J75K:76L,83S:4;513,60<:8,9 ;"IR";15,1;"INCIDENT RAY: ray onto mirror" T75K:128,143:2;513,-60<:8,21;"RR";16,1;"REFLECTED RAY: ray from mirror" ^75K:116t,130:4;12 ,-8,1.5@:7,14;"i";17,1;"Angle of Incidence IR to N" h75K:128,120x:2;13 ,8,1.5@:7,16;"r";18,1;"Angle of Reflection N to RR" ry150:20,2;"IR, RR and N are in the same"'" plane and r is equal to i." |5200P:x=76L127:x,83S:4;7;127-x,60<:128,143:7;2;127-x,-60< x=127410 j1:.01z# =,5:x,83S:127-x,60<:128,143:127-x,-60<  0:x  5200P V1:7:0::1,1;" REFLECTIONS IN PLANE MIRRORS " Cm(2):m(1)=60<:m(2)=112p:an=1  5300 i=10 :5400 l=40(:5500| i5,16;"A change in the";6,16;"angle of the";7,16;"mirror affects" w8,16;"both angles of";9 ,16;"incidence  and";10 ,16;"of reflection." a124|,147:128,0:0,-72H:-128,0:0,72H  G=0: 17,3;"You can turn this mirror";18,2;"and move the light source.";19,2;"  M  or  N  for the mirror,";20,2;" K  or  L  for the light." _12 ,43+:232,0:0,-40(:-232,0:0,40( QQ=0:14,1;" MIRROR ANGLE 0 i 0 r 0" h#1;1,0;" M   N   K   L  or  G  to go on ":.5,0 -23658j\,8:a$=:a$=""530 (a$="G"G=0700:530  a$="G" !A$="T"5600:650 &a$>"N"a$<"K"530 01N=213 :N,0;Z$(15):N 5QFL,FC;" " :AN=AN+(A$="M")-(A$="N") ?4AN=AN-(36$AN>36$)+(36$AN<1) A3AN=AN-(1AN=10 )+(1AN=30) Di=i+(a$="L")-(a$="K") II>10 i=10 KI<1i=1 N$5300:5400:5500| X9ma=(an-1)*10 :MA180MA=MA-180 bC8;14,14+(ma<99c)+(ma=0);" ";ma;"" l)Mi=(90Z-(I*10 ))+ma+10 q,mI>90ZMI=(180-MI):625q rMI<9 MI=0 v|8;14,20+(Mi<99c)+(Mi=0);" ";Mi;"";14,26+(MI<99c)+(MI=0);" ";MI;""  530 E pN=213 :N,0;Z$(15):N:5300:5400:5500|:FL,FC;" ":530 4,16;"LIGHT EXERCISE!";5,16;" Try to point ";6,16;" the reflected ";7,16;" ray at the . " ƀ8,16;" Press  T  when";9 ,16;" you think it ";10 ,16;" is on target. "  5700D  G=1: ^1000:o$(6,5,2):n=16:t=15:o$(n,t):t:n D"","","","","","","","","",""," _","","",""," " K"__","","","",""," _","","",""," ","_ ","","","","" 1:1:0: 9n=04:7;n,2;z$(28):n }8:n=16:2,n*4-1;(64@+n):t=15:t-1,n*4;o$(n,t):t:n $(l(6):n=16:l(n):n .:20,30,40(,-40(,-502,-60< 8$c=12 :ln=1:1600@ B;n=1721:n,2;6;z$(28):n L8:17,3;" Converging (CONVEX) lens.";18,3;"Object O between F and 2F.";19,3;" The image I is REAL, ";20,3;" MAGNIFIED and INVERTED. " VW#1;1,1;" Press  ENTER  for next lens ":1,0 `a$=:a$=""1120` ja$13 1110V t," ":ln=ln+1:ln41150~ v;n=1721:n,2;4;z$(28):n y17,3;8;" Diverging (CONCAVE) lens.";18,3;"Object distance irrelevant.";19,5;" The image is VIRTUAL ";20,5;" DIMINISHED and ERECT." ~$1600@:ln<61110V }#1;0,0;"  Press  E  for the Exercises or  N  for a new Option. ":1,5 .23658j\,8:a$=:a$=""1170  a$="N" A$"E"1160 K7:0::1,8;" LIGHT EXERCISE ":1700 2,10 ;" 1 - 1 = 1 ";3,10 ;" v u f ":88X,152:8,0:120x,152:8,0:152,152:8,0 t14,2;"The NEW CARTESIAN convention "'" is used here. With the object"'" to the LEFT of the lens, any" P" measurements to the LEFT are"'" negative; any to the right"'" are positive." Z#1;1,0;" Press  any key  to start work ":.5,5 a$=:a$=""1250 'n=1421:n,0;z$:n 0u=(*8)+2:v=(*8)+2 f=(-u*v)/(-u-v)  o14,3;" Object Distance u = ";u;" ";15,3;" Image Distance v = ";v;" " 916,3;"  Focal Length f = ? " i.5,0:0,0;"  ENTER  the value of f. Answer to 1 decimal place:";a$ (a$=""1310 2<q=1̱a$:(a$(q)<"0"a$(q)>"9")a$(q)"."1310 <q Fv(a$-f)<.1}L.5,10 :#1;0,0;" That's near enough. Another ? ":1400x P:18,2;"1 - 1 = 1 + 1 = ";u;" + ";v;" = ";u+v UN19,2;"v -u ";v;" ";u;" ";u*v;22;u*v;26;u*v Z918,2;1;"_ _ _ _ __ __ __" dBf=(f*10 )/10 :20,10 ;" f = ";f;" " nW1,-10 :#1;0,0;" Must try harder! Another ? " x^#1;1,0;"  A  for Another  E  to End ":.5,0 .23658j\,8:a$=:a$=""1410 a$="A"1260  a$="E"  1400x  8t=15:1;t+7,c;o$(ln,t):t: @:n=615:7;n,2;z$(28):n ELX=(LN-1)*8 J/8:24,92\:208,0 TI64@-LX,103g,2:64@-LX,103g:0,-22 ^ 1500 hb64@-LX,103g:40(+LX,0:l(ln),-10 :ln<4l(ln)*2,-15 m<ln>3104h,102f:-l(ln)*1.5@,15 r_64@-LX,81Q:40(+LX,0:l(ln),10 :LN<4L(LN)*2,15 w<ln>3104h,82R:-l(ln)*1.5@,-15 y12 ,13 +(l(ln)/8);"F";12 ,12 -(L(LN)/8);"F";12 ,12 -(L(LN)/4);"2F" nln<4104h+l(ln)*3,107k:0,-30:104h+l(ln)*3,77M,3 Bln<414,12 +(l(ln)*3/8);"I" mln>3104h+l(ln)*.5,97a:0,-11 :104h+l(ln)*.5,97a,1  N100d,134:0,-568,1.2:0,568,1.2 D200,130:0,-480:40(,106j,2 40(,106j:30,12 :-6,0:6,0:-2,-6:2,6:30,12 p502,-12 :-6,6:6,-6:-6,-3:6,3:502,-12 ̃40(,106j:30,-12 :-6,0:6,0:-2,6:2,-6:30,-12 n502,12 :-6,-6:6,6:-6,3:6,-3:502,12 .Y=106j72H-4:40(,Y:Y )12 ,5;"<--u--> <----v---->"   Z=0 1:1:7: 30,4;" RAY DIAGRAMS - OPTIONS " '" CONVENTIONS AND TERMS  1  "''" CONVEX LENS: Far Object  2  "''" CONVEX LENS: Near Object  3  " ['" CONVEX: Magnifying Glass  4  "''" CONCAVE LENS  5  " W'" CONCAVE MIRROR: Far Object  6  "''" CONCAVE MIRROR:Near Object  7  " W'" CONCAVE MIRROR: Magnifying  8  "''" CONVEX MIRROR  9  " /'" Return to Main Options  0  "  Z#1;1,0;"  Press  a number  to select ":.5,0 !a$=:a$<"0"a$>"9"2070  " ":a$="0" *((2000+100d*a$):2005 4cv=1:3000 >J8:5,20;" Principal ";6,24;"Axis " HA.5,0:16,3;"F Principal Focus" R502:68D,116t:0,20:-4,-4:4,4:4,-4:3,8;"O" \8.5,2:17,3;"O Object" a502:68D,136:30,0:-4,4:4,-4:-4,-4:4,4:30,0:108l,-60< f5.5,4:18,3;" Parallel Ray" k3502:68D,136:180,-60< p>.5,5:19,3;" Centre Ray ":502 u]216,116t:0,-28:-3,6:3,-6:3,6 z12 ,26;"I" 7.5,7:20,3;"I Image" 3100 : cv=1:3000 x36$,116t:0,20:-4,-4:4,4:4,-4:3,4;"O" 36$,136:46.,0:-4,4:4,-4:-4,-4:4,4:46.,0:108l,-60< )36$,136:207,-45- {186,116t:0,-12 :-2,4:2,-4:2,4:10 ,23;"I" ʦ8:17,3;"CONVEX LENS";18,3;"Object beyond 2F";19,3;" IMAGE  is ";20,3;"REAL,DIMINISHED & INVERTED" 3100 : cv=1:3000 x76L,116t:0,20:-4,-4:4,4:4,-4:3,9 ;"O" 76L,136:26,0:-4,4:4,-4:-4,-4:4,4:26,0:117u,-65A )76L,136:169,-65A $]245,116t:0,-44,:-3,6:3,-6:3,6 .10 ,29;"I" 88:17,3;"CONVEX LENS";18,3;"Object between 2F and F";19,3;" IMAGE  is ";20,3;"REAL,MAGNIFIED & INVERTED" B3100 : `cv=1:3000 jz108l,116t:0,20:-4,-4:4,4:4,-4:6,12 ;"O" t108l,136:10 ,0:-3,3:3,-3:-3,-3:3,3:10 ,0:72H,-40( yOx=12872H-2:x,136-(x-128)*20/36$:x ~)108l,136:502,-502 =x=108l72H-2:x,136-(x-108l):x n4:84T,116t:0,42*:-5,-5:5,5:5,-5:0 4,9 ;"I" 8:17,3;"CONVEX LENS - Magnifying";18,3;"Object between F and lens";19,3;" IMAGE  is ";20,3;"VIRTUAL,MAGNIFIED & ERECT" 3100 : CV=0:3000 x76L,116t:0,20:-4,-4:4,4:4,-4:3,9 ;"O" ؓ76L,136:26,0:-4,4:4,-4:-4,-4:4,4:26,0:36$,20 PY=136116t-2:128+(Y-136)*36$/20,Y:Y )76L,136:104h,-40( \105i,116t:0,8:-2,-3:2,3:2,-3 8:17,3;"CONCAVE LENS";18,3;"Any Object Distance";19,3;" IMAGE  is ";20,3;"VIRTUAL,DIMINISHED & ERECT" 3100 : (CV=2:3200 -38,13 ;" ";9 ,13 ;"F" 2x28,116t:0,20:-4,-4:4,4:4,-4:3,3;"O" <28,136:64@,0:-4,4:4,-4:-4,-4:4,4:64@,0:-104h,-40( F?28,136:128,-20:-128,-20 Py66B,116t:0,-14:-2,4:2,-4:2,4:10 ,8;"I" Z8:17,3;"CONCAVE MIRROR";18,3;"Object beyond C";19,3;" IMAGE  is";20,3;"REAL,DIMINISHED & INVERTED" d3100 : CV=2:3200 x72H,116t:0,20:-4,-4:4,4:4,-4:3,9 ;"O" 72H,136:42*,0:-4,4:4,-4:-4,-4:4,4:42*,0:-143,-557 >72H,136:84T,-20:-147,-35# y18,116t:0,-32 :-3,6:3,-6:3,6:12 ,2;"I" 8:17,3;"CONCAVE MIRROR";18,3;"Object between C and F";19,3;" IMAGE  is";20,3;"REAL,MAGNIFIED & INVERTED" 3100 : CV=2:3200 z136,116t:0,20:-4,-4:4,4:4,-4:4,16;"O" 136,136:10 ,0:-3,3:3,-3:-3,-3:3,3:10 ,0:-104h,-40( Ox=1562242:x,136+(x-156)*10 /26:x >136,136:20,-20:-40(,-40( 0X=1562102:X,X-40(:X 4:190,116t:0,32 :-3,-6:3,6:3,-6:0:8,24;"I" "8:17,3;"CONCAVE MIRROR";18,3;"Object between F and mirror";19,3;" IMAGE  is";20,3;"VIRTUAL,MAGNIFIED & ERECT" ,3100 : T\CV=3:3200 :8,26;"F":208,120x:0,-8 ^x72H,116t:0,20:-4,-4:4,4:4,-4:3,9 ;"O" h72H,136:42*,0:-4,4:4,-4:-4,-4:4,4:42*,0:-78N,30 mOx=1562242:x,136-(x-156)*10 /26:x r>72H,136:86V,-20:-108l,-25 wNX=1562102:X,116t+(X-156)*5/21:X |4:186,116t:0,8:-1,-2:1,2:1,-2:0:4,23;"I" 8:17,3;"CONVEX MIRROR";18,3;"Any Object Distance";19,3;" IMAGE  is";20,3;"VIRTUAL,DIMINISHED & ERECT" 3100 :  7:0: :15,0;1;z$;6;z$;z$;z$;z$;z$;z$ c8,116t:240,0:128,144:0,-568:128,128 =cv0,-24,1.43333:0,24,1.43333 {cv=0-6,0:0,-24,-.9ffff:12 ,0:0,24,-.9ffff:-6,0 Ax=56820036$:x,120x:0,-8:x H8,6;"2F F";8,20;"F 2F"  [#1;1,0;" Press  any key  for new choice ":.5,10 &a$=:a$=""3110& 0 7:0: :15,0;1;z$;6;z$;z$;z$;z$;z$;z$ N8,116t:240,0:156,140:0,-480 rCV=2150,128:0,-24,-1.43333:151,128:0,-24,-1.43333 pCV=3161,128:0,-24,1.43333:160,128:0,-24,1.43333 M104h,120x:0,-8:568,120x:0,-8 '8,6;"C F" IZ=013 ,2;"C = CENTRE OF CURVATURE":Z=1  7:1: lY=150-1:3:0,480-Y:(480-Y)*1.43333,-480+Y,-1.8ffff:Y lY=150-1:1:0,72H-Y:(72H-Y)*1.43333,-72H+Y,-1.8ffff:Y lY=150-1:4:0,96`-Y:(96`-Y)*1.43333,-96`+Y,-1.8ffff:Y oY=150-1:6:0,120x-Y:(120x-Y)*1.43333,-120x+Y,-1.8ffff:Y oY=150-1:2:0,144-Y:(144-Y)*1.43333,-144+Y,-1.8ffff:Y <#1;1,3;" NOTE THE MOIRE FRINGES !!" N=12000:N >Z=57012:21,8;" END OF PROGRAM ": I5000:n=112 :g$:r=07:b:g$+r,b:r:n "a",480,72H,72H,480,0,0,0,0,"B",1,3,7,15,31,63?,127,255,"C",128,192,224,240,248,252,254,255 "d",1,1,2,2,4,4,4,4,"e",8,8,8,8,8,8,8,8,"f",4,4,4,4,2,2,1,1 "j",255,0,0,0,0,0,0,0,"k",128,128,128,128,128,128,128,128,"l",1,1,1,1,1,1,1,1 "m",128,128,64@,64@,32 ,32 ,32 ,32 ,"n",16,16,16,16,16,16,16,16,"o",32 ,32 ,32 ,32 ,64@,64@,128,128 %L(Yau)=((175-Y)/8) C(X)=(X/8) a(36$,4):x=0:n=136$:a(n,3)=x:A(N,1)=A(N,3)*30:a(n,4)=x:A(N,2)=A(N,4)*30:x=x+/18:n  0:0:4: )W$="" An=015:n,15-n;W$(N*2+1);"":N BN=1621:N,0;4;W$(233!):N 1,0 Hn=03:n,7-n;2;W$(N*2+1);"":N }n=47:n,7-n;2;W$(8);"";6;W$(2(N-4)*2+1);"":N {N=814:2;W$(216-N);"";6;W$(2(N-4)*2+1);"":N &"" FN=1621:6:W$(26-N33!);"":N 1,4 In=03:n,23-n;1;W$(N*2+1);"":N  n=47:n,23-n;"";5;W$(2(N-4)*2+1);"";0;1;W$(27):N 58,15;"  " 69 ,14;"  " 810 ,13 ;"  " 911 ,12 ;"  " B12 ,11 ;"1 LENSES  " ;13 ,10 ;"  " C14,9 ;"2 REFLECTION  " <15,8;" " A16,7;"3 RAY DIAGRAMS  " :17,6;" "  C18,5;"4 END OF THE PROGRAM " "<19,4;" " $E20,3;"PRESS [1],[2],[3] OR [4] " &>21,2;" " (1,7 2 PY#1;1,0;"  Press  any key  to go on ":1,0 Za$=:a$=""5210Z d `m(1)-a(an,1),m(2)-a(an,2):a(an,1)*2,a(an,2)*2 jM(1)-A(AN,2)/2,M(2)+A(AN,1)/2:5;A(AN,2),-A(AN,1)  x=A(i,3)*40(:y=A(I,4)*40(:m(1)-x,m(2)-y,2:M(1)-X,M(2)-Y:4;x,y: |Kr=36$-I+2*(an):R=R+(36$R<1)-(36$R>36$) 0R=R+(36$R<1)-(36$R>36$) Am(1),m(2):2;A(r,3)*l,A(r,4)*l: 2X=A(R,3)*524:Y=A(R,4)*524 "60<,112p:2;X,Y  (FL,FC)=1865670& X#1;1,0;" MISSED  A  Another  E  to End ":56800 &L#1;1,0;" GOT IT!  A  Another  E  to End " 0.5,5 2.23658j\,8:a$=:a$=""56822 5%" ":e=0:a$="E"e=1: :`a$"A"#1;1,0;"Press  A  for Another  E  to End":56800 D4FL=(*11 )+2:FC=(*11 )+2 N;FL>2FL<11 FC>2FC<11 5700D X Q=1 bFL,FC;" " v p,7;10 ,10 ;"TESTING TIME" z 1 BX=-60<60<:128,175:4;X,-100d X: #(M(23730\+256*23731\)-(23653e\+256*23654f\) z%$bIڤ|# W"GN6 <pil(gq 2eA LIGHT cGo$plZ&Ʊ|\d~1a$+ojp/COؙ΄o]B7EDD}$D7F$D}oOؙ]C$+oha/Cp&ƮlZ~1|\dpƺlZ~|\d+onaCpOؙ΀]BD7ED}CD}$ؙ̈́pݳAᆶ$+os/CZ&Ҁ\c~1i _%dZƘ\e~Յᆶ+oRCؙӄݳGNDހ} D?}ؙ̀ݳA+o}ᆶC ƅZ~\c&ƘZ~1Հ\e$+ohᆶ/Cpؙ̀ݳAD?$}7FDD}Oؙӄ]Ga+oRpClZƘ|\e~Z MACHINE e 7 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 U1WZ=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