10 REM COMP 100 Program
20 REM  M.A.C.  June 1998
25 REM
30 COLOR 14, 1
40 CLS
50 PRINT : PRINT SPC(25); "COMP-100 Switch Coding Program"
55 LOCATE 4, 8: PRINT "* 10.745-51.701mhz * 143.745-184.701mhz * 409.6625-512.001mhz *"
60 LOCATE 9, 13: PRINT "Band Code"
65 LOCATE 10, 15: PRINT "                           1  1  1  1  1  1  1"
70 LOCATE 11, 15: PRINT "1  2  3  4  5  6  7  8  9  0  1  2  3  4  5  6"
80 LOCATE 6, 1: INPUT "What Frequency do you want Coded (ENTER IN MHz)"; F
90 LOCATE 8, 1: PRINT "Set the following switches (marked X) to the OUT position:"
100 REM
110 IF F < 10.745 OR F > 512.001 THEN GOTO 150: GOTO 80
120 IF F < 51.701 THEN GOTO 1000
130 IF F < 184.701 THEN GOTO 3000
140 IF F < 512.001 THEN GOTO 5000
150 LOCATE 14, 28: COLOR 28, 1: PRINT "Out of the COMP -100's Range!": BEEP: BEEP
155 COLOR 14, 1
156 GOTO 1030
160 LOCATE 22, 1: INPUT "Do you want another frequency Coded (Y/N)"; A$
170 IF A$ = "Y" OR A$ = "y" THEN GOTO 40
180 IF A$ = "N" OR A$ = "n" THEN STOP
1000 REM VHF Low Band calculation & warning
1010 REM LOCATE 12, 63: PRINT "X   X": REM Low Band switches Code
1020 LOCATE 11, 69: PRINT "Low Band"
1030 LOCATE 15, 28: COLOR 27, 1: IF F < 30 THEN PRINT "Reception is not possible!": BEEP
1035 COLOR 14, 1
1040 L = ((F - 0) + 10.7)
1050 L = (L / 12.8)
1060 X = L
1100 GOSUB 5500
1200 REM VHF LOW GROUP 2
1205 L2 = 0: X2 = 0
1210 L2 = ((X - INT(X))): REM DECIMAL PART OF GRP1
1215 L2 = (L2 * 16): REM GRP2 NUMBER
1220 X2 = INT(L2): REM INT PART OF GRP2 NUMBER USED TO PRINT GRP2 SWITCHES
1230 REM VHF LOW GROUP 3
1235 L3 = 0: X3 = 0
1240 L3 = ((L2 - INT(L2))): REM GRP 2 NUMBER - INT GRP2 = DECIMAL GRP2
1245 L3 = (L3 * 16): REM GRP3 NUMBER
1250 X3 = INT(L3): REM INT PART OF GRP3 NUMBER USED TO PRINT GRP3 SWITCHES
1260 REM VHF LOW GROUP 4
1265 L4 = 0: X4 = 0
1270 L4 = ((L3 - INT(L3))): REM GRP3 NUMBER - INT GRP3 = DECIMAL GRP3
1275 L4 = (L4 * 10): REM GRP4 NUMBER
1280 X4 = INT(L4): REM INT PART OF GRP4 NUMBER USED TO PRINT GRP4 SWITCHES
1290 GOTO 8000
2000 REM
2180 REM GOTO 160
3000 REM VHF High Band trap & calculation
3010 IF F < 143.745 GOTO 150: GOTO 80
3030 LOCATE 11, 69: PRINT "High Band"
3040 H = ((F - 120) + 10.7)
3050 H = (H / 12.8)
3060 X = H: GOSUB 5400: GOSUB 5500

3070 REM VHF HI AND UHF GROUP 2
3080 L2 = 0: X2 = 0
3090 L2 = ((X - INT(X))): REM DECIMAL PART OF GRP1
3100 L2 = (L2 * 16): REM GRP2 NUMBER
3110 X2 = INT(L2): REM INT PART OF GRP2 NUMBER USED TO PRINT GRP2 SWITCHES
3120 REM VHF HI AND UHF GROUP 3
3130 L3 = 0: X3 = 0
3140 L3 = ((L2 - INT(L2))): REM GRP 2 NUMBER - INT GRP2 = DECIMAL GRP2
3150 L3 = (L3 * 16): REM GRP3 NUMBER
3160 X3 = INT(L3): REM INT PART OF GRP3 NUMBER USED TO PRINT GRP3 SWITCHES
3170 REM VHF HI AND UHF GROUP 4
3180 L4 = 0: X4 = 0
3190 L4 = ((L3 - INT(L3))): REM GRP3 NUMBER - INT GRP3 = DECIMAL GRP3
3200 L4 = (L4 * 10): REM GRP4 NUMBER
3210 X4 = INT(L4): REM INT PART OF GRP4 NUMBER USED TO PRINT GRP4 SWITCHES
3220 GOTO 8000

5000 REM UHF Band trap & calculation
5010 IF F < 409.6625 GOTO 150: GOTO 80
5030 IF F < 469.9999 OR F = 469.9999 THEN GOTO 5080: REM UHF 450-470
5040 IF F < 489.9999 OR F = 489.9999 THEN GOTO 5200: REM UHF 470-490
5050 GOTO 5300: REM UHF 490-512
5080 PRINT "UHF 450-470"
5085 U = ((F - 420) + 10.7)
5090 U = (U / 12.8)
5100 X = U: GOSUB 5420: GOSUB 5500: GOTO 3070

5200 PRINT "UHF 470-490"
5205 U = ((F - 440.0025) + 10.7)
5210 U = (U / 12.8)
5220 X = U: GOSUB 5440: GOSUB 5500: GOTO 3070
5300 PRINT "UHF 490-512"
5305 U = ((F - 460.0025) + 10.7)
5310 U = (U / 12.8)
5320 X = U: GOSUB 5460: GOSUB 5500: GOTO 3070

5400 REM GROUP 1 FOR VHF HI
5405 LOCATE 12, 15: PRINT "      X  "
5410 RETURN
5420 REM GROUP 1 FOR UHF 450-470
5425 LOCATE 12, 15: PRINT "   X     "
5430 RETURN
5440 REM GROUP 1 FOR UHF 470-490
5445 LOCATE 12, 15: PRINT "   X  X  "
5450 RETURN
5460 REM GROUP 1 FOR UHF 490-512
5465 LOCATE 12, 15: PRINT "X        "
5470 RETURN

5500 REM 4TH POSITION OF GROUP 1
5510 IF INT(X) < 4 THEN LOCATE 12, 24: PRINT "X"
5520 RETURN
6000 REM PRINT BIN CODES
6010 PRINT "          ": REM 0
6015 RETURN
6020 PRINT "         X": REM 1
6025 RETURN
6030 PRINT "      X   ": REM 2
6035 RETURN
6040 PRINT "      X  X": REM 3
6045 RETURN
6050 PRINT "   X      ": REM 4
6055 RETURN
6060 PRINT "   X     X": REM 5
6065 RETURN
6070 PRINT "   X  X   ": REM 6
6075 RETURN
6080 PRINT "   X  X  X": REM 7
6085 RETURN
6090 PRINT "X         ": REM 8
6095 RETURN
6100 PRINT "X        X": REM 9
6105 RETURN
6110 PRINT "X     X   ": REM 10
6115 RETURN
6120 PRINT "X     X  X": REM 11
6125 RETURN
6130 PRINT "X  X      ": REM 12
6135 RETURN
6140 PRINT "X  X     X": REM 13
6145 RETURN
6150 PRINT "X  X  X   ": REM 14
6155 RETURN
6160 PRINT "X  X  X  X": REM 15
6165 RETURN

8000 REM Find the GPR 2 active switch numbers
8010 LOCATE 12, 27
8020 IF X2 = 0 THEN GOSUB 6010
8030 IF X2 = 1 THEN GOSUB 6020
8040 IF X2 = 2 THEN GOSUB 6030
8050 IF X2 = 3 THEN GOSUB 6040
8060 IF X2 = 4 THEN GOSUB 6050
8070 IF X2 = 5 THEN GOSUB 6060
8080 IF X2 = 6 THEN GOSUB 6070
8090 IF X2 = 7 THEN GOSUB 6080
8100 IF X2 = 8 THEN GOSUB 6090
8110 IF X2 = 9 THEN GOSUB 6100
8120 IF X2 = 10 THEN GOSUB 6110
8130 IF X2 = 11 THEN GOSUB 6120
8140 IF X2 = 12 THEN GOSUB 6130
8145 IF X2 = 13 THEN GOSUB 6140
8150 IF X2 = 14 THEN GOSUB 6150
8155 IF X2 = 15 THEN GOSUB 6160

9000 REM Find the GRP3 active switch numbers
9010 LOCATE 12, 39
9020 IF X3 = 0 THEN GOSUB 6010
9030 IF X3 = 1 THEN GOSUB 6020
9040 IF X3 = 2 THEN GOSUB 6030
9050 IF X3 = 3 THEN GOSUB 6040
9060 IF X3 = 4 THEN GOSUB 6050
9070 IF X3 = 5 THEN GOSUB 6060
9080 IF X3 = 6 THEN GOSUB 6070
9090 IF X3 = 7 THEN GOSUB 6080
9100 IF X3 = 8 THEN GOSUB 6090
9110 IF X3 = 9 THEN GOSUB 6100
9120 IF X3 = 10 THEN GOSUB 6110
9130 IF X3 = 11 THEN GOSUB 6120
9140 IF X3 = 12 THEN GOSUB 6130
9145 IF X3 = 13 THEN GOSUB 6140
9150 IF X3 = 14 THEN GOSUB 6150
9155 IF X3 = 15 THEN GOSUB 6160

9500 REM Find the GRP4 active switch numbers
9510 LOCATE 12, 51
9520 IF X4 = 0 THEN GOSUB 6010
9530 IF X4 = 1 THEN GOSUB 6020
9540 IF X4 = 2 THEN GOSUB 6030
9550 IF X4 = 3 THEN GOSUB 6040
9560 IF X4 = 4 THEN GOSUB 6050
9570 IF X4 = 5 THEN GOSUB 6060
9580 IF X4 = 6 THEN GOSUB 6070
9590 IF X4 = 7 THEN GOSUB 6080
9600 IF X4 = 8 THEN GOSUB 6090
9610 IF X4 = 9 THEN GOSUB 6100
9620 IF X4 = 10 THEN GOSUB 6110
9630 IF X4 = 11 THEN GOSUB 6120
9640 IF X4 = 12 THEN GOSUB 6130
9645 IF X4 = 13 THEN GOSUB 6140
9650 IF X4 = 14 THEN GOSUB 6150
9655 IF X4 = 15 THEN GOSUB 6160
10010 LOCATE 18, 1: PRINT " Below numbers are only for verification"
10015 LOCATE 19, 1: PRINT X, X2, X3, X4
10020 LOCATE 20, 1: PRINT X, L2, L3, L4
10025 GOTO 160