home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / log / qslin.prg < prev    next >
Text File  |  1987-03-10  |  716b  |  36 lines
  1. * QSLIN.PRG
  2. * CALLED BY HAM.CMD
  3. * REV 07/02/83
  4. SET TALK OFF
  5. DO WHILE .T.
  6. CLEAR
  7. @ 0,0 SAY 'ENTER [END] TO EXIT'
  8. @ 0,30 SAY '**** QSL CARDS IN ****'
  9. ACCEPT 'CALL: ' TO MCALL
  10. STORE UPPER(MCALL) TO MCALL
  11.     IF MCALL ='END'
  12.        RETURN
  13.     ENDIF
  14. SET DEFAULT TO A
  15. USE LOG INDEX LOG
  16. SET INDEX TO LOG
  17. FIND &MCALL
  18.     IF (EOF() .OR. BOF())
  19.        @ 12,40 SAY 'CALL NOT FOUND'
  20.     ENDIF
  21. DO WHILE CALL = MCALL .AND. CALL <> "ZZZ"
  22.     DISPLAY
  23.     SKIP
  24. ENDDO
  25. ?
  26. ACCEPT 'ENTER: ' TO MENTER
  27. STORE UPPER(MENTER) TO MENTER
  28.     IF MENTER = 'Y'
  29.        REPLACE ALL RQSL WITH 'Y' FOR CALL = MCALL
  30.        USE WANTLIST
  31.            DELETE FOR CALL = MCALL
  32.            PACK
  33.            WAIT
  34.     ENDIF
  35. ENDDO
  36.