Ramsey Electronics FX Series - Page 33

Sample BASIC Program Listing
50 PRINT “Enter Receiver Frequency as 6 digits with NO decimal!”
52 INPUT “For example: 146520. Enter here: “; F
55 N = F/5
60 PRINT “The FX146 or FX220 N number for binary conversion is “; N
101 AA = 0
102 BB = 0
103 CC = 0
104 DD = 0
105 EE = 0
106 FF = 0
107 GG = 0
108 HH = 0
109 II = 0
110 JJ = 0
111 KK = 0
112 LL = 0
113 MM = 0
114 NN = 0
115 OO = 0
116 PP = 0
200 IF N => 32768! THEN AA = 1
205 IF N > 32768! THEN NA = N - 32768!
206 IF N < 32768! THEN NA = N
210 IF NA => 16384 THEN BB = 1
215 IF NA > 16384 THEN NB = NA - 16384
216 IF NA < 16384 THEN NB = NA
220 IF NB => 8192 THEN CC = 1
225 IF NB > 8192 THEN NC = NB - 8192
226 IF NB < 8192 THEN NC = NB
230 IF NC => 4096 THEN DD = 1
235 IF NC > 4096 THEN ND = NC - 4096
236 IF NC < 4096 THEN ND = NC
240 IF ND => 2048 THEN EE = 1
245 IF ND > 2048 THEN NE = ND - 2048
246 IF ND < 2048 THEN NE = ND
250 IF NE => 1024 THEN FF = 1
255 IF NE > 1024 THEN NF = NE - 1024
256 IF NE < 1024 THEN NF = NE
260 IF NF => 512 THEN GG = 1
265 IF NF > 512 THEN NG = NF - 512
266 IF NF < 512 THEN NG = NF
270 IF NG => 256 THEN HH = 1
275 IF NG > 256 THEN NH = NG - 256
276 IF NG < 256 THEN NH = NG
280 IF NH => 128 THEN II = 1
285 IF NH > 128 THEN NI = NH - 128
286 IF NH < 128 THEN NI = NH
290 IF NI => 64 THEN JJ = 1
295 IF NI > 64 THEN NJ = NI - 64
296 IF NI < 64 THEN NJ = NI
300 IF NJ => 32 THEN KK = 1
305 IF NJ > 32 THEN NK = NJ - 32
306 IF NJ < 32 THEN NK = NJ
310 IF NK => 16 THEN LL =1
315 IF NK > 16 THEN NL = NK - 16
316 IF NK < 16 THEN NL = NK