home *** CD-ROM | disk | FTP | other *** search
/ IBM CD Showcase / OS2_CD_ROM.iso / smce0001 / builder / tutor / startub.cmd
Encoding:
Text File  |  1993-06-16  |  946 b   |  33 lines
  1. /* Start the Builder/2 Tutorial */
  2. rc = setlocal()
  3.  
  4. curdir = directory()
  5.  
  6. newdir = directory(curdir||"\UBTUTOR");
  7. if newdir = '' then
  8.   do
  9.     say "We are expecting to find the subdirectory UBTUTOR"
  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"\UBTUTOR;"curdir"\UBSAMPLE;"curdir"\UBLIB;"umpath
  28. rc = value("UMPATH",umpath,"OS2ENVIRONMENT")
  29.  
  30. "TELLPM TUTORIAL UB"
  31.  
  32. rc = endlocal()
  33.