home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 117
/
af117a.adf
/
archives
/
af117a1.lzx
/
Fiasco_2.2
/
Databases
/
PictureDatabase
/
Display.frx
< prev
next >
Wrap
Text File
|
2000-09-05
|
934b
|
40 lines
/* display.frx
* Display a picture on a screen
* Copyright © 1996-1997 Nils Bandener
* $VER: display_frx 6.2 (13.9.97)
*/
Options Results
Parse Arg num cmd args
scriptname = "Display"
fiasco_port = address()
GetField "Name_" || num
name = result
if name ~= "" then do
archive = pos("/__in_archive__/", name)
if archive ~= 0 then
do
arcname = left(name, archive - 1)
nameinarc = substr(name, archive + 16)
Address Command 'lha >nil: <nil: e "' || arcname || '" "' || nameinarc || '" t:'
if rc = 0 then
do
ExtractedName = "t:" || substr(NameInArc, lastpos("/", NameInArc) + 1)
Address Command 'execute startprog ' || cmd '"' || extractedname || '"' args
Address Command 'delete "' || ExtractedName || '" quiet'
end
end
else
do
Address Command 'execute startprog ' || cmd '"' || name || '"' args
end
end