þþxi"…PINITQ>;;30 Sekunden Timeoutyi
P…TEMP2zi:{i+†PHSTLO	†DVSTAT;;Zeiger auf Statuspuffer|i,†PHCHLO	†PRNBUF;;Zeiger auf Zeichenpuffer}i†PSTATSQ>~i!P†PBUFSZ;;Puffergroesse 4 Bytei$†PHSTLO;;Pufferadresse auf€i%†PHSTLO;;Status PufferiQ>
S;;SIO: Status Kommando‚iP†DCOMNDƒi
P…DAUX1„i4 †SETDCB;;$40,$xx,$53,$40,$EA,$02,$1E,$00,$04,$00…i	 „SIOV†iG…BADST;;Fehler ->‡i …PHPUT;;TEMP2=DVSTAT+2ˆi„PGET‰i
†PSPECLŠi
…BADST:‹i%…POPEN †PSTATS;;Status feststellenŒiQ> iP…PBPNT;;Puffer sei leerŽi:i„PPUT5;;Zeichen retteniQ…ICDNO9;;Ger{tenummer‘iP†ICDNOZ;;in Page 0 IOCB’i †PRMODE“i
$…PBPNT”i7;;Zeichen zur}ck•i!P†PRNBUF9;;Im Puffer speichern–i2—i(†PBUFSZ;;Puffer voll ?˜iF†BUFFUL;;Ja ->™i'&…PBPNT;;Zeiger f}r n{chstes ZeichenšiR>›;;War das Zeichen EOL ?›i/F†BLFILL;;Ja, f}lle Puffer m. Leerzeichen ->œi%>†SUCCES;;Status oki:ži#†BLFILLQ> ;;Leerzeichen (Blank)Ÿi†FILLBFP†PRNBUF9 i2¡i(†PBUFSZ;;Puffer voll ?¢iH†FILLBF;;Nein ->£i†BUFFULQ> ¤iP…PBPNT;;Puffer sei leer¥i$†PHCHLO;;Datenpufferadresse¦i%†PHCHLO§i †SETDCB¨i	!„SIOV©i†PCLOSE †PRMODEªiQ>›«i$$…PBPNT;;Ist noch was im Puffer ?¬i"H†FILLBF;;Ja, erst senden, dann­i%>;;Kanal schliessen.®i:¯i/†SETDCB&†DBUFLO;;Pufferadresse in X=LO, Y=HI°i'†DBUFHI±iQ>@;;Ger{tekennung²iP†DDEVIC³iQ†ICDNOZ;;Ger{tenummer´i
P…DUNITµiQ>€;;SIO schreiben¶i$†DCOMND;;Welches Kommando ?·i)(>
S;;Beim Status werden Daten gelesen¸iH…PSIOC;;Nicht Status ->¹iQ>@;;SIO lesenºi…PSIOCP†DSTATS»iQ†PBUFSZ;;Pufferl{nge¼iP†DBYTLO½iQ> ¾iP†DBYTHI¿iQ…TEMP2;;Timeout-ZeitÀiP†DTIMLOÁi:Âi$…PHPUTQ†DVSTAT;;TEMP2=DVSTAT+2Ãi
P…TEMP2Äi:Åi*†PRMODE%>
W;;Kommando schreiben (write)ÆiQ†ICAX2Z;;DruckmodusÇi…CMODER>
N;;Normal ?ÈiH…CDUBL;;Nein ->Éi$>(;;Normale PuffergroesseÊiH†SETBSZ;;UnbedingtËi…CDUBLR>
D;;Doppelt ?ÌiH…CSIDE;;Nein ->Íi!$>;;Puffergroesse f. doppeltÎiH†SETBSZ;;UnbedingtÏi…CSIDER>
S;;Seitw{rts ?ÐiH…GOERR;;Nein ->Ñi#$>;;Puffergroesse f. seitw{rtsÒi†SETBSZ&†PBUFSZÓi'†DCOMND;;KommandoÔiP…DAUX1;;DruckmodusÕi:Öi%…GOERRQ>
N;;Voreinstellung: Normal×iH…CMODE;;UnbedingtØiAˆRom TestA