home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGQSL.PRG < prev    next >
Text File  |  1987-12-24  |  2KB  |  79 lines
  1. *LOGQSL VERSION 871209
  2. * CALLED FROM logbook
  3. *LOCAL VARIABLES callflag,callheard,linecount
  4.  
  5. *INITIALISE EVERYTHING
  6.  
  7. USE &logbook INDEX &logndx
  8. ACCEPT 'Do you want to print QSL labels (Y/N) ? ' TO pf
  9. STORE  .T.  TO callflag
  10. STORE '-' TO nqslsent
  11. STORE '-' TO nqslrx
  12. *MAIN LOOP
  13. DO WHILE callflag
  14.    GOTO TOP
  15.    ACCEPT "Call/Prefix (* To terminate, + To repeat) ? " to newcall
  16.    IF newcall = "*"
  17.       STORE .F. TO callflag
  18.       * Clear loop control for exit
  19.    ELSE
  20.       IF newcall = '+'
  21.       ELSE
  22.          STORE newcall TO callheard
  23.       ENDIF
  24.       FIND &callheard
  25.       IF (EOF() .OR. BOF())
  26.          CLEAR
  27.          @ 5,1 SAY callheard
  28.          @ 5,12 say "does not appear to be in the log"
  29.          ?
  30.          ?
  31.       ELSE
  32.          DO WHILE CALL = callheard .AND. (.NOT.EOF())
  33.             CLEAR
  34.             STORE qslsent TO  nqslsent
  35.             STORE qslsent TO  oqslsent
  36.             STORE qslrx   TO  nqslrx
  37.  
  38.             @ 12,1 SAY "DATE"
  39.             @ 13,1 SAY "TIME"
  40.             @ 14,1 SAY "CALL"
  41.             @ 15,1 SAY "BAND"
  42.             @ 16,1 SAY "POWER"
  43.             @ 17,1 SAY "MODE"
  44.             @ 18,1 SAY "REPORT (RX)"
  45.             @ 19,1 SAY "REPORT (TX)"
  46.             @ 20,1 SAY "COMMENTS"
  47.             @ 21,1 SAY "QSLSENT"
  48.             @ 22,1 SAY "QSLRX"
  49.  
  50.             @ 12,13 SAY date
  51.             @ 13,13 SAY time
  52.             @ 14,13 SAY call
  53.             @ 15,13 SAY band
  54.             @ 16,13 SAY power
  55.             @ 17,13 SAY mode
  56.             @ 18,13 SAY rx
  57.             @ 19,13 SAY tx
  58.  
  59.             @ 21,13 GET nqslsent
  60.             @ 22,13 GET nqslrx
  61.             READ
  62.  
  63.             *UPDATE ENTRY
  64.             REPLACE qslsent WITH nqslsent
  65.             REPLACE qslrx WITH nqslrx
  66.             IF pf = 'Y' .AND. qslsent <> '-'.AND. oqslsent = '-'
  67.                DO QSLPRINT
  68.             ENDIF
  69.             SKIP
  70.          ENDDO
  71.       ENDIF
  72.    ENDIF
  73. ENDDO
  74. USE
  75. * GET READY TO EXIT
  76. RELEASE callflag,callheard,linecount,nqslsent,nqslrx,pf,label2
  77. RELEASE oqslsent,newcall
  78. RETURN
  79.