home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / members.zip / MDSHODOC.PRG < prev    next >
Text File  |  1986-10-20  |  1KB  |  39 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : MDSHODOC
  4. * Function: Print/Display MEMBERS.TXT
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. parameters prt
  11. clear
  12. if .not. file("members.txt")
  13.     do dialog with 10,"Documentation is not available. Press any key."
  14.     set console off
  15.     wait ""
  16.     set console on
  17.     return
  18. endif
  19. do dialog with 10,"Ready to "+iif(prt,"print","display")+" documentation. Proceed(Y/N)?"
  20. set console off
  21. clear typeahead
  22. wait "" to yn
  23. set console on
  24. if upper(yn)="Y"
  25.     if prt
  26.         type members.txt to print
  27.         eject
  28.     else
  29.         clear
  30.         do dialog with 10,"Use Ctrl-S to start & stop scrolling"
  31.         @ 23,0
  32.         wait "Press any key when ready"
  33.         clear
  34.         type members.txt
  35.         wait "Press any key to return to menu"
  36.     endif
  37. endif
  38. return
  39.