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