10 REM **************
   20 REM Memory Checker
   30 REM  By Mark Ray
   40 REM **************
   50 REM NC100/200 Version
   60 REM Downloaded from Tim's Amstrad NC User's Site
   70 REM http://www.ncus.org.uk
   80 REM Originally from the Amstrad Notepad Users' Web
   90 CLS:PRINT'SPC(20);"Lower Memory Area Free"'
  100 FORI=0TO100 STEP10:PRINT STR$(I);SPC(5);:NEXT
  110 Z=(HIMEM-PAGE)/515:PRINT'STRING$(Z,CHR$(219))
  120 IF Z<15 THEN PRINT '"ADVICE:Delete or back-up less important documents"
  130 REPEAT:UNTIL GET=13