.KEY NAME/A, SEARCH/S, CREATE/S

FailAt 41

; This script will run, by <Device not mounted>.



IF [SEARCH] EQ 1
 ; this look at devs:mountlist.arg
 MOUNT [name]
ELSE
; error
 ex/FileReq >env:_t Path sys: OnlyDirs Title "Create ASSIGN [name] ..." PosText "Assign [name]"
 IF NOT WARN
   Assign [name] $_t
 ENDIF
 Delete env:_t
ENDIF