; Graphics: a house in graphics mode 7 (160 x 80 points, 4 colours)

PROC Main()
  BYTE i, found

  Graphics(7)                ; 160 x 80 points and 4 lines of text below
  SetColor(0, 2, 8)          ; colour 1 is orange
  SetColor(1, 12, 10)        ; colour 2 is green
  SetColor(2, 9, 6)          ; colour 3 is blue
  SetColor(4, 0, 0)          ; the background is black

  color=1                    ; a frame around the picture
  Plot(0, 0)
  DrawTo(159, 0)
  DrawTo(159, 79)
  DrawTo(0, 79)
  DrawTo(0, 0)

  color=2                    ; the walls
  Plot(50, 60)
  DrawTo(50, 35)
  DrawTo(110, 35)
  DrawTo(110, 60)
  DrawTo(50, 60)

  color=3                    ; the roof
  Plot(45, 35)
  DrawTo(80, 15)
  DrawTo(115, 35)

  color=1                    ; a filled door
  Plot(86, 59)
  DrawTo(86, 45)
  DrawTo(74, 45)
  Fill(74, 59)

  color=3                    ; a dotted path
  FOR i=0 TO 9
  DO
    Plot(80+i*4, 70)
  OD

  found=Locate(50, 40)       ; which colour has the point 50,40?

  PrintE("A house in graphics mode 7")
  Print("The point 50,40 has colour ")
  PrintBE(found)
  Print("Press any key")
  GetD(7)
  Graphics(0)
RETURN