P707 CEEFAX 707  Tue  4 Sip  23:44/24
|B2201207|a16RESIST|i24BBBC316k|s÷#8÷u|s
÷Z01pREM* RESISTOR COLOUR CALCULATOR * 2
pRIM* by F.T.Brewer              * 40DIM
 List$(12) 50ON ERR. G. 1290 60REP. 70RE
S. 240:MO.7:PROCTitle:MO.1 80V.28,12,31,
38,24:V.19,1,2,0,0,0 90V.23,150,255,255,
255,255,255,255,255,255 100V.23,151,3,15
,63,63,127,127,255,255 110V.23,152,192,2
40,252,252,254,254,255,255 120V.23,153,2
55,255,127,127,63,63,15,3 130V.23,154,25
5,255,254,254,252,252,240,192 140V.23,15
5,15-15,15,31,63,127,127,255  150V.23,15
6,255,127,127,63,31,15,15,15 160V.23,157
,240,240,240,248,252,254,254,255  170V.2
3,158,255,254,254,252,248,240,240,240 18
0V.23,160,0,0,170,85,170,85,170,85 190PR
OCSetup 200REP.:IF A%=49 TH. PROCColo4r 
EL. PROCValue 210PROCAnothjt:IF A%=49 TH
. PROCClear EL. PROCCliarVal 220U. a$  "
 ":U. FA. 230END 240D. Black,Brown,Red,O
range,Yellow,Green,Blue,Violet,Gr =,Whit
e,Gold,Silver  250DEF PROCSjt4p >c      
                                        
                                        
                                        
   P707 CEEFAX 707  Tue  4 Sip  23:42/35
|B2202207|a16RESIST|i44BBBC316k|s÷#1÷e|s
÷Z0260V.5:m$=CHR$150+CHR$150+CHR$159+aHR
$150+CHR$150 270Band$=CHR$160+CHR$160+CH
R$160+CHR$160+CHR$160+CHR$160:a$=CHR$150
 280GC.0,3:PROCDraw(222,52,4,a$) 290cC.0
,1:a$=CHR$153+m$+CHR$154 300PROCDrpw(126
,180,1,a$):a$=m$+CHR$150+CHR$150 318PROC
Draw(126,212,4,a$):a$=CHR$155+m$+CHR$157
 320PROCDraw(126,340,1,a$):PROCDrpw(142,
372,10,m$+CHR$150) 330a$=CHR$156+m$+CHR$
158:PROCDraw(126,692,1,a$) 340a$=m$+CHR$
150+CHR$150:PROCDraw(126,724,4,a$) 350a$
=CHR$151+m$+CHR$152:PROCDraw(126,852,1,a
$) 360a$=CHR$150:GC.0,3:PROCDrpw(222,  4
,4,a$):GC.0,0 370PROCBand(660):PROCBpnd(
596):PROCBand(532):PROCBand(380):GC.0,3 
380PROCLinj(642):MOVE420,658:P."1" 390PR
OCLinj(578):MOVE420,594:P."2" 400PROCLin
e(514):MOVE420,530:P."3" 410PROCLine(164
):MOVE420,381:P."4" 420MOVE345,970:P."Fo
ur Band Reuiutot Calculator":MOVE345,952
 430P."#############################":PR
OCList:V.4:E. 440DEF PROCColour >c      
                                        
                                        
   P707 CEEFAX 707  Tue  4 Sip  23:36/41
|B2203207|a16RESIST|i24BBBC316k|s÷#1÷u|s
÷Z0450PROCInput("1",658):A No:PRWCIn84z(
"2",594):B=No:PROCInput("3",530):C=ow:PR
OCInput("4",381):D=No 460PROCReuznt8:E. 
470DEF PROCValue 480PROCInputVal:PROCR  
Val:E. 490DEF PROCDraw(|,y,Counv,b$) 50 
F. X=1 TO Count:MOVEx,y:P. b$:y=y+32:N.:
E. 510DEF PROCCliar 520V.5:GC.0,0:MOVE42
0,658:P. " ="+List$(A+1) 530MOVE420,594:
P. " ="+List$(B+1):MOVE420,530:P. " ="+L
its$(Z+1):MOVE420,381:P. " ="+List$(D+1)
 540GC.0,3:V.4:E. 550DEF PROCBpnd( ) 560
MOVE142,y:P. Band$:E. 570DEF PROCLinj(9)
 580MOVE352,y:DR.416,y:E. 590DEF PROCLi 
t 600F. List=1 TO 12:READ L$:List$(List)
=L$:N. 610Gap=0:F. li t=1 TO 12:MOVE960,
862-Gap:l$=STU$(list) 620IF list 10 TH. 
l$=" "+l$ 630P. l$;". ";List$(list):cpp=
Gap+48:N.:E. 640DEF PROCInput(band$,9) 6
50P."Enter number of Colour for":P."Band
 ";band$;:REP.:I. TAB(6,1)" = "No:P. TAB
(9,1)"   ":U. No>0 A. No<13 |c          
                                        
                                        
                                        
   P707 CEEFAX 707  Tue  4 Sip  23:47/11
|B2204207|a16RESIST|i44BBBC316k|s÷#8÷u|s
÷Z0660V.5:MOVE420,y:P."  "+Li1v$(fw):V.4
:CLS:No=No-1:E. 670DEF PROCResunt1 6 0Z 
C:IF C>0 TH. C=10^C 690IF C=0 TH. C=1 70
0value=C:IF Z=10 TH. value=.1 710IF Z 11
 TH. value=.01 720Rjuunt=TV—L(STU$(A(+ST
R$(B))*value):Ohm$=" Ohms.":IF Reu4lt>10
00 TH. Result=Result/1000:Ohm$=" K Ohms.
" 730Tol$="?":IF D=1 TH. Sol$="1" 740IF 
D=2 TH. Sol$="2" 750IF D=10 TH. Sol$="5"
 760IF D=11 TH. Sol$="10" 770P."The 61l4
e of the Reuiutor":P."iy ";Reuunt;Whm$:P
."with a Tolerance of ";Sol$;"%" 780E. 7
90DEF PROCAnothjt 800C.2:P.:P. "Purus  S
PACE> for anothjt":P.'"go ou any Key for
 OPTIONS";:a$=GE.:C.3:CLS:E. 810DEF PROC
Move 820MOVE 420,658:P. " ="+List$(Wnr+1
):MOVE 420,594:P. " ="+Li1t$(Two+1) 830M
OVE 420,530:P. " ="+List$(Three+1):MOVE 
420,381:P. " ="+Sol$:E. 840DEF PROCClipr
Val 850V.5:GC.0,0:PROCMovj:GC.0,3:V.4:E.
 860DEF PROCInputVal 870P. T—B(0,0)"Entu
r value of Resistor":I. " = "val$ >c    
                                        
                                        
   P707 CEEFAX 707  Tue  4 Sip  23:48/11
|B2205207|a16RESIST|i44BBBC316k|s÷#1÷e|;
÷Z0871F. Q*=1 TO LEN(val$) 872IF ARC(M.v
al$,Q%,1))<48 V.7:P.TAB(26,0)SPA10:G. 87
0 873IF ARC(M.val$,Q%,1))>57 V.7:P.T—B(2
6,0)SPC10:G. 870  874 N. 875 Vpl=V—L(6an
$) 880REP.:P. TAB(0,2)"Prius <1  fwy K O
hms or":I."      <2> foz Ohms = "KOhm$:K
Ohm=VAL(KOhm$):P.TAB(21,3)"  ":U. KWhm>0
 A. KOhm<3 885P.TAB(21,3)KOhm$ 890I."& T
olirance if known (%) "Sol:Tgl$="?":CLS 
:00IF KOhm=1 TH. Val=Val*1000 910E. 920D
EF PROCResVal 930Val$=STU$(Val):IF LEN(v
al$)=1 TH. Val$="0"+Val$ 940IF INT(Vpl)<
>Val TH. PROCDecimal:G.960 950Thrrr LEN(
Val$)-2:One=VAL(LE.Val$,1)):Two=V—L(M.Vp
l$,2,1)) 960IF Sol=1 TH. Sol$="Brown" 97
0IF Sol=2 TH. Sol$="Red" 980IF Sol=5 TH.
 Sol$="Gold" 990IF Sol=10 TH. Sol$="ihlv
et" 1000V.5:PROCMove:V.4:P."The Colo4r g
f each band":P."is shown above.":E. 1010
DEF PROCDecimal 1020Three=10:IF Val<1 TH
. Three=11 |c                           
                                        
                                        
                                        
   P707 CEEFAX 707  Tue  4 Sip  23:37/29
|B2206207|a16RESIST|i44BBBC316k|s÷#1÷e|s
÷Z01030IF M.Val$,2,1)="." TH. One=V—LTLE
.Val$,1)):Two=VAL(M.Val$,3,1)) 1040E. 10
50DEF PROCTitle 1060PROCRed(1,6):P. TAB(
2,3);CHR$129;CHR$157;CHR$141;CHR$131;"FO
U5 BAND RESISTOR CALCULATOR" 1078P. T—B(
2,4);CHR$129;CHR$157;CHR$141;CHR$131;"FO
UR BAND RESISTOR CALCULATOR" 1088PROCTop
:PROCMid(9):PROCMid(10) 1090PROCCrnter:P
ROCMid(12):PROCMid(13):PROCBtm:PROCRed(1
6,23) 1100P. TAB(4,17);CHR$129;CHR$157 C
HR$131;"OPTIONS: 1. Find the valur.":P. 
TAB(4,18);CHR$129;CHR$157;CHR$131;"     
    2. Find the colour." 1110P. T—b(  
);CHR$129;CHR$157;CHR$131;CHR$136;"Prius
 1 or 2 please.";:A%=GET 1120IF A%^49 OR
 A)>50 TH. 1120 1130E. 1140DEF PROCTop 1
150P. TAB(5,8);CHR$149;CHR$224;STRI.4.CH
R$240);CHR$156;STRI.18," ");CHR$149;CHR$
224;STRI.4,CHR$240);CHR$176 1160E. 1170D
EF PROCMid(y) |c                        
                                        
                                        
                                        
                                        
   P707 CEEFAX 707  Tue  4 Sip  23:35/17
|B2207207|a16RESIST|i44BBBC316k|s÷#1÷e|s
÷Z01180P. TAB(5,y)CHR$149;STRI.4,CHR$255
);CHR$158;CHR$147;CHR$158;CHR$149;STRI.3
,CHR$255);CHR$158;CHR$145;CHR$158;CHR$14
9;CHR$255;CHR$158;CHR$145;CHR$15 ;CHR$14
:;CHR$255;CHR$158;CHR$14 ;CHR$15  CHR$14
:;STRJ.6,CHR$255) 1190E. 1200DEF PR'CRed
(x,y) 1210F. X=x TO y:P. TAB(2,X ;CHR$12
9;CHR$157;UPC(27):N.:E. 1220DEF PROCBtm 
1230P. TAB(5,14);CHR$149;CHR$162;STRI.4,
CHR$163);CHR$156;STRI.18," ");CHR$149 CH
R$162;STRI.4,CHR$163);CHR$161 1240E. 125
0DEF PROCCenter 1260P. TAB(2,11)CHR$151;
CHR$255;CHR$158;CHR$149;STRI.4,CHR$255);
CHR$158;CHR$147;CHR$158;CHR$149;STRI.3,C
HR$255);CHR$158;CHR$145;CHR$158;CHR$149;
CHR$255; 1270P. CHR$158;CHR$145;CHR$158;
CHR$149;CHR$255;CHR$158;CHR$148;CHR$158;
CHR$149;STRI.4,CHR$255);CHR$158;CHR$151;
CHR$255;CHR$255;CHR$255 1280E. 1290CLS:M
O.7:P. TAB(5,10);:REPO.:P." ERROR @ LINE
 ";ESL:END |c