home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / WASPRINT.PRG < prev    next >
Text File  |  1987-12-24  |  2KB  |  84 lines
  1. * WASPRINT VER 860410 THIS PROGRAM PRINTS A WAS file
  2. * COPYRIGHT  (C) Joe Kasser G3ZCZ 1986
  3. * called by logbook
  4. CLEAR
  5. STORE ' ' TO choice
  6. @ 5,1 SAY ' '
  7. ACCEPT 'Whole thing, worked/QSL-d, or just QSL-d (T,W,Q) ? ' TO choice
  8. @ 10,1 SAY ' '
  9.  
  10. STORE ' ' TO df
  11. STORE  0  TO cf
  12. ACCEPT 'Which call area (0-9, for all enter 10) ? ' TO cf
  13. ?
  14. ?
  15. ACCEPT 'DO you want hard copy (Y/N) ? ' TO df
  16. IF df = 'Y'
  17.    SET PRINT ON
  18.    EJECT
  19. ENDIF
  20.  
  21. STORE  0 TO qsled
  22. STORE  0 TO worked
  23.  
  24. USE  &was
  25. CLEAR
  26. ? 'WAS  PRINTOUT    for   ',callsign 
  27. IF choice = 'Q'
  28.    ?? ' QSL STATUS'
  29. ENDIF
  30. ?
  31. ? 'PX STATE         CALL       DATE     BND  MODE STATUS'
  32. ? '-----------------------------------------------------'
  33. DO WHILE .NOT.EOF()
  34.    IF choice <> 'T' .AND. dstate = ' '
  35.       *
  36.    ELSE
  37.       IF dstate = '-' .AND. choice = 'Q'
  38.          *
  39.       ELSE
  40.          IF &cf = callarea
  41.             ? pc,state,dcall,ddate,dband,dmode
  42.             IF dstate = 'R'
  43.                IF choice = 'Q'
  44.                ELSE
  45.                   ?? dstate
  46.                ENDIF
  47.                STORE qsled + 1 TO qsled
  48.                STORE worked + 1 TO worked
  49.             ENDIF
  50.             IF dstate = '-'
  51.                STORE worked + 1 TO worked
  52.             ENDIF
  53.          ELSE
  54.             IF &cf >9
  55.                ? pc,state,dcall,ddate,dband,dmode,'  '
  56.                IF dstate = 'R'
  57.                   IF choice = 'Q'
  58.                   ELSE
  59.                      ?? dstate
  60.                   ENDIF
  61.                   STORE qsled + 1 TO qsled
  62.                   STORE worked + 1 TO worked
  63.                ENDIF
  64.                IF dstate = '-'
  65.                   STORE worked + 1 TO worked
  66.                ENDIF
  67.             ENDIF
  68.          ENDIF
  69.       ENDIF
  70.    ENDIF
  71.    SKIP
  72. ENDDO
  73. ?
  74. ?
  75. ? worked,' WORKED     ',qsled,'QSL-D'
  76. ?
  77. IF df = 'Y'
  78.    EJECT
  79.    SET PRINT OFF
  80. ENDIF
  81. WAIT
  82. RELEASE qsled,df,worked,choice,cf
  83. RETURN
  84.