FLAG
PEN DOWN
COLOUR 1
CIRCLE 5
FORWARD 20
COLOUR 3
FILL
REPEAT 4
RIGHT 120
FORWARD 8
END REPEAT
END

GOLF
DISPLAY
GOLF1
GOLF2
OSCLI SCREENLOAD PICNORTH
DISPLAY
END

GOLF1
CLEAR
PEN UP
RIGHT 80
FORWARD 120
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 2
CURSOR RIGHT -8
FLAG
PEN UP
HOME CURSOR
LEFT 25
FORWARD 65
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 7
CURSOR RIGHT -8
FLAG
PEN UP
HOME CURSOR
RIGHT 120
FORWARD 140
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 3
CURSOR RIGHT -8
FLAG
PEN UP
HOME CURSOR
RIGHT 30
FORWARD 70
BEARING 0
PEN DOWN
CURSOR RIGHT 8
WRITE 1
CURSOR RIGHT -8
FLAG
PEN UP
HOME CURSOR
END

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

TEE
PU
HM
PD
END


INFO
CLEAR
DISPLAY
COLOUR 3 
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE GOLF
BACKWARDS 15
WRITE Try to get the ball (the turtle!) into each
BACKWARDS 10
WRITE hole, using the commands BE and FD only.
BK 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 Type TEE <return> to start a new shot.
BACKWARDS 15
WRITE UNDO can be used to delete any errors.
BACKWARDS 15
WRITE Keep a clear record of all your movements.
BACKWARDS 20
WRITE To begin type GOLF <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 Write down the bearing and distance needed to
BACKWARDS 10
WRITE hit the ball from each hole back to the tee.
BACKWARDS 20
WRITE Instead of starting from the tee each time,
BACKWARDS 10
WRITE move from hole to hole, 1 to 2 to 3 etc.
BACKWARDS 20
MORE2
END



MORE2
WRITE Play from hole to hole backwards, 7 to 6 to 5 etc.
BACKWARDS 10
WRITE Could you write down the instructions for these
BACKWARDS 10
WRITE shots BEFORE you do them if you have
BACKWARDS 10
WRITE already played the 'correct' way?
BACKWARDS 20
WRITE Create a golf course of your own.
BACKWARDS 10
MORE3
END

MORE3
WRITE You could draw greens, fairways, bunkers, ...
BACKWARDS 20
DISPLAY
CO 3
END
