home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / wasprint.bas < prev    next >
BASIC Source File  |  1997-02-01  |  2KB  |  55 lines
  1. 10 REM WASPRINT VERSION 851006
  2. 20 REM BY JOE KASSER G3ZCZ
  3. 30 CLS:WIDTH 80:S9=50:DIM S$(S9),C(S9),W$(S9),C$(S9),B$(S9),D$(S9),M$(S9)
  4. 40 INPUT"What is the name of the WAS data file ? ";L$: IF L$="" THEN 40
  5. 50 OPEN L$+".WAS" FOR INPUT AS 1
  6. 60 PRINT "LOADING WAS DATA FILE, PLEASE STANDBY"
  7. 70 FOR I = 1 TO S9:INPUT#1,S$(I),C(I),W$(I),C$(I),B$(I),D$(I),M$(I):NEXT:INPUT#1,FD$:CLOSE#1
  8. 80 W1=0:W2=W1:W3=W1:L1=W1
  9. 90 INPUT"Which call area (0-10) ? ";C1
  10. 100 INPUT"Screen or Printer (P/S) ? ";A$: IF  A$=""  THEN  100
  11. 110 IF LEFT$(A$,1)="P" THEN 330 ELSE IF LEFT$(A$,1)="S" THEN 120 ELSE 100
  12. 120 PRINT
  13. 130 PRINT  L$+ " WAS Status as of ";FD$;: IF C1>9 THEN 150
  14. 140 PRINT  " for the";STR$(C1)," call area";
  15. 150 PRINT
  16. 160 PRINT
  17. 170 PRINT  "STATE";TAB(15);"STATUS";TAB(26);"CALL";TAB(37);"DATE";
  18. 180 PRINT  TAB(50);"MODE"
  19. 190 FOR J=1 TO 63:PRINT  "-";:NEXT:PRINT
  20. 200 FOR I = 1 TO S9
  21. 210  IF C(I)=C1 THEN 220 ELSE IF C1>9 THEN 220 ELSE 280
  22. 220 PRINT   S$(I);TAB(18);W$(I);: IF W$=" " THEN PRINT   : GOTO 280
  23. 230 PRINT  TAB(25);C$(I);TAB(36);D$(I);TAB(50);M$(I)
  24. 240 IF W$(I)="W" THEN W1=W1+1 : GOTO 270
  25. 250 IF W$(I)="Q" THEN W2=W2+1 : GOTO 270
  26. 260 IF W$(I)="S" THEN W3=W3+1
  27. 270 L1=L1+1
  28. 280 NEXT
  29. 290 PRINT
  30. 300 PRINT   W2;" QSL'd,";W1;" worked and ";W3;" cards in the mail"
  31. 310  IF L1=W2 THEN PRINT "You've got them all" ELSE PRINT "TOTAL = ";W1+W2
  32. 320 GOTO 520
  33. 330 LPRINT
  34. 340 LPRINT L$+ " WAS Status as of ";FD$;: IF C1>9 THEN 360
  35. 350 LPRINT " for the";STR$(C1)," call area";
  36. 360 LPRINT:LPRINT
  37. 370 LPRINT "STATE";TAB(15);"STATUS";TAB(26);"CALL";TAB(37);"DATE";
  38. 380 LPRINT TAB(50);"MODE"
  39. 390 FOR J=1 TO 63:LPRINT "-";:NEXT:LPRINT
  40. 400 FOR I = 1 TO S9
  41. 410 IF C(I)=C1 THEN 420 ELSE IF C1>9 THEN 420 ELSE 480
  42. 420 LPRINT S$(I);TAB(18);W$(I);: IF W$=" " THEN LPRINT : GOTO 480
  43. 430 LPRINT TAB(25);C$(I);TAB(36);D$(I);TAB(50);M$(I)
  44. 440 IF W$(I)="W" THEN W1=W1+1 : GOTO 470
  45. 450 IF W$(I)="Q" THEN W2=W2+1 : GOTO 470
  46. 460 IF W$(I)="S" THEN W3=W3+1
  47. 470 L1=L1+1
  48. 480 NEXT
  49. 490 LPRINT
  50. 500 LPRINT W2;" QSL'd,";W1;" worked and ";W3;" cards in the mail"
  51. 510 IF L1=W2 THEN LPRINT "You've got them all" ELSE LPRINT "TOTAL = ";W1+W2
  52. 520 INPUT"An other one ";A$: IF A$="" THEN 520 ELSE IF LEFT$(A$,1)="Y" THEN 80 ELSE 530
  53. 530 END
  54. LSE LPRINT "TOTAL = ";W1+W2
  55. 520 INPUT"An other one ";A$: IF A