home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LZ60.PRG < prev    next >
Text File  |  1987-12-14  |  1KB  |  51 lines
  1. *LZ60  SCAN LOG FOR LZ60 AWARD REQUIREMENTS
  2. ? 'LZ60 AWARD CONTACTS/POINTS SUMMARY'
  3. ACCEPT 'Do you want Hard Copy (Y/N) ? ' TO pf
  4. pf = LEFT(pf,1)
  5. IF pf = 'Y'
  6.    SET PRINT ON
  7. ENDIF
  8. USE &logbook INDEX &logndx
  9. FIND LZ
  10. STORE 0 TO points
  11. STORE 0 TO spoints
  12. CLEAR
  13. ? '                    LZ 60 AWARD CONTACTS '
  14. ? '  CALL       DATE   TIME  BD TX  RX MODE '
  15. ?? 'POWER   COMMENTS        POINTS'
  16. ? '----------------------------------------------------------------------'
  17. DO WHILE call = 'LZ' .AND. .NOT. EOF()
  18.    * date has to be in yy/mm/dd format
  19.    IF date >= '86/07/01' .AND. date <= '86/12/31'
  20.       IF call = 'LZ6'
  21.          STORE 6 TO points
  22.       ELSE
  23.          STORE 1 TO points
  24.       ENDIF
  25.       STORE spoints + points TO spoints
  26.       ? call,date,time,band,tx,rx,mode,power,comments,points
  27.       STORE CALL TO ncall
  28.       STORE band TO nband
  29.       DO WHILE call = ncall .AND. .NOT. EOF()
  30.       * .AND. band = nband
  31.       * if same call on different bands is allowed
  32.          * SKIP DUPES
  33.          SKIP
  34.       ENDDO
  35.       IF .NOT. EOF()
  36.          SKIP -1
  37.       ENDIF
  38.    ENDIF
  39.    SKIP
  40. ENDDO
  41. USE
  42. ? '-----------------------------------------------------------------------'
  43. ? 'TOTAL POINTS = ',spoints
  44. IF pf = 'Y'
  45.    eject
  46.    SET PRINT OFF
  47. endif
  48. RELEASE spoints,points,ncall,nband,pf
  49. WAIT
  50. RETURN
  51.