home *** CD-ROM | disk | FTP | other *** search
/ IBM CD Showcase / OS2_CD_ROM.iso / smce0001 / wplace / tutor / startwp.cmd
Encoding:
Text File  |  1993-06-21  |  1.0 KB  |  38 lines
  1. /* Start the Workplace Tutorial */
  2. rc = setlocal()
  3.  
  4. curdir = directory()
  5.  
  6. newdir = directory(curdir||"\WPTUTOR");
  7. if newdir = '' then
  8.   do
  9.     say "We are expecting to find the subdirectory WPTUTOR"
  10.     say "under the TUTOR directory on your hard drive, but"
  11.     say "did not find it.  Please copy this subdirectory to"
  12.     say "your hard drive or run the tutorial from the CD-ROM."
  13.     exit
  14.   end
  15.  
  16. newdir = directory(curdir||"\UBLIB");
  17. if newdir = '' then
  18.   do
  19.     say "We are expecting to find the subdirectory UBLIB"
  20.     say "under the TUTOR directory on your hard drive, but"
  21.     say "did not find it.  Please copy this subdirectory to"
  22.     say "your hard drive or run the tutorial from the CD-ROM."
  23.     exit
  24.   end
  25.  
  26. umpath = value("UMPATH",,"OS2ENVIRONMENT")
  27. umpath = curdir"\WPTUTOR;"curdir"\WPSAMPLE;"curdir"\UBLIB;"umpath
  28. rc = value("UMPATH",umpath,"OS2ENVIRONMENT")
  29.  
  30. path = value("PATH",,"OS2ENVIRONMENT")
  31. path = curdir"\WPTUTOR;"path
  32. rc = value("PATH",path,"OS2ENVIRONMENT")
  33.  
  34. "TELLPM WPTUTOR"
  35.  
  36. rc = endlocal()
  37. 
  38.