home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / contest.bas < prev    next >
BASIC Source File  |  1997-02-01  |  8KB  |  116 lines
  1. 10 ON ERROR GOTO 950
  2. 20 G$ = "G3ZCZ CONTEST LOGGING PROGRAM VERSION 2.20": CLS : WIDTH 80: LOCATE 10, 1: PRINT G$
  3. 30 BANDS = 7: M9 = 4000: DIM W$(M9), F1(M9), B(BANDS), B1(BANDS): R1$ = "00": S1$ = "59": C$ = "?"
  4. 40 BLANK$ = "                                                                    "
  5. 50 C4$ = "RXWBMCFL*/Q?O": L0$ = BLANK$: QS$ = "-": QR$ = QS$: R$ = R1$: S$ = S1$: L1$ = L0$: L2$ = L0$: L3$ = L0$: L4$ = L0$
  6. 60 L5$ = L0$: L6$ = L0$: L7$ = L0$: L8$ = L0$: L13$ = L0$: L12$ = L0$: L11$ = L0$: L10$ = L0$: L9$ = L0$
  7. 70 FOR I% = 1 TO BANDS: READ B(I%): NEXT: DATA 1,4,16,64,256,1024,4096
  8. 80 FOR I% = 1 TO BANDS: READ B1(I%): NEXT: DATA 10,15,20,40,80,160,2
  9. 90 LOCATE 12, 1: INPUT "Enter name of lOG file (D:NAME) Log type .LOG Assumed ", L$: IF L$ = "" THEN 90
  10. 95 INPUT "Do you want a running log printed out (Y/N) "; A$: IF A$ = "" THEN 95
  11. 98 IF LEFT$(A$, 1) = "Y" THEN P1 = 1 ELSE IF LEFT$(A$, 1) = "N" THEN P1 = 0 ELSE 95
  12. 100 GOSUB 880
  13. 110 OPEN L$ + ".$$$" FOR OUTPUT AS #2
  14. 120 OPEN L$ + ".LOG" FOR INPUT AS #1: GOTO 140
  15. 130 GOSUB 380: GOSUB 390: GOSUB 420: GOTO 800
  16. 140 LOCATE 23, 1: PRINT "LOADING LAST ENTRY STRINGS": OPEN L$ + ".CHK" FOR INPUT AS #3
  17. 150 INPUT #3, L13$, L12$, L11$, L10$, L9$, L8$, L7$, L6$, L5$, L4$, L3$, L2$, L1$: CLOSE #3
  18. 160 PRINT "OPENING LOGBOOK "; L$: N4 = 0
  19. 170 IF EOF(1) THEN GOSUB 650: INPUT "Waiting,touch ENTER to continue "; A$: GOTO 800
  20. 180 INPUT #1, D$, T$, B$, C$, R$, S$, M$, P$, QS$, QR$, X$: PRINT N4, C$, X$: IF C$ = "/*" THEN N4 = N4 - 1 ELSE N4 = N4 + 1
  21. 185 IF C$ = "/*" THEN C$ = C8$: GOSUB 270: W$(J) = " ": F1(J) = F1(J) - B(B%): C$ = "/*": GOTO 210
  22. 190 GOSUB 270: W$(J) = C$: F = VAL(B$): FOR Q% = 1 TO BANDS: IF INT(F) = B1(Q%) THEN F1(J) = F1(J) + B(Q%): B% = Q%: GOTO 210
  23. 200 NEXT
  24. 210 C8$ = C$: PRINT #2, D$; ","; T$; ","; B$; ","; C$; ","; R$; ","; S$; ","; M$; ","; P$; ","; QS$; ","; QR$; ","; X$: GOTO 170
  25. 220 LOCATE 20, 1: PRINT BLANK$: LOCATE 20, 1: RETURN
  26. 230 L0$ = BLANK$: MID$(L0$, 6) = D$: MID$(L0$, 15) = T$: MID$(L0$, 20) = C$: MID$(L0$, 32) = B$: MID$(L0$, 36) = M$: MID$(L0$, 40) = P$
  27. 240 IF C$ = "/*" THEN MID$(L0$, 1) = "-" ELSE N4$ = STR$(N4): MID$(L0$, 1) = MID$(N4$, 2)
  28. 250 MID$(L0$, 45) = R$: MID$(L0$, 49) = S$: MID$(L0$, 53) = QS$: MID$(L0$, 55) = QR$: MID$(L0$, 57) = X$: RETURN
  29. 260 T$ = LEFT$(TIME$, 2) + MID$(TIME$, 4, 2): D$ = RIGHT$(DATE$, 2) + "/" + LEFT$(DATE$, 2) + "/" + MID$(DATE$, 4, 2): RETURN
  30. 270 J = 0: IF C$ = "/*" THEN 350
  31. 280 FOR I% = 1 TO LEN(C$): A$ = MID$(C$, I%, 1): J = J + (ASC(A$) - 47): NEXT: J = J * 25: IF J < 0 THEN J = 0
  32. 290 IF J > M9 THEN J = J - M9: GOTO 290
  33. 300 IF LEN(W$(J)) < 1 THEN 350
  34. 310 IF LEFT$(W$(J), 1) = " " THEN 350
  35. 320 IF LEFT$(W$(J), LEN(C$)) = C$ THEN 340
  36. 330 J = J + 1: GOTO 290
  37. 340 I = 0: RETURN
  38. 350 I = 1: RETURN
  39. 360 INPUT "REPORT RECEIVED "; A$: IF A$ = "" THEN 365 ELSE X$ = A$
  40. 365 RETURN
  41. 370 GOSUB 220: INPUT "REPORT SENT     "; S$: IF S$ > "599" THEN 370 ELSE RETURN
  42. 380 GOSUB 220: INPUT "POWER (watts)   "; P$: IF P$ < "0" THEN 380 ELSE RETURN
  43. 390 GOSUB 220: INPUT "BAND            "; F: IF F > 160 THEN 390
  44. 400 FOR I% = 1 TO BANDS
  45. 401 IF INT(F) = B1(I%) THEN 410
  46. 402 NEXT
  47. 403 LOCATE 22, 1: FOR I% = 1 TO BANDS: PRINT B1(I%); " "; : NEXT: GOTO 390
  48. 410 B$ = MID$(STR$(F), 2): B% = I%: GOSUB 650: RETURN
  49. 420 GOSUB 220: INPUT "MODE            "; M$: IF M$ = "" THEN 420 ELSE RETURN
  50. 430 GOSUB 220: INPUT "CALL SIGN       "; A$
  51. 440 IF A$ = "" THEN 510: IF LEFT$(A$, 1) = "" THEN A$ = LEFT$(A$, LEN(A$)): GOTO 440
  52. 450 LOCATE 22, 1: PRINT BLANK$: LOCATE 22, 1: C$ = A$: GOSUB 270: IF I = 1 THEN PRINT "OK": GOTO 510
  53. 460 F2 = F1(J): PRINT "WORKED on ";
  54. 470 FOR Q% = BANDS TO 1 STEP -1: IF F2 < B(Q%) THEN 500
  55. 480 PRINT B1(Q%); " "; : F2 = F2 - B(Q%): IF B1(Q%) = INT(F) THEN PRINT "DUPLICATE"; CHR$(7);
  56. 490 IF F2 >= B(Q%) THEN 470
  57. 500 NEXT
  58. 510 RETURN
  59. 520 GOSUB 220: INPUT "ARE YOU SURE "; A$: IF A$ = "" THEN RETURN
  60. 530 IF N4 < 1 THEN GOSUB 220: PRINT "CAN'T F***** A ZERO ENTRY": RETURN
  61. 540 IF A$ = "" OR LEFT$(A$, 1) <> "Y" THEN RETURN
  62. 550 C$ = C8$: GOSUB 270: F1(J) = F1(J) - B(B%): IF F1(J) <= 0 THEN W$(J) = " "
  63. 560 C$ = "/*": GOTO 600
  64. 570 IF LEN(X$) = 0 THEN 580 ELSE IF LEFT$(C$, 1) = "?" THEN 580 ELSE 590
  65. 580 LOCATE 22, 1: PRINT BLANK$: LOCATE 22, 1: PRINT "GET THE DATA FIRST": RETURN
  66. 590 GOSUB 260: C8$ = C$: GOSUB 270: F1(J) = F1(J) + B(B%): W$(J) = C$: GOSUB 860
  67. 600 PRINT #2, D$; ","; T$; ","; B$; ","; C$; ","; R$; ","; S$; ","; M$; ","; P$; ","; QS$; ","; QR$; ","; X$
  68. 610 IF C$ = "/*" THEN 620 ELSE N4 = N4 + 1: GOTO 630
  69. 620 N4 = N4 - 1: IF N4 < 0 THEN N4 = 0
  70. 630 GOSUB 230: L13$ = L12$: L12$ = L11$: L11$ = L10$: L10$ = L9$: LOCATE 1, 5: PRINT G$
  71. 640 L9$ = L8$: L8$ = L7$: L7$ = L6$: L6$ = L5$: L5$ = L4$: L4$ = L3$: L3$ = L2$: L2$ = L1$: L1$ = L0$: IF P1 = 1 THEN LPRINT L0$
  72. 650 GOSUB 660: C$ = "?": R$ = R1$: S$ = S1$: X$ = "": RETURN
  73. 660 I = 3: GOSUB 700: PRINT L13$: I = 4: GOSUB 700: PRINT L12$: I = 5: GOSUB 700: PRINT L11$: I = 6: GOSUB 700: PRINT L10$
  74. 670 I = 7: GOSUB 700: PRINT L9$: I = 8: GOSUB 700: PRINT L8$: I = 9: GOSUB 700: PRINT L7$: I = 10: GOSUB 700: PRINT L6$
  75. 680 I = 11: GOSUB 700: PRINT L5$: I = 12: GOSUB 700: PRINT L4$: I = 13: GOSUB 700: PRINT L3$: I = 14: GOSUB 700: PRINT L2$
  76. 690 I = 15: GOSUB 700: PRINT L1$: RETURN
  77. 700 LOCATE I, 1: PRINT BLANK$: LOCATE I, 1: RETURN
  78. 710 GOSUB 220: INPUT "ARE YOU SURE "; A$: IF A$ = "" THEN RETURN
  79. 720 IF LEFT$(A$, 1) <> "Y" THEN RETURN
  80. 730 CLS : PRINT "SAVING LAST ENTRY STRINGS BEFORE CLOSING": OPEN L$ + ".CHK" FOR OUTPUT AS #3
  81. 740 PRINT #3, L13$; ","; L12$; ","; L11$; ","; L10$; ","; L9$; ","; L8$; ","; L7$; ","; L6$; ","; L5$; ","; L4$; ","; L3$; ","; L2$; ","; L1$
  82. 750 CLOSE #3: CLOSE #1: CLOSE #2
  83. 760 KILL L$ + ".BAK"
  84. 770 NAME L$ + ".LOG" AS L$ + ".BAK"
  85. 780 NAME L$ + ".$$$" AS L$ + ".LOG"
  86. 790 GOTO 1000: REM END
  87. 800 GOSUB 880: LOCATE 1, 5: PRINT G$, L$: GOSUB 660
  88. 810 LOCATE 17, 30: PRINT "CURRENT ENTRY": GOSUB 260: GOSUB 230
  89. 820 MID$(L0$, 1) = STR$(N4 + 1): LOCATE 18, 1: PRINT BLANK$: LOCATE 18, 1: PRINT STR$(N4 + 1), C$, X$
  90. 830 GOSUB 220: INPUT "QRU "; A$: IF A$ = "" THEN 830
  91. 840 FOR J2% = 1 TO LEN(C4$)
  92. 841 IF LEFT$(A$, 1) = MID$(C4$, J2%, 1) THEN 850
  93. 842 NEXT: GOTO 830
  94. 850 GOSUB 220: ON J2% GOSUB 360, 370, 380, 390, 420, 430, 520, 570, 710, 890, 870, 860, 1200: GOTO 810
  95. 860 LOCATE 21, 1: PRINT BLANK$: PRINT BLANK$: PRINT BLANK$: RETURN
  96. 870 LOCATE 22, 1: PRINT L0$: RETURN
  97. 880 CLS : KEY OFF: LOCATE 25, 1: FOR I = 1 TO LEN(C4$): PRINT MID$(C4$, I, 1); " "; : NEXT: RETURN
  98. 890 GOSUB 220: INPUT "ARE YOU SURE "; A$: IF A$ = "" THEN RETURN
  99. 900 INPUT "WHICH PREFIX "; A$: IF LEN(A$) < 1 THEN A$ = "*"
  100. 910 I% = 0: FOR Q = 1 TO M9: IF LEN(W$(Q)) <= 2 THEN 940
  101. 920 IF A$ = "*" THEN 930 ELSE IF A$ = LEFT$(W$(Q), LEN(A$)) THEN 930 ELSE 940
  102. 930 PRINT W$(Q), : I% = I% + 1: IF I% = 4 THEN I% = 0: PRINT
  103. 940 NEXT: PRINT : INPUT "READY WHEN YOU ARE, HIT ENTER TO CONTINUE"; A$: CLS : GOSUB 880: GOSUB 660: RETURN
  104. 950 IF ERL = 120 THEN OPEN L$ + ".LOG" FOR OUTPUT AS #3: CLOSE #3: OPEN L$ + ".LOG" FOR INPUT AS #1: RESUME 130
  105. 955 IF ERR = 61 THEN PRINT "Yuk Yuk Yuk DISK FULL ERROR - You may have blown it": GOTO 1000
  106. 960 IF ERL = 140 THEN PRINT "CHECK LIST ERROR, RECOVERING....": RESUME 160
  107. 965 IF ERL = 640 THEN RESUME 650
  108. 970 IF ERL = 760 THEN RESUME 770
  109. 975 IF ERR = 62 AND ERL = 180 THEN GOSUB 650: INPUT "Waiting,touch ENTER to continue "; A$: RESUME 800
  110. 980 PRINT "ERROR "; ERR; " AT LINE "; ERL
  111. 990 REM RESUME 750:REM CLOSE DOWN IN AN ORDERLY MANNER
  112. 1000 END
  113. 1200 INPUT "What is the number of lost calls (to be added to the memory) "; O: IF O < 0 THEN 1200
  114. 1210 N4 = N4 + O: RETURN
  115.  
  116.