home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / dxccread.bas < prev    next >
BASIC Source File  |  1997-02-01  |  3KB  |  96 lines
  1. 10 REM DXCCREAD VER 820913 /modified for DATE$ 850101
  2. 20 INPUT "Which DXCC record file " ; F$
  3. 30 IF LEN(F$) = 0 THEN 20
  4. 40 D1$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)
  5. 60 INPUT "Dou you want a selection only " ; Z$
  6. 70 IF LEN(Z$) = 0 THEN 60
  7. 80 IF LEFT$(Z$,1) = "N" THEN Q9 = 5 : GOTO 190
  8. 90 IF LEFT$(Z$,1) = "Y" THEN 110
  9. 100 GOTO 60
  10. 110 PRINT "The folowing options are available"
  11. 120 PRINT "Stations QSL'd                   1"
  12. 130 PRINT "Stations worked but no card sent 2"
  13. 140 PRINT "Cards in the mail direct         3"
  14. 150 PRINT "Cards sent via the bureau        4"
  15. 160 PRINT "All contacts in the list         5"
  16. 170 INPUT "Enter number " ; Q9
  17. 180 IF Q9 < 1 OR Q9 > 5 THEN 110
  18. 190 INPUT "CONSOLE OR PRINTER " ; A$
  19. 200 IF LEN(A$) = 0 THEN 190
  20. 210 IF LEFT$(A$,1) = "P" THEN P6 = 1
  21. 220 IF P6 = 0 THEN 590
  22. 230 INPUT "Wait between pages (Y/N) " ; Z$
  23. 240 IF LEN(Z$) = 0 THEN 230
  24. 250 IF LEFT$(Z$,1) = "Y" THEN P5 = 1 ELSE P5 = 0
  25. 260 GOTO 590
  26. 270 REM SUBROUTINES BEGIN HERE
  27. 280 IF L9 =< 0 THEN GOSUB 470
  28. 290 L9 = L9 - 1 : REM LINE COUNT
  29. 300 T$ = STR$(T) : T$ = "0000" + MID$(T$,2) : T$ = RIGHT$(T$,4)
  30. 310 I = I + 1
  31. 320 IF P6 = 1 THEN 360
  32. 330 PRINT I;TAB(6) P$;TAB(11);C$;TAB(21);D$;TAB(30);
  33. 340 PRINT T$;TAB(37);B$;TAB(41);M$;TAB(47);
  34. 350 GOTO 380 
  35. 360 LPRINT I;TAB(6) P$;TAB(11);C$;TAB(21);D$;TAB(30);
  36. 370 LPRINT T$;TAB(37);B$;TAB(41);M$;TAB(47);
  37. 380 IF Q = 1 THEN Q$ = "QSL'D"
  38. 390 IF Q = 2 THEN Q$ = "WORKED"
  39. 400 IF Q = 3 THEN Q$ = "CARD SENT DIRECT"
  40. 410 IF Q = 4 THEN Q$ = "CARD SENT VIA BUREAU"
  41. 420 IF P6 = 1 THEN 450
  42. 430 PRINT Q$
  43. 440 GOTO 460
  44. 450 LPRINT Q$
  45. 460 RETURN
  46. 470 REM HEADING ROUTINE
  47. 480 P9 = P9 + 1 : REM PAGE NUMBER
  48. 490 IF P6 = 1 THEN 510
  49. 500 GOTO 570 : REM DONT PAGE IT
  50. 510 IF P9 > 1 THEN LPRINT CHR$(26),CHR$(12)
  51. 520 IF P5 = 1 THEN INPUT "CHANGE PAPER AND TYPE P TO CONTINUE " ; Z$
  52. 530 LPRINT F$,D1$,"PAGE ";P9
  53. 540 LPRINT
  54. 550 LPRINT "     PX   CALL       DATE    TIME  BAND MODE   QSL STATUS"
  55. 560 LPRINT"-----------------------------------------------------------------"
  56. 570 L9 = 50 : REM 50 IS HALF OF DXCC
  57. 580 RETURN
  58. 590 OPEN"I",#2,F$ + ".DX"
  59. 600 IF P6 = 1 THEN LPRINT CHR$(26)
  60. 610 IF EOF(2) THEN 690
  61. 620 INPUT#2,P$,C$,B$,M$,D$,T,Q
  62. 630 IF Q = 1 THEN Q1 = Q1 + 1
  63. 640 IF Q = 2 THEN Q2 = Q2 + 1
  64. 650 IF Q = 3 THEN Q3 = Q3 + 1
  65. 660 IF Q = 4 THEN Q4 = Q4 + 1
  66. 670 IF Q9 = Q OR Q9 = 5 THEN GOSUB 280
  67. 680 GOTO 610
  68. 690 CLOSE #2
  69. 700 IF Q9 = 5 THEN 710 ELSE 880
  70. 710 IF P6 = 1 THEN 800
  71. 720 PRINT
  72. 730 PRINT "SUMMARY"
  73. 740 PRINT "TOTAL = " , , Q1 + Q2 + Q3 + Q4
  74. 750 PRINT "QSL'S RECEIVED = ",Q1
  75. 760 PRINT "QSL'S SENT DIRECT = ",Q3
  76. 770 PRINT "QSL'S SENT VIA BUREAU = ", Q4
  77. 780 PRINT "WORKED BUT NO CARD SENT = ", Q2
  78. 790 GOTO 880
  79. 800 GOSUB 470
  80. 810 LPRINT
  81. 820 LPRINT "SUMMARY"
  82. 830 LPRINT "TOTAL = " , , Q1 + Q2 + Q3 + Q4
  83. 840 LPRINT "QSL'S RECEIVED = ",Q1
  84. 850 LPRINT "QSL'S SENT DIRECT = ",Q3
  85. 860 LPRINT "QSL'S SENT VIA BUREAU = ", Q4
  86. 870 LPRINT "WORKED BUT NO CARD SENT = ", Q2
  87. 880 I = 0
  88. 890 L9 = 0 : P9 = 0 : P5 = 0 : P6 = 0
  89. 900 Q1 = 0 : Q2 = 0 : Q3 = 0 : Q4 = 0
  90. 910 INPUT "Again " ; Z$
  91. 920 IF LEN(Z$) = 0 THEN 910
  92. 930 IF LEFT$(Z$,1) = "Y" THEN 60
  93. 3600 FD$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)
  94. 20 IF LEN(Z$) = 0 THEN 910
  95. 930 IF LEFT$(Z$,1) = "Y" THEN 60
  96. 3600 FD$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$