MKWINOS/2 Sample

From OS2World.Com Wiki
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
/*------------------------------------------------------------------------*\
|                                                                          |
|           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"