10REM >Send1 20REM by Steven Flintham 30: 40MODE 7 50ON ERROR MODE 7:PROCerror:END 60PROCserial`init 70PRINT "Please enter a string to sen d:"' 80INPUT LINE ""string$ 90*FX3,7 100PRINT string$ 110*FX3,0 120PRINT'"String 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