home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windoware
/
WINDOWARE_1_6.iso
/
winutil
/
wbt31b
/
zoomer.wb$
< prev
Wrap
Text File
|
1991-01-02
|
861b
|
42 lines
if Param0==0 then goto oops0
if Param0==1 then goto only1
;Figure out how many parameters,
;strcat them together and run them.
AllParams=""
ParamCount=1
:loop
ParamCount=ParamCount+1
AllParams=strcat(AllParams," ",Param%ParamCount%)
if Param0<ParamCount then goto loop
RunZoom(Param1,AllParams)
Exit
:only1
RunZoom(Param1,"")
Exit
:oops0
cr=strcat(num2char(13),num2char(10))
a="ZOOMER.WBT is designed to be used%cr%"
b="with the Program Manager to run%cr%"
c="window applications as full-screen%cr%"
d="windows. The 'Command Line' of the%cr%"
e="Program Manager properties box should%cr%"
f="look like:%cr%"
g="ZOOMER.WBT app-name app-parms%cr%"
h=" %cr%"
i="For Example%cr%"
j="ZOOMER.WBT CLOCK.EXE or%cr%"
k="ZOOMER.WBT NOTEPAD.EXE WIN.INI"
a=strcat(a,b,c,d,e,f,g,h,i,j,k)
Message("ZOOMER.WBT",a)
Exit