home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
viewz2.zip
/
VIEWZ.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-07-26
|
458b
|
23 lines
/* VREXX file dialog front end for VIEW */
'@echo off'
call RxFuncAdd 'VInit', 'VREXX', 'VINIT'
initcode = VInit()
if initcode = 'ERROR' then signal CLEANUP
signal on failure name CLEANUP
signal on halt name CLEANUP
signal on syntax name CLEANUP
call VDialogPos 10, 50
button = VFileBox('Pick a file...', 'c:\os2\book\*.inf', 'file')
if button = "OK" then do
view file.vstring
/* end of CMD file */
CLEANUP:
call VExit
exit