home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / IFFSupport1.8 / txt / ShowIFF.mod < prev   
Encoding:
Text File  |  1992-11-03  |  1.1 KB  |  55 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    ShowIFF.mod
  3.     :Author.     Fridtjof Siebert
  4.     :Address.    Nobileweg 67, D-7-Stgt-40
  5.     :Shortcut.   [fbs]
  6.     :Version.    1.8
  7.     :Date.       02-Nov-92
  8.     :Copyright.  PD
  9.     :Language.   Oberon
  10.     :Translator. Amiga Oberon 3.0
  11.     :Imports.    IFFSupport [fbs].
  12.     :Contents.   IFF-Ladeprogramm zum Betrachten von IFF (ILBM)-Bildern.
  13.     :Remark.     Aufruf: ShowIFF <filename>
  14. ---------------------------------------------------------------------------*)
  15. MODULE ShowIFF;
  16.  
  17. IMPORT arg: Arguments,
  18.        I:   Intuition,
  19.        IFF: IFFSupport,
  20.        d:   Dos;
  21.  
  22. VAR
  23.   MyScreen   : I.ScreenPtr;
  24.   WindowDummy: I.WindowPtr;
  25.   Name       : ARRAY 80 OF CHAR;
  26.   length     : INTEGER;
  27.   Ciapra [0BFE001H]: SHORTSET;
  28.  
  29. BEGIN
  30.  
  31.   IF arg.NumArgs()#1 THEN
  32.  
  33.     HALT(20);
  34.  
  35.   ELSE
  36.  
  37.     arg.GetArg(1,Name);
  38.  
  39.     IF IFF.ReadILBM(Name,{IFF.front,IFF.visible},MyScreen,WindowDummy) THEN
  40.  
  41.       WHILE 6 IN Ciapra DO d.Delay(3) END;
  42.  
  43.       I.OldCloseScreen(MyScreen);
  44.  
  45.     ELSE
  46.  
  47.       I.DisplayBeep(NIL);
  48.  
  49.     END;
  50.  
  51.   END;
  52.  
  53. END ShowIFF.
  54.  
  55.