home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / display / function / modetest / os2 / runme.cmd < prev   
Encoding:
Text File  |  1994-08-04  |  2.0 KB  |  57 lines
  1. /****************************************************************************/
  2. /* RUNME.CMD - Executes the MODE Command from an OS2 Full Screen            */
  3. /*                                                                          */
  4. /* Calls to  : os2modes.CMD                                                 */
  5. /*                                                                          */
  6. /* Parameters: None                                                         */
  7. /*                                                                          */
  8. /* This program executes the MODE command for each mode to be tested        */
  9. /* one at a time.  It allows you to test one mode prior to going on to      */
  10. /* the next mode test.                                                      */
  11. /*                                                                          */
  12. /****************************************************************************/
  13. SAY ' '
  14. SAY ' '
  15. SAY 'This program executes the OS/2 MODE command in various ways.'
  16. SAY ' '
  17. SAY ' '
  18. Pause
  19. 'start /c /fs "Mode : 40 , 12 " os2modes  40, 12'
  20. Pause
  21. 'start /c /fs "Mode : 40 , 25 " os2modes  40, 25'
  22. Pause
  23. 'start /c /fs "Mode : 40 , 43 " os2modes  40, 43'
  24. Pause
  25. 'start /c /fs "Mode : 40 , 50 " os2modes  40, 50'
  26. Pause
  27. 'start /c /fs "Mode : 80 , 12 " os2modes  80, 12'
  28. Pause
  29. 'start /c /fs "Mode : 80 , 25 " os2modes  80, 25'
  30. Pause
  31. 'start /c /fs "Mode : 80 , 43 " os2modes  80, 43'
  32. Pause
  33. 'start /c /fs "Mode : 80 , 50 " os2modes  80, 50'
  34. Pause
  35. 'start /c /fs "Mode : 132 , 25 "os2modes  132, 25'
  36.  Pause
  37. 'start /c /fs "Mode : 132 , 43 "os2modes  132, 43'
  38. Pause
  39. 'start /c /fs "Mode : 132 , 44 "os2modes  132, 44'
  40. Pause
  41.  
  42. SAY
  43. SAY '//  The following modes are selected at random'
  44. SAY '    MODE parameter not correct error may occur  //'
  45. SAY
  46. Pause
  47.  
  48. DO Loop = 1 to 5
  49.     NumCol = RANDOM( 1, 200 )
  50.     NumRow = RANDOM( 1, 100 )
  51.  
  52.     'start /c /fs "Mode : 'NumCol' , 'NumRow' " os2modes   'NumCol', 'NumRow
  53.     Pause
  54. END
  55.  
  56. EXIT
  57.