10 '        
O
O
O
O
O C o l o r 
O
O
O
O
O
20 COLOR 15,1,1:SCREEN 2,2
30 OPEN "GRP:" AS #1
40 FOR S=1 TO 2:A$="":FOR P=1 TO 32:READ D$
60 A$=A$+CHR$(VAL("&H"+D$)):NEXT
70 SPRITE$(S)=A$:NEXT
80 FOR K=15 TO 2 STEP-1:Y=K*11+13:FOR X=10 TO 75+K*5 STEP 2
100 PUT SPRITE K,(X,Y),K,1:PUT SPRITE K+15,(X+8,Y-16),K,2
120 LINE (X-4,Y+3)-(X-2,Y+12),K,BF:NEXT
130 READ D$:PSET(X+30,Y-13),1: PRINT #1,D$
140 S=50+K*2:PLAY"v9n=s;32":NEXT  '░
W
W Как, и музыка здесь!
150 DRAW "bm15,15":PRINT #1,"Transparent"
160 DRAW "bm15,26":PRINT #1,"Black"
170 DRAW "bm27,0":PRINT #1,"Press RETURN key"
180 IF INKEY$<>CHR$(13) THEN 180
190 COLOR 15,4,7:END
200 DATA 1,2,4,D,17,13,21,23,47,4C,F0,C0,0,0,0,0,3F,7E,FC,F8,F0,E0,C0,80,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,4,9,13,27,4F,9F,0,0,0,0,10,28,4C,9E,3F,7E,FC,F8,F0,E0,C0,80
260 DATA White,Gray,Magenta,Dark Green,Light Yellow,Dack Yellow, Light Red,Medium Red,Sky Blue,Dark Red,Light Blue,Dark Blue,Light Green,Medium Green