(李建华)色码电阻（亦称色标电阻）的数值标志不受面积的影响，无论从什么方向和角度都能看清。但它也存在着一个不足之处，就是阻值的识别不直观、比较麻烦。本文介绍一个用BASIC语言编制的色码电阻值计算程序，只要运行此程序就能很方便地计算出电阻值。
本程序全部使用汉字提示，采用人机对话方式使用起来明了、方便、程序见附表。
开机执行本程序后，屏幕显示“黑、棕、红、橙、黄……”及所对应的颜色代码A、B、C……。你可将待测电阻的几条色环依照屏幕提示的颜色代码（A、B、C……等）依次将颜色代码输入到计算机中，程序会立即计算电阻值和精度值，并在屏幕上显示出来。
本程序是在APPLE－Ⅱ微机上，用STC2.0汉字系统下编制的。拥有CEC－I型中华学习机的读者，可直接启动机内汉字系统，键入、运行该程序。只是需要将程序中的10、25、420等行改为HOME。
LIST
10 PRINT CHR＄（26）
20 VTAB 6：HTAB 8：PRINT“色码电阻阻值转换程序”
22 FOR I=1 TO 2500：NEXT
25 PRINT CHR＄（26）
28 CLEAR
30 DIM Q＄（12，QQ＄（10）
40 HTAB 8：PRINT“色码所用颜色及代码如下”
45 VTAB 3：HTAB 3
50 FOR I＝0 TO 12
60 READ Q＄（I）
70 PRINT Q＄（I）；“ ”；
80 NEXT I
90 VTAB 8：HTAB 1：INPUT“输入第一道色环代码：”；A＄
100 INPUT“输入第二道色环代码：”；B$
110 INPUT“输入第三道色环代码：”；C＄
120 INPUT“输入第四道色环代码（金，银，无色）：”；D＄
140 FOR I=0 TO 9：READ QQ＄（I）
150 IF A＄=QQ＄（I） THEN Q=I
160 IF B＄=QQ＄（I） THEN R=I
170 IF C＄=QQ＄（I） THEN S=I
180 IF C＄=“K”THEN S=－1
190 IF C＄=“L” THEN S=-2
200 IF D＄=“K” THEN T＝5
210 IF D＄=“L” THEN T=10
220 IF D＄=“M” THEN T=20
230 NEXT I
240 GOSUB 300
250 PRUNT“ ”：PRINT“阻值为：”；RR；“ ”；G＄“ ”；“误差为：”T；“％”
290 GOTO 400
300 RE＝Q*10＋R
310 IF S〈2 THEN G＄=“欧”
320 IF S〉＝2 AND S〈5 THEN G＄＝“千欧”
330 IF S〉= 2 AND S〈5 THEN S=S- 3
340 IF S〉=5 THEN G＄=“兆欧”
350 IF S〉=5 THEN S=S－6
360 RR=INT（RE＋0.5）* INT（100.5＊S）
370 RR＝INT（10*RE*100.5）／10
380 RETURN
400 VTAB 12：HTAB 8：INPUT“继续换算吗（Y／N）？”；Z＄
405 VTAB 12：PRINT CHR＄（9）
410 IF Z＄=“Y” THEN 25
420 PRINT CHR＄（26）
425 DATA黑（A），棕（B），红（C），橙（D），黄（E），绿（F），蓝（G），紫（H），灰（I），白（J），金（K），银（L），无色（M）
427 DATA A，B，C，D，E，F，G，H，I，J
430 END