BUOY
PEN DOWN
COLOUR 1
CIRCLE 5
COLOUR 3
FORWARD 15
END

BUOYS1
COLOUR 3
CLEAR
PEN UP
RIGHT 80
FORWARD 120
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 2
CURSOR RIGHT -8
BUOY
PEN UP
HOME CURSOR
LEFT 25
FORWARD 65
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 7
CURSOR RIGHT -8
BUOY
PEN UP
HOME CURSOR
RIGHT 130
FORWARD 60
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 3
CURSOR RIGHT -8
BUOY
PEN UP
HOME CURSOR
RIGHT 30
FORWARD 70
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 1
CURSOR RIGHT -8
BUOY
END

BUOYS2
PEN UP
HOME CURSOR
LEFT 160
FORWARD 90
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 4
CURSOR RIGHT -8
BUOY
PEN UP
HOME CURSOR
LEFT 95
FORWARD 110
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 5
CURSOR RIGHT -8
BUOY
PEN UP
HOME CURSOR
LEFT 60
FORWARD 125
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 6
CURSOR RIGHT -8
BUOY
PEN UP
HOME CURSOR
PEN DOWN
COLOUR 5
CIRCLE 5
COLOUR 4
END

BUOYS
DISPLAY
BUOYS1
BUOYS2
OSCLI SCREENLOAD PICNORTH
DISPLAY
END

INFO
CLEAR
DISPLAY
COLOUR 3 
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE BUOYS
BACKWARDS 15
WRITE Move around the screen, travelling from buoy to
BACKWARDS 10
WRITE buoy, using the commands BE and FD only.
BACKWARDS 15
WRITE BE followed by a number sets the BEARING (measured
BACKWARDS 10
WRITE clockwise from North, which is at the top of the
MORE1
END

MORE1
BACKWARDS 10
WRITE screen).
BACKWARDS 15
WRITE UNDO can be used to delete any errors.
BACKWARDS 15
WRITE Try to use as few commands as possible.
BACKWARDS 15
WRITE Keep a clear record of all your movements.
BACKWARDS 20
WRITE To begin type BUOYS <return>.
BACKWARDS 20
WRITE Type IDEAS <return> for more ideas.
BACKWARDS 20
DISPLAY
END

IDEAS
CLEAR
DISPLAY
COLOUR 6 
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE IDEAS
BACKWARDS 20
WRITE Travel the opposite way around the buoys.
BACKWARDS 10
WRITE Could you write down the commands for this
BACKWARDS 10
WRITE journey BEFORE you do it if you have
BACKWARDS 10
WRITE already travelled the 'correct' way?
MORE2
END

MORE2
BACKWARDS 20
WRITE Create a screen of your own.
BACKWARDS 10
WRITE You could draw boats, an island, ...
BACKWARDS 20
WRITE Could you draw a boat that moves?
BACKWARDS 20
DISPLAY
CO 3
END

