PROC ShowMode(BYTE m,split,gr
              CARD w, BYTE h,
              CARD size,
              CHAR ARRAY descr)
  BYTE CH=$02FC
  CARD i
  BYTE POINTER ptr

  Graphics(0)
  PrintF("Next video mode: %B%E",m)
  IF split THEN
    PrintF("Split video mode%E%EUpper part:%E")
  FI

  IF gr THEN
    Print("Graphics")
  ELSE
    Print("Text")
  FI
  PrintF(" mode, %Ux%B, %S%E",w,h,descr)

  IF split THEN
    PrintF("%ELower part:%EText mode 40x4, 2 luminances%E")
  FI
  PrintF("%EPress any key to change video mode.")

  DO UNTIL CH#$FF OD
  CH=$FF

  Graphics(m)
  ptr=PeekC(88)

  FOR i=1 TO size
  DO
    ptr^=Rand(0)
    ptr==+1
  OD

  DO UNTIL CH#$FF OD
  CH=$FF
RETURN

PROC Main()
  ShowMode(0,0,0,40,24,960,"2 luminances")
  ShowMode(1,1,0,20,20,640,"5 colors")
  ShowMode(2,1,0,20,10,400,"5 colors")
  ShowMode(3,1,1,40,20,400,"4 colors")
  ShowMode(4,1,1,80,40,640,"2 colors")
  ShowMode(5,1,1,80,40,1120,"4 colors")
  ShowMode(6,1,1,160,80,2080,"2 colors")
  ShowMode(7,1,1,160,80,4000,"4 colors")
  ShowMode(8,1,1,320,160,7856,"2 luminances")
  ShowMode(9,0,1,80,192,7680,"16 luminances")
  ShowMode(10,0,1,80,192,7680,"9 colors")
  ShowMode(11,0,1,80,192,7680,"16 hues")
  ShowMode(12,1,0,40,20,1120,"5 colors")
  ShowMode(13,1,0,40,10,640,"5 colors")
  ShowMode(14,1,1,160,160,4000,"2 colors")
  ShowMode(15,1,1,160,160,7856,"4 colors")
  ShowMode(17,0,0,20,24,480,"5 colors")
  ShowMode(18,0,0,20,12,240,"5 colors")
  ShowMode(19,0,1,40,24,240,"4 colors")
  ShowMode(20,0,1,80,48,480,"2 colors")
  ShowMode(21,0,1,80,48,960,"4 colors")
  ShowMode(22,0,1,160,96,1920,"2 colors")
  ShowMode(23,0,1,160,96,3840,"4 colors")
  ShowMode(24,0,1,320,192,7680,"2 luminances")
  ShowMode(28,0,0,40,24,960,"5 colors")
  ShowMode(29,0,0,40,12,480,"5 colors")
  ShowMode(30,0,1,160,192,3840,"2 colors")
  ShowMode(31,0,1,160,192,7680,"4 colors")
RETURN