home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
tech
/
maxfltr1
/
pr.bas
< prev
next >
Wrap
BASIC Source File
|
1988-03-15
|
896b
|
36 lines
100 AB$="FILTER A "
105 GOSUB 150 : REM GET DATA FOR SECTION A
110 ADD=0
115 GOSUB 220 : REM WRITE DATA TO THE PRINTER PORT
120 AB$="FILTER B "
125 GOSUB 150 : REM GET DATA FOR SECTION B
130 ADD=32
135 GOSUB 220 : REM WRITE DATA TO THE PRINTER PORT
140 GOTO 100
150 PRINT "MODE (1 TO 4, SEE TABLE 5) "; AB$;
155 INPUT M
160 IF M<1 OR M>4 THEN 150
170 PRINT "CLOCK RATIO (0 TO 63, N OF TABLE 2) "; AB$;
175 INPUT F
180 IF F<0 OR F>63 THEN 170
190 PRINT "Q (0 TO 127, N OF TABLE 3) "; AB$;
195 INPUT Q
200 IF Q<0 OR Q>127 THEN 190
205 PRINT
210 RETURN
220 LPRINT CHR$(ADD+M-1);
225 ADD=ADD+4
230 FOR I=1 TO 3
240 X=(ADD+(F-4*INT(F/4)))
245 LPRINT CHR$(X);
250 F=INT(F/4)
255 ADD=ADD+4
260 NEXT I
270 FOR I=1 TO 4
280 X=(ADD+(Q-4*INT(Q/4)))
285 LPRINT CHR$(X)
290 Q=INT(Q/4)
295 ADD=ADD+4
300 NEXT I
310 RETURN