10 DIM A%(1000):CLS 0:SCRN 0,0:COLOR 1:RECT 100,10
20 COLOR 3:N%=1:PRINT CHR$(12);"      MYUZIK SINTEZATOR"
30 A$=INKEY$:IF A$="" THEN 70
40 A=(ASC(A$)-47):IF A>9 THEN 90 ELSE A%(N%)=A+1
50 ON A GOSUB 200,210,220,240,260,280,310,340,380,420
60 N%=N%+1:GOTO 30
70 CURS 0,0:RECT N%*.1,10:IF N%=1 THEN 30
80 FOR I=0 TO 20:NEXT I:A%(N%)=0:N%=N%+1:GOTO 30
90 COLOR 1:IF N%=1 THEN N%=N1% ELSE N1%=N%
100 FOR N=1 TO N%:A=A%(N)-1
110 L=L+1:L=L+1:IF A<0 THEN 140
120 ON A GOSUB 200,210,220,240,260,280,310,340,380,420
140 CURS 0,0:RECT N*.1,10
150 NEXT N:GOTO 20
200 FOR I=0 TO 70:E=2:OUT 242,8:OUT 242,0:NEXT:RETURN
210 FOR I=0 TO 50:E=1:E=2:OUT 242,8:OUT 242,0:NEXT:RETURN
220 FOR I=0 TO 40:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
230 NEXT:RETURN
240 FOR I=0 TO 35:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
250 OUT 242,8:OUT 242,0:NEXT:RETURN
260 FOR I=0 TO 30:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
270 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:NEXT:RETURN
280 FOR I=0 TO 19:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
290 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
300 OUT 242,0:NEXT:RETURN
310 FOR I=0 TO 16:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
320 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
330 OUT 242,0:OUT 242,8:OUT 242,0:NEXT:RETURN
340 FOR I=0 TO 13:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
350 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
360 OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
370 NEXT:RETURN
380 FOR I=0 TO 10:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
390 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
400 OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
410 OUT 242,8:OUT 242,0:NEXT:RETURN
420 FOR I=0 TO 10:OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0
430 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
440 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:OUT 242,8
450 OUT 242,8:OUT 242,0:OUT 242,8:OUT 242,0:NEXT:RETURN