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`PdZ=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