STAT:
LOCAL A$(8),B%,C$(5),D$(6),E$(2),F%
A$="Memory:":C$="MAIN"
D$="FREE:"
PRINT "Model:";
F%=PEEKB($FFE8)
IF F%=0
PRINT"CM"
PRINT A$+"8K"
ELSE
PRINT"XP"
PRINT A$;
IF F%=1
PRINT"16K"
ELSE
PRINT"32K"
ENDIF
ENDIF
GET
B%=0
DO
E$=CHR$(B%+%A)+":"
IF EXIST(E$+C$)
OPEN E$+C$,A,F$
PRINT D$;E$;(SPACE/1000);"K"
CLOSE
GET
ENDIF
B%=B%+1
UNTIL B%=3
