Это - достаточно беспорядочный архив сообщений конференций сети fidonet, которые на момент их прочтения мной
показались полезными или интересными. Многие устарели, многие узкоспецифичны и малоинтересны, но может оказаться и что-то новое...
- __techs (2:5015/42) ----------------------------------------------- __techs - Msg : 709 of 1000 From : Gregory Zeldner 2:5020/937.32 30 May 98 15:29:20 To : Alexander Shherbakov 31 May 98 16:28:14 Subj : Танцуют все... ------------------------------------------------------------------------------- @AREA:RU.VISUAL.BASIC @RealName: Гpигopий Зeльднep * Crossposted in RU.VISUAL.BASIC * Crossposted in RU.DOS.BASIC Hello, Alexander! Replying to a message of Alexander Shherbakov to Gregory Zeldner: GZ*>> PLAY "t120o2l8g4.p8g>c4<g.ab4e.ea4g.fg4c.cd4d.ef4f.g7" GZ*>> PLAY "a4b.>cd2<g>e4d.cd4<g.g>c4<b.ab4e.ea4g.fg4c.c>c4<b.ag2" AS> А пpодолжение [...] y тебя имеетcя? А может дpyгие пеcни? AS> Кончаю... Да подожди ты :) DEFINT A-Z DO COLOR 7, 0: CLS : PRINT PRINT " 1. Штраус. Вальс 'Голубой Дунай' " PRINT " 2. Моцарт. Симфония N 40 " PRINT " 3. Моцарт. Турецкий марш " PRINT " 4. Марш 'Прощание славянки'" PRINT PRINT " 5. Туш " PRINT " 6. Песня о крокодиле Гене" PRINT " 7. Повесть о зеленом кузнечике" PRINT " 8. Марш Мендельсона в миноре" PRINT PRINT " 9. Гимн Соединенных Штатов Америки" PRINT "10. Гимн Советского Союза" PRINT : PRINT : INPUT "Введите номер мелодии (0 - выход) -> ", n SELECT CASE n CASE IS = 0: EXIT DO CASE IS = 1 'Штраус. Вальс 'Голубой Дунай' PLAY "mf ms t137 o2l6d f# a l6ap6 l6>a ap6 f# f#p6" PLAY "o2l6d d f# a l6ap6 l6>a ap6 g gp6" PLAY "o2l6c# c# e l6b bp6 l6>b bp6 g gp6" PLAY "o2l6c# c# e l6b bp6 l6>b bp6 f# f#p6" PLAY "o2l6d d f# a >dp6 >d dp6 <a ap6" PLAY "o2l6d d f# a >dp6 >d dp6 <b bp6" PLAY "o2l6e e g b l3b.. l6g# a >l3f#.." PLAY "t130 l6d <f# l6f#..e b..a dp12 l12d d.p6." PLAY "l6a gp6 a gp6 a l3>f#.. l6e <a f#p6 a f#p6 a l3>e.. " PLAY "l6d <a gp6 a gp6 a l3>f#.. l6e <a >d e f# l3a l6g l12f# f# l6f# e d" CASE IS = 2 ' Моцарт. Симфония N 40 PLAY "msmft190o3l8e- d l4d l8e- d l4d l8e- d l4d l4b-p4" PLAY "l8b- a l4g l8g f l4e- l8e- d l4c cp4" PLAY "l8d c l4c l8d c l4c l8d c l4c ap4 " PLAY "l8a g l4g- l8g- e- l4d l8d c o2 l4b- b-p4" PLAY "o3l8b- a mll4a o4c o3g- a g dp4" PLAY "mso3l8b- a mll4a o4c o3g- a g b-" PLAY "l8a g f e- l4d o2f# g a b- o3l8c o2b- l4a g o3dp4" PLAY "mlo4l2c# l4dp4 " PLAY "mlo4l2c# l4dp4 " PLAY "mlo4l2c# l8dp8 c#p8 dp8 C#p8 dp8 " CASE IS = 3 ' Моцарт. Турецкий марш FOR i = 1 TO 2 PLAY "T130 ML L16 O2 BAG#AO3 C8 P8 L16 DC O2 B O3 C E8 P8 FED#E BAG#A BAG#A" PLAY "MN O4 C4 O3 A8 O4 C16.O3 G64A64 L8 B MS AGA16.ML G64A64 B MS AGA16." PLAY "ML G64A64 B MS AGF#E4" NEXT i PLAY "T130 MS O3 L8 EF GG ML L16 AGFE D8 O2 MS G8 MS O3 L8 EF GG ML L16 AGFE" PLAY "MN D4 MS C8 D8 MS E8E8 ML FEDC O2 ML B8 MS E8 O3 MS C8D8 MS E8E8 ML FEDC" PLAY "O2 MS B4 B MLAG#A O3 C8 P8 DC O2 B O3 C E8 P8 FED#E BAG#A BAG#A" PLAY "O4 MN C4 L8 MS O3 ABO4 C O3 BAG #AEFD C4 O2 ML B32.C32.B32. A16 B16 A4" CASE IS = 4 'Марш 'Прощание славянки' PLAY "T125 >O3 ML L64 GA-B O4 L4 MS C L4 O3 MS A-GF L8 E-. L16 F L8 D. L16 E- L4 C" PLAY "MN L8 GA- L4 G MN L8 E-D L4 C L8 <B >C ML L4 D. <L8 B L4 MN G" PLAY ">MN L8 GA- L4 G L8 GG >ML L4 D L8 E-D L2 MN C." PLAY "L8 C <B > L4 D L8 C < A-L4 F L8 A->C L4 < ML G. L8 E-MN L4 C MN" PLAY "L8 GA- L4 G L8 DE- L4 G L8 DE- L2 C." FOR i = 1 TO 2 PLAY "O1L4 G> L2E-. L8 D. L16C L2D.<L4 G> L2D. L8 E-. L16D L2C. <L4G> L2C. L8 D. L16C ML L2FMS L8F " PLAY "L8 FGA-MN L4G L8 F. L16 E- L4 D L8 E-. L16 D MS L8CL16 CCl8CC L4C" NEXT i PLAY "O3 ML P4 L64 bcd O4 L4 MS E-E-E-<MLg>e-c<g l8 e-cl2 MN d.MLl4 g>d< l8 gbl4>d l8e-dl2cp8" PLAY "MN<l8 b-a-gl4f>dp8 <l8 fgfl4e->cp8 <l8 e-fe-l4da-g<b>l8cl16ccl8ccc>" PLAY "MN<l8 b-a-gl4f>dp8 <l8 fgfl4e->cp8<l8 e-fe-l4da-gb>l8cl16ccl8ccc>" CASE IS = 5 'Туш PLAY "<C4E8G8" PLAY ">C16C16C16C16C16C16C16C16" PLAY "D16D16D16D16D16D16D16D16" PLAY "E4D4C8C16.C32C8P8 " CASE IS = 6 'Песня о крокодиле Гене PLAY "T255 o2 C L4 C+ L4 C L4 P4 o1 F O1 L4 G L4 G+ L4 F L4" PLAY "o2 C L4 C+ L4 C L4 P4 o1 G L4 G+ L4 A+ o1 L4 G L4" PLAY "T255 o2 C L4 C+ L4 C L4 P4 o1 G L4 G+ L2 A+ L4 o2 C L4 C+ L4 ml C L2 C L4" CASE IS = 7 'Повесть о зеленом кузнечике PLAY "MFT240AEAEAG#G#P4G#EG#EG#AAP4" PLAY "AEAEAG#G#P4G#EG#EG#AP2" PLAY "ABB8B8B4B4>CC8C8CCC<BAG#AAP4" PLAY "ABB8B8B4B4>CC8C8CCC<BAG#AP4" CASE IS = 8 > 'Марш Мендельсона в миноре (2Art: Ты как знатный песенник, навеpняка ее > 'опознаешь :) - отпиши название, OK PLAY "T90 ML L8 O2 A4 O3 FEDC# D4 O2 A4 B-4O2 C#EGB- AG F4EFD4 F4 B- A O3 DC" PLAY "F4EDCO2B-AB-16 O3 C16 O2 F4 E4MN F2.MS O3 A4 O2F ML O3AGF E16 F16 G C2" PLAY "MS F4 O2 D ML O3 F E D C#16 D16 E O2 A4A8P8 A B O3 C# D E F" PLAY "G E C# B- A G F16 E16 D8 E4 C#4 D2" CASE IS = 9 'Гимн Соединенных Штатов Америки PLAY "T100O3L8E-.L16CO2L4A-O3L4CE-L2A-O4L8C.O3L16B-L4A-CDL2E-L8E-E-O4L4C." PLAY "O3L8B-L4A-L2GL8FGL4A-A-E-CO2L4A-O4L8CCL4CD-E-L2E-L8D-CO3L4B-O4L4CD-L2D-L8D-" PLAY "D-L4C.O3L8B-L4A-L2GL8FL16G.L4A-CDL2E-L8E-E-L4A-A-L8A-GL4FFFB-O4L8D-CO3L8B-" PLAY "A-L4A-L4G.P8L8E-E-O3L4A-.L8B-O4L8CD-L2E-O3L8A-B-O4L4C.L8D-O3L4B-L2A-.." CASE IS = 10 'Гимн Советского Союза PLAY "t120o2l8g4.p8g>c4<g.ab4e.ea4g.fg4c.cd4d.ef4f.g7" PLAY "a4b.>cd2<g>e4d.cd4<g.g>c4<b.ab4e.ea4g.fg4c.c>c4<b.ag2" CASE ELSE BEEP END SELECT LOOP COLOR 7, 0: CLS : END AS> Стpашно мне тоже :) Gregory --- GoldED 2.41+ * Origin: Catch the BASIC Instinct... (2:5020/937.32)
