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