home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / wasenter.bas < prev    next >
BASIC Source File  |  1997-02-01  |  2KB  |  54 lines
  1. 10 REM WASENTER VERSION 851006
  2. 20 CLS:WIDTH 80:REM COPYRIGHT (C) JOE KASSER G3ZCZ 1985
  3. 30 ON ERROR GOTO 470
  4. 40 S9=50:DIM S$(S9),C(S9),W$(S9),C$(S9),B$(S9),D$(S9),M$(S9)
  5. 50 INPUT "What is the name of the WAS data file (D:NAME) ",L$:IF L$="" THEN 50
  6. 60 OPEN L$+".WAS" FOR INPUT AS 1
  7. 70 PRINT "LOADING WAS DATA FILE, PLEASE STANDBY"
  8. 80 FOR I=1 TO S9
  9. 90 INPUT#1,S$(I),C(I),W$(I),C$(I),B$(I),D$(I),M$(I)
  10. 100 NEXT:INPUT#1,FD$
  11. 110 CLOSE #1
  12. 120 PRINT L$;" was last updated on ";FD$:PRINT
  13. 130 CLS:LOCATE 5,1
  14. 140 INPUT "Which state ",S1$:IF S1$="" THEN 130
  15. 150 FOR I=1 TO S9
  16. 160 IF LEN(S$(I))<LEN(S1$) THEN 180
  17. 170 IF S1$=LEFT$(S$(I),LEN(S1$)) THEN 190
  18. 180 NEXT :PRINT "ENTRY ERROR-STATE ";S1$;" DOES NOT EXIST" :GOTO 140
  19. 190 REM I SHOULD POINT TO ENTRY
  20. 200 GOSUB 450
  21. 210 INPUT "Do you want to update the entry ";A$:IF A$="" THEN 340
  22. 220 IF LEFT$(A$,1)="Y" THEN 230 ELSE IF LEFT$(A$,1) = "N" THEN 340 ELSE 210
  23. 230 INPUT "QSL status or whole entry (Q or W) ";A$:IF A$="" THEN 230
  24. 240 IF LEFT$(A$,1)="Q" THEN 290 ELSE IF LEFT$(A$,1)="W" THEN 250 ELSE 230
  25. 250 INPUT "Call sign ";C$:IF C$="" THEN 250
  26. 260 INPUT "Date of QSO (YY/MM/DD) ";D$:IF D$="" THEN 260
  27. 270 INPUT "Band ";B$:IF B$="" THEN 270
  28. 280 INPUT "Mode ";M$:IF M$="" THEN 280
  29. 290 INPUT "QSL Status (Q, W, S) ";A$:IF A$="" THEN 290 ELSE W$=A$
  30. 300 PRINT S$(I);TAB(15);C$;TAB(26);D$;TAB(35);B$;TAB(40);M$;TAB(45);W$
  31. 310 INPUT "OK ";A$:IF A$="" THEN 310
  32. 320 IF LEFT$(A$,1)="Y" THEN 330 ELSE IF LEFT$(A$,1)="N" THEN 230 ELSE 310
  33. 330 W$(I)=W$:C$(I)=C$:B$(I)=B$:D$(I)=D$:M$(I)=M$
  34. 340 INPUT "An other entry ";A$:IF A$="" THEN 340
  35. 350 IF LEFT$(A$,1)="Y" THEN 130 ELSE IF LEFT$(A$,1) = "N" THEN 360 ELSE 340
  36. 360 FD$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)
  37. 370 PRINT "UPDATING WAS DATA FILE, PLEASE STAND BY"
  38. 380 OPEN L$+".$$$" FOR OUTPUT AS 1:FOR I=1 TO S9
  39. 390 PRINT#1,S$(I);",";C(I);",";W$(I);",";C$(I);",";B$(I);",";D$(I);",";M$(I)
  40. 400 NEXT:PRINT#1,FD$
  41. 410 CLOSE #1
  42. 420 NAME L$+".WAS" AS L$+".BAK"
  43. 430 NAME L$+".$$$" AS L$+".WAS"
  44. 440 GOTO 460
  45. 450 PRINT S$(I);TAB(15);C$(I);TAB(26);D$(I);TAB(35);B$(I);TAB(40);M$(I);TAB(45);W$(I):RETURN
  46. 460 END
  47. 470 IF ERL = 420 THEN KILL L$+".BAK": RESUME 420
  48. 480 IF ERL=60 THEN PRINT "WAS DATA FILE DOES NOT EXIST": RESUME 50
  49. 490 PRINT "ERROR";ERR;" ON LINE ";ERL
  50. 500 RESUME 460
  51. 20
  52. 480 IF ERL=60 THEN PRINT "WAS DATA FILE DOES NOT EXIST": RESUME 50
  53. 490 PRINT "ERROR";ERR;" ON LINE ";ERL
  54. 500