; The text screen: colours and the place of the cursor

PROC Main()
  BYTE i

  Graphics(0)                ; clear the screen
  SetColor(2, 9, 4)          ; the background is blue
  SetColor(1, 0, 14)         ; the letters are bright
  SetColor(4, 9, 4)          ; the border is the same blue

  Position(12, 2)
  Print("THE TEXT SCREEN")

  FOR i=0 TO 9
  DO
    Position(5+i*3, 5+i)     ; column, row
    PrintB(i)
  OD

  Position(2, 19)
  Print("Press any key")
  GetD(7)
RETURN