ZXTape! 0Created with Ramsoft MakeTZXD.C. Z]"a"-1 "D.C."90Z "" *65364T,0:65365U,0 +" ""A"-4,21*8+3 Z"A"-1 dc1:7:1::4,11 ;"** D.C. **":88X,134:80P,0 n&88X,132:80P,0 x19 ,2;" 1983 SciCAL Software Ltd." }&16,94^:222,0 14,4;"   PLEASE WAIT, WHILE THE   MAIN PROGRAM LOADS   " _30,30:0,35#:195,0:0,-35#:-195,0 :72H,156:0,-24:-66B,0 :0,-124|:244,0:0,124| 9-66B,0:0,24:-112p,0 ;1:20,0;:"":20,0;:""  T>BBBB$!!>"!$$$<$$$;;6!"B\>2D\v|DB<@<B<BBBBB.06|u\ PS(NB)=(N,B=((B)=((N/2)B=1)+(N-(N/2)*2B=0) 6T$(X$)=X$+(".0"ƱX$=1)+("."ƱX$=2) X()=23677}\ Y()=23678~\ +23658j\,8:236099\,10 )R(L,S)=(*(L/S)+1)*S GI(N)=(N*10 +.5)/10 :D$(M)=T$((I(M))) F(A,B)=(A-B)/A 8N0=0:N1=1:N0:N1:23693\,15: 9N(Qz,P)=(Q*10 ^P+.5)*10 ^-P $S$=" ":F=N110 :S$=S$+S$:F M(A,B)=A-B O21:A(5):B(5):C(5):I=N15:A(I),B(I),C(I):I u.5,N1,1.5@,N1,2,3,2,4,6,5,6,9 ,11 ,10 ,15 dk:11 ;"* D.C. *"'11 ;""'5;"Current Electricity"'5;"" iSC=N0:NT=N0 n''" (1) Introduction to symbols"''" (2) Test on Ohm's Law"''" (3) Internal resistance"''" (4) Series and parallel"''" (5) Shunts and multipliers"''" (6) Measurement of resistance" s%#N1;"  1983 SciCAL Software Ltd" x]O=N1:I=N08:O=O:O;19,5;"Type your choice (1-6)";:25:=""i La$=:a$<"1"a$>"6"19,5;"Type your choice (1-6)":130 140+a$:100d 4000 2000 3000 6000p 5000 1000 I65364T,0:65365U,0::" "23552\,37900 065364T,208:65365U,255: ^:R=4:L1=15:L2=21:D=N1:VX=7:VY=8:AX=13 :AY=8 ;" RESISTANCE MEASUREMENT"'" " 1900l:1800 X=VX:Y=VY:9900& X=AX:Y=AY:9900& =568,144:-24,N0:N0,-80P:23,N0 0DF=2:X=557:Y=64@:8700! PX,Y:29,N0:N0,20:124|,Y+20:N0,-20:24,N0 N0,80P:-16,N0  /RD=N0:RX=132:RY=144:9300T$ X,Y:-8,N0 7X=568:Y=144:N=4:DF=N0:9500% 9502,64@:N0,12 :10 ,N0:N0,8 984T,64@:N0,12 :-8,N0:N0,8 $ D=-N1:R=N0:IF=N1:8900" . R=4 316,2;"(R)...Move wiper right.";18,2;"(L)...Move wiper left.";20,2;"(C)...Change component." 8!#1;" ""M"" for menu"; L*1700:N0:="L"D=-N1:1125e Q="R"D=N1:1125e V="C"85004!:1000 ` ="M" b 1100L e 8900" t 1100L ? RH=RT*(23-RD)/24 Z=Z$:I=I$:V=V$ T=RD (MX=AX:MY=AY:M$="":RD=I:9100# (MX=VX:MY=VY:M$="":RD=V:9100# RD=T  4E=N0Z$="0":I$="6/(R+RH)":V$="I*R":RT=20 IE=N1Z$="(RH+.1)/6":I$="((Z*Z+4)-Z)/2":V$=".1*I+6*I*I":RT=20 [E=2Z$="(RH+1E3)/4E4":I$="(Z-(Z*Z-24/4E4))/2":V$="1E3*I-4E4*I*I":RT=2000 & l5,N0;" Choose the type of component whose resistance you want to measure:"''''" (1) Resistor"''" (2) Bulb"''" (3) Thermistor"'''" Type your choice (1,2 or 3)" v@A$=:A$="1"A$="2"A$="3"E=A$-N1:L1=2:85004!:  1910v NT=N0:SC=N0:TN=N0 H:N1,6;"TEST ON OHM'S LAW";2,6;"" .NCL=((*3)+N1)*2:CN=>.5 2900T +502*CN 21004+TN*200 \:N1,2;"What do you want to do now?";2,2;"" k4,4;"(1) See your score"''4;"(2) Try another question"''4;"(3) Return to menu" #12 ,7;"Type 1,2 or 3"  19990':9992':<"1"Ŧ>"3"2060   ="3"  2="2"TN=TN+N1-3*(TN=2):2001 *7200 :2030 448300l :MX=VX:MY=VY:RD=V:M$="":9100# 5AY+N1,AX+N1;"" 6 R$=T$(R) 7F=N13 8"CNN1;8+F,7;R$(F) 9$CNN1;14,9 +F;R$(F) :F <N1;7,N0;20;"The current"'17;"flowing through"'17;"resistor R is"'17;"measured by the"'17;"meter which is"'17;"connected in"'17;"series with it." >/16,4;"Current is measured in..." HC$="A":8600! R&L1=16:L2=21:85004! \:CF18,6;"You have got it right!":SC=SC+N1 fUCF16,4;"You have not remembered..."''" CURRENT IS IN AMPERES." k NT=NT+N1 p 9994 ' z 85004! vN0,N0;:7,N0;N0,N0;" Enter the value (in Amperes) of the current I,and press ENTER... ";I$  8200 MERR18,7;"Incorrect entry":F=1502:F:2180 (MX=AX:MY=AY:RD=I:M$="":9100# IɰI$16,11 ;"Mistake!"''" The current through R:"'" =Volts / Ohms"'" =";V;" / ";R'" =";I;" Amperes":2240 )18,12 ;"CORRECT!":SC=SC+N1 "9994 ':85004!:NT=NT+N1  58300l :MX=AX:MY=AY::RD=I:M$="":9100# VY+N1,VX+N1;""  R$=T$(R) F=N13 "CNN1;8+F,7;R$(F) $CNN1;14,9 +F;R$(F) F N1;6,19;"The potential";17;"difference bet-"'17;"ween the ends";17;"of resistor R"'17;"is measured by"'17;"the meter which"'17;"is connected in"'17;"parallel with";17;"it." A16,4;"Potential difference"'" is measured in..." C$="V":8600! &L1=16:L2=21:85004! $:CF18,6;"You have got it right!":SC=SC+N1 .RCF16,4;"You have not remembered..."''" P.D. IS IN VOLTS." 3 NT=NT+N1 8 9994 ' B 85004! L0,0;:7,N0;N0,N0;" Enter the value (in Volts) of the potential difference and press ENTER... ";i$ V 8200 `HERR18,7;"Incorrect entry":F=N1502:F:2380L j(MX=VX:MY=VY:RD=V:M$="":9100# tVɰI$16,11 ;"Mistake!"''" The P.D. across R:"'" =Amps * Ohms"'" =";I;" * ";R'" =";V;" Volts":2440 ~)18,12 ;"CORRECT!":SC=SC+N1 "9994 ':85004!:NT=NT+N1  48300l :MX=VX:MY=VY:RD=V:M$="":9100# (MX=AX:MY=AY:RD=I:M$="":9100# 216,1;"Resistance is measured in..." C$="O":8600! &L1=16:L2=21:85004! :CF18,6;"You have got it right!":SC=SC+N1 XCF16,4;"You have not remembered..."''" RESISTANCE IS MEASURED IN OHMS" NT=NT+N1 9994 ':85004! vN0,N0;:7,N0;N0,N0;" Enter the value (in Ohms) of the resistance R,and press ENTER... ";I$  8200 (HERR18,7;"Incorrect entry":F=N1502:F:2580 2 R$=T$(R) 4F=N13 6"CNN1;8+F,7;R$(F) 8$CNN1;14,9 +F;R$(F) :F <RɰI$16,12 ;"Mistake!"''" The resistance of R:"'" =Volts / Ohms"'" =";V;" / ";I'" =";R;" Ohms":2640P F(18,12 ;"CORRECT":SC=SC+N1 P"9994 ':85004!:NT=NT+N1 Z R9990':9992' S TXC=20:YC=124| V? XC,YC:32 ,N0:X=X():Y=Y():DF=N0:N=NCL:9500% XLXC+108l-X(),N0:N0,-32 :X=X():Y=Y():DF=2:9200# ZIX,Y:N0,-32 :-24,N0:X=X():Y=Y():DF=3:9400$ \BX,Y:-20,N0:N0,16:X()-16,Y():N0,-16 ^C-24,N0:N0,32 :X=X():Y=Y():DF=3:9200# `X,Y:N0,32 b=XC+568,YC-64@:N0,8:8,N0:N0,8 d>XC+88X,YC-64@:N0,8:-8,N0:N0,8 f"X=5:Y=9 :9900& h#X=10 :Y=9 :9900& jAX=5:AY=9 lVX=10 :VY=9 m210 ,3;"I";10 ,15;N1;"" n3N1;14,13 ;"";15,13 ;"" r XC=26:YC=124| TXC+33!,YC:N0,-20:DF=N0:X=X():Y=Y():9400$:X,Y:N0,-20 c-40(,N0:N0,32 :X()+16,Y():N0,-8:12 ,N0:N0,40(:75K,N0 <N0,-8:X=X():Y=Y():DF=2:N=NCL:9500% `N0,YC-64@-Y():-22,N0:N0,16:X()-16,Y():N0,-16:-26,N0 0VX=2:X=VX:VY=7:Y=VY:9900& 1AX=10 :X=AX:AY=9 :Y=AY:9900& VY+2,VX;"- +" (X=XC+44,:Y=YC:DF=N0:9200# 1X=XC+44,:Y=YC-64@:DF=N1:9200# ,5,8;"I";13 ,8;"I" ,9 ,8;"";10 ,8;""  CN=N0:NC=2:FL=N0 L1=18:L2=21 q:"E.M.F. and Internal resistance.. Lost volts"'" " B$="cell":NC>N1B$="battery" 0VX=5:VY=4:X=VX:Y=VY:9900& !44,,116t:N0,-8 <-24,N0:N0,-32 *(CN+N1):32 -NC*4,N0 )N=NC:DF=N0:X=X():Y=Y():9500% G32 -NC*4,N0:N0,32 *(CN+N1):-20,N0:N0,8 +E=1.5@*NC:Ri=R(1.5@,.5) =>.6E=2*NC:Ri=R(.3,.1}L)+.1}L Ri=Ri*NC (MX=VX:MY=VY:M$="":RD=E:9100# FL3085 qN0,N0:5,N0;N0,N0;" Read Voltmeter reading (in Volts) :";I$:8200 HERR18,7;"Incorrect entry":F=N1502:F:3075 ZM(E,I$)18,3;"Mistake...try again.";N0,N0:F=N125:F:3075 {18,5;"Negligible current"'" through Voltmeter"''" So E.M.F. of ";B$;" =";n(E,2);" V":9994 ' 85,11 ;"E.M.F. E=";N(E,2);"V" 85004!:N0,N0:5,N0;N0,N0;"Connect a resistor to the "'(B$);"."'"Choose a value in the range 0.5 to 5 Ohms"''" R (in Ohms)=";I$:8200 !HERR18,7;"Incorrect entry":F=N1502:F:3100 &dR=I$:R<.5R>518,7;"Number out of range":F=N1502:F:3100 +3400H +CN*25 0R=I$:R=I(R) 5GN1:F=N13:12 +(CN)*4,4+F;T$(R)(F):F:N0 :EI=E/(Ri+R):V=I*R:RD=N(V,1+2*(V<1)):9100# ?dN0,N0:4,N0;N0,N0;" Read the voltage across the resistor (in Volts) ";I$:8200 DHERR19,7;"Incorrect entry":F=N1502:F:3135? IRM(V,I$)19,3;"Mistake...try again":F=N1502:F:3135? N87,11 ;"P.D. across R V=";N(V,2);"V" QLV=E-V SNT=NT+N1:SC=SC+1:N0,N0:5,N0;N0,3;"Lost Volts=";I$:8200 :ERR19,5;"Incorrect entry":F=N1502:3155S XM(LV,I$)SC=SC-N1:18,10 ;"Mistake..."'"Lost Volts=E.M.F.-P.D. across R =";N(E,2);"-";N(V,2)'" =";N(LV,2);" V":9994 ' ]99 ,11 ;"Lost Volts =";N(LV,2);"V" bNT=NT+N1:SC=SC+1:N0,N0:5,N0;1,3;"Current through R=";I$:8200 :ERR19,5;"Incorrect entry":F=N1502:F:8200 :3170b gM(I,I$)SC=SC-N1:18,10 ;"Mistake..."'" Current = P.D. / resistance"'" = ";N(V,2);" / ";N(R,2)'" = ";N(I,2);" A" l911 ,11 ;"Current I=";N(I,2);"A" o 9994 ' qNT=NT+N1:SC=SC+N1:N0,N0:5,N0;N0,N0;" Internal resistance of the ";(B$);"=";I$:8200 :ERR19,5;"Incorrect entry":F=N1502:F:3185q vM(Ri,I$)SC=SC-N1:17,10 ;"Mistake..."'" Internal resistance"'" =Lost Volts / Current"'" =";N(LV,2);" / ";N(I,2)'" =";N(Ri,2);" " x:13 ,11 ;"Int.Resistance =";N(Ri,2);"" { 9994 ' |CN=CN B:" What do you want to do now " [4,5;"(1) Change cell"''" (2) Change resistor"''" (3) See your score" 113 ,2;"Type your choice (1,2 or 3)" <"1"Ŧ>"3"3230 F="1"FL=0:NC=NC+1:NC=6NC=1:3001 ="2"FL=1:3001 A="3"FL=0:7200 :NC=NC+N1:NC=6NC=2 3001 Hu20,76L:N0,-32 :20,N0:X=X():Y=Y():DF=2:9400$:X,Y:16,N0:N0,32 M73450z :F=N16:X,Y,DF,DF1:9200#:F: \ aZ20,76L:20,N0:X=X():Y=Y():DF=2:9400$:X,Y:16,N0 f63450z :F=N16:X,Y,DF,DF:9200#:F: u z20,60<,3,2,30,76L,N0,N1,72H,76L,N0,N1,80P,60<,2,3,72H,44,,N1,N0,30,44,,N1,N0  :" CIRCUIT SYMBOLS ":X=124|:Y=128:DF=N0:9600%:3,13 ;"A Cell" 16,0;" A cell provides an electro- motive force -E.M.F.- which can be used to drive a current through a circuit."'':9994 ' |X,Y:-480,N0:N0,-579:16,N0:SX=X():SY=Y():8400 :14,10 ;"Switch":X,SY:27,N0 HST=N0:BX=18:BY=12 :7900:14,18;"Bulb" 9X()+5,SY:24,N0:N0,579:-44,,N0 "":16,N0;" If the switch is closed,the circuit is completed. The E.M.F.of the cell drives a current,(I)around the circuit and in doing so produces a P.D. between the bulb connections." 29994 ':L1=16:L2=21:85004!  "":SF=N0 j16,N0;" Press ""S"" to close and open theswitch."''" Press any other key to continue":9990' =""4035 O="S"BY,BX;N1;(150-SF*2):8410 :8450!:4034 @:N0,7;"CIRCUIT VARIABLES"'7;"" `3,2;"In a circuit there are three quantities that need to be considered:" 98,4;"CURRENT,"'" measured in AMPERES" c'''" ELECTROMOTIVE FORCE and POTENTIAL DIFFERENCE, both measured in Volts" .''" RESISTANCE,"'" measured in OHMS" 9994 ': _''" Current is a measure of the rate of flow of charge past any point in the circuit." ''" A potential difference may be thought of as a ""pressure difference"". An E.M.F. can forcea current to flow through a circuit component,thus creating a potential difference across it." ''" The resistance of a circuit component is its ability to resist the flow of current. Components used specifically for their resistive property are called RESISTORS." 9994 ': A3;"AMMETERS AND VOLTMETERS"'" " DF=N0:X=104h:Y=128:9600%:X,Y:-24,N0:N0,-579:25,N0:BX=13 :BY=12 :ST=N0:7900 uX()+4,Y():64@,N0:N0,579:X+6,Y:18,N0:SX=X+24:SY=Y:8400 :20,N0 VX=N0 s16,N1;" The current flowing through a component is measured by connec-ting an ammeter in series with it." 69994 ':140,71G:1;16,N0 140,71G:N0,13 :156,71G:N0,13 :AX=17:AY=8:X=AX:Y=AY:9900&:RD=N0:MX=AX:MY=AY:M$="":9100#  "":85004!:4300 }85004!:17,N1;"The current through the bulb, when the switch is closed:"''8;"=0.5 Amperes":9994 ' "":85004!:16,N1;"The potential difference acrossthe bulb is measured by connect-ing a Voltmeter in parallel withit.":"":9994 ':85004! 99c,71G:N0,13 :116t,71G:N0,13 :VX=12 :VY=8:X=VX:Y=VY:9900&:RD=ST:MX=VX:MY=VY:M$="":9100# "":85004!:4300:85004!:17,N1;"The P.D. across the bulb when the switch is closed:"''" =2 Volts":9994 ':"":85004! "|17,N0;" Resistance of bulb:"''" = P.D. / Current = 2 / .5 = 4 Ohms" $9994 ':"":85004! '/:" RESISTANCE"'" " (10 ,N0;" A Rheostat is a variable resistor. Its resistance can be changed by altering the positionof the sliding contact." )[''" (R) Contact to Right"'" (L) Contact to left"'''"Any other key to return to menu." ,136,128:-8,N0:RD=2:IF=N1:RX=128:RY=128:9300T$:X,Y:-8,N0:D=-N1:8900" 1CA$=:8,7;"Resistance=";92\-RD*4;" Ohms " 2A$=""41451 3D=N0 6A$="R"D=N1 7A$="L"D=-N1 9A$"R"A$"L" ; 8900" @ 41451 O18,N1;"""S"" to open and close switch."''" Any other key to continue." =""4305  "S" CX=SX:Y=SY:8410 :ST=2-ST:N1;BY,BX;(148+ST) 1RD=ST/4:M$="":MX=AX:MY=AY:9100# -VXRD=ST:M$="":MX=VX:MY=VY:9100# 94326:N1:F=N13:X,Y,DF:9200#:F:N0 N80P,104h,3,124|,71G,N1,173,104h,2  4305 ~ @:" SHUNTS AND MULTIPLIERS " FL=N0:WR=N0 E'''" This section of the program offers the following options:" 4''" (1) A tester"''" (2) A design aid" '''" Type 12" )9990':N0:"1"Ʀ"2"5023 ="2"5700D %L1=4:L2=12 :85004! _4,6;"Do you want to..."'''" (1) Be led through."''" (2) Work on your own." )9990':N0:"1"Ʀ"2"5040 O=N0:="2"O=N1 L2=15:85004! O5055 5900 :16,N0;"Question: A galvanometer of resistance ";RM;" gives a full"'"scale deflection when a current of ";FS;"mA passes through it." u9994 ':"":L1=15:L2=19:85004!:4,N0;"FSD:";FS;"mA";6,N0;"Galvo."'"Res:";RM;"" f16,N0;"Requirement:A";("n"T$="P");" ";M$;" giving a"'"full scale reading of ";NFS;" ";U$;"." ΖNT=NT+1:N0,N0:4,N0;N0,N0;" Is a Series (multiplier) or Parallel (shunt) resistor"'9 ;" needed? ";I$:I$=""5070 oI$(1)"P"I$(1)"S""":20,7;"Enter ""S""""P""":F=115:F:5070 I$(1)=T$SC=SC+N1 O5500| \I$(1)T$19,10 ;"Mistake.."'"A ";R$;" resistor "'" is required." FL=N1 T$="P"5800 T$="S"5850  9994 ' NT=NT+N1:SC=SC+N1:P$="What is the P.D. across the Galvo at its full scale reading?: ":IY=19:7000X:F=N1502:F L1=19:L2=21:85004!:M(VG,I$)SC=SC-N1:19,N0;"Mistake...P.D.=F.S.D * R.G"'" =";VG;" Volts" T$="P"5810 T$="S"5860  9994 ' T$="P"5300 T$="S"5400 P 5500| kNT=NT+N1:SC=SC+N1:P$="Current (in Amperes) flowing through the resistor : ":IY=19:7000X F=N110 :F 85004!:M(I$,IR)SC=SC-N1:19,0;"Mistake..."'"I through R=New FSR - IG = ";IR;" Amperes"  5820  9994 '  _NT=NT+N1:SC=SC+N1:P$="P.D. (in Volts) across the resistor : ":IY=19:7000X F=N110 :F "~85004!:M(I$,VR)SC=SC-N1:19,0;"Mistake..."'"PD across R=New FSR - V across G = ";VR;" Volts" , 5870 6 9994 ' r nNT=NT+N1:SC=SC+N1:N0,N0:4,N0;N0,N0;" What is the value (in Ohms) of the resistor ";I$ a8200 :ERR#N1;3,N0;N0,N0;" Incorrect entry":F=N120:F:5530 E19,10 ;:M(I$,R)SC=SC-N1:N1;"Mistake":5600 I$=RWRN1;"Correct" .FL5830+502*(T$="S"):5536 5800+502*(T$="S") 8F=N125:F:L1=19:L2=20:85004! ?19,N0;"A ";R$;" resistor"'"of ";R;" Ohms is required";  9994 ' 7200 :5000 F=0502:F:19,0;:T$="P"" R=V / I through R =";N(VG,3);" / ";N(IR,3)'" =";N(R,3);"" zT$="S"" R=V across R / I through R =";N(VR,3);" / ";N(FS/1000,3)'" =";N(R,0);"" .FL5830+502*(T$="S"):5640 5800+502*(T$="S")  5545 DP$="Current (in mA) needed to pro- duce a full scale deflection on the galvanometer (Range 1mA- 100mA) : ":IY=5:7000X:I$=((I$+.5)) KFS=I$ L%FS<1FS>100d5700D NP$="Resistance of galvanometer (in Ohms, Range "+N(20/FS,0)+"-"+n(20/FS*502,0)+") : ":IY=10 :7000X:I$=((I$+.5)) URM=I$ V4RM<20/FSRM>20/FS*5025710N X=13 ,N0;"Do you want to read Volts or Amps ? ";:N0 ]!A$=:A$"V"A$"A"5725] b5A$="V""Volts":T$="S":U$="Volts":M$="Voltmeter" g1A$="A""Amps":T$="P":U$="Amps":M$="Ammeter" h"MINV=N(RM*FS/100d,1) iMINA=(FS/1000)*5 jMIN=MINA:T$="S"MIN=MINV lP$="Full scale reading (in "+U$+") of the "+M$+" required"+13 +"(Range ":Q$=MIN+"-"+(5*(100dU$(N1)="V")+5*(U$(N1)="A"))+") : ":P$=P$+Q$:IY=16:7000X:NFS=I$ m,T$="S"I$>500ŰI$5ŰI$85004!:16,N0;P$;H$:9994 ':"":85004!: ,o2,2,N1,3,2,N1,6,4,2,4,4,2,8,2,6 6QD=R(3,N1):NC=R(6,2):E=NC*1.5@:RI=NC*R(N1,.5) @+6700,:F=N1̨R(5,N1):A,B,C:F J X=64@:Y=88X:6900:16,N0:N0,513:-16,N0:X=X():Y=Y():DF=3:9400$:X,Y:-24,N0:X=X-24:9400$:X,Y:-16,N0:N0,-513:24,N0 X=24:Y=112p:DF=2:9200#:X=128:DF=3:9200#:N1;7,2;"";7,15;"" _Y=150:X=32 :DF=N0:9200#:X,Y:40(,N0:X=X+40(:DF=N1:9200# _Y=150:X=80P:DF=N0:9200#:X,Y:40(,N0:X=X+40(:DF=N1:9200# _N1;2,5;"Va";2,11 ;"Vb";5,5;"Ra";5,11 ;"Rb"  X=64@:Y=64@:6900:16,N0:N0,480:-24,N0:N0,12 :-8,N0:X=X():Y=Y():DF=3:9400$ X,Y:-8,N0:N0,-12 :X+32 ,Y-12 :N0,-12 :-8,N0:Y=Y-24:X=X+24:9400$:X,Y:-8,N0:N0,12 :-24,N0:N0,-480:24,N0 _X=64@:Y=140:DF=N0:9200#:X,Y:40(,N0:X=X+40(:DF=N1:9200# FX=102f:Y=100d:DF=N1:9200#:Y=124|:9200# 1;3,10 ;"V";6,6;"Ra";9 ,6;"Rb";11 ,4;"";11 ,15;"";9 ,13 ;"Ib";6,13 ;"Ia" UX=40(:Y=84T:DF=2:9200#:X=128:DF=3:9200#  X=64@:Y=64@:6900:11 ,N0:N0,16:X=X():Y=Y():DF=N1:9400$:X,Y:N0,8:-19,N0:N0,12 :-8,N0:X=X():Y=Y():DF=3:9400$ X,Y:-8,N0:N0,-12 :X+32 ,Y-12 :N0,-12 :-8,N0:Y=Y-24:X=X+24:9400$:X,Y:-8,N0:N0,12 :-24,N0:N0,-480:24,N0 _X=64@:Y=140:DF=N0:9200#:X,Y:40(,N0:X=X+40(:DF=N1:9200# FX=102f:Y=100d:DF=N1:9200#:Y=124|:9200# ̣3,10 ;"V";6,6;"Ra";9 ,6;"Rb";11 ,4;"";N1;11 ,13 ;"Rd";6,13 ;"Ia";9 ,13 ;"Ib" 0X=40(:Y=84T:DF=2:9200#  ۍX=64@:Y=64@:6900:16,N0:N0,480:-8,N0:N0,12 :-8,N0:X=X():Y=Y():DF=3:9400$ MX,Y:-24,N0:X=X-24:9400$:X,Y:-8,N0:N0,-12 lX()+88X,Y():N0,-12 :-32 ,N0:X=X():Y=Y():9400$:X,Y:-32 ,N0:N0,12 (-8,N0:N0,-480:24,N0 _X=32 :Y=142:DF=N0:9200#:X,Y:88X,N0:X=X+88X:DF=N1:9200# X=24:Y=88X:DF=2:9200#:X=128:DF=3:9200#:N1;11 ,2;"";11 ,15;"" FX=117u:Y=100d:DF=N1:9200#:Y=124|:9200# N1;5,5;"Rb";5,11 ;"Rc";8,8;"Ra";3,9 ;"V";5,14;"Ib";10 ,13 ;"Ia"  SX-16,Y:16,N0:N=NC:DF=N0:9500%:X,Y:480-NC*8,N0: XN0,N0:23-IY,N0;5-(IY19)-(IY20),N1;"Type a number & press ENTER";N0,N0;(P$);I$:8200 :ERR7000X bIY,N0;P$;I$ l  E:2,8;"Your score so far"'8;"" %'''" Number of correct answers...";SC *&'" Number of responses made....";NT /''11 ;SC;" out of ";NT 1P=N(100d*SC/NT,N0) 9-15,8;"A ";P;"% success rate"'' >NT69994 ': C%P=100d13 ;"EXCELLENT!" H*P80PP<100d14;"GOOD" M@P502P<80P"Well done,but why not try a few more?" RvP<502"If you do not understand the questions read the booklet whichaccompanies this program and tryagain." \ 9994 '  ;N1;N1;BY,BX;(148+ST);BY+N1,BX;N0;156: .PC=N0:I$=""I$="."űI$10 8250:  F=N1̱I$ -I$(F)="."PC=PC+N1:PC=28250: &-(I$(F)<"0"I$(F)>"9")I$(F)"."8250: 0 F:ERR=N0: : ERR=N1: l5NCL=2E=3:Ri=N1:R=A((*5)+N1) q:NCL=4E=6:Ri=2:R=B((*5)+N1) v:NCL=6E=9 :Ri=3:R=C((*5)+N1) {I=E/(Ri+R):V=I*R  fSX,SY:N0,N1:N1,N0:N0,-N1:21,8:SX+24,SY:N0,N1:N1,N0:N0,-N1:X=SX+26: ESX+N1,SY:N1;21,8:SX+N1,SY:N1;22,N0:SF=SF: !;8460 !:N1:F=N15:X,Y,DF:9200#:F:N0: ! y96`,128,N0,76L,96`,3,130,71G,N1,174,96`,2,156,128,N0 !6!L1,N0;S$((L2-L1+N1)*32 ) !> !M19,10 ;"Volts"'10 ;"Amperes"'10 ;"Ohms" !"A"Ʀ"O"Ʀ"V"8605! ! CF==C$ ! !E9400$: "SE=N19 ,N0:6,N0,-:9 ,N0:X=X+24:X-12 ,Y,8: "T13 ,8;157:8,N0:X+16,Y:8,N0:X=X+24: "` OD=D:CF=N1 "eN0 "j="L"D=N1:8820t" "o="R"D=-N1:8820t" "q 8805e" "t DODCF=N0 "yR=R+D "~R23R=R-D:D=N0 " "RD-D23D=N0 "D8920" "DF=3:N1 " F=IFN1 "FIFRD=RD-D " X=RX-13 -RD:Y=RY+5 "$9200#:X,Y:N0,8-(D=N1) "F:N0 " D=N1N1 "X-D,Y+8:N0 " IF=N0: #O$=M$:M$=M$+"" #RD=N09103# #2RD3R$=R$(3) # MY,MX;R$ #M$=O$ # #EX,Y:-2*((DFN0)-(DF=N0)),2*((DF2)-(DF=2)) #EX,Y:2*((DFN1)-(DF=N1)),-2*((DF3)-(DF=3)) # $T%RX,RY:N0,13 :-12 -RD,N0 $Y DF=3 $^!X=RX-12 :Y=RY:9400$ $c $XI=N0:YI=N0 $YI=(DF=N1)-(DF=N0) $XI=(DF=2)-(DF=3) $X,Y $0YI*4,XI*4:XI*24,YI*24 $4-YI*8,-XI*8:-XI*24,-YI*24 $YI*4,XI*4 $"X=X+XI*24:Y=Y+YI*24 $ %I=N1N %! 9600% %&XI=(DF=N0)-(DF=N1) %+YI=(DF=3)-(DF=2) %- X=X+8*XI:Y=Y+8*YI %0X,Y:-XI*4,-YI*4 %:I %? %DF*502+9700% %X,Y-10 :N0,20 %IX+3,Y+3:N0,-6:N1,N0:N0,6:N1,N0:N0,-6 % &X,Y-10 :N0,20 &KX-3,Y+3:N0,-6:-N1,N0:N0,6:-N1,N0:N0,-6 &  &HX-10 ,Y:20,N0 &MJX-3,Y-3:6,N0:N0,-N1:-6,N0:N0,-N1:6,N0 &R &zX-10 ,Y:20,N0 &HX-3,Y+3:6,N0:N0,N1:-6,N0:N0,N1:6,N0 & &#X*8-N1,(22-Y)*8 &N0,-9 :25,N0 &N0,9 :-25,N0 &0X*8-3,(22-Y)*8+2 &N0,-29:29,N0 &N0,29:-29,N0 &Y+2,X;"+ -" & '""9990' ' '=""9992' '  ' k0,0:#N1;" PRESS ANY KEY,(""M"" for menu)";:9990':9992':23560\=77M ' .005y# =,34": '%23653e\+256*23654f\ " "23552\,37900 :400  \5\ 00 @ @@ @ @ @ @ @@ @ @@ @ @ @@ @ @ @ @ @@ @ @@ @ @ @@ @ @ @ @ @@ @ @@ @ @@ @ @ @ @ @@ @ @ @ @ @ @@ @ @ @ @ @@ @ @ @ @@ @ @@ @ @ @ @ @@ @ @ H