10ONERRORRUN
   20REM (C)opyright Concord Comms & John Ilsley 1992
   30REM Resistor Information Program. Takes 4.297k Of Memory
   40MODE7:A=3:GOTO570
   50DATA0,BLACK,1,BROWN,2,RED,3,ORANGE,4,YELLOW,5,GREEN,6,BLUE,7,VIOLET,8,GRAY,9,WHITE
   60DATA1,BLACK,10,BROWN,100,RED,1000,ORANGE,10000,YELLOW,1000000,GREEN,1000000,BLUE,.1,GOLD
   70DEFPROCtopline(Z)
   80IFZ=1OR Z=2 R=9:RESTORE50
   90IFZ=3R=7:RESTORE60
  100PRINT"„‡":FOR A=0TO R:READ A$,B$:PRINT"„‡";A;" = ";A$;" = ";B$:NEXT:PRINT"„‡":ENDPROC
  110DEFPROCcode(Z$,Z)
  120IFZ$="0"AND Z=1FC$="BLACK":FV$="0"
  130IFZ$="1"AND Z=1FC$="BROWN":FV$="1"
  140IFZ$="2"AND Z=1FC$="RED":FV$="2"
  150IFZ$="3"AND Z=1FC$="ORANGE":FV$="3"
  160IFZ$="4"AND Z=1FC$="YELLOW":FV$="4"
  170IFZ$="5"AND Z=1FC$="GREEN":FV$="5"
  180IFZ$="6"AND Z=1FC$="BLUE":FV$="6"
  190IFZ$="7"AND Z=1FC$="VOILET":FV$="7"
  200IFZ$="8"AND Z=1FC$="GRAY":FV$="8"
  210IFZ$="9"AND Z=1FC$="WHITE":FV$="9"
  220IFZ$="0"AND Z=2SC$="BLACK":SV$="0"
  230IFZ$="1"AND Z=2SC$="BROWN":SV$="1"
  240IFZ$="2"AND Z=2SC$="RED":SV$="2"
  250IFZ$="3"AND Z=2SC$="ORANGE":SV$="3"
  260IFZ$="4"AND Z=2SC$="YELLOW":SV$="4"
  270IFZ$="5"AND Z=2SC$="GREEN":SV$="5"
  280IFZ$="6"AND Z=2SC$="BLUE":SV$="6"
  290IFZ$="7"AND Z=2SC$="VOILET":SV$="7"
  300IFZ$="8"AND Z=2SC$="GRAY":SV$="8"
  310IFZ$="9"AND Z=2SC$="WHITE":SV$="9"
  320IFZ$="0"AND Z=3TC$="BLACK":TV$="1"
  330IFZ$="1"AND Z=3TC$="BROWN":TV$="10"
  340IFZ$="2"AND Z=3TC$="RED":TV$="100"
  350IFZ$="3"AND Z=3TC$="ORANGE":TV$="1000"
  360IFZ$="4"AND Z=3TC$="YELLOW":TV$="10000"
  370IFZ$="5"AND Z=3TC$="GREEN":TV$="100000"
  380IFZ$="6"AND Z=3TC$="BLUE":TV$="1000000"
  390IFZ$="7"AND Z=3TC$="GOLD":TV$=".1"
  400ENDPROC
  410DEFPROCenter
  420CLS:PRINT"ƒ„"'"ƒ„Please Select theFIRST„colour :-"'"ƒ„":PRINT':PROCtopline(1):PRINT':PRINT"†"'"†Press the letter now...."'"†":A$=GET$:PROCcode(A$,1):CLS:PRINT"ƒ„"'"ƒ„Please Select theSECOND„colour :-"'"ƒ„":PRINT':PROCtopline(2):PRINT'
  430PRINT"†"'"†Press the letter now...."'"†":A$=GET$:PROCcode(A$,2):CLS:PRINT"ƒ„"'"ƒ„Please Select theTHIRD„colour :-"'"ƒ„":PRINT':PROCtopline(3):PRINT':PRINT"†"'"†Press the letter now...."'"†":A$=GET$:PROCcode(A$,3):CLS
  440PRINT"‡"'"‡1st Colour  =  ";FC$:PRINT"‡"'"‡2nd Colour  =  ";SC$:PRINT"‡"'"‡3rd Colour  =  ";TC$'"‡":PRINT':PRINT"†„The Value Is : - ":PRINT'':PROCtotals:PROCkey:IFk=13GOTO420 ELSE ENDPROC
  450DEFPROCtotals
  460A$=FV$+SV$:A=VAL(A$):B=VAL(TV$):C=A*B:PRINT"ƒ„"'"ƒ„            ";C;" ohms"'"ƒ„":T=B
  470IF T=.1 GOTO560
  480IF T=1 GOTO560
  490IF T=10 E$="."+FV$+SV$+" k"
  500IF T=100 E$=FV$+"."+SV$+" k"
  510IF T=1000 E$=FV$+SV$+" k"
  520IF T=10000 E$=FV$+SV$+"0 k"
  530IF T=100000 E$=FV$+"."+SV$+" M"
  540IF T=1000000 E$=FV$+SV$+"0 M"
  550PRINT'"†  or"':PRINT"„‡"'"„‡            ";E$'"„‡"
  560ENDPROC
  570CLS:MODE7:PRINT"„‡"'"„‡";TAB(17-6,1);"    Main Menu"'"„‡"''"1). Find Ohms from colours"''"‚2). Show resistor colour chart"''"ƒ3). Ohms from Volts & Amps"''"…4). Volts from Amps & Ohms"''"†5). Amps from Volts & Ohms"'
  580PRINT"6). Kilohms to Ohms"''"‚7). Ohms to Kilohms / Meg"''" 8). Watts from Volts & Amps"
  590PRINT'"ƒ0). Quit":A$=GET$
  600IFA$="1"A=3:PROCenter
  610IFA$="2"PROCcolours
  620IFA$="3"PROCrvc
  630IFA$="4"PROCvcr
  640IFA$="5"PROCcvr
  650IFA$="6"PROCKtoO
  660IFA$="7"PROCOtoK
  670IFA$="8"PROCwatts
  680IFA$="0"CHAIN"MENU"
  690RUN
  700DEFPROCkey:VDU7:PRINT"†„Return = again Other = Menu";:k=GET:ENDPROC
  710DEFPROCrvc
  720CLS:PRINT"†‡"'"†Calculate„RESISTANCE"'"†‡"''"†‡":INPUT"†‡Enter Voltage„:- "v:INPUT"†‡Enter Amps   „:- "a:PRINT"†‡"'"†„Resistance =";(v/a);"„Ohms"'"†‡"':PROCkey:IFk=13GOTO720
  730ENDPROC
  740DEFPROCvcr
  750CLS:PRINT"‡"'"‡CalculateƒVOLTAGE"'"‡"''"‡":INPUT"‡Enter Amps :-ƒ"a:INPUT"‡Enter Ohms :-ƒ"o:PRINT"‡"'"‡Volts =ƒ";(a*o);"‡Volts"'"‡"':PROCkey:IFk=13GOTO750
  760ENDPROC
  770DEFPROCcvr
  780CLS:PRINT"ƒ„"'"ƒ„CalculateAMPS"'"ƒ„"''"ƒ„":INPUT"ƒ„Enter Volts :-"v:INPUT"ƒ„Enter Ohms  :-"o:PRINT"ƒ„"'"ƒ„Amps =";(v/o);"„Amps"'"ƒ„":PROCkey:IFk=13GOTO780
  790ENDPROC
  800DEFPROCcolours
  810CLS:PRINT"†"'"†Resistor Colour Codes"'"†"':RESTORE:FOR L=0TO9:READ A$,B$
  820IFA$="2"Z$=""
  830IFA$="4"Z$="ƒ"
  840IFA$="5"Z$="‚"
  850IFA$="6"Z$="„"
  860IFA$="7"Z$="…"
  870IFA$="9"Z$=" "
  880IFA$="1"OR A$="3"OR A$="8"OR A$="0"Z$=" "
  890PRINT"      ";A$;" =";Z$;B$':NEXT:PROCkey:IFk=13GOTO810
  900ENDPROC
  910DEFPROCKtoO
  920CLS:PRINT"†"'"†Convert„KILOHMSto„OHMS"'"†":INPUT"†Enter Kilohms value :-„"o
  930IFo>=1000000Y=1000000:Y$="ohms"
  940IFo<=999999Y=1000:Y$="ohms"
  950V=o*Y:PRINT'"†"'"†Value =„";V;Y$'"†":PROCkey:IFk=13GOTO920
  960ENDPROC
  970DEFPROCOtoK
  980CLS:PRINT"†"'"†Convert„OHMSto„KILOHMS/MEG"'"†":INPUT"†Enter Ohms value :-„"o
  990IFo>=1000000Y=1000000:Y$="M"
 1000IFo<=999999Y=1000:Y$="k"
 1010V=o/Y:PRINT'"†"'"†Value =„";V;Y$'"†":PROCkey:IFk=13GOTO980
 1020ENDPROC
 1030DEFPROCwatts
 1040CLS:PRINT"†"'"†Calculate„WATTS"'"†":INPUT"†Enter Volts :-„"v:INPUT"†Enter Amps  :-„"a
 1050r=v*a
 1060PRINT'"†"'"†Total =„";r;"WATTS"'"†"':PROCkey:IFk=13GOTO1040
 1070ENDPROC