home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / dxccedit.bas < prev    next >
BASIC Source File  |  1997-02-01  |  3KB  |  89 lines
  1. 10 REM DXCCEDIT Version 821020 COPYRIGHT JOE KASSER G3ZCZ 1982
  2. 20 ON ERROR GOTO 430
  3. 30 M = 350
  4. 40 DIM P$(M),C$(M),B$(M),M$(M),T(M),Q(M),D$(M)
  5. 50 INPUT "Which DXCC record file " ; F$
  6. 60 IF LEN(F$) = 0 THEN 50
  7. 70 OPEN"I",#2,F$ + ".DX"
  8. 80 OPEN "O",#1,F$ + ".$$$"
  9. 90 PRINT "LOADING FILE NOW "
  10. 100 IF EOF(2) THEN 160
  11. 110 INPUT#2,P$,C$,B$,M$,D$,T,Q
  12. 120 I = I + 1
  13. 130 P$(I) = P$ : C$(I) = C$ : B$(I) = B$ : M$(I) = M$
  14. 140 D$(I) = D$ : T(I) = T : Q(I) = Q
  15. 150 GOTO 100
  16. 160 CLOSE #2
  17. 170 PRINT "THERE ARE";I;" ENTRIES IN THE FILE"
  18. 180 INPUT "WHICH PREFIX ";P1$
  19. 190 IF P1$ = "*" THEN 340
  20. 200 N = 1
  21. 210 FOR J = 1 TO I - N
  22. 220 IF LEFT$(P$(J),LEN(P1$)) = P1$ THEN 250
  23. 230 NEXT J 
  24. 240 PRINT P1$; " IS NOT IN FILE" : GOTO 180
  25. 250 C$ = C$(J) : D$ = D$(J) : T = T(J) : B$ = B$(J) : M$ = M$(J) : Q = Q(J)
  26. 260 P$ = P$(J)
  27. 270 GOSUB 730
  28. 280 GOSUB 520
  29. 290 C$(J) = C$ : D$(J) = D$ : B$(J) = B$ : M$(J) = M$ : T(J) = T : Q(J) = Q
  30. 300 INPUT "ANOTHER ENTRY ";A$
  31. 310 IF A$ = "" THEN 300
  32. 320 IF LEFT$(A$,1) = "Y" THEN 180
  33. 330 IF LEFT$(A$,1) = "N" THEN 340 ELSE 300
  34. 340 PRINT "EDIT IS TERMINATED"
  35. 350 FOR J = 1 TO I
  36. 355 PRINT P$(J); TAB(6); C$(J); TAB(16); : 
  37. 357 Q= Q(J) : GOSUB 760
  38. 360 PRINT#1, P$(J);",";C$(J);",";B$(J);",";M$(J);",";D$(J);",";T(J);",";Q(J)
  39. 370 NEXT
  40. 380 CLOSE#1
  41. 390 KILL F$ + ".BAK"
  42. 400 NAME F$ + ".DX"  AS F$ + ".BAK"
  43. 410 NAME F$ + ".$$$" AS F$ + ".DX"
  44. 420 GOTO 490
  45. 430 ON ERROR GOTO 430
  46. 440 IF ERL = 640 THEN RESUME 660
  47. 450 IF ERR = 53 AND ERL = 390 THEN RESUME 400
  48. 460 IF ERL = 70 THEN RESUME 500
  49. 470 IF ERL = 380 AND ERR = 61 THEN PRINT "DISK IS FULL"
  50. 480 STOP
  51. 490 END
  52. 500 PRINT "FILE DOES NOT EXIST" : GOTO 50
  53. 510 GOSUB 730
  54. 520 INPUT "QSL status or whole ENTRY ";A$
  55. 530 IF LEFT$(A$,1) = "E" THEN 560
  56. 540 IF LEFT$(A$,1) = "Q" THEN 660
  57. 550 GOTO 520
  58. 560 INPUT "Which Band ";A$
  59. 570 IF LEN(A$) = 0 THEN 580 ELSE B$ = A$
  60. 580 INPUT "Which Mode ";A$
  61. 590 IF LEN(A$) = 0 THEN 600 ELSE M$ = A$
  62. 600 INPUT "Call Sign ";A$
  63. 610 IF LEN(A$) = 0 THEN 620 ELSE C$ = A$
  64. 620 INPUT "Date YY/MM/DD ";A$
  65. 630 IF LEN(A$) = 0 THEN 640 ELSE D$ = A$
  66. 640 INPUT "Time ";A
  67. 650 T = A
  68. 660 INPUT "QSL Status (Q W D B) " ;A$
  69. 670 IF LEN(A$) = 0 THEN 720 ELSE Q$ = A$
  70. 680 IF LEFT$(Q$,1) = "Q" THEN Q = 1
  71. 690 IF LEFT$(Q$,1) = "W" THEN Q = 2
  72. 700 IF LEFT$(Q$,1) = "D" THEN Q = 3
  73. 710 IF LEFT$(Q$,1) = "B" THEN Q = 4
  74. 720 GOSUB 730 : GOTO 820
  75. 730 PRINT P$ TAB(6) B$ TAB(10) M$ TAB(14);
  76. 740 PRINT C$ TAB(25) D$ TAB(34) T ;
  77. 750 PRINT TAB(40) ;
  78. 760 ON Q-1 GOTO 780,790,800
  79. 770 PRINT "QSL'D" : GOTO 810
  80. 780 PRINT "WORKED" : GOTO 810
  81. 790 PRINT "MAILED DIRECT" : GOTO 810
  82. 800 PRINT "SENT VIA BUREAU" : GOTO 810
  83. 810 RETURN
  84. 820 INPUT "Are the data correct ";A$
  85. 830 IF LEN(A$) = 0 THEN 820
  86. 840 IF LEFT$(A$,1) = "N" THEN 510
  87. 850 IF LEFT$(A$,1) = "Y" THEN 860 ELSE 820
  88. 860 RETURN
  89.