home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / misc / where_k / commands / lockk < prev    next >
Encoding:
Text File  |  1995-02-27  |  422 b   |  22 lines
  1. FAILAT 21
  2. lab begin
  3.  
  4. alias rc requestchoice
  5. RQ >ENV:PICK TITLE="SELECT DEVICE" NEGATIVE="FORGET IT!!" DRAWERSONLY
  6. RC >ENV:ANS "LockK Amend#1 ©November 1994 By Kenneth J. McCormick. All Rights Reserved" "PRESS A BUTTON" "LOCK" "UNLOCK" "BYE"
  7.  
  8. IF $ANS EQ "1"
  9.   LOCK on $PICK
  10. ENDIF
  11. IF $ANS EQ "2"
  12.   LOCK off $PICK
  13. ENDIF
  14. if $ANS eq "0"
  15.   skip finish
  16. endif
  17. alias rq requestfile
  18. skip begin back
  19. lab finish
  20. UNALIAS RQ
  21. UNALIAS RC
  22.