home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / filenotek < prev    next >
Encoding:
Text File  |  1995-01-04  |  691 b   |  30 lines
  1. failat 21
  2. LAB START
  3. REQUESTCHOICE >ENV:CHO "FilenoteK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "CHOICE PLEASE" "READ" "FILENOTE" "BYE"
  4. IF $CHO EQ "0"
  5.      SKIP FIN
  6. ENDIF
  7. IF $CHO EQ "1"
  8.      REQUESTFILE >ENV:DR TITLE="CLICK ON DIRECTORY FOR FILENOTES" DRAWERSONLY
  9.      LIST $DR NODATES NOHEAD >RAM:TEMPDIR
  10.      SYS:UTILITIES/MULTIVIEW RAM:TEMPDIR
  11.      SKIP BACK START
  12. ENDIF
  13. REQUESTFILE >ENV:FILE TITLE="PICK FILE TO ADD FILENOTE TO"
  14. REQUESTFILE >ENV:NOTE TITLE="PRINT NOTE ON BOTTOM LINE"
  15. ECHO " "
  16. ECHO " "
  17. ECHO " "
  18. ECHO " "
  19. ECHO " "
  20. IF $CHO EQ "2"
  21.      FILENOTE $FILE $NOTE
  22. ENDIF
  23. SKIP BACK START
  24. LAB FIN
  25. UNSET FILE
  26. UNSET NOTE
  27. UNSET CHO
  28. UNSET DR
  29. DELETE RAM:TEMPDIR QUIET
  30.