TO G :X :Y
MAKE "XY SENTENCE :X :Y
SETHEADING TOWARDS :XY
SETPOS :XY
END


TO MUSIC
PU
SETPOS [-80 -70]
SETH 90
CT
SETCURSOR [8 20]
PR [NEVER GONNA GIVE YOU UP]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10	
FD 21
TOOT 294 10
FD 21
TOOT 440 15
FD 35
TOOT 440 15
FD 28
TOOT 392 30
CT
SETCURSOR [8 20]
SETPOS [-80 -70]
PR [NEVER GONNA LET YOU DOWN]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10	
FD 21
TOOT 294 10
FD 21
TOOT 392 15
FD 28
TOOT 392 15
FD 28
TOOT 349 15
CT
SETCURSOR [1 20]
SETPOS [-128 -70]
PR [NEVER GONNA RUN AROUND AND DESERT YOU]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 349 20
FD 28
TOOT 392 10
FD 7
TOOT 330 15
FD 42
TOOT 294 5
TOOT 262 20
FD 28
TOOT 262 10
FD 14
TOOT 392 20
FD 35
TOOT 349 40
END

