þÉÐ É äÅÊÌ... ËÏÐÉpÁÊÔ ÎÅ ÍÏÊ.

[Stas Tsiptsura]

Пpивет _All_ !

=== Вдpyг выскакивает c&d.mus , и говоpит: ===
10 STOPON:ONSTOPGOSUB100
20 DIM A$(11),B$(19),C$(28)
30 GOSUB110
40 GOSUB760
50 SOUND7,&B10111000
60 GOSUB770
70 IF PLAY(0)ORPLAY(1)ORPLAY(2)THEN70
80 GOTO 60
90 '
100 END
110 '..........DRUMS............
120 A$(0)="t150S1L8O4M9000R8FFR8AAR8B-"
130 A$(1)="S1L8O4M500GR8R8GR8R8R8R8"
140 A$(2)="S1L8O4M500GR8R8GR8R8M4000G16G16G16G16"
150 A$(3)="S1L8O4M500GR8M4000GR8M500GGM4000GR8"
160 A$(4)="S1L8O4M500GR8M4000GR8M500GR8R8G"
170 A$(5)="S1L8O4M4000GR8GM500GM4000GGGR8"
180 A$(6)="S1L8O4M500GM4000GGR8M500GR8M4000GR8"
190 A$(7)="S1L8O4M500GR8M4000GR8M500GM4000GGR8"
200 A$(8)="S1L8O4M500GM4000GGR8M500GR8R8M4000G16G16"
210 A$(9)="S1L8O4M500GR8"
220 A$(10)="S1L8O4M500GR8M4000GM500GR8GM4000GM500G"
230 A$(11)="S1L8O4M500GR8M4000GM500GR8M4000GGR8"
240 '........BASS GUITAR..........
250 B$(0)="t150V13L8O3R8AAR8O4CCR8F"
260 B$(1)="V12L8O1GR8R8O2DR8V10DO1AB-"
270 B$(2)="V11L8O1GR8R8O2DR8O4DO3AB-"
280 B$(3)="V11L8O2CR8R8CR8R8R8R8"
290 B$(4)="V11L8O1FR8R8G-R8S1M4000O6DO7AO6D"
300 B$(5)="V11L8O1FR8R8FR8R8FR8"
310 B$(6)="V13L8O1B-O2B-O1B-O2B-O1B-O2B-O1B-O2B-"
320 B$(7)="V13L8O1GO2GO1GO2GO1GO2GO1GO2G"
330 B$(8)="S1M4000L8O7G4.M500V11O2DR8O4DO3AB-"
340 B$(9)="V13L8O1GR8R8GO2GO1AO2AO1B"
350 B$(10)="V13L8O2CO3CO2CO3CO2CO3CO2CO3C"
360 B$(11)="V13L8O1FO2FO1FO2FO1FO2FO1FO2F"
370 B$(12)="V13L8O1A-O2A-O1A-O2A-O1A-O2A-O1A-O2A-"
380 B$(13)="V13L8O1B-R8R8B-O2B-CO3CO2D"
390 B$(14)="V13L8O2E-O3E-O2E-O3E-O2E-O3E-O2E-O3E-"
400 B$(15)="V13L8O1BO2BO1BO2BO1BO2BO1BO2B"
410 B$(16)="V13L8O2D-O3D-O2D-O3D-O2D-O3D-O2D-O3D-"
420 B$(17)="V13L8O2D-R8R8D-O3D-O2E-O3E-O2F"
430 B$(18)="V13L8O2G-O3G-O2G-O3G-O2G-O3G-O2G-O3G-"
440 B$(19)="V13L8O2G-R8"
450 '...........MELODY..........
460 C$(0)="t150V13L8O4R8CCR8G-G-R8A"
470 C$(1)="V10L8R8R8R8R8R8O3DO2AB-"
480 C$(2)="V13L8O3GR8R8O4DR8R8R8R8"
490 C$(3)="V13L8O3R8R8GR8B-O4DR8C"
500 C$(4)="V13L8O3R8B-R8AR8R8FR8"
510 C$(5)="V13L8O3R8R8GR8B-O4DR8D"
520 C$(6)="V13L8O4R8CR8CR8O3B-O4CR8"
530 C$(7)="V13L8O4E-R8DDR8O3B-R8O4E-"
540 C$(8)="V13L8O4R8DR8DR8R8R8O3B-"
550 C$(9)="V13L8O4CDR8DR8CR8D"
560 C$(10)="V13L8O4R8FFFFFR8E"
570 C$(11)="V13L8O4R8R8R8R8ER8CD"
580 C$(12)="V13L8O4R8GFER8CR8R8"
590 C$(13)="V13L8O4R8FFFFFR8G"
600 C$(14)="V13L8O4R8R8FR8E-DR8E-"
610 C$(15)="V13L8O4R8R8CR8DR8E-R8"
620 C$(16)="V13L8O4GFR8FR8E-R8F"
630 C$(17)="V13L8O4R8A-A-A-A-A-R8G"
640 C$(18)="V13L8O4R8R8R8R8GR8E-F"
650 C$(19)="V13L8O4R8B-A-GR8E-R8R8"
660 C$(20)="V13L8O4R8A-A-A-A-A-R8B-"
670 C$(21)="V13L8O4R8R8A-R8G-FR8G-"
680 C$(22)="V13L8O4R8R8E-R8FR8G-R8"
690 C$(23)="V13L8O4B-A-R8A-R8G-R8A-"
700 C$(24)="V13L8O4R8BBBBBR8B-"
710 C$(25)="V13L8O4R8R8R8R8B-R8G-A-"
720 C$(26)="V13L8O5R8D-O4BB-R8G-R8R8"
730 C$(27)="V13L8O4R8BBBBBR8R8"
740 C$(28)="V13L8O5D-R8V11D-R8V9D-R8V7D-R8V5D-R8V3D-R8V1D-R8"
750 RETURN
760 RETURN
770 PLAYA$(0),B$(0),C$(0)
780 IF PLAY(0)ORPLAY(1)ORPLAY(2)THEN780
790 SOUND6,100:SOUND7,&B10110001
800 PLAYA$(10),B$(1),C$(1)
810 PLAYA$(11),B$(1),C$(1)
820 PLAYA$(1),B$(2),C$(2)
830 PLAYA$(1),B$(2),C$(2)
840 PLAYA$(1),B$(3),C$(3)
850 PLAYA$(1),B$(4),C$(4)
860 PLAYA$(1),B$(8),C$(2)
870 PLAYA$(1),B$(2),C$(2)
880 PLAYA$(1),B$(3),C$(5)
890 PLAYA$(2),B$(5),C$(6)
900 PLAYA$(3),B$(6),C$(7)
910 PLAYA$(3),B$(6),C$(8)
920 PLAYA$(4),B$(7),C$(9)
930 PLAYA$(5),B$(9),C$(10)
940 PLAYA$(6),B$(10),C$(11)
950 PLAYA$(7),B$(10),C$(10)
960 PLAYA$(3),B$(10),C$(12)
970 PLAYA$(3),B$(10),C$(13)
980 PLAYA$(3),B$(11),C$(14)
990 PLAYA$(3),B$(12),C$(15)
1000 PLAYA$(8),B$(6),C$(16)
1010 PLAYA$(5),B$(13),C$(17)
1020 PLAYA$(6),B$(14),C$(18)
1030 PLAYA$(7),B$(14),C$(17)
1040 PLAYA$(3),B$(14),C$(19)
1050 PLAYA$(3),B$(14),C$(20)
1060 PLAYA$(3),B$(12),C$(21)
1070 PLAYA$(3),B$(15),C$(22)
1080 PLAYA$(4),B$(16),C$(23)
1090 PLAYA$(5),B$(17),C$(24)
1100 PLAYA$(6),B$(18),C$(25)
1110 PLAYA$(7),B$(18),C$(24)
1120 PLAYA$(3),B$(18),C$(26)
1130 PLAYA$(3),B$(18),C$(27)
1140 PLAYA$(9),B$(19),C$(28)
=== А я c&d.mus по башке, как дам!!! Он и сдох... ===

WBR, _Stas_, *aka* /SlawDos/.

... [eXisTanZ][PunkRock][КиШ][NFSU2][Овип Hяа]