0001 ! Written by Tom Cadwallader; PPC (3502), CHHU [70], HPX <46>, MUNCH {1}
0002 ! DEF KEY 'x','CALL LISTCAT("")'&CHR$(8)&CHR$(8)&CHR$(27)&"N"; ! Note ..
0003 ! DEF KEY 'm',':MAIN'; @ DEF KEY 't',':TAPE';          ! Uncomment .....
0004 ! DEF KEY 'p',':PORT()'&CHR$(8)&CHR$(27)&"N"; @ END    ! Lines 2-4 @ RUN
0005 SUB LISTCAT(P$) @ ON ERROR GOTO 60 @ CLEAR ":DISPLAY" ! Version 09/10/87
0010 IF P$="ALL" THEN CALL 'FILES71' @ END
0015 IF P$=":MASSMEM" THEN P$=":TAPE"
0020 DIM F$[43] @ J$='   NAME    ' @ K$='S TYPE   LEN    DATE    TIME'
0025 IF P$=":TAPE" THEN PRINT J$&K$ ELSE PRINT J$[2,10]&K$&' PORT'
0030 FOR C=1 TO INF @ F$=CAT$(C,P$) @ IF F$='' THEN 45
0035 IF P$=":MAIN" THEN F$=F$&P$[2]
0040 PRINT F$ @ NEXT C
0045 IF P$=":TAPE" THEN END ELSE M$='          MEM'&P$&'='
0050 IF P$=":MAIN" THEN M$=M$&STR$(MEM) ELSE M$=M$&STR$(MEM(VAL(P$[7,LEN(P$)-1])))
0055 M$=M$[2] @ IF LEN(M$)>22 THEN 55 ELSE PRINT M$ @ PRINT @ END 
0060 DISP ERRM$ @ BEEP @ END SUB