100 REMark turtle graphics
110 MODE 8
120 FILL 0
130 SCALE 100,0,0
140 WINDOW 513,256,0,0
150 PAPER 0
160 INK 4
170 CLS:CLS#0
180 AT 9,10:INK 4
190 PRINT"T u r t l e d e m o"
200 AT 11,10:INK 2
210 PRINT"To start press any key"
220 AT 13,10:INK 1
230 PRINT"To exit press again"
240 PAUSE
250 :
260 CLS:RANDOMISE
270 PENDOWN
280 REPeat logo
290  IF RND>.68 THEN CLS
300  note=RND
310  POINT 80,50
320  INK RND(1 TO 7)
330  turtle=RND(3 TO 70)
340  terrapin=RND(25 TO 340)
350  FOR k=1 TO turtle
360   MOVE k/.7
370   TURN terrapin
380   REMark BEEP 3200,k/note
390  END FOR k
400  IF INKEY$<>"" THEN EXIT logo
410 END REPeat logo
420 CLS:WINDOW#1,448,200,32,16
430 FILL 0:PAPER 2:CLS
31990 STOP
