TAPE (10) COMMUNICATIONS PROTOCOL (3.4)
Name
Value
NAME
TAPE
SEND
W XMSG,! ; S XMTRAN="S: "_XMSG D TRAN^
XMC1
RECEIVE
R XMRG ; S XMTRAN="R: "_XMRG D TRAN^
XMC1
OPEN
S XMBT=1 D ^
%ZIS
I IO=IO(0)!POP S ER=1,XMTRAN="Invalid device !!!" D TRAN^
XMC1
Q
CLOSE
X ^%ZIS("C")
