home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #5
/
AmigaPlus_Extra-CD_5-97.iso
/
online-tools
/
mail
/
netmail
/
drivers
/
multiview.reader
< prev
next >
Wrap
Text File
|
1995-09-30
|
1KB
|
58 lines
/*
** $VER: MultiView.reader 1.1 (30.9.95)
** Copyright (c) 1995 Riccardo Solmi
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
cmd = 'SYS:Utilities/MultiView'
IF ~EXISTS(cmd) THEN DO
cmd = GetVar('NetMail/MultiViewCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/MultiViewCmd `Which "MultiView"`'
cmd = GetVar('NetMail/MultiViewCmd')
IF cmd = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/MultiViewCmd `RequestFile Title "Select MultiView command" Noicons`'
cmd = GetVar('NetMail/MultiViewCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/MultiViewCmd ENVARC:NetMail/MultiViewCmd'
END
END
END
SELECT
WHEN UPPER(ARG(1)) = 'READ' THEN DO
PARSE ARG , file, port
port = 'MVREADER'
IF ~show('P', port) THEN DO
ADDRESS COMMAND
'Run >NIL: "'cmd'" "'file'"' 'PORTNAME' port
IF RC ~= 0 THEN RETURN 5
END
ELSE DO
ADDRESS VALUE port
'Open NAME "'file'"'
END
END
WHEN UPPER(ARG(1)) = 'CLEAR' THEN DO
PARSE ARG , port
IF show('P', port) THEN DO
ADDRESS VALUE port
'Quit'
END
END
WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
PARSE ARG , port
IF show('P', port) THEN DO
ADDRESS VALUE port
'Quit'
END
END
END
RETURN port