home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / dxccdel.bas < prev    next >
BASIC Source File  |  1997-02-01  |  1KB  |  35 lines
  1. 10 REM DXCCDEL VERSION 821025 COPYRIGHT JOE KASSER G3ZCZ 1982
  2. 20 ON ERROR GOTO 440
  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 IF EOF(2) THEN 150
  10. 100 INPUT#2,P$,C$,B$,M$,D$,T,Q
  11. 110 I = I + 1
  12. 120 P$(I) = P$ : C$(I) = C$ : B$(I) = B$ : M$(I) = M$
  13. 130 D$(I) = D$ : T(I) = T : Q(I) = Q
  14. 140 GOTO 90
  15. 150 CLOSE #2
  16. 160 PRINT "THERE ARE";I;" ENTRIES IN THE FILE"
  17. 170 INPUT "Which prefix to delete ";E$
  18. 350 FOR J = 1 TO I
  19. 355 IF P$(J) = E$ THEN 380
  20. 360 PRINT P$(J),C$(J)
  21. 370 PRINT#1, P$(J);",";C$(J);",";B$(J);",";M$(J);",";D$(J);",";T(J);",";Q(J)
  22. 380 NEXT
  23. 390 CLOSE#1
  24. 400 KILL F$ + ".BAK"
  25. 410 NAME F$ + ".DX"  AS F$ + ".BAK"
  26. 420 NAME F$ + ".$$$" AS F$ + ".DX"
  27. 430 GOTO 490
  28. 440 ON ERROR GOTO 440
  29. 450 IF ERR = 53 AND ERL = 400 THEN RESUME 410
  30. 460 IF ERL = 70 THEN RESUME 500
  31. 470 IF ERL = 390 AND ERR = 61 THEN PRINT "DISK IS FULL"
  32. 480 RESUME 490
  33. 490 END
  34. 500 PRINT "FILE DOES NOT EXIST" : GOTO 50
  35.