3110 '	send a string (A$) to local terminal
3120 ' 1.0
3130 IF STATPOLARITY%=0 THEN J%=&HFF ELSE J%=0
3140 FOR INDEX%=1 TO LEN(A$)
3150	WAIT STATSTATUS%, STATRDY%, J%
3160	OUT STATDATA%, ASC(MID$(A$,INDEX%,1))
3170 NEXT INDEX%
3180 RETURN