home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware GOLD / NuclearComputingVol3No1.cdr / apps / f1340 / zoomer.wbt < prev   
Text File  |  1991-01-01  |  861b  |  42 lines
  1. if Param0==0 then goto oops0
  2. if Param0==1 then goto only1
  3.  
  4. ;Figure out how many parameters,
  5. ;strcat them together and run them.
  6.  
  7. AllParams=""
  8. ParamCount=1
  9. :loop
  10. ParamCount=ParamCount+1
  11. AllParams=strcat(AllParams," ",Param%ParamCount%)
  12. if Param0<ParamCount then goto loop
  13.  
  14. RunZoom(Param1,AllParams)
  15. Exit
  16.  
  17.  
  18.  
  19. :only1
  20. RunZoom(Param1,"")
  21. Exit
  22.  
  23.  
  24. :oops0
  25. cr=strcat(num2char(13),num2char(10))
  26. a="ZOOMER.WBT is designed to be used%cr%"
  27. b="with the Program Manager to run%cr%"
  28. c="window applications as full-screen%cr%"
  29. d="windows.  The 'Command Line' of the%cr%"
  30. e="Program Manager properties box should%cr%"
  31. f="look like:%cr%"
  32. g="ZOOMER.WBT app-name app-parms%cr%"
  33. h=" %cr%"
  34. i="For Example%cr%"
  35. j="ZOOMER.WBT CLOCK.EXE      or%cr%"
  36. k="ZOOMER.WBT NOTEPAD.EXE WIN.INI"
  37. a=strcat(a,b,c,d,e,f,g,h,i,j,k)
  38. Message("ZOOMER.WBT",a)
  39. Exit
  40.  
  41.  
  42.