home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / qsl.bas < prev    next >
BASIC Source File  |  1997-02-01  |  2KB  |  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 510
  49. 501 NEXT K
  50. 510 IF O$ = "N" OR O$ = "n" GOTO 260
  51. 520 GOTO 260
  52. 530 FOR R = 1 TO K - 1
  53. 540 LPRINT CHR$(14); "* *  "; WC$(R); "  * *"
  54. 550 LPRINT CHR$(15); "Thanks for the two way "; F$(R); " MHz. "; M$(R); " contact of"
  55. 560 LPRINT D$(R); " at "; T$(R); " UTC. Your signals were RST "; S$(R)
  56. 570 LPRINT Q$(R); " JERRY, WB2LEI/4"
  57. 580 LPRINT "RIG = ICOM IC-701, SB-220, TH6DXX @ 16.2 METERS"
  58. 590 LPRINT CHR$(18)
  59. 600 NEXT
  60. 610 CLS
  61. 620 INPUT "MORE (Y/N)"; MR$
  62. 630  IF MR$ = "Y" OR MR$ = "y" GOTO 250
  63. 640 END
  64. 650 CLS
  65. 670 FOR F = 1 TO 5
  66. 680 FOR D = 1 TO 35
  67. 690 LPRINT "X";
  68. 700 NEXT
  69. 710 LPRINT
  70. 720 NEXT
  71. 730 LPRINT
  72. 740 REM
  73. 750 CLS
  74. 760 PRINT "LABEL ALIGNMENT"
  75. 770 PRINT
  76. 780 INPUT "NEED ALIGNMENT (Y/N)"; MO$
  77. 790 IF MO$ <> "Y" THEN RETURN
  78. 800 GOTO 650
  79.  
  80.