/****************************************************************************/
/* RUNME.CMD - Executes the MODE Command from an OS2 Full Screen            */
/*                                                                          */
/* Calls to  : os2modes.CMD                                                 */
/*                                                                          */
/* Parameters: None                                                         */
/*                                                                          */
/* This program executes the MODE command for each mode to be tested        */
/* one at a time.  It allows you to test one mode prior to going on to      */
/* the next mode test.                                                      */
/*                                                                          */
/****************************************************************************/
SAY ' '
SAY ' '
SAY 'This program executes the OS/2 MODE command in various ways.'
SAY ' '
SAY ' '
Pause
'start /c /fs "Mode : 40 , 12 " os2modes  40, 12'
Pause
'start /c /fs "Mode : 40 , 25 " os2modes  40, 25'
Pause
'start /c /fs "Mode : 40 , 43 " os2modes  40, 43'
Pause
'start /c /fs "Mode : 40 , 50 " os2modes  40, 50'
Pause
'start /c /fs "Mode : 80 , 12 " os2modes  80, 12'
Pause
'start /c /fs "Mode : 80 , 25 " os2modes  80, 25'
Pause
'start /c /fs "Mode : 80 , 43 " os2modes  80, 43'
Pause
'start /c /fs "Mode : 80 , 50 " os2modes  80, 50'
Pause
'start /c /fs "Mode : 132 , 25 "os2modes  132, 25'
 Pause
'start /c /fs "Mode : 132 , 43 "os2modes  132, 43'
Pause
'start /c /fs "Mode : 132 , 44 "os2modes  132, 44'
Pause

SAY
SAY '//  The following modes are selected at random'
SAY '    MODE parameter not correct error may occur  //'
SAY
Pause

DO Loop = 1 to 5
    NumCol = RANDOM( 1, 200 )
    NumRow = RANDOM( 1, 100 )

    'start /c /fs "Mode : 'NumCol' , 'NumRow' " os2modes   'NumCol', 'NumRow
    Pause
END

EXIT
