urc200.tmb for the SI51
changes channels (presets) on
the General Dynamics/Motorola
AN/URC200 radio
-------------------------------
NEW
--- 1200 baud
2 BAUD=12
--- wait for switch pushed
3 READSW
4 IF A=0 3
--- switch one first
5 F=1
--- switch check loop
6 LOOP 10
7 A=F
8 CHECKSW A
--- skip if switch still pushed
9 IF A<>0 14
--- calculate subroutine
10 A=10
11 A=A*F
12 A=A+10
--- send message
13 GOSUB A
--- next switch
14 A=F
15 A=A+1
16 F=A
17 ENDLOOP
18 GOTO 3
--- end of main loop
--- subroutines for presets
20 PRINT "P"
21 PRINT "1"
23 RETURN
30 PRINT "P"
31 PRINT "2"
33 RETURN
40 PRINT "P"
41 PRINT "3"
43 RETURN
50 PRINT "P"
51 PRINT "4"
53 RETURN
60 PRINT "P"
61 PRINT "5"
63 RETURN
70 PRINT "P"
71 PRINT "6"
73 RETURN
80 PRINT "P"
81 PRINT "7"
83 RETURN
90 PRINT "P"
91 PRINT "8"
93 RETURN
100 PRINT "P"
101 PRINT "9"
103 RETURN
110 PRINT "P"
111 PRINT "0"
113 RETURN
--- run on power up, does not
--- need to be in program line
BOOTON