/* DeTag 1.0 by Jeepster, © 1996. */
options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit;se=sendstring;gc=getchar;qu=query;gu=getuser;bf=bufferflush

gu 23;port=result

edpath='ram:';lf='0a'x;
se '<14}^1c6Adding random tag to your message...Please wait...q1!1<22}'
address command "pfiles:de-tag/extra"
call open(f1,'ram:tag_temp') ; tag=readln(f1)
call open(f2,edpath||'_edbuff'||port,'a')
call writeln(f2,lf||'--- DeTaG 1.0 by Tom Newsom, © 1996. ')
call writeln(f2,tag||lf);call close(f2);bf;exit
SYNTAX: ; ERROR: ; IOERR:
    tr 'n2*** BOOM *** Error Detected!  ER:'rc' ('errortext(rc)') @ 'sigl
    logentry 'ER:'rc' ('errortext(rc)') @ 'sigl' in TimeClock'
bf;exit