home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / LockK < prev    next >
Text File  |  1995-01-04  |  412b  |  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.