1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=17 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL:END
10 CLS:PRINT'SPC(20);"Lower Memory Area Free"'
20 FORI=0TO100 STEP10:PRINT STR$(I);SPC(5);:NEXT
30 Z=(HIMEM-PAGE)/515:PRINT'STRING$(Z,CHR$(219))
40 IF Z<15 THEN PRINT '"ADVICE:Delete or back-up less important documents"
50 REPEAT:UNTIL 0