// first, make sure that only printable characters are in the line
   p = inpbuf;
   while(*p) {
       *p = *p & 0x7f;
       if(*p < ' ' || *p == 0x7f)  *p = ' ';
       p++;
   }

data chr$(149)+chr$(146)+chr$(147)+chr$(148)+" to move."

' Help File
'<^v> to move.  Hold Shift to select
'Even more help goes here.
'Press Ctrl-Q to quit
'END
'

open mm.info(current) for input as #1
do
 input #1, a$
 if a$ = "'END" then exit do
 print mid$(a$,2)  ' remove leading single quote character
loop
close #1
print
print "And there's your help file!"
end

 READ hlp$
 hlp$ = e_str$(hlp$)
 CLS
 PRINT hlp$
 
DO:LOOP UNTIL INKEY$ <>""
END
 
FUNCTION e_str$(txt$)
 LOCAL ch$, n, k, s
 
 FOR n = 1 TO LEN(txt$)
   ch$ = MID$(txt$,n,1)
   SELECT CASE s
     CASE 0
       IF ch$ = "\" THEN
         s = 1
         k = 0
         c = 0
       ELSE
         e_str$ = e_str$ + ch$
       ENDIF
     CASE 1 ' we are in an escape sequence
       SELECT CASE ch$
         CASE "0","1","2","3","4","5","6","7","8","9"
           k = k*10 + VAL(ch$)
           c = c + 1
           IF c >=3 THEN
             e_str$ = e_str$ + CHR$(k)
             s = 0
           ENDIF
         CASE "\"
           e_str$ = e_str$ + ch$
           s = 0
       END SELECT
   END SELECT
 NEXT n
END FUNCTION
 
 
 DATA "\149\146\147\148 to move."

 READ hlp$
 hlp$ = e_str$(hlp$)
 CLS
 PRINT hlp$
 
DO:LOOP UNTIL INKEY$ <>""
END
 
FUNCTION e_str$(txt$)
 LOCAL ch$, n, k, s
 
 FOR n = 1 TO LEN(txt$)
   ch$ = MID$(txt$,n,1)
   SELECT CASE s
     CASE 0
       IF ch$ = "\" THEN
         s = 1
         k = 0
         c = 0
       ELSE
         e_str$ = e_str$ + ch$
       ENDIF
     CASE 1 ' we are in an escape sequence
       SELECT CASE ch$
         CASE "0","1","2","3","4","5","6","7","8","9" ' we expect a 3 digit decimal number
           k = k*10 + VAL(ch$)
           c = c + 1
           IF c >=3 THEN
             e_str$ = e_str$ + CHR$(k)
             s = 0
           ENDIF
         CASE "\"
           e_str$ = e_str$ + "\"      ' backslash
           s = 0
         case "b","B"
           e_str$ = e_str$ + chr$(8)  ' backspace
           s = 0
         case "t","T"
           e_str$ = e_str$ + chr$(9)  ' tab
           s = 0
         case "n","N"
           e_str$ = e_str$ + chr$(10) ' newline
           s = 0
         case "v","V"
           e_str$ = e_str$ + chr$(11) ' vertical tab
           s = 0
         case "f","F"
           e_str$ = e_str$ + chr$(12) ' formfeed
           s = 0
         case "r","R"
           e_str$ = e_str$ + chr$(13) ' return
           s = 0
         case "e","E"
           e_str$ = e_str$ + chr$(27) ' escape
           s = 0
         case "q","Q"
           e_str$ = e_str$ + chr$(34) ' double quote
           s = 0
         case else
           s = 0                      ' ignore unknown sequences
       END SELECT
   END SELECT
 NEXT n
END FUNCTION
 
 
 DATA "\149\146\147\148 to move."

 dim boxbeg(31)
 dim boxend(31)
 restore Help01
 y = 45
 font 4
 do
   read t$
   if t$ = "END" then
     exit do
   elseif t$ = "" then
     y = y + 8
   elseif t$ = "G" then  ' grayed out - not available
     read t$
     text 25,y,t$,,,1,&h303030
     y = y + 16
   else
     bs = 1
     bxn = 0
     escpos = instr(bs,t$,"\")    ' search for ESC sequences
     do while escpos
       select case mid$(t$,escpos+1,1)
         case "\"    ' double \\ means single one
           t$ = left$(t$,escpos-1) + mid$(t$,escpos+1)
           bs = escpos + 1
         case "0","1","2","3","4","5","6","7","8","9"
           ascval = min(255,max(32,val(mid$(t$,escpos+1,3))))
           t$ = left$(t$,escpos-1) + chr$(ascval) + mid$(t$,escpos+4)
         case "["    ' start box
           bxn = bxn + 1
           boxbeg(bxn) = (escpos-1)*mm.info(fontwidth) - 2
           t$ = left$(t$,escpos-1) + mid$(t$,escpos+2)
         case "]"    ' end box
           boxend(bxn) = (escpos)*mm.info(fontwidth) - boxbeg(bxn) - 9
           t$ = left$(t$,escpos-1) + mid$(t$,escpos+2)
         case "'"    ' change single to double quote
           t$ = left$(t$,escpos-1) + chr$(34) + mid$(t$,escpos+2)
       end select
       escpos = instr(bs,t$,"\")    ' search for more ESC sequences
     loop
     text 25,y,t$
     for i = 1 to bxn
       box 25 + boxbeg(i),y,boxend(i),mm.info(fontheight)
     next i
     y = y + 16
   endif
 loop
 end

Help01:
data "\[\149\] \[\146\] \[\147\] \[\148\] to move."
data "    Hold \[Shift\] to select, \[Ctrl\] to change cell size."
data "    Hold \[Alt\] to select rows or columns."
data "\[PgUp\] \[PgDn\] to move faster, hold \[Ctrl\] to move sideways faster."
data "\[Home\] to move to cell [A1]"
data ""
data "In general, \[Esc\] cancels the current operation."
data ""
data "Cells can hold 3 types of info: numbers, text or equations."
data "    To enter text, start with a quote character \[\'\]"
data "    To enter an equation, start with an equals sign \[=\]"
data "    A number starts with \[0\] \[1\] \[2\] \[3\] \[4\] \[5\] \[6\] \[7\] \[8\] \[9\] \[.\] \[+\] or \[-\]"
data "Press \[Alt\]-\[Enter\] to edit an existing cell"
data ""
data "When entering an equation, use \[\146\] or \[\147\] to switch to cell select mode."
data "    Choose cell with \[Enter\], \[ Space \] or )*+-/<=>\\^"
data "Cells are in [] brackets. Use $ for absolute reference."
data "In general, any MMBasic function can be used."
data "G","Sum(refcell to refcell) is also available."
data "\[Ctrl\]-\[K\] to recalculate entire spreadsheet."
data ""
data "\[Del\] and \[Backspace\] clear the highlighted cell or range."
data ""
data "For Cut, Copy and Paste, use \[Ctrl\]-\[X\], \[Ctrl\]-\[C\] and \[Ctrl\]-\[V\]."
data ""
data "Press \[Ctrl\]-\[Q\] to quit."
data ""
data "Press \[Ctrl\]-\[N\] to start a new file."
data "G","Press Ctrl-O to open a file."
data "G","Press Ctrl-S to save the current file."
data "END"