10 PROCWAIT
   20  ONERRORVDU3:END
   30  MODE7:PROCtitle
   40 VDU23;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;23;11,9,0;0;0;
   50  VDU 28,0,24,39,5
   60  PRINT'"…ˆThe computer is ready to send data"'"…ˆto the printer"  
   70 PROCline
   80  PRINT"ƒPress any key to continue"   
   90 PROCline   
  100  KEY$=GET$:CLS
  110  PRINT"�Start typing....." 
  120 PROCline
  130 PRINTTAB(0,17);:PROCline 
  140  PRINTTAB(0,18)"…Note.....typeƒ@…to end "   
  150  VDU 28,1,21,36,8 
  170 A$=GET$
  180  IF A$=CHR$(13) THEN VDU10,10,13:A$=CHR$(11) 
  190  IF A$="@" THEN VDU3:END
  200 *FX15,0
  210 VDU2
  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
  270 END
  280 DEFPROCtitle
  290  VDU 132,157,141:PRINT"‡sssntss ssssssssss sss‚ths�RS423"
  300  VDU 132,157,141:PRINT"‡printer connection via‚the�RS423" 
  310  PRINTTAB(10);:VDU 132,157,141:PRINT"ƒby†s.s.shskoos   ";CHR$(156)
  320  PRINTTAB(10);:VDU 132,157,141:PRINT"ƒby†A.S.ShAkoor   ";CHR$(156)
  330  ENDPROC
  340 DEFPROCline:PRINT"”,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC  
  350 DEFPROCWAIT:OSCLI("FX21,0"):OSCLI("FX15,0"):*DISC
  360 ENDPROC