/*
    ReadUsenetBin.zprx 1.0 (18.8.94) Copyright (c) Ralph Seichter

    Speichert die aktuelle Nachricht, uudekodiert die darin enthaltene
    Datei 'binaer.zer' und zeigt sie via MultiView auf dem ZP-Screen.
*/

PARSE ARG zp
zp = COMPRESS(zp)
IF (zp = '') THEN
    zp = 'ZPoint'

OPTIONS RESULTS
ADDRESS VALUE zp

src = 'T:r-u-bin.zp'
dst = 'T:binaer.zer'
savemessagebody src
IF (~RC) THEN DO
    requestnotify 'Kann ' || src || ' nicht schreiben!'
    EXIT
END

ADDRESS COMMAND
'uudecode ' || src || ' PATH T:'
'SYS:Utilities/MultiView ' || dst || ' PUBSCREEN ' || zp
'delete quiet ' || src || ' ' || dst

/* EOF */