MKWINOS/2 Sample

From OS2World.Com Wiki
Revision as of 14:03, 28 January 2014 by Martini (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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"