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