MKWINOS/2 Sample
Jump to navigation
Jump to search
/*------------------------------------------------------------------------*\ | | | MKWINRUN.CMD - Version 1.0 - Version Date 1995-09-29 | | Copyright (c) 1995 by C F S Nevada, Inc. | | | | Dick Goran - Voice 702-732-9616 | | - FAX 702-732-3847 | | - CompuServe 71154,2002 | | - Internet dgoran@cfsrexx.com | | | | Produced and distributed by Productivity Solutions, Inc. | | David Moskowitz - Voice 610-631-5685 | | - FAX 610-631-0414 | | - CompuServe 76701,100 | | - Internet davidm@cfsrexx.com | | | | ------------------------------------------------------------------------ | | Requires: REXXLIB.DLL - OS/2 REXX external function library | | (c) Copyright 1992-95 Quercus Systems | \*------------------------------------------------------------------------*/ /* This program was created by MKWINOS2 (Version 1.0) on 09/19/95 at 23:00:02. Video resolution used for icon positions is 1024 x 768 for OS/2 and 1024 x 768 for Windows. This program will create folders for program objects for the 33 groups found in C:\WIN-311\PROGMAN.INI. It has been enabled for key: 1234567. */ SIGNAL ON ERROR /* trap object time errors */ SIGNAL ON FAILURE /* trap object time errors */ SIGNAL ON HALT /* trap object time errors */ SIGNAL ON NOVALUE /* trap object time errors */ SIGNAL ON SYNTAX /* trap object time errors */ GBL. = '' /* initialize stem */ parse Arg GBL.command_line parse Version GBL.REXX_version . parse Source GBL.operating_system, GBL.calling_environment, GBL.program_path_and_name GBL.package_name = 'MKWINRUN' GBL.environment = 'OS2ENVIRONMENT' GBL.boot_drive = LEFT( VALUE( 'RUNWORKPLACE',, GBL.environment ), 2 ) GBL.program_version = 1.0 /* version / mod of this program */ GBL.program_name = FILESPEC( 'N', GBL.program_path_and_name ) GBL.program_path = FILESPEC( 'D', GBL.program_path_and_name ) ||, FILESPEC( 'P', GBL.program_path_and_name ) parse var GBL.program_name, GBL.program_fn '.', GBL.program_fe /*-----------------------------------------------*\ | Assure that REXXUTIL & REXXLIB are registered | \*-----------------------------------------------*/ call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs' call SysLoadFuncs if RxFuncQuery( 'RexxLibDeregister' ) = 0 then do call RexxLibDeregister end if GBL.REXX_version = 'REXX/Personal' then do dll_name = 'QREXXLIB' end else do dll_name = 'REXXLIB' end call RxFuncAdd 'RexxLibRegister', dll_name, 'rexxlibregister' call RexxLibRegister call TIME 'E' /* set elapsed timer - sssss.uuuuu */ say 'Begin' TRANSLATE( GBL.program_name ) 'at' TIME('N') /*------------------------------------------------------------------------*\ | | | Initialization and Setup code | | | \*------------------------------------------------------------------------*/ GBL.ambiguous_program_count = 04 /* MKWINOS2.DBX yielded multiples */ GBL.bksp = "08"x GBL.copy_control_file = "J:\rexxprog\mkwin\MKWINRUN.CPY" GBL.desktop_object_id = "<MKWINOS2 Program Manager Desktop Equivalent>" GBL.desktop_title = "Program Manager^Desktop Equivalent" GBL.font = "8.Helv" GBL.group_total = 33 GBL.progress_list = "Ä\|/" GBL.progress_subscript = 1 GBL.seconds_to_wait_for_reply = 30 /* wait for user reply before shadowing */ GBL.shadow_table.0 = 0 /* object IDs of shadowed objects */ GBL.subject_windows_path = "C:\WIN-311\" GBL.wallpaper = "" GBL.WINOS2_path = "F:\OS2\MDOS\WINOS2\" GBL.unresolved_path_count = 02 /* Programs with unresolved .EXE paths */ /*---------------------------------------*\ | The following value(s) can be changed | | to suit your personal taste. | \*---------------------------------------*/ GBL.icon_view = "FLOWED" /* can be set to FLOWED | NONGRID */ GBL.sort_option = "YES" /* can be set to YES | NO */ /*------------------------------------------------------------------*\ | The following seemingly needless code is to identify a rare, | | intermittent WPS bug where an existing object is not correctly | | deleted. If any MKWINOS2 objects are found to exist in the | | OS2.INI file after the Program Manager Desktop Equivalent object | | is destroyed, this program will terminate. You are advised to | | run one of the INI file maintenance programs to remove the | | bad objects. | \*------------------------------------------------------------------*/ application_name = "PM_Workplace:Location" key = SYSINI( "USER", application_name, GBL.desktop_object_id ) if key ª= "ERROR:" then do say " Removing " || GBL.desktop_object_id call SysDestroyObject GBL.desktop_object_id /*----------------------------------------*\ | Check \OS2\OS2.INI for any remaining | | MKWINOS2 objects that should have been | | removed by SysDestroyObject(). | \*----------------------------------------*/ lingering_object_count = 0 call SYSINI "USER", application_name, "ALL:", "key_stem" if RESULT ª= "" then do say VALUE( "USER_INI",, GBL.environment ) "may be corrupted, " ||, "program canceled" call EOJ 200 end do k = 1 to key_stem.0 if LEFT( key_stem.k, 9 ) = "<MKWINOS2" then do lingering_object_count = lingering_object_count + 1 if lingering_object_count = 1 then do say "The following WPS object(s) should not exist:" end say " " || key_stem.k end end if lingering_object_count ª= 0 then do say GBL.program_name "is terminating because of the above error! Please try re-" say "running" GBL.program_name "and, if the error persists, please report it" say "at the numbers shown at the beginning of" GBL.program_name call EOJ 201 end end /*-----------------------------------------------------------------*\ | Copy appropriate files from subject windows path to WINOS2 path | \*-----------------------------------------------------------------*/ if LINES( GBL.copy_control_file ) > 0 then do call COPY_WINDOWS_FILES end /*----------------------------------------------------------*\ /*000001*/ | Build Program Manager Desktop Equivalent on OS/2 Desktop | /*000002*/ \*----------------------------------------------------------*/ /*000003*/ say COPIES( " ", 3 ) || "Building" GBL.desktop_title /*000004*/ /*000005*/ folder_class = "WPFolder" /*000006*/ folder_title = GBL.desktop_title /*000007*/ folder_location = "<WP_DESKTOP>" /*000008*/ folder_option = "UPDATE" /*000009*/ folder_setup =, /*000010*/ "ALWAYSSORT=" || GBL.sort_option || ";" ||, /*000011*/ "ICONNFILE=1," || GBL.program_path || "MKWINOPN.ICO;" ||, /*000012*/ "ICONFILE=" || GBL.program_path || "MKWINCLS.ICO;" ||, /*000013*/ "ICONFONT=" || GBL.font || ";" ||, /*000014*/ "ICONVIEW=" || GBL.icon_view || ",NORMAL;" ||, /*000015*/ "ICONPOS=50,08;" ||, /*000016*/ "ICONVIEWPOS=10,1,90,85;" ||, /*000017*/ "OBJECTID=<MKWINOS2 Program Manager Desktop Equivalent>;" /*000018*/ call SysCreateObject folder_class,, /*000019*/ folder_title,, /*000020*/ folder_location,, /*000021*/ folder_setup,, /*000022*/ folder_option /*000023*/ if RESULT ª= 1 then /*000024*/ do /*000025*/ say " Unable to create " || folder_title || "folder," /*000026*/ say " program canceled." /*000027*/ call EOJ 203 /*000028*/ end /*000029*/ /*000030*/ if GBL.wallpaper ª= "" then /*000031*/ do /*000032*/ say " " /*000033*/ say " It may be necessary to turn off the ""Transparent" /*000034*/ say " bkgnd"" setting in the notebook settings for:" /*000035*/ say " " || GBL.desktop_title /*000036*/ say " " /*000037*/ end /*000038*/ /*-------------------------------------*\ /*010001*/ | Build Group folder for: Accessories | /*010002*/ \*-------------------------------------*/ /*010003*/ say COPIES( " ", 6 ) || "Building Accessories folder." /*010004*/ /*010005*/ folder_class = "WPFolder" /*010006*/ folder_title = "Accessories" /*010007*/ folder_location = "<MKWINOS2 Program Manager Desktop Equivalent>" /*010008*/ folder_option = "UPDATE" /*010009*/ folder_setup =, /*010010*/ "DETAILSFONT=" || GBL.font || ";" ||, /*010011*/ "TREEVIEWFONT=" || GBL.font || ";" ||, /*010012*/ "ICONFONT=" || GBL.font || ";" ||, /*010013*/ "ICONVIEW=" || GBL.icon_view || ",NORMAL;" ||, /*010014*/ "ICONPOS=13,72;" ||, /*010015*/ "ICONVIEWPOS=23,37,59,53;" ||, /*010016*/ "ICONRESOURCE=72,PMWP;" ||, /*010017*/ "ICONNRESOURCE=35,PMWP;" ||, /*010018*/ "ALWAYSSORT=" || GBL.sort_option || ";" ||, /*010019*/ "OBJECTID=<MKWINOS2:Accessories Group>;" /*010020*/ call SysCreateObject folder_class,, /*010021*/ folder_title,, /*010022*/ folder_location,, /*010023*/ folder_setup,, /*010024*/ folder_option /*010025*/ if RESULT ª= 1 then /*010026*/ do /*010027*/ say " Unable to create " || folder_title || "group folder," end /*010029*/ /*------------------------------------------*\ /*010101*/ | Build WPProgram object for: Media Player | /*010102*/ \*------------------------------------------*/ /*010103*/ /* Program settings used are from MKWINOS2.DBX */ /*010104*/ program_class = "WPProgram" /*010105*/ program_title = "Media Player" /*010106*/ program_location = "<MKWINOS2:Accessories Group>" /*010107*/ program_option = "UPDATE" /*010108*/ program_setup =, /*010109*/ "ICONFONT=" || GBL.font || ";" ||, /*010110*/ "ICONPOS=23,16;" ||, /*010111*/ "EXENAME=F:\OS2\MDOS\WINOS2\MPLAYER.EXE;" ||, /*010112*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010113*/ "SET EMS_MEMORY_LIMIT=0;" ||, /*010114*/ "SET INT_DURING_IO=1;" ||, /*010115*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010116*/ "SET KBD_RATE_LOCK=1;" ||, /*010117*/ "SET MOUSE_EXCLUSIVE_ACCESS=0;" ||, /*010118*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010119*/ "SET VIDEO_RETRACE_EMULATION=1;" ||, /*010120*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010121*/ "SET WIN_ATM=1;" ||, /*010122*/ "SET WIN_DDE=1;" ||, /*010123*/ "OBJECTID=<MKWINOS2:Media Player>;" /*010124*/ call SysCreateObject program_class,, /*010125*/ program_title,, /*010126*/ program_location,, /*010127*/ program_setup,, /*010128*/ program_option /*010129*/ if RESULT ª= 1 then /*010130*/ do /*010131*/ say " Unable to create " || program_title || " program object," end /*010133*/ /*-----------------------------------*\ /*010201*/ | Build WPProgram object for: Write | /*010202*/ \*-----------------------------------*/ /*010203*/ /* No matching MKWINOS2.DBX entry for this program */ /*010204*/ program_class = "WPProgram" /*010205*/ program_title = "Write" /*010206*/ program_location = "<MKWINOS2:Accessories Group>" /*010207*/ program_option = "UPDATE" /*010208*/ program_setup =, /*010209*/ "ICONFONT=" || GBL.font || ";" ||, /*010210*/ "ICONPOS=4,37;" ||, /*010211*/ "EXENAME=F:\OS2\MDOS\WINOS2\WRITE.EXE;" ||, /*010212*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010213*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010214*/ "SET KBD_RATE_LOCK=1;" ||, /*010215*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010216*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010217*/ "SET WIN_ATM=1;" ||, /*010218*/ "SET WIN_DDE=1;" ||, /*010219*/ "OBJECTID=<MKWINOS2:Write>;" /*010220*/ call SysCreateObject program_class,, /*010221*/ program_title,, /*010222*/ program_location,, /*010223*/ program_setup,, /*010224*/ program_option /*010225*/ if RESULT ª= 1 then /*010226*/ do /*010227*/ say " Unable to create " || program_title || " program object," end /*010229*/ /*-----------------------------------*\ /*010301*/ | Build WPProgram object for: Clock | /*010302*/ \*-----------------------------------*/ /*010303*/ /* No matching MKWINOS2.DBX entry for this program */ /*010304*/ program_class = "WPProgram" /*010305*/ program_title = "Clock" /*010306*/ program_location = "<MKWINOS2:Accessories Group>" /*010307*/ program_option = "UPDATE" /*010308*/ program_setup =, /*010309*/ "ICONFONT=" || GBL.font || ";" ||, /*010310*/ "ICONPOS=33,26;" ||, /*010311*/ "EXENAME=F:\OS2\MDOS\WINOS2\CLOCK.EXE;" ||, /*010312*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010313*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010314*/ "SET KBD_RATE_LOCK=1;" ||, /*010315*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010316*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010317*/ "SET WIN_ATM=1;" ||, /*010318*/ "SET WIN_DDE=1;" ||, /*010319*/ "OBJECTID=<MKWINOS2:Clock>;" /*010320*/ call SysCreateObject program_class,, /*010321*/ program_title,, /*010322*/ program_location,, /*010323*/ program_setup,, /*010324*/ program_option /*010325*/ if RESULT ª= 1 then /*010326*/ do /*010327*/ say " Unable to create " || program_title || " program object," end /*010329*/ /*--------------------------------------*\ /*010401*/ | Build WPProgram object for: Terminal | /*010402*/ \*--------------------------------------*/ /*010403*/ /* No matching MKWINOS2.DBX entry for this program */ /*010404*/ program_class = "WPProgram" /*010405*/ program_title = "Terminal" /*010406*/ program_location = "<MKWINOS2:Accessories Group>" /*010407*/ program_option = "UPDATE" /*010408*/ program_setup =, /*010409*/ "ICONFONT=" || GBL.font || ";" ||, /*010410*/ "ICONPOS=23,37;" ||, /*010411*/ "EXENAME=C:\WIN-311\TERMINAL.EXE;" ||, /*010412*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010413*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010414*/ "SET KBD_RATE_LOCK=1;" ||, /*010415*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010416*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010417*/ "SET WIN_ATM=1;" ||, /*010418*/ "SET WIN_DDE=1;" ||, /*010419*/ "OBJECTID=<MKWINOS2:Terminal>;" /*010420*/ call SysCreateObject program_class,, /*010421*/ program_title,, /*010422*/ program_location,, /*010423*/ program_setup,, /*010424*/ program_option /*010425*/ if RESULT ª= 1 then /*010426*/ do /*010427*/ say " Unable to create " || program_title || " program object," end /*010429*/ /*--------------------------------------------*\ /*010501*/ | Build WPProgram object for: Sound Recorder | /*010502*/ \*--------------------------------------------*/ /*010503*/ /* No matching MKWINOS2.DBX entry for this program */ /*010504*/ program_class = "WPProgram" /*010505*/ program_title = "Sound^Recorder" /*010506*/ program_location = "<MKWINOS2:Accessories Group>" /*010507*/ program_option = "UPDATE" /*010508*/ program_setup =, /*010509*/ "ICONFONT=" || GBL.font || ";" ||, /*010510*/ "ICONPOS=14,16;" ||, /*010511*/ "EXENAME=F:\OS2\MDOS\WINOS2\SOUNDREC.EXE;" ||, /*010512*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010513*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010514*/ "SET KBD_RATE_LOCK=1;" ||, /*010515*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010516*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010517*/ "SET WIN_ATM=1;" ||, /*010518*/ "SET WIN_DDE=1;" ||, /*010519*/ "OBJECTID=<MKWINOS2:Sound Recorder>;" /*010520*/ call SysCreateObject program_class,, /*010521*/ program_title,, /*010522*/ program_location,, /*010523*/ program_setup,, /*010524*/ program_option /*010525*/ if RESULT ª= 1 then /*010526*/ do /*010527*/ say " Unable to create " || program_title || " program object," end /*010529*/ /*----------------------------------------*\ /*010601*/ | Build WPProgram object for: Paintbrush | /*010602*/ \*----------------------------------------*/ /*010603*/ /* No matching MKWINOS2.DBX entry for this program */ /*010604*/ program_class = "WPProgram" /*010605*/ program_title = "Paintbrush" /*010606*/ program_location = "<MKWINOS2:Accessories Group>" /*010607*/ program_option = "UPDATE" /*010608*/ program_setup =, /*010609*/ "ICONFONT=" || GBL.font || ";" ||, /*010610*/ "ICONPOS=14,37;" ||, /*010611*/ "EXENAME=F:\OS2\MDOS\WINOS2\PBRUSH.EXE;" ||, /*010612*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010613*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010614*/ "SET KBD_RATE_LOCK=1;" ||, /*010615*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010616*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010617*/ "SET WIN_ATM=1;" ||, /*010618*/ "SET WIN_DDE=1;" ||, /*010619*/ "OBJECTID=<MKWINOS2:Paintbrush>;" /*010620*/ call SysCreateObject program_class,, /*010621*/ program_title,, /*010622*/ program_location,, /*010623*/ program_setup,, /*010624*/ program_option /*010625*/ if RESULT ª= 1 then /*010626*/ do /*010627*/ say " Unable to create " || program_title || " program object," end /*010629*/ /*-------------------------------------*\ /*010701*/ | Build WPProgram object for: Notepad | /*010702*/ \*-------------------------------------*/ /*010703*/ /* No matching MKWINOS2.DBX entry for this program */ /*010704*/ program_class = "WPProgram" /*010705*/ program_title = "Notepad" /*010706*/ program_location = "<MKWINOS2:Accessories Group>" /*010707*/ program_option = "UPDATE" /*010708*/ program_setup =, /*010709*/ "ICONFONT=" || GBL.font || ";" ||, /*010710*/ "ICONPOS=33,37;" ||, /*010711*/ "EXENAME=F:\OS2\MDOS\WINOS2\NOTEPAD.EXE;" ||, /*010712*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010713*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010714*/ "SET KBD_RATE_LOCK=1;" ||, /*010715*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010716*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010717*/ "SET WIN_ATM=1;" ||, /*010718*/ "SET WIN_DDE=1;" ||, /*010719*/ "OBJECTID=<MKWINOS2:Notepad>;" /*010720*/ call SysCreateObject program_class,, /*010721*/ program_title,, /*010722*/ program_location,, /*010723*/ program_setup,, /*010724*/ program_option /*010725*/ if RESULT ª= 1 then /*010726*/ do /*010727*/ say " Unable to create " || program_title || " program object," end /*010729*/ /*--------------------------------------*\ /*010801*/ | Build WPProgram object for: Recorder | /*010802*/ \*--------------------------------------*/ /*010803*/ /* No matching MKWINOS2.DBX entry for this program */ /*010804*/ program_class = "WPProgram" /*010805*/ program_title = "Recorder" /*010806*/ program_location = "<MKWINOS2:Accessories Group>" /*010807*/ program_option = "UPDATE" /*010808*/ program_setup =, /*010809*/ "ICONFONT=" || GBL.font || ";" ||, /*010810*/ "ICONPOS=43,37;" ||, /*010811*/ "EXENAME=C:\WIN-311\RECORDER.EXE;" ||, /*010812*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010813*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010814*/ "SET KBD_RATE_LOCK=1;" ||, /*010815*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010816*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010817*/ "SET WIN_ATM=1;" ||, /*010818*/ "SET WIN_DDE=1;" ||, /*010819*/ "OBJECTID=<MKWINOS2:Recorder>;" /*010820*/ call SysCreateObject program_class,, /*010821*/ program_title,, /*010822*/ program_location,, /*010823*/ program_setup,, /*010824*/ program_option /*010825*/ if RESULT ª= 1 then /*010826*/ do /*010827*/ say " Unable to create " || program_title || " program object," end /*010829*/ /*--------------------------------------*\ /*010901*/ | Build WPProgram object for: Cardfile | /*010902*/ \*--------------------------------------*/ /*010903*/ /* No matching MKWINOS2.DBX entry for this program */ /*010904*/ program_class = "WPProgram" /*010905*/ program_title = "Cardfile" /*010906*/ program_location = "<MKWINOS2:Accessories Group>" /*010907*/ program_option = "UPDATE" /*010908*/ program_setup =, /*010909*/ "ICONFONT=" || GBL.font || ";" ||, /*010910*/ "ICONPOS=4,26;" ||, /*010911*/ "EXENAME=F:\OS2\MDOS\WINOS2\CARDFILE.EXE;" ||, /*010912*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*010913*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*010914*/ "SET KBD_RATE_LOCK=1;" ||, /*010915*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*010916*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*010917*/ "SET WIN_ATM=1;" ||, /*010918*/ "SET WIN_DDE=1;" ||, /*010919*/ "OBJECTID=<MKWINOS2:Cardfile>;" /*010920*/ call SysCreateObject program_class,, /*010921*/ program_title,, /*010922*/ program_location,, /*010923*/ program_setup,, /*010924*/ program_option /*010925*/ if RESULT ª= 1 then /*010926*/ do /*010927*/ say " Unable to create " || program_title || " program object," end /*010929*/ /*--------------------------------------*\ /*011001*/ | Build WPProgram object for: Calendar | /*011002*/ \*--------------------------------------*/ /*011003*/ /* No matching MKWINOS2.DBX entry for this program */ /*011004*/ program_class = "WPProgram" /*011005*/ program_title = "Calendar" /*011006*/ program_location = "<MKWINOS2:Accessories Group>" /*011007*/ program_option = "UPDATE" /*011008*/ program_setup =, /*011009*/ "ICONFONT=" || GBL.font || ";" ||, /*011010*/ "ICONPOS=14,26;" ||, /*011011*/ "EXENAME=F:\OS2\MDOS\WINOS2\CALENDAR.EXE;" ||, /*011012*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*011013*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*011014*/ "SET KBD_RATE_LOCK=1;" ||, /*011015*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*011016*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*011017*/ "SET WIN_ATM=1;" ||, /*011018*/ "SET WIN_DDE=1;" ||, /*011019*/ "OBJECTID=<MKWINOS2:Calendar>;" /*011020*/ call SysCreateObject program_class,, /*011021*/ program_title,, /*011022*/ program_location,, /*011023*/ program_setup,, /*011024*/ program_option /*011025*/ if RESULT ª= 1 then /*011026*/ do /*011027*/ say " Unable to create " || program_title || " program object," end /*011029*/ /*----------------------------------------*\ /*011101*/ | Build WPProgram object for: Calculator | /*011102*/ \*----------------------------------------*/ /*011103*/ /* No matching MKWINOS2.DBX entry for this program */ /*011104*/ program_class = "WPProgram" /*011105*/ program_title = "Calculator" /*011106*/ program_location = "<MKWINOS2:Accessories Group>" /*011107*/ program_option = "UPDATE" /*011108*/ program_setup =, /*011109*/ "ICONFONT=" || GBL.font || ";" ||, /*011110*/ "ICONPOS=23,26;" ||, /*011111*/ "EXENAME=F:\OS2\MDOS\WINOS2\CALC.EXE;" ||, /*011112*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*011113*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*011114*/ "SET KBD_RATE_LOCK=1;" ||, /*011115*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*011116*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*011117*/ "SET WIN_ATM=1;" ||, /*011118*/ "SET WIN_DDE=1;" ||, /*011119*/ "OBJECTID=<MKWINOS2:Calculator>;" /*011120*/ call SysCreateObject program_class,, /*011121*/ program_title,, /*011122*/ program_location,, /*011123*/ program_setup,, /*011124*/ program_option /*011125*/ if RESULT ª= 1 then /*011126*/ do /*011127*/ say " Unable to create " || program_title || " program object," end /*011129*/ /*---------------------------------------------*\ /*011201*/ | Build WPProgram object for: Object Packager | /*011202*/ \*---------------------------------------------*/ /*011203*/ /* No matching MKWINOS2.DBX entry for this program */ /*011204*/ program_class = "WPProgram" /*011205*/ program_title = "Object^Packager" /*011206*/ program_location = "<MKWINOS2:Accessories Group>" /*011207*/ program_option = "UPDATE" /*011208*/ program_setup =, /*011209*/ "ICONFONT=" || GBL.font || ";" ||, /*011210*/ "ICONPOS=43,26;" ||, /*011211*/ "EXENAME=F:\OS2\MDOS\WINOS2\PACKAGER.EXE;" ||, /*011212*/ "SET DPMI_MEMORY_LIMIT=64;" ||, /*011213*/ "SET KBD_ALTHOME_BYPASS=1;" ||, /*011214*/ "SET KBD_RATE_LOCK=1;" ||, /*011215*/ "SET VIDEO_8514A_XGA_IOTRAP=0;" ||, /*011216*/ "SET VIDEO_SWITCH_NOTIFICATION=1;" ||, /*011217*/ "SET WIN_ATM=1;" ||, /*011218*/ "SET WIN_DDE=1;" ||, /*011219*/ "OBJECTID=<MKWINOS2:Object Packager>;" /*011220*/ call SysCreateObject program_class,, /*011221*/ program_title,, /*011222*/ program_location,, /*011223*/ program_setup,, /*011224*/ program_option /*011225*/ if RESULT ª= 1 then /*011226*/ do /*011227*/ say " Unable to create " || program_title || " program object," end /*011229*/ /*-------------------------------------------*\ /*011301*/ | Build WPProgram object for: Character Map | /*011302*/ \*-------------------------------------------*/ /*011303*/ /* No matching MKWINOS2.DBX entry for this program */ /*011304*/ program_class = "WPProgram"