home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #5
/
AmigaPlus_Extra-CD_5-97.iso
/
online-tools
/
mail
/
netmail
/
drivers
/
ed.editor
< prev
next >
Wrap
Text File
|
1995-09-30
|
1KB
|
54 lines
/*
** $VER: Ed.editor 1.2 (30.9.95)
** Copyright (c) 1995 Riccardo Solmi
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
cmd = 'C:Ed'
IF ~EXISTS(cmd) THEN RETURN 2
SELECT
WHEN UPPER(ARG(1)) = 'EDIT' THEN DO
PARSE ARG , file, port
winpar = ''
wininfo = GetVar('NetMail/EditorWin')
IF wininfo ~= 0 THEN DO
PARSE VAR wininfo pL pT pW pH .
winpar = 'WINDOW="CON:'pL'/'pT'/'pW'/'pH'/Ed editor"'
END
port = 'Ed'
IF ~SHOW('P', port) THEN DO
ADDRESS COMMAND
'Run >NIL: "'cmd'" "'file'"' winpar
'WaitForPort' port
IF RC ~= 0 THEN RETURN 5
END
ELSE DO
ADDRESS VALUE port
'OP "'file'"'
END
END
WHEN UPPER(ARG(1)) = 'SAVE' THEN DO
PARSE ARG , port
IF SHOW('P', port) & ABBREV(port, 'Ed') THEN DO
ADDRESS VALUE port
'SA'
END
END
WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
PARSE ARG , port
IF SHOW('P', port) & ABBREV(port, 'Ed') THEN DO
ADDRESS VALUE port
'Q'
END
END
END
RETURN port