d:LOCK/UNLOCKn:)"DI18:AB19Q,""10)"*** LOCK - UNLOCK ***"t6"LOCK OR UNLOCK L";C$@C$(C$,1):AK$(34)JC$"L"C$"U"300T"";16);:OS0^C$"L"AC$"LOCK":AC$:OS64:370hAC$"UNLOCK":AC$ rO164OS |"WHICH FILE *";F$8 F$"*""";:380@ D0c "TYPE OF FILE PRG";TY$ TY128(TY$"SEQ")2(TY$"PRG")3(TY$"USR")4(TY$"REL") TY128"";:420 : 15,8,15:NL$(0):N$F$ 2,8,2,"#":#2,A$ "LOOK FOR "TY$" FILE "AK$F$AK$$ 0S1AB; X15,"U1:";2;0;DI;SF bI07` l15,"B-P:";2;(232I)l v#2,FT$ FT$""FT$NL$ FT(FT$):FTTYO1770 H$"":F$(F$H$,16) 15,"B-P:";2;(532I) W$"" Q116 #2,A$:A$""A$NL$ W$W$A$# Q2 F$W$8009 Il S:""TY$" FILE "AK$N$AK$" NOT FOUND":940 "FOUND: "AK$N$AK$" ,"AC$ HI1I:S1S z15,"B-R:";2;0;DI;S1 15,"B-P:";2;(232I1) 2,(TYOS); 15,"U2:";2;0;DI;S1 2:15