SW_MAXIMIZE = 3
      SYS "ShowWindow", @hwnd%, SW_MAXIMIZE
      VDU 26

      W% = @vdu%!208 / 4
      H% = @vdu%!212 * 2

      COLOUR 1,9
      COLOUR 2,10
      COLOUR 3,12
      COLOUR 4,13
      COLOUR 5,14
      COLOUR 6,11
      COLOUR 7,15

      FOR C% = 0 TO 7
        GCOL C%
        RECTANGLE FILL C%*W%, 0, W%, H%
      NEXT