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