home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / log / logs.prg < prev    next >
Encoding:
Text File  |  1987-03-10  |  490 b   |  32 lines
  1. * LOGS.PRG
  2. * USED WITH HAMDEMO TO SELECT WHICH DUP TO USE
  3. * REV 10/01/83
  4. * REV 03/08/87 FOR USE ON PC
  5. CLEAR
  6. ?
  7. ?
  8. ?
  9. ? '             **** LOGS AVAILABLE ****'
  10. ?
  11. ?
  12. ? '             1 - CONTEST LOG'
  13. ? '             2 - REGULAR LOG'
  14. ? '             3 - QUIT TO MENU'
  15. ?
  16. ?
  17. ACCEPT 'ENTER CHOICE? ' TO ACT
  18. STORE UPPER(ACT) TO ACT
  19. IF ACT = '1'
  20.    DO CONTDUP
  21. ENDIF
  22. IF ACT = '2'
  23.    DO LOGDUP
  24. ENDIF
  25. IF ACT = '3'
  26.    SET TALK ON
  27.    CLEAR
  28.    RELEASE ACT
  29.    RETURN
  30. ENDIF
  31. RETURN
  32.