10REM >Send3 20REM by Steven Flintham 30: 40MODE 7 50ON ERROR MODE 7:PROCerror:END 60PROCserial`init 70PRINT "Press ESCAPE to finish..."' 80REPEAT 90PRINT "Please press a key: "; 100key%=GET:VDU key%:PRINT 110*FX3,7 120VDU key% 130*FX3,0 140UNTIL FALSE 150END 160: 170DEF PROCerror 180*FX2,0 190*FX3,0 200IF ERR=17 THEN ENDPROC 210REPORT 220PRINT " at line ";ERL 230ENDPROC 240: 250DEF PROCserial`init 260*FX7,7 270*FX8,7 280*FX156,86,0 290*FX2,2 300ENDPROC