10REM >Rec1 20REM by Steven Flintham 30: 40MODE 7 50ON ERROR MODE 7:PROCerror:END 60PROCserial`init 70PRINT "Waiting for string..." 80*FX2,1 90*FX3,6 100INPUT LINE ""string$ 110*FX2,2 120*FX3,0 130PRINT'"The string is:"'string$ 140END 150: 160DEF PROCerror 170*FX2,0 180*FX3,0 190REPORT 200PRINT " at line ";ERL 210END 220: 230DEF PROCserial`init 240*FX7,7 250*FX8,7 260*FX156,86,0 270*FX2,2 280ENDPROC