home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / new / util / mfrinced / save_file_req.ced < prev    next >
Text File  |  1993-08-18  |  3KB  |  95 lines
  1.  
  2. /*«««««««««««««««««««««««  Save_File_req.ced  »»»»»»»»»»»»»»»»»»»»»»»»»»»»>
  3.  «                                                                       »
  4.  «    Program:          Save_File_req.ced                                »
  5.  «    Abstract:         rexx prgm to use mfr in CED 3.5                  »
  6.  «    Author:           Benjamin Lear (BL)                               »
  7.  «    Version:        1.0                                              »
  8.  «    Status:         Public Domain , NO WARRENTY !!!                  »
  9.  «    Date:             17.8.1993                                        »
  10.  «    Last modified:    18.8.1993                                        »
  11.  «                                                                       »
  12.  ««««««««««««««««««««««««««   ««««« · »»»»»   »»»»»»»»»»»»»»»»»»»»»»»»»»»*/
  13.  
  14. /* NOTE:
  15. recommended to put this in your user-startup in order to increase speed:
  16. resident c:SetDefPubScreen PURE
  17. */
  18.  
  19. OPTIONS RESULTS
  20.  
  21.  
  22. /*
  23. ADDRESS COMMAND "resident c:SetDefPubScreen PURE"
  24. */
  25.  
  26. IF ~show('l','rexxsupport.library') THEN 
  27. DO
  28.    CALL addlib('rexxsupport.library',0,-30)
  29. END
  30. IF ~show('l','rexxarplib.library') THEN 
  31. DO
  32.    CALL addlib('rexxarplib.library',0,-30)
  33. END
  34.  
  35.  
  36. /* Make sure the libraries are resident in memory ... */
  37. IF ~showlist('L','rexxarplib.library') THEN 
  38. DO
  39.    say "Loading RexxArpLib Library ..."
  40.    address command 'loadlib libs:screenshare.library'
  41.    address command 'loadlib libs:rexxarplib.library'
  42. END
  43.  
  44. IF ~show('l', "rexxarplib.library") THEN 
  45. DO
  46.   check = addlib('rexxsupport.library',0,-30,0) 
  47.   check = addlib('rexxmathlib.library',0,-30,0)
  48.   check = addlib('rexxarplib.library',0,-30,0)   
  49. END
  50.  
  51. IF ~show('l','req.library') THEN 
  52. DO
  53.    CALL addlib('req.library',0,-60)
  54. END
  55.  
  56.  
  57. STATUS 20             /* Dir of curr. CED - window  */
  58. curr_dir = result 
  59.  
  60. /* set a default directory : */
  61.  
  62. IF ( curr_dir = '') THEN
  63. DO
  64.   curr_dir = "T:"
  65. END
  66.  
  67. STATUS 21             /* name of curr. CED - window  */
  68. curr_file = result 
  69.  
  70. "Make screen public ?"         /* make CED - public : */
  71.  
  72. /* make CED - default public screen : */
  73. /* I'll be very glad, if someone could tell me how to do this in arexx */
  74.  
  75. ADDRESS COMMAND SetDefPubScreen CygnusEdScreen1
  76.  
  77. CALL filereq("Save file as ...", curr_dir, curr_file ) /* -> req.library functions */
  78. selected_file = result
  79.  
  80. ADDRESS COMMAND SetDefPubScreen $PUBLICSCREEN 
  81.  
  82. "use custom scrolling routines?"
  83.  
  84. /* loading selected file: */
  85.  
  86. IF ( selected_file ~= '' ) THEN
  87. DO
  88.  
  89.  SAVE AS  """" || selected_file || """"
  90.  
  91. END
  92.  
  93. EXIT 0
  94. /*                          ««« THE · END »»»                */
  95.