10PROCWAIT 20 ONERRORVDU3:END 30 MODE7:PROCtitle 40VDU23;8202;0;0;0;23,1,0;0;0;0;23;8, 144,0;0;0;23;9,9,0;0;0;29;10,&69,0;0;0;2 3;11,9,0;0;0; 50 VDU 28,0,24,39,5 60 PRINT'" The computer is ready to send data"'" to the printer" 70PROCline 80 PRINT" Press any key to continue" 90PROCline 100 KEY$=GET$:CLS 110 PRINT" Start typing....." 120PROCline 130PRINTTAB(0,17);:PROCline 140 PRINTTAB(0,18)" Note.....type @ to end " 150 VDU 28,1,21,36,8 170A$=GET$ 180 IF A$=CHR$(13) THEN VDU10,10,13:A$ =CHR$(11) 190 IF A$="@" THEN VDU3:END 200*FX15,0 210VDU2 220*FX5,2 230 *FX8,5 240 PRINTA$;:SOUND &11,-10,90,1::SOUND &12,-10,90,1::SOUND &13,-10,90,1 250 VDU3 260 GOTO 170 270END 280DEFPROCtitle 290 VDU 132,157,141:PRINT" sssntss sss sssssss sss ths RS423" 300 VDU 132,157,141:PRINT" printer con nection via the RS423" 310 PRINTTAB(10);:VDU 132,157,141:PRIN T" by s.s.shskoos ";CHR$(156) 320 PRINTTAB(10);:VDU 132,157,141:PRIN T" by A.S.ShAkoor ";CHR$(156) 330 ENDPROC 340DEFPROCline:PRINT"  ,,,,,,,,,,,,,,,,,,,,":ENDPROC 350DEFPROCWAIT:OSCLI("FX21,0"):OSCLI(" FX15,0"):*DISC 360ENDPROC