home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 1
/
FFMCD01.bin
/
new
/
util
/
mfrinced
/
save_file_req.ced
< prev
next >
Wrap
Text File
|
1993-08-18
|
3KB
|
95 lines
/*««««««««««««««««««««««« Save_File_req.ced »»»»»»»»»»»»»»»»»»»»»»»»»»»»>
« »
« Program: Save_File_req.ced »
« Abstract: rexx prgm to use mfr in CED 3.5 »
« Author: Benjamin Lear (BL) »
« Version: 1.0 »
« Status: Public Domain , NO WARRENTY !!! »
« Date: 17.8.1993 »
« Last modified: 18.8.1993 »
« »
«««««««««««««««««««««««««« ««««« · »»»»» »»»»»»»»»»»»»»»»»»»»»»»»»»»*/
/* NOTE:
recommended to put this in your user-startup in order to increase speed:
resident c:SetDefPubScreen PURE
*/
OPTIONS RESULTS
/*
ADDRESS COMMAND "resident c:SetDefPubScreen PURE"
*/
IF ~show('l','rexxsupport.library') THEN
DO
CALL addlib('rexxsupport.library',0,-30)
END
IF ~show('l','rexxarplib.library') THEN
DO
CALL addlib('rexxarplib.library',0,-30)
END
/* Make sure the libraries are resident in memory ... */
IF ~showlist('L','rexxarplib.library') THEN
DO
say "Loading RexxArpLib Library ..."
address command 'loadlib libs:screenshare.library'
address command 'loadlib libs:rexxarplib.library'
END
IF ~show('l', "rexxarplib.library") THEN
DO
check = addlib('rexxsupport.library',0,-30,0)
check = addlib('rexxmathlib.library',0,-30,0)
check = addlib('rexxarplib.library',0,-30,0)
END
IF ~show('l','req.library') THEN
DO
CALL addlib('req.library',0,-60)
END
STATUS 20 /* Dir of curr. CED - window */
curr_dir = result
/* set a default directory : */
IF ( curr_dir = '') THEN
DO
curr_dir = "T:"
END
STATUS 21 /* name of curr. CED - window */
curr_file = result
"Make screen public ?" /* make CED - public : */
/* make CED - default public screen : */
/* I'll be very glad, if someone could tell me how to do this in arexx */
ADDRESS COMMAND SetDefPubScreen CygnusEdScreen1
CALL filereq("Save file as ...", curr_dir, curr_file ) /* -> req.library functions */
selected_file = result
ADDRESS COMMAND SetDefPubScreen $PUBLICSCREEN
"use custom scrolling routines?"
/* loading selected file: */
IF ( selected_file ~= '' ) THEN
DO
SAVE AS """" || selected_file || """"
END
EXIT 0
/* ««« THE · END »»» */