%externalstringfnspec vdus(%integer i) %externalroutinespec printchs(%string(255)s) %recordformat parmf(%integer dest,srce,p1,p2,p3,p4,p5,p6) %dynamicroutinespec dpoff(%record(parmf)%name p) %dynamicintegerfnspec ddelay(%integer secs) %externalroutine await(%string(255) s) %record(parmf) p %integer i printchs(vdus(1)) newlines(5) printstring(" This terminal is still in use - please do not try to use it") newlines(5) i=ddelay(2) p=0 dpoff(p) %end; ! AWAIT %endoffile