10REM >Send2 20REM by Steven Flintham 30: 40MODE 7 50ON ERROR MODE 7:PROCerror:END 60PROCserial`init 70PRINT "Please enter a number to sen d:"' 80INPUT ""number 90*FX3,7 100PRINT number 110*FX3,0 120PRINT'"Number sent!" 130END 140: 150DEF PROCerror 160*FX2,0 170*FX3,0 180REPORT 190PRINT " at line ";ERL 200END 210: 220DEF PROCserial`init 230*FX7,7 240*FX8,7 250*FX156,86,0 260*FX2,2 270ENDPROC