home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 9
/
FreshFishVol9-CD2.bin
/
bbs
/
util
/
golded-1.1.lha
/
GoldED
/
data
/
tools
/
HiSpeed
/
arexx
/
Index.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-05-27
|
1KB
|
49 lines
/* Print index. For those people who don't like the built-in index */
/* function. */
options results
shell
address HISPEED.1
SET REQUESTER ON
SET ASK "Print index file ?"
if RESULT = 1 then
do
QUERY JOBS /* anything to print ? */
if RESULT = 0 then
REQUESTFILE /* no, ask for files */
QUERY JOBS /* anything to print now ? */
if (RESULT ~= 0) then /* let's go ... */
do
SET COVER 'HiSpeed:ARexx/Index.PCL'
SET HEADER INDEX /* ask for index */
SET REQUESTER OFF /* turn off statistics display */
SCAN /* create index file T:INDEX */
SET REQUESTER ON /* enable requesters */
shell /* address AmigaDOS */
do
if OPEN('INIT', 'T:INIT', 'WRITE') then
do
R = WRITECH('INIT', '"r&l6D&k2G&a15L&a8R')
R = CLOSE('INIT')
'JOIN T:INIT T:INDEX AS PRT:'
end
end
end
end