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