home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / logo / powerlogo / rexx / loadlogo.qed next >
Text File  |  1992-11-10  |  473b  |  18 lines
  1. /* LoadLOGO.qed  --> Switch to LOGO from QED. */
  2.  
  3. 'WRITE'                    /* save edit file from QED */
  4.  
  5. OPTIONS RESULTS
  6. 'STATUS F'                 /* get file name from QED */
  7. fname = result
  8. 'STATUS P'                 /* get path name from QED */
  9. fpath = result
  10.  
  11. IF RIGHT(fpath,1) == ':' THEN name = '[ 'fpath || fname' ] )'
  12.                          ELSE name = '[ 'fpath'/'fname' ] )'
  13.  
  14. OPTIONS
  15.  
  16. ADDRESS 'LOGO'
  17. '( from-editor' name       /* load edit file into LOGO */
  18.