home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / graphics / riff731.lha / riff.mod < prev   
Text File  |  1992-09-26  |  2KB  |  70 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. *   Program         :   riff.mod
  4. *   Copyright       :   1992 ©, By DigiSoft
  5. *   Author          :   Marcel Timmermans
  6. *   Address         :   Holthuizerdreef 13, 6852 JH, HUISSEN, HOLLAND
  7. *   Creation Date   :   11-09-1992
  8. *   Current version :   1.0
  9. *   Translator      :   M2Amiga V4.0d
  10. *
  11. *   REVISION HISTORY
  12. *
  13. *   Date          Version         Comment
  14. *   ---------     -------         ------------------------------------------
  15. *
  16. *-- END AutoRevision header --*)
  17.  
  18. MODULE riff;
  19.  
  20. FROM SYSTEM       IMPORT ADR,ADDRESS,SHIFT,SHORTSET;
  21.  
  22. IMPORT id:IntuitionD,il:IntuitionL,a:Arguments,io:Terminal;
  23.  
  24. FROM readiff IMPORT ReadILBM,IFFError,IFFErrors;
  25.  
  26. CONST
  27.   CopyRight="Riff V1.0, iff reader, 1992 ©, DigiSoft\n";
  28.  
  29. TYPE
  30.   String    = ARRAY[0..255] OF CHAR;
  31.   StringPtr = POINTER TO String;
  32.  
  33. VAR
  34.   numArgs,arg,len: INTEGER;
  35.   path : String;
  36.  
  37.   myscreen : id.ScreenPtr;
  38.  
  39. (*-------------------------------------------------------------------------*)
  40. (*-------------------------------------------------------------------------*)
  41.  
  42. PROCEDURE WaitLMouse;
  43. VAR Ciapra[0BFE001H]: SHORTSET;
  44. BEGIN
  45.  WHILE 6 IN Ciapra DO END;
  46.  WHILE ((6 IN Ciapra)=FALSE) DO END;
  47. END WaitLMouse;
  48.  
  49. (*-------------------------------------------------------------------------*)
  50. (*-------------------------------------------------------------------------*)
  51.  
  52. BEGIN
  53.  numArgs:=a.NumArgs();
  54.  arg:=1;
  55.  IF numArgs=0 THEN io.WriteString(CopyRight); END;
  56.  WHILE arg<=numArgs DO
  57.   a.GetArg(arg,path,len);
  58.   IFFError:=ReadILBM(path,myscreen);
  59.   IF IFFError=iffNoErr THEN
  60.     WaitLMouse;
  61.   ELSE
  62.    io.WriteString("Error in ReadIff module");
  63.   END;
  64.   IF myscreen#NIL THEN il.CloseScreen(myscreen); END;
  65.   INC(arg);
  66.  END;
  67. CLOSE
  68.  IF myscreen#NIL THEN il.CloseScreen(myscreen); END;
  69. END riff.
  70.