4 SCREEN 7
5 CLS:PRINT INPUT$(1)
10 PRINT EED 0!
20 CIRCLE (100,100),100,1
121 FOR X = 5 TO 500
122 IF X MOD 15 = 1 THEN 125
123 PAINT (100,100),X MOD 15,1:             LOCATE 1,1 :PRINT X;
124 'pLAY "L64n"+STR$(X)
125 NEXT X