/*«««««««««««««««««««««««  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 »»»				*/