home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / hamscan / qsl.bas < prev    next >
Encoding:
BASIC Source File  |  1986-11-06  |  2.4 KB  |  80 lines
  1. 10 CLS
  2. 50 CLEAR 14000
  3. 60 P$="Please QSL - Thanks again and 73,"
  4. 70 T$="Thanks again for the QSL, 73,"
  5. 80 DIM WC$(50), F$(50),M$(50),D$(50),T$(50)
  6. 90 GOSUB 740
  7. 100 CLS
  8. 120 LOCATE 3,1:INPUT "DATE (MON DY YR)";D$
  9. 140 LOCATE 1,1:PRINT D$
  10. 150 IF TEST=1 GOTO 260
  11. 160 LOCATE 3,1:PRINT "                          "
  12. 161 LOCATE 3,1:INPUT "FREQUENCY (MHZ) ";F$
  13. 180 LOCATE 1,29:PRINT F$;" MHZ."
  14. 190 IF TEST=1 GOTO 260
  15. 200 LOCATE 3,1:PRINT "                          "
  16. 201 LOCATE 3,1:INPUT "MODE ";M$
  17. 220 LOCATE 1,57:PRINT M$
  18. 230 IF TEST=1 GOTO 260
  19. 240 TEST=1
  20. 250 FOR K=1 TO 50
  21. 260 CLS
  22. 280 LOCATE 1,1:PRINT D$
  23. 290 LOCATE 1,29:PRINT F$;" MHZ."
  24. 300 LOCATE 1,57:PRINT M$
  25. 310 D$(K)=D$
  26. 320 F$(K)=F$
  27. 330 M$(K)=M$
  28. 340 LOCATE 3,1:PRINT "CALLSIGN OF STATION WORKED"
  29. 342 LOCATE 18,1:PRINT "ENTER <D> TO CHANGE DATE"
  30. 344 LOCATE 19,1:PRINT "ENTER <F> TO CHANGE FREQUENCY"
  31. 346 LOCATE 20,1:PRINT "ENTER <M> TO CHANGE MODE"
  32. 348 LOCATE 21,1:PRINT "ENTER <S> TO PRINT OUT QSL LABELS"
  33. 350 LOCATE 4,1:INPUT WC$(K)
  34. 360 IF WC$(K)="D" GOTO 120
  35. 370 IF WC$(K)="F" GOTO 160
  36. 380 IF WC$(K)="M" GOTO 200
  37. 390 IF WC$(K)="S" GOTO 530
  38. 400 LOCATE 5,1:PRINT "TIME (UTC)"
  39. 410 INPUT T$(K)
  40. 420 LOCATE 7,1:PRINT "SIGNAL REPORT (RS(T))"
  41. 430 INPUT S$(K)
  42. 440 LOCATE 9,1:PRINT "QSL - PSE OR TNX (P/T)"
  43. 450 INPUT Q$
  44. 460 IF Q$="P" OR Q$="p" THEN Q$(K)=P$
  45. 470 IF Q$="T" OR Q$="t" THEN Q$(K)=T$
  46. 480 LOCATE 12,1:PRINT "OK (Y/N)"
  47. 490 INPUT O$
  48. 500 IF O$="Y" OR O$="y" THEN NEXT K
  49. 510 IF O$="N" OR O$="n" GOTO 260
  50. 520 GOTO 260
  51. 530 FOR R=1 TO K-1
  52. 540 LPRINT CHR$(14);"* *  ";WC$(R);"  * *"
  53. 550 LPRINT CHR$(15);"Thanks for the two way ";F$(R);" MHz. ";M$(R);" contact of"
  54. 560 LPRINT D$(R);" at ";T$(R);" UTC. Your signals were RST ";S$(R)
  55. 570 LPRINT Q$(R);" JERRY, WB2LEI/4"
  56. 580 LPRINT "RIG = ICOM IC-701, SB-220, TH6DXX @ 16.2 METERS"
  57. 590 LPRINT CHR$(18)
  58. 600 NEXT
  59. 610 CLS
  60. 620 INPUT "MORE (Y/N)"; MR$
  61. 630  IF MR$="Y" OR MR$="y" GOTO 250
  62. 640 END
  63. 650 CLS
  64. 670 FOR F=1 TO 5
  65. 680 FOR D=1 TO 35
  66. 690 LPRINT "X";
  67. 700 NEXT
  68. 710 LPRINT
  69. 720 NEXT
  70. 730 LPRINT
  71. 740 REM
  72. 750 CLS
  73. 760 PRINT "LABEL ALIGNMENT"
  74. 770 PRINT
  75. 780 INPUT "NEED ALIGNMENT (Y/N)"; MO$
  76. 790 IF MO$<>"Y" THEN RETURN
  77. 800 GOTO 650
  78. ---------------------------
  79. Slow Code   9 am    4 pm    9 am    4 pm    9 am    4 pm    4pm
  80.  Practice   7 pm    10 pm   7 pm