home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / AWARDPRN.PRG < prev    next >
Text File  |  1987-12-09  |  1KB  |  57 lines
  1. * AWARDPRNT VERSION 871209 THIS PROGRAM PRINTS A award file
  2. *COPYRIGHT  (C) 1986    G3ZCZ
  3. IF pf ='Y'
  4.    SET PRINT ON
  5. ENDIF
  6.  
  7. STORE 99 TO linecount
  8. STORE  1 TO pagecount
  9. STORE  0 TO qsled
  10. STORE  0 TO worked
  11.  
  12. USE  &award INDEX &award
  13.  
  14. DO WHILE .NOT.EOF()
  15.    IF linecount > 60
  16.       EJECT
  17.       ? award,' PRINTOUT as of ',DTOC(DATE ()),' FOR ',callsign,' PAGE',pagecount
  18.       IF choice = 'Q'
  19.          ?? ' QSL STATUS'
  20.       ENDIF
  21.       STORE pagecount + 1 TO pagecount
  22.       ?
  23.       ? ' PX         CALL       DATE    TIME BND MODE STATUS'
  24.       ? '---------------------------------------------------'
  25.       STORE 5 TO linecount
  26.    ENDIF
  27.  
  28.    IF dstate = ' ' .AND. choice <> 'P'
  29.    ELSE
  30.       IF dstate = 'W' .AND. choice = 'Q'
  31.       ELSE
  32.          ? pc,dcall,ddate,dtime,dband,dmode,dstate
  33.          STORE linecount + 1 TO linecount
  34.       ENDIF
  35.    ENDIF
  36.    IF dstate = 'R'
  37.       STORE qsled + 1 TO qsled
  38.       STORE worked + 1 TO worked
  39.    ENDIF
  40.    IF dstate = 'W'
  41.       STORE worked + 1 TO worked
  42.    ENDIF
  43.    SKIP
  44. ENDDO
  45. ?
  46. ?
  47. ? worked,' WORKED     ',qsled,'QSL-D'
  48. ?
  49. IF pf = 'Y'
  50.    EJECT
  51.    SET PRINT OFF
  52. ELSE
  53.    WAIT
  54. ENDIF
  55. RELEASE choice,linecount,pagecount,worked,qsled
  56. RETURN
  57.