100  FOR I = 768 TO 794
 110      READ B: POKE I,B: NEXT
 120  DATA165,185,72,165,184,72
 130  DATA165,118,72,165,117,72
 140  DATA169,176,72,32,123,221
 150  DATA32,82,231,32,65,217
 160  DATA76,210,215
 170  POKE 1014,0: POKE 1015,3

 200  LET P = 400:N = 4
 210  GOSUB 300"REPEAT P N
 220  END

 300      IF N <  = 0 THEN  RETURN
 310      LET N = N - 1
 320      & P
 330  GOTO 300

 400  PRINT "EXAMPLE"
 410  RETURN