0 SCREEN,0:PRINT"    CLEAR  by James Main Kenney 1995":LOCATE1,3:PRINT"Return key accepts; other keys scroll:
1 LOCATE1,5:PRINTCHR$(27)"K";:READF$,H:IFH=0THENRESTORE:GOTO1ELSEIFH=1THEN3ELSEIFH=2THENPRINTF$;ELSEPRINT"For "F$".CO: CLEAR256,"H;
2 IFASC(INPUT$(1))<>13THEN1ELSEIFH=2THENMENUELSEIFH>1THEN4
3 LOCATE1,5:PRINTCHR$(27)"KCLEAR256,";:H$=INPUT$(1):IFASC(H$)<48ORASC(H$)>57THEN1ELSEPRINTH$;:LINEINPUTJ$:H=VAL(H$+J$);IFH<32768!ORH>62336!THENBEEP:GOTO3
4 CLEAR256,H:MENU:DATANo change ,2,files not ,62336,MAXASM,61916,LAPWRD,59090,PRINT!,59090,BACKUP,58720,XFILES,57984,DOSNEC,57000,TSLOAD,56400,BA,53248,,1,,0