CLOSE #1:CLR :DIM Z$(18):? "}Which File to LOCK?"›? " Ex. D2:DATA.EXE":INPUT #16,Z$:? "Locking ";Z$:XIO 35,#1,0,0,Z$›