home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / ls40dskt.cmd < prev    next >
OS/2 REXX Batch file  |  1995-06-14  |  15KB  |  446 lines
  1. /* LS40DSKT.CMD - Create the LAN Server 4.0 Desktop for WPS
  2.    (c) 1995 - Kenneth Frazier
  3.  
  4.      This was written because IBM didn't
  5. */
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. call SysLoadFuncs
  9.  
  10. landrive = ''
  11.  
  12. bootdrive = Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\OS2\SYSTEM',Value('PATH',,'OS2ENVIRONMENT'))-2,2)
  13. If Pos('\IBMLAN',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then landrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMLAN',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  14. If Pos('\MUGLIB',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then upmdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\MUGLIB',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  15. If Pos('\IBMCOM',Translate(Value('PATH',,'OS2ENVIRONMENT'))) > 0 Then comdrive = Translate(Substr(Value('PATH',,'OS2ENVIRONMENT'),Pos('\IBMCOM',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2))
  16. If landrive = ''  Then Do
  17.   Say 'No LAN Server found, terminating.'
  18.   Exit 9
  19. End
  20.  
  21. 'CLS'
  22. Say "Your system is installed on the" bootdrive "drive."
  23. Say " "
  24. Say "The following components have been found:"
  25. Say " "
  26. If landrive <> '' Then Say "     LAN Requester on drive" landrive
  27. If upmdrive <> '' Then Say "     User Profile Management on drive" upmdrive
  28. Say " "
  29. Say "This program will now create a folder for each identified product on your"
  30. Say "desktop, which will contain the standard WPS entries."
  31. Say " "
  32. Say "Do you want to continue (Y/N)?"
  33. Parse Upper Pull yesno .
  34. If Substr(yesno,1,1) <> 'Y' Then Call Endit
  35.  
  36. rc = SysRegisterObjectClass('LSDirectory',landrive||'\IBMLAN\NETLIB\LSGWPS.DLL')
  37.  
  38. ObjMode = 'R' /* Replace */
  39.  
  40. Location = '<WP_DESKTOP>'
  41. Title = 'IBM LAN Services'
  42. Class = 'LSDirectory'
  43. SetupString = "NOTDEFAULTICON=YES;"
  44. SetupString =  SetupString || 'ICONRESOURCE='||landrive||'\IBMLAN\NETPROG\LSFOLDER.ICO;'
  45. SetupString =  SetupString || 'NOPRINT=YES;'
  46. SetupString =  SetupString || 'OBJECTID=<LS_FOLDER>;'
  47.  
  48. Call MakeObj
  49.  
  50. Location = '<WP_DESKTOP>'
  51. Title = 'UPM Services'
  52. Class = 'LSDirectory'
  53. SetupString = "NOTDEFAULTICON=YES;"
  54. SetupString =  SetupString || 'ICONRESOURCE='||upmdrive||'\MUGLIB\UPMFLDR.ICO;'
  55. SetupString =  SetupString || 'NOPRINT=YES;'
  56. SetupString =  SetupString || 'OBJECTID=<UPM_FOLDER>;'
  57.  
  58. Call MakeObj
  59.  
  60. Location = '<WP_DESKTOP>'
  61. Title = 'MPTS'
  62. Class = 'WPProgram'
  63. SetupString = 'NOPRINT=YES;'
  64. SetupString =  SetupString || 'OBJECTID=<NTS_MPTS_ICON>;'
  65. SetupString =  SetupString || 'PROGTYPE=PM;'
  66. SetupString =  SetupString || 'EXENAME='||comdrive||'\IBMCOM\MPTS.EXE;'
  67.  
  68. Call MakeObj
  69.  
  70. /******************************  Build Sub-Folders  **************************/
  71.  
  72. /* Creation of UPM objects */
  73.  
  74.  
  75. Location = '<UPM_FOLDER>'
  76. Title = 'Logon'
  77. Class = 'WPProgram'
  78. SetupString = 'NOPRINT=YES;'
  79. SetupString =  SetupString || 'OBJECTID=<UPM_LOGON>;'
  80. SetupString =  SetupString || 'PROGTYPE=PM;'
  81. SetupString =  SetupString || 'EXENAME='||upmdrive||'\MUGLIB\LOGON.EXE;'
  82. SetupString =  SetupString || 'STARTUPDIR='||upmdrive||'\MUGLIB;'
  83.  
  84. Call MakeObj
  85.  
  86. Location = '<UPM_FOLDER>'
  87. Title = 'Logoff'
  88. Class = 'WPProgram'
  89. SetupString = 'NOPRINT=YES;'
  90. SetupString =  SetupString || 'OBJECTID=<UPM_LOGOFF>;'
  91. SetupString =  SetupString || 'PROGTYPE=PM;'
  92. SetupString =  SetupString || 'EXENAME='||upmdrive||'\MUGLIB\LOGOFF.EXE;'
  93. SetupString =  SetupString || 'PARAMETERS=/L;'
  94. SetupString =  SetupString || 'STARTUPDIR='||upmdrive||'\MUGLIB;'
  95.  
  96. Call MakeObj
  97.  
  98. Location = '<UPM_FOLDER>'
  99. Title = 'User Account Management'
  100. Class = 'WPProgram'
  101. SetupString = 'NOPRINT=YES;'
  102. SetupString =  SetupString || 'OBJECTID=<UPM_ACCTS>;'
  103. SetupString =  SetupString || 'PROGTYPE=PM;'
  104. SetupString =  SetupString || 'EXENAME='||upmdrive||'\MUGLIB\UPMACCTS.EXE;'
  105.  
  106. Call MakeObj
  107.  
  108. /* --- end of objects in UPM folder --- */
  109.  
  110. /* Begin Building LAN Server 4.0 Folder */
  111.  
  112. Location = '<LS_FOLDER>'
  113. Title = 'LAN Server Books'
  114. Class = 'LSDirectory'
  115. SetupString = "NOTDEFAULTICON=YES;"
  116. SetupString =  SetupString || 'ICONRESOURCE='||landrive||'\IBMLAN\BOOKS\LSBOOKS.ICO;'
  117. SetupString =  SetupString || 'NOPRINT=YES;'
  118. SetupString =  SetupString || 'OBJECTID=<LS_BOOK>;'
  119.  
  120. Call MakeObj
  121.  
  122. Location = '<LS_FOLDER>'
  123. Title = 'MPTS'
  124. Class = 'WPProgram'
  125. SetupString = 'NOPRINT=YES;'
  126. SetupString =  SetupString || 'OBJECTID=<LS_MPTS_ICON>;'
  127. SetupString =  SetupString || 'PROGTYPE=PM;'
  128. SetupString =  SetupString || 'EXENAME='||comdrive||'\IBMCOM\MPTS.EXE;'
  129.  
  130. Call MakeObj
  131.  
  132. Location = '<LS_FOLDER>'
  133. Title = 'LS 4.0 Tuning Assistant'
  134. Class = 'WPProgram'
  135. SetupString = 'NOPRINT=YES;'
  136. SetupString =  SetupString || 'OBJECTID=<LS_TUNE>;'
  137. SetupString =  SetupString || 'PROGTYPE=PM;'
  138. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\LS40TUNE.EXE;'
  139. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN;'
  140.  
  141. Call MakeObj
  142.  
  143. Location = '<LS_FOLDER>'
  144. Title = 'Start Requester'
  145. Class = 'WPProgram'
  146. SetupString = 'NOPRINT=YES;'
  147. SetupString =  SetupString || 'OBJECTID=<LS_START>;'
  148. SetupString =  SetupString || 'PROGTYPE=WINDOWABLEVIO;'
  149. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\NETSTCMD.CMD;'
  150. SetupString =  SetupString || 'PARAMETERS=START REQ;'
  151. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\NETPROG;'
  152.  
  153. Call MakeObj
  154.  
  155. Location = '<LS_FOLDER>'
  156. Title = 'README.DOC'
  157. Class = 'WPProgram'
  158. SetupString = 'PROGTYPE=PM;'
  159. SetupString =  SetupString || 'EXENAME=E.EXE;'
  160. SetupString =  SetupString || 'PARAMETERS=README.DOC;'
  161. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN;'
  162.  
  163. Call MakeObj
  164.  
  165. Location = '<LS_FOLDER>'
  166. Title = 'ERROR.TXT'
  167. Class = 'WPProgram'
  168. SetupString = 'PROGTYPE=PM;'
  169. SetupString =  SetupString || 'EXENAME=E.EXE;'
  170. SetupString =  SetupString || 'PARAMETERS=ERROR.TXT;'
  171. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN;'
  172.  
  173. Call MakeObj
  174.  
  175. Location = '<LS_FOLDER>'
  176. Title = 'OS/2 LAN Services^Installation/Configuration'
  177. Class = 'WPProgram'
  178. SetupString = 'NOPRINT=YES;'
  179. SetupString =  SetupString || 'OBJECTID=<LS_INSTALL>;'
  180. SetupString =  SetupString || 'PROGTYPE=FULLSCREEN;'
  181. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\INSTALL\LANINST.EXE;'
  182. SetupString =  SetupString || 'PARAMETERS=/20;'
  183. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\INSTALL;'
  184.  
  185. Call MakeObj
  186.  
  187. Location = '<LS_FOLDER>'
  188. Title = 'Network DDE^and Clipboard'
  189. Class = 'WPProgram'
  190. SetupString = 'NOPRINT=YES;'
  191. SetupString =  SetupString || 'OBJECTID=<LS_CLIP>;'
  192. SetupString =  SetupString || 'PROGTYPE=PM;'
  193. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\NWDDE.EXE;'
  194. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\NETPROG;'
  195.  
  196. Call MakeObj
  197.  
  198. Location = '<LS_FOLDER>'
  199. Title = 'Network Messaging'
  200. Class = 'WPProgram'
  201. SetupString = 'NOPRINT=YES;'
  202. SetupString =  SetupString || 'OBJECTID=<LS_NETMSG>;'
  203. SetupString =  SetupString || 'PROGTYPE=PM;'
  204. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\NETMSG.EXE;'
  205. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\NETPROG;'
  206.  
  207. Call MakeObj
  208.  
  209. Location = '<LS_FOLDER>'
  210. Title = 'Logon'
  211. Class = 'WPProgram'
  212. SetupString = 'NOPRINT=YES;'
  213. SetupString =  SetupString || 'OBJECTID=<LS_LOGON>;'
  214. SetupString =  SetupString || 'PROGTYPE=PM;'
  215. SetupString =  SetupString || 'EXENAME='||upmdrive||'\MUGLIB\LOGON.EXE;'
  216. SetupString =  SetupString || 'STARTUPDIR='||upmdrive||'\MUGLIB;'
  217.  
  218. Call MakeObj
  219.  
  220. Location = '<LS_FOLDER>'
  221. Title = 'Logoff'
  222. Class = 'WPProgram'
  223. SetupString = 'NOPRINT=YES;'
  224. SetupString =  SetupString || 'OBJECTID=<LS_LOGOFF>;'
  225. SetupString =  SetupString || 'PROGTYPE=PM;'
  226. SetupString =  SetupString || 'EXENAME='||upmdrive||'\MUGLIB\LOGOFF.EXE;'
  227. SetupString =  SetupString || 'PARAMETERS=/L;'
  228. SetupString =  SetupString || 'STARTUPDIR='||upmdrive||'\MUGLIB;'
  229.  
  230. Call MakeObj
  231.  
  232.  
  233. Location = '<LS_FOLDER>'
  234. Title = 'LAN Server^Administration'
  235. Class = 'WPProgram'
  236. SetupString = 'NOPRINT=YES;'
  237. SetupString =  SetupString || 'OBJECTID=<LS_ADMIN>;'
  238. SetupString =  SetupString || 'PROGTYPE=PM;'
  239. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\NETGUI.EXE;'
  240. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\NETPROG;'
  241.  
  242. Call MakeObj
  243.  
  244. Location = '<LS_FOLDER>'
  245. Title = 'LAN Server^Audit Log Utility'
  246. Class = 'WPProgram'
  247. SetupString = 'NOPRINT=YES;'
  248. SetupString =  SetupString || 'OBJECTID=<LS_AUDIT>;'
  249. SetupString =  SetupString || 'PROGTYPE=PM;'
  250. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\LSAUDIT.EXE;'
  251. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\LOGS;'
  252.  
  253. Call MakeObj
  254.  
  255. Location = '<LS_FOLDER>'
  256. Title = 'LAN Server^Error Log Utility'
  257. Class = 'WPProgram'
  258. SetupString = 'NOPRINT=YES;'
  259. SetupString =  SetupString || 'OBJECTID=<LS_ERROR>;'
  260. SetupString =  SetupString || 'PROGTYPE=PM;'
  261. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\LSERROR.EXE;'
  262. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\LOGS;'
  263.  
  264. Call MakeObj
  265.  
  266. /* Add the Books to the LS Books Folder */
  267.  
  268. Location = '<LS_BOOK>'
  269. Title = 'LAN Server^REXX Utilities'
  270. Class = 'WPProgram'
  271. SetupString = 'NOPRINT=YES;'
  272. SetupString =  SetupString || 'PROGTYPE=PM;'
  273. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  274. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\LSRXUTIL.INF;'
  275.  
  276. Call MakeObj
  277.  
  278. Location = '<LS_BOOK>'
  279. Title = 'Up and Running!'
  280. Class = 'WPProgram'
  281. SetupString = 'NOPRINT=YES;'
  282. SetupString =  SetupString || 'OBJECTID=<LSA3A41>;'
  283. SetupString =  SetupString || 'PROGTYPE=PM;'
  284. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  285. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A41M02.INF;'
  286.  
  287. Call MakeObj
  288.  
  289. Location = '<LS_BOOK>'
  290. Title = 'Planning,^Installation, and Configuration'
  291. Class = 'WPProgram'
  292. SetupString = 'NOPRINT=YES;'
  293. SetupString =  SetupString || 'OBJECTID=<LSA3A61>;'
  294. SetupString =  SetupString || 'PROGTYPE=PM;'
  295. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  296. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A61M02.INF;'
  297.  
  298. Call MakeObj
  299.  
  300. Location = '<LS_BOOK>'
  301. Title = 'Performance^Tuning'
  302. Class = 'WPProgram'
  303. SetupString = 'NOPRINT=YES;'
  304. SetupString =  SetupString || 'OBJECTID=<LSA3A4G>;'
  305. SetupString =  SetupString || 'PROGTYPE=PM;'
  306. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  307. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A4GM02.INF;'
  308.  
  309. Call MakeObj
  310.  
  311. Location = '<LS_BOOK>'
  312. Title = 'Network Administrator^Tasks'
  313. Class = 'WPProgram'
  314. SetupString = 'NOPRINT=YES;'
  315. SetupString =  SetupString || 'OBJECTID=<LSA3A62>;'
  316. SetupString =  SetupString || 'PROGTYPE=PM;'
  317. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  318. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A62M02.INF;'
  319.  
  320. Call MakeObj
  321.  
  322. Location = '<LS_BOOK>'
  323. Title = 'Problem Determination^Guide'
  324. Class = 'WPProgram'
  325. SetupString = 'NOPRINT=YES;'
  326. SetupString =  SetupString || 'OBJECTID=<LSA3A4F>;'
  327. SetupString =  SetupString || 'PROGTYPE=PM;'
  328. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  329. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A4FM02.INF;'
  330.  
  331. Call MakeObj
  332.  
  333. Location = '<LS_BOOK>'
  334. Title = 'Programming Guide^and Reference'
  335. Class = 'WPProgram'
  336. SetupString = 'NOPRINT=YES;'
  337. SetupString =  SetupString || 'OBJECTID=<LSA3A4A>;'
  338. SetupString =  SetupString || 'PROGTYPE=PM;'
  339. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  340. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A4AM02.INF;'
  341.  
  342. Call MakeObj
  343.  
  344. Location = '<LS_BOOK>'
  345. Title = 'OS/2 LAN Requester^User''s Guide'
  346. Class = 'WPProgram'
  347. SetupString = 'NOPRINT=YES;'
  348. SetupString =  SetupString || 'OBJECTID=<LSA3A4I>;'
  349. SetupString =  SetupString || 'PROGTYPE=PM;'
  350. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  351. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A4IM02.INF;'
  352.  
  353. Call MakeObj
  354.  
  355. Location = '<LS_BOOK>'
  356. Title = 'DLS and Windows^User''s Guide'
  357. Class = 'WPProgram'
  358. SetupString = 'NOPRINT=YES;'
  359. SetupString =  SetupString || 'OBJECTID=<LSA3A4H>;'
  360. SetupString =  SetupString || 'PROGTYPE=PM;'
  361. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  362. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A4HM02.INF;'
  363.  
  364. Call MakeObj
  365.  
  366. Location = '<LS_BOOK>'
  367. Title = 'Commands and^Utilities'
  368. Class = 'WPProgram'
  369. SetupString = 'NOPRINT=YES;'
  370. SetupString =  SetupString || 'OBJECTID=<LSA3A53>;'
  371. SetupString =  SetupString || 'PROGTYPE=PM;'
  372. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  373. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A53M02.INF;'
  374.  
  375. Call MakeObj
  376.  
  377. Location = '<LS_BOOK>'
  378. Title = 'Easy Start'
  379. Class = 'WPProgram'
  380. SetupString = 'NOPRINT=YES;'
  381. SetupString =  SetupString || 'OBJECTID=<LSA3A83>;'
  382. SetupString =  SetupString || 'PROGTYPE=PM;'
  383. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  384. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3A83M02.INF;'
  385.  
  386. Call MakeObj
  387.  
  388. Location = '<LS_BOOK>'
  389. Title = 'LAN CID^Utility Guide'
  390. Class = 'WPProgram'
  391. SetupString = 'NOPRINT=YES;'
  392. SetupString =  SetupString || 'OBJECTID=<LSA3S12>;'
  393. SetupString =  SetupString || 'PROGTYPE=PM;'
  394. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  395. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3S12M02.INF;'
  396.  
  397. Call MakeObj
  398.  
  399. Location = '<LS_BOOK>'
  400. Title = 'MPTS Configuration^Guide'
  401. Class = 'WPProgram'
  402. SetupString = 'NOPRINT=YES;'
  403. SetupString =  SetupString || 'OBJECTID=<LSA3V10>;'
  404. SetupString =  SetupString || 'PROGTYPE=PM;'
  405. SetupString =  SetupString || 'EXENAME='||bootdrive||'\OS2\VIEW.EXE;'
  406. SetupString =  SetupString || 'PARAMETERS='||landrive||'\IBMLAN\BOOKS\A3V10M02.INF;'
  407.  
  408. Call MakeObj
  409.  
  410. Location = '<LS_BOOK>'
  411. Title = 'LAN Server Glossary'
  412. Class = 'Mindex'
  413. SetupString = 'NOPRINT=YES;'
  414. SetupString =  SetupString || 'OBJECTID=<LS40Glos>;'
  415. SetupString =  SetupString || 'HELPPANEL=324;'
  416. SetupString =  SetupString || 'HELPLIBRARY='||landrive||'\IBMLAN\BOOKS\LSIWOBJS.HLP;'
  417. SetupString =  SetupString || 'ICONRESOURCE=1^,'||bootdrive||'\OS2\DLL\MINXMRI.DLL;'
  418.  
  419. Call MakeObj
  420.  
  421. /* Add Network Messaging to System Startup */
  422.  
  423. Location = '<WP_START>'
  424. Title = 'Network Messaging'
  425. Class = 'WPProgram'
  426. SetupString = 'NOPRINT=YES;'
  427. SetupString =  SetupString || 'OBJECTID=<LS_NETMSG2>;'
  428. SetupString =  SetupString || 'PROGTYPE=PM;'
  429. SetupString =  SetupString || 'EXENAME='||landrive||'\IBMLAN\NETPROG\NETMSG.EXE;'
  430. SetupString =  SetupString || 'PARAMETERS=/MIN;'
  431. SetupString =  SetupString || 'STARTUPDIR='||landrive||'\IBMLAN\NETPROG;'
  432.  
  433. Call MakeObj
  434.  
  435. Exit 0
  436.  
  437. MakeObj:
  438.     Say Copies('─',75)
  439.     Say 'Creating 'Title' at 'location' as 'Class
  440.     rc = 0
  441.     rc = SysCreateObject(Class,Title,Location,SetupString,ObjMode)
  442.     if rc then do
  443.        Say 'SysCreateObject returned 'rc
  444.     end
  445.     return
  446.