PROC Main:
DO
gIPRINT:(DATIM$)
UNTIL 1=2
ENDP

PROC gIPRINT:(s$)
LOCAL Self%,Pid%,Buf$(65),PBuf%
Self%=CALL($0088)
CALL($D98D,0,0,0,ADDR(Buf$),0)
Pid%=PEEKW(ADDR(Buf$))
Buf$=LEFT$(S$,64)+CHR$(0)
PBuf%=UADD(ADDR(Buf$),1)
RETURN CALL($0483,Pid%,51,0,ADDR(PBuf%),0)
ENDP