Ramsey Electronics FX-440 Manual page 36

Listing for Sample BASIC program:
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
ltJ4 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 00 0
116 pp 0
200 IF N => 32768! THEN AA = l
205 IF N > 32768! THEN NA = N - 32768!
206 IF N < 32768! THEN NA= N
210 IF NA => 16384 THEN BB = l
215 IF NA
<
16384 THEN NB = NA
216 IF NA > 16384 THEN NB = NA-16384
220
IF NB => 8192 THEN CC = l
225 IF NB
<
8I92 THEN NC = NB
226 IF NB > 8192 THEN NC = NB-8192
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 = l
255 IF NE > 1024 THEN NF = NE-1024
256 IF NE < 1024 THEN NF = NE
260 IF NF => 512 THEN GG = l
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
TH~N
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
Ref. 34
Notice how the
program lines
ask exactly the
same questions
about N and
the remainders
after subtraction
as are required
for "manual"
calculation on
the Programming
Worksheet.
FX-440