//
// Program: FLAG
// Author:  Paul Ritchie
//
Do y=1,13,2
   solid color (4); solid rectangle (83, 21*y-5, 552, 21*(y+1)-5)
   If y=13 Break
   solid color (7); solid rectangle (83, 21*(y+1)-5, 552, 21*(y+2)-5)
Loop
solid color (1); solid rectangle (83, 16, 263, 162)
Do y=2,10,2
   tabxy (12, y); cwrite ("*   *   *   *   *   *", 15 ,1)
   If y=10 Break
   tabxy (14, y+1); cwrite ("*   *   *   *   *", 15 ,1)
Loop