You are very welcome, Ksarul

Resistor, 11-28-20

My brother wrote this resistor calculating program for his Color Computer. I converted it to the TI-74. It calculates as high as 99 M OHMS. I compared it to this online calculator. It gives similar results...

https://www.calculator.net/resistor-...pe=c&x=26&y=13

My brother's program does the first 3 color bands leaving you to decide the 4th tolerance band. According to the online calculator, Silver = 10%, Gold = 5% and Brown = 1% tolerance. (see the online calculator for more tolerances) In my brother's program, M = Mega and K = Kilo. An empty [enter] will show the color abbreviations used. Neither my brother nor I are programmers or math experts so check out the program before using it. I only have a 'dumb' phone so I find his program useful when I can't get to or use my laptop.

Code:
```10 PRINT "RESISTOR":PAUSE 1:GOTO 20
14 PRINT "colors: blk,brn,red,org,yel":PAUSE
16 PRINT "colors: grn,blu,vio,gry,wht":PAUSE
20 INPUT "1st band color ";A\$:GOSUB 150:A=D
30 INPUT "2nd band color ";A\$:GOSUB 150:B=D
40 INPUT "3rd band color ";A\$:GOSUB 150:C=D
45 IF C>6 THEN PRINT "color out of range..":PAUSE:GOTO 40
50 E=A*10+B
60 IF D>0 THEN 80
70 PRINT E;"OHMS":PAUSE:GOTO 10

80 IF D=1 THEN A\$="0":G\$=STR\$(E):GG=VAL(G\$&A\$):PRINT GG;"OHMS":PAUSE:GOTO 10
90 IF D=2 THEN A\$=STR\$(A):B\$=STR\$(B):GG=VAL(A\$&"."&B\$):PRINT GG;"K OHMS":PAUSE
100 IF D=3 THEN A\$=STR\$(A):B\$=STR\$(B):GG=VAL(A\$&B\$):PRINT GG;"K OHMS":PAUSE
110 IF D=4 THEN A\$=STR\$(A):B\$=STR\$(B):GG=VAL(A\$&B\$&"0"):PRINT GG;"K OHMS":PAUSE
120 IF D=5 THEN A\$=STR\$(A):B\$=STR\$(B):GG=VAL(A\$&"."&B\$):PRINT GG;"M OHMS":PAUSE
130 IF D=6 THEN A\$=STR\$(A):B\$=STR\$(B):GG=VAL(A\$&B\$):PRINT GG;"M OHMS":PAUSE
140 GOTO 10

150 IF A\$="blk" THEN D=0:RETURN
160 IF A\$="brn" THEN D=1:RETURN
170 IF A\$="red" THEN D=2:RETURN
180 IF A\$="org" THEN D=3:RETURN
190 IF A\$="yel" THEN D=4:RETURN
200 IF A\$="grn" THEN D=5:RETURN
210 IF A\$="blu" THEN D=6:RETURN
220 IF A\$="vio" THEN D=7:RETURN
230 IF A\$="gry" THEN D=8:RETURN
240 IF A\$="wht" THEN D=9:RETURN
250 GOTO 14```

Example:

1st band color red [enter]
2nd band color blk [enter]
3rd band color org [enter]

_20 K OHMS