þþ‘èX;SAVE #D2:DUPCMD2.M65òAVARIOUS COMMANDSAü-X; **** LOAD USER FILE FUNCTION ****X;X;…LDFIL „LFMG$ †GETIC1.Q>8$ƒOPTBPƒOPTL+(> N;;IS OPTION N FOR DON'T LOAD AND GO?VH„NOTN;;BRANCH IF NOT`"ƒOPTj„NOTN „PERXt „LOAD~#(>;;PROCESS LOAD SUBR RESPONSEˆ F„LDFX;;BRANCH IF LOAD WAS OK’(>œFƒNLF;;IF BAD LOAD FILE¦"C;;OTHERWISE WE GOT A CIO ERROR°!…CIOER;;GO SAY WHAT IT ISºƒNLFQ>4ƒBLFÄ $>5ƒBLFÎ †DSPLIN;;BAD LOAD FILE MSGØ …CLOSX;;CLOSE THE FILEâ„LDFX!†MENUSL;;EXITìƒBLF ABAD LOAD FILEA=‚CRX;$„LFMG A”LOAD FROM WHAT FILE?A=‚CR(22X; **** LOCK & UNLOCK FILE COMMANDS ****<X;FX;P…LKFIL „LKMG;;DO LOCKZ †GETIC1d „PERXn Q>„LOCKx$>‚ P…ICCOM9Œ …CIOCL– !†MENUSL "„LKMG A’WHAT FILE TO LOCK?A=‚CRªX;´…ULFIL „ULMG;;DO UNLOCK¾ †GETIC1È „PERXÒ Q>†UNLOCKÜ$>æ P…ICCOM9ð …CIOCLú !†MENUSL$„ULMG A”WHAT FILE TO UNLOCK?A=‚CR