10CLS:CLEAR:DIM D$(20):PRINT"Press 'L 'ock or 'U'nlock or 'Q'uit" 20A$=GET$ 30IF A$="Q"THEN END 40IF A$="L"THEN L=1:GOTO70 50IF A$="U"THEN L=0:GOTO70 60GOTO20 70CLS:OSCLI("DIR $"):OSCLI("."):INPUT "Enter Directory Name (RETURN=$)."A$:IF A$="" THEN A$="$":OSCLI("DIR "+A$):CLS:* . 80X=0:Y=VPOS:FOR K=1TO20:PRINTTAB(X,Y +1);STRING$(39," "):INPUTTAB(X,Y+1)"File name (RETURN ENDS) : "D$(K):PRINTTAB(X,Y +1);STRING$(20," ") 90IF D$(K)=""THEN GOTO110 100NEXT 110IF L=0THEN GOTO130 120FOR J=1TOK-1:OSCLI("ACCESS "+D$(J)+ " WRL"):NEXT:CLS:OSCLI("."):VDU7:A$=GET$ :RUN 130FOR J=1TOK-1:OSCLI("ACCESS "+D$(J)+ " WR"):NEXT:CLS:OSCLI("."):VDU7:A$=GET$: RUN