home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / AWARDPRN.PRG < prev    next >
Encoding:
Text File  |  1986-06-01  |  1.2 KB  |  62 lines
  1. * AWARDPRNT VERSION 860510 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 ',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 '
  24.       ?? 'STATUS'
  25.       ? '--------------------------------------------'
  26.       ?? '-------'
  27.       STORE 5 TO linecount
  28.    ENDIF
  29.  
  30.    IF dstate = ' ' .AND. choice <> 'P'
  31.    ELSE
  32.       IF dstate = 'W' .AND. choice = 'Q'
  33.       ELSE
  34.          ? pc,dcall,ddate,dtime,dband,dmode,dstate
  35.          STORE linecount + 1 TO linecount
  36.       ENDIF
  37.    ENDIF
  38.    IF dstate = 'R'
  39.       STORE qsled + 1 TO qsled
  40.       STORE worked + 1 TO worked
  41.    ENDIF
  42.    IF dstate = 'W'
  43.       STORE worked + 1 TO worked
  44.    ENDIF
  45.    SKIP
  46. ENDDO
  47. ?
  48. ?
  49. ? worked,' WORKED     ',qsled,'QSL-D'
  50. ?
  51. EJECT
  52. SET PRINT OFF
  53.  
  54. RELEASE choice,linecount,pagecount,worked,qsled
  55. IF pf = 'Y'
  56. ELSE
  57.    WAIT
  58. ENDIF
  59. RETURN
  60.  
  61.  
  62.