home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / Edit.clssa < prev    next >
Text File  |  1993-05-01  |  625b  |  26 lines
  1. /***********************************************************************
  2.  GADGET: "'Edit Macro'" "1" AUTO TYP: "?"
  3.  
  4.  $DAT >>Edit.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. OPTIONS RESULTS
  8. ADDRESS clariSSA
  9.  
  10.   FailAt 20
  11.   AltFail=RESULT
  12.  
  13.   PubScreenName = "SSA Screen"
  14.  
  15.   SetBasicScreen FRONT TO 0 0
  16.   FileSelect "TITLE 'Macro Load..' PTEXT Load"
  17.  
  18.   IF RC = 0 THEN DO
  19.     MacroName = RESULT
  20.     ADDRESS COMMAND Ed MacroName' WINDOW "CON:0/12/640/170/Ed: 'MacroName'/CLOSE/SCREEN'PubScreenName'"'
  21.     ADDRESS clariSSA
  22.   END
  23.  
  24.   FailAt AltFail
  25. exit
  26.