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