home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
ace_basic
/
ace
/
prgs
/
gfx
/
iff.b
< prev
next >
Wrap
Text File
|
1977-12-31
|
483b
|
23 lines
'..Display an IFF picture.
f$ = FileBox$("Select an IFF file")
if f$="" then stop
iff open #1,f$
if Err <> 0 then MsgBox f$+" is not an IFF file.","Continue" : stop
screen 1,iff(1,1),iff(1,2),iff(1,3),iff(1,4)
if Err = 600 then MsgBox "Unable to open screen.","Continue" : goto cleanup2
iff read #1,1
if Err <> 0 then MsgBox "Error reading "+f$+".","Continue" : goto cleanup1
while inkey$="" and NOT mouse(0):sleep:wend
cleanup1:
screen close 1
cleanup2:
iff close #1
END