home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / ACE / Prgs / Gfx / IFF.b < prev    next >
Text File  |  1994-10-03  |  483b  |  23 lines
  1. '..Display an IFF picture.
  2.  
  3. f$ = FileBox$("Select an IFF file")
  4. if f$="" then stop
  5.  
  6. iff open #1,f$
  7. if Err <> 0 then MsgBox f$+" is not an IFF file.","Continue" : stop
  8.  
  9. screen 1,iff(1,1),iff(1,2),iff(1,3),iff(1,4)
  10. if Err = 600 then MsgBox "Unable to open screen.","Continue" : goto cleanup2
  11.  
  12. iff read #1,1
  13. if Err <> 0 then MsgBox "Error reading "+f$+".","Continue" : goto cleanup1
  14.  
  15. while inkey$="" and NOT mouse(0):sleep:wend
  16.  
  17. cleanup1:
  18.   screen close 1
  19. cleanup2:
  20.   iff close #1
  21.  
  22. END
  23.