home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CopyPRGS / SC172.DMS / in.adf / Rexx / Anzeige.adpro next >
Encoding:
Text File  |  1994-10-10  |  1.5 KB  |  89 lines
  1. /*
  2. ** Anzeige.adpro
  3. **
  4. ** $VER: Anzeige.adpro 1.0.1 (19.08.94)
  5. **
  6. ** Anzeige ARexx program für alle Formate via Adpro.
  7. **
  8. ** EINGABE über Tastatur (oder Task).
  9. **
  10. ** Copyright © 1994 SIEGFRIED-SOFT All Rights Reserved
  11. **
  12. ** Durch kleine Änderungen ist die Anzeige auf Graphikkarten möglich.
  13. */
  14. DQ = '22'X
  15. TRUE  = 1
  16. FALSE = 0
  17.  
  18. CALL "adproscripts:Locate-ADPro.adpro"
  19.  
  20. address "ADPro"
  21. options results
  22. ADPRO_TO_FRONT
  23.  
  24. arg INPUT   /*argument vom cli oder task holen*/
  25. SAY INPUT
  26.  
  27.    if INPUT = "" then do
  28.  
  29. CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Enter FILE To Show"' '"Work:"' '""""' TRUE
  30. INPUT = RESULT
  31.  
  32. IF (RESULT = (DQ || DQ)) THEN DO
  33.     ADPRO_TO_FRONT
  34.     OKAY1 "Error, no File specified."
  35.     ADPRO_TO_BACK
  36.     EXIT
  37. END
  38.    END
  39.  
  40. TempDefaults = "T:TempADProDefaults"
  41. SAVE_DEFAULTS TempDefaults
  42.  
  43. lformat "UNIVERSAL"
  44.  
  45. /* Hier Graphikkarten-Saver wählen z.b. Retina */ 
  46. sformat "IFF"
  47.  
  48. pwidth "ENHANCED"
  49. render_type "256"
  50.  
  51. load INPUT
  52. if RC ~= 0 then do
  53.         CALL CLEANUP
  54.     ADPRO_TO_FRONT
  55.         okay1 "Error Loading" INPUT
  56.     ADPRO_TO_BACK
  57.         exit
  58. end
  59.  
  60. /*SAVE_GUI für Graphikkarten*/
  61. /*SAVE "ram:test" "RAW"*/
  62.  
  63.  
  64. EXECUTE                /*Anzeigen für Graphikkarten entfernen*/        
  65.  
  66.  
  67. ADPRO_TO_FRONT
  68. ADPRO_DISPLAY
  69. pause 250
  70. adpro_to_back
  71. CALL CLEANUP
  72.  
  73.  
  74. EXIT
  75.  
  76. CLEANUP:
  77.     IF (EXISTS( TempDefaults )) THEN DO
  78.         LOAD_DEFAULTS TempDefaults
  79.         IF (RC ~= 0) THEN DO
  80.             ADPRO_TO_FRONT
  81.             OKAY1 "Error restoring settings."
  82.             ADPRO_TO_BACK
  83.         END
  84.  
  85.         ADDRESS COMMAND "Delete >NIL:" TempDefaults
  86.     END
  87. RETURN
  88.  
  89.