home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 3100.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  239 b   |  9 lines
  1. 3110 '    send a string (A$) to local terminal
  2. 3120 ' 1.0
  3. 3130 IF STATPOLARITY%=0 THEN J%=&HFF ELSE J%=0
  4. 3140 FOR INDEX%=1 TO LEN(A$)
  5. 3150    WAIT STATSTATUS%, STATRDY%, J%
  6. 3160    OUT STATDATA%, ASC(MID$(A$,INDEX%,1))
  7. 3170 NEXT INDEX%
  8. 3180 RETURN
  9.