begin 
externalroutinespec  define(string (255) s)
integer  i
on  9 start ; stop ; finish 
   define("1,FRED")
   DEFINE("2,FORPAGE9")
   selectinput(1)
   selectoutput(2)
   cycle 
      readch(i)
if  i=8 then  i=' '
      unless  i=nl or  ' '<=i<='z' start 
         printstring("Symbol "); write(I, 1)
         newline
      finish 
   printsymbol(I)
   repeat 
endofprogram