/****************************************************************************/
/* RUNME.CMD - Executes the MODE Command from DOS Full Screen               */
/*                                                                          */
/* Calls to  : dosmodes.bat                                                 */
/*                                                                          */
/* 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 /dos "DOS Mode : 40 , 12 " dosmodes.bat  40, 12'
Pause
'start /c /fs /dos "DOS Mode : 40 , 25 " dosmodes.bat   40, 25'
Pause
'start /c /fs /dos "DOS Mode : 40 , 43 " dosmodes.bat   40, 43'
Pause
'start /c /fs /dos "DOS Mode : 40 , 50 " dosmodes.bat   40, 50'
Pause
'start /c /fs /dos "DOS Mode : 80 , 12 " dosmodes.bat   80, 12'
Pause
'start /c /fs /dos "DOS Mode : 80 , 25 " dosmodes.bat   80, 25'
Pause
'start /c /fs /dos "DOS Mode : 80 , 43 " dosmodes.bat   80, 43'
Pause
'start /c /fs /dos "DOS Mode : 80 , 50 " dosmodes.bat   80, 50'
Pause
'start /c /fs /dos "DOS Mode : 132 , 25 " dosmodes.bat   132, 25'
Pause
'start /c /fs /dos "DOS Mode : 132 , 43 " dosmodes.bat   132, 43'
Pause
'start /c /fs /dos "DOS Mode : 132 , 44 " dosmodes.bat   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 /dos "DOS Mode : 'NumCol' , 'NumRow' "dosmodes.bat   'NumCol', 'NumRow
    Pause
END

EXIT
