10REM >Rec2 20REM by Steven Flintham 30: 40MODE 7 50ON ERROR MODE 7:PROCerror:END 60PROCserial`init 70PRINT "Waiting for number..." 80*FX2,1 90*FX3,6 100INPUT LINE ""string$ 110*FX2,2 120*FX3,0 130PRINT'"The number is: ";VAL(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