home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
286.lha
/
Sham_v3.0
/
GIFtoSHAM.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-08-28
|
827b
|
41 lines
/* REXX glue to use with SHAMVIEW2.0 routines.
Convert GIF format pics to SHAM format
Usage: GIFtoSHAM <GIF-FILENAME>
By: E.R. Uber
1941 W. Morningside Dr.
Phoenix, AZ 85023
PLINK: E*R*UBER
*/
RED = '
'
BLK = '
'
DEF = '
'
parse arg 1 f
if arg() = 0 | f = '?' then do
say BLK'Usage: 'DEF'GIFtoSHAM <'RED'Filename.gif'DEF'>'
exit 0
end
/* Find filename without .gif extension for use later during rename */
if upper(right(f,4)) = '.GIF' then
fn = left(f,length(f)-4)
else
fn = f
say RED'giftotmp 'f f'.tmp'BLK
'giftotmp 'f f'.tmp'
say RED'supercon 'f'.tmp'BLK
'supercon 'f'.tmp'
say RED'rename 'f'.tmp.sham' fn'.sham'BLK
'rename 'f'.tmp.sham' fn'.sham'
/* 'shamview 'f'.sham' DO NOT NEED TO DO THIS SINCE SUPERCON DISPLAYS */
say RED'delete 'f'.tmp'DEF
'delete 'f'.tmp'