|
||||
Меню:
Главная
Форум
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк |
[91] 375 if в 3 then gosub шо:х = 43:y = 67: gosub 1120:x = 84: gosub 11 20 380 if b = 4 then gosub ui5:x = 43:y - 69: gosub 1140:x - 84: gosub 11 40 385 if A < > 0 then poke *c010,0: goto 400 390 if b - 5 then 400 392 gosub 1000:b - В + 1 395 goto 360 400 rem 410 print : print chr* ( 4);"run ten.mod" 1000 rem ---------------- 1001rem *** слово - tenn is *** 1002rem ---------------- 1005 for c = 1 to 4 loio color= c:y = 46: gosub 1060 1015 y = 47: gosub 1060: plot 60,y: plot 70,y: plot 82 ,Y 1020 color- с + 8:y - 48: gosub 1065: plot 60, Y to 61,Y: plot 70,Y to 71 ,Y 1025 Y = 49: gosub 1065: plot 60,Y to 62,Y: plot 70 ,Y-to 72 , Y 1030 color= с + l:Y - 50: gosub 1065: plot 61, Y to 63,Y: plot 71,Y to 73, Y 1035 Y « 51: gosub 1070: plot 62,Y to 63,Y: plot 72 ,Y to 73,Y: plot B2,Y 1040 color- с + 9:Y - 52: gosub 1070: plot 63, Y: plot 73,y: plot 89 ,v 1045 Y - 53: gosub 1075: color-с + 2:Y- 54: gosub 1075IY = 55: gosub 1075 1050 color- с + 10:Y - 56 : gosub iobo: plot B9 ,y:y - 57: gosub iobo 1055 next c: return 1060 plot 38,Y to 45,Yl plot 4B,Y to 55,Y: plot 58 ,Y to 59,Y: plot 64,Y to 65,Y: plot 68,Y to 69,Y: plot 74,Y to 75 ,Y: plot 7B,Y to 79,Y : plot 83,Y to 89,Y 1062 return 1065 plot 41,y to 42-,y: plot 48,y to 49,Y: plot 58 ,y to 59,y: plot 64,y to 65,Y: plot 6b,Y to 69,y: plot 74,y to 75 ,y: plot 78,Y to 79,y : plot b2,Y to 83,y 1067 return 1070 plot 41,y to 42,y: plot 48,y to 53,Y: plot 58 ,y to 59,y: plot 64,y to 65,y: plot 68,y to 69,y: plot 74,y to 75 ,y: plot 78,y to 79,y : plot 83,y to 89,y 1072 return 1075 plot 41,Y to 42,y: plot 48,y to 49,y: plot 58 ,y to 59,y: plot 64,Y to 65,y: plot 68,y to 69,y: plot 74,y to 75 ,y: plot 78,y to 79,y : plot 88,y to 89,y 1077 return 1080 plot 41,y to 42,y: plot 4b,Y to 55,Y: plot 58 ,Y to b9,y: plot 64,Y to 65-,y: plot 6b,y to 69, Y: plot 74,y to 75 ,y: plot 78,y to 79,y : plot 82,y to 88,y 1082 return 1085 rem ---------------- 1090 rem *** фыннкции выб opa *** 1095 rem-------------- 1100 DEF FN LI(O) - ( I NT ( PDL (0) / 4)): DEF FN RI(Q) - (y + INT ( RND (1) * 6)): RETURN 1105 DEF FN LI(P) - (y + INT ( RND (1) * 6)): DEF FN RI(P) - ( INT ( PDL (1) / 4)): RETURN 1110 DEF FN Ll(P) - ( INT ( PDL (0) / 4)): DEF FN RI(P) - ( INT ( PDL (1) / 4)): RETURN 1115 DEF FN LI(P) - (y + INT ( RND (1) * 6)): DEF FN RI(P) - (y + INT ( RND (1) * 6)): RETURN 1120 COLOR- 0: FOR s - X -4 TO X + 4: PLOT s,y TO s,y + 12: NEXT s 1123 COLOR- 5 10* 275 1125 PLOT X,Y TO X,Y + 7 TO X-2.Y+9T0X-2, Y+ 12: PLOT X + 2,Y + 12 TO X + 2,Y + 9 TO X,Y + 7: PLOT X - 4,Y t 6 TO X - 2,Y * t TO X+2.Y+4T0X+4, Y+ 6: PLOT X - 1,Y TO X - 1 ,Y + 2: PLOT X ♦ 1 ,Y TO X + 1,Y + 2 1130 RETURN 1140 COLOR- 0: FOR S - X -4 TO X + 4: PLOT S,Y -2 TO S,Y + 12: NEXT S 1145 COLOR- l: PLOT X - 3 ,YT0X+3,YT0X+ 3,Y+4TOX-3,Y+ 4 TO X - 3,Y: PLOT X -4,Y+6T0X*4,Y+ 6T0X+4.Y+9T0X - 4 ,Y + 9 TO X - 4,Y ♦ 6 1150 RETURN Программа "Болгарский вальс 5 HOME 10 RIBBON- 3 17 VTAB (12)! HTAB (9)! PRINT БОЛГАРСКИЙ ВАЛЬС" 20 DIM UU40) ,P(140) 30 DATA 173,4В,192,136, 20B ,3,206,1,3,240,9,2 02,20В,245,174,0,3,76 ,2,3,96,,0 40 FOR X - 770 TO 792 50 READ Y 60 POKE X,Y 70 NEXT X 80 REM ВЫСОТА 90 DATA 128,102,B5,64,51 , 42,45,42,45,42,64,51 100 DATA B5,85,76,6В,64, 57,51,57,48,51,57,64 110 DATA 68,42,45,48,51, 54,57,60,64,68,72,76 120 DATA 76,B5,92,85,76,В 5,6B,76,85,96,102,114 130 DATA 12B,102,B5,64,5 1,42,45,42,45,46,64,5 1 140 DATA 85,85,76,68,64,5 7,51,57,4В,51,57,64 150 DATA 6B,42,45,48,51,5 4,57,60,64,6В,72,76 160 DA*A 76,B5,92,B5,76,B 5,6B, 76,B5,96,102,114 170 DATA 12B,102,B5,64,5 1 ,42,48,57,68,B5,96,1 14 180 DATA 128,102,B5,64,51 ,42,48,57,6B,B5,96 ,11 4 190 DATA 12B,102,B5,64,51 ,42,32,64,42,85,51,10 2,64,1,25,1,64 200 REM ПРОДОЛЖИТЕЛЬНОСТЬ 210 DATA 50,50,50,50,50, 50,50,50,50,50,50,50, 50 ,50 ,50 ,50 ,50 ,50 ,50 , 50 220 DATA 50,50,50,50,50,5 0,50,50,50,50,50,50,5 0 ,50 ,50 ,50 ,50 ,50 ,50 ,5 0 230 DATA 50,50,50,50,50, 50,50,50,50,50,50 ,50 , 50 ,50,50 ,50 ,50,50 ,50 , 50 240 DATA50,50,50,50, 50,50,50,50,50,50,50, 50,50,50,50,50,50,50, 50,50 250 DATA 50,50,50,50,5 0,50,50,50,50,50,50,5 0,50,50,50,50,50,50,5 0,50 253 DATA50,50,50,50, 50,50,50,50,50,50,50, 50,50,50,50,50,50,50, 50,50 256 DATA 50,50,50,50,50,5 0,50,50,50,50,50 ,50 ,1 BO,100,1 BO,100,254 260 FOR N - 1 TO 137 270 READ WIN) 280 NEXT N 290 FOR N - 1 TO 137 300 READ PIN) 310 NEXT N 320 FOR N - 1 TO 137 330 POKE 768,WIN) 340 POKE 769,PIN) 350 CALL 770 360 NEXT N 365 WAIT 1000,255 370 RUN 5D*» CHR* <4): PRINT CHR* <4)"CATALOG":В = PEEK <37> - 2: IF В 5 22 THEN В - 22 90 PRINT CHR* <4))"MAXFI LES I" 95 ONERR GOTO 90 100 TEXT= 10: PRINT CHR* ( 12) 105 0* - CHR* <4>: PRINT CHR* <4)"CATALOG":В -PEEK <37) - 2: IF В > 22 THEN В » 22 110 T • 0:H = -4: FOR V « 4 TO 30: GOSUB 1000: IF E < > 32 THEN POKE P - 2,219: POKE P,T + 193: POKE P + 2,221:T -T + 1:S - V 115 RIBBON" 2 120 NEXT V: VTAB 32:A* "RUN LOAD 1 L0CK2 UNLO CK3 DEL4..." 130 B* = "RUN": HTAB 1: PRINT LEFT* (A*,38)}:A* « MID* <A*,2> + LEFT* (A*,1):K = PEEK < -16384): IF К < 128 THEN FOR К = 1 TO 75: NEXT К:К = FRE < 0): GOTO 130 140 POKE - 1636B,0:K « К -176: IF К < 1 OR K > 6 THEN 300 200 HTAB 1: CALL - 868: IF К = 6 THEN END 210 PRINT "PRESSLETTERY OU WISH TO "I: IF К = 1 THEN B* = "LOAD" 220 IF К « 2 THEN B* - "L OCK" 230 IF К 3 THEN B* - "U NLOCK" 240 IF К = 4 THEN B* - "D ELETE": FLASH 245 IF K = 5 THEN NORMAL : RUN 250 PRINT B*J: GET К*:K = ASC <K*> - 48 300 IF К < 17 OR К) H ♦ 16 THEN 130 305 NORMAL* 310 H « 1IV - S - T ♦ K - 16: GOSUB 1000: IF F = 194 AND <B* = "RUN" OR B* = "LOAD") THEN B* = "B" ♦ B* 320 FOR H = 8.TO 58 STEP 2: GOSUB 1000:B* = B* ♦ CHR* <E): NEXT H: HTAB 1: CALL - 868: PRINT B*i PRINT D*$B *: GOTO 100 1000 С = INT <V / 8):Q = V:P = 20480 + 64 * 0 + 64*l+H:P=P+4: E « PEEK <P):F = PEEK <P - 3): 1005 POKE <P + 1),*29 1010 RETURN |
Среды: Smalltalk80 MicroCap Local bus Bios Pci 12С ML Микроконтроллеры: Atmel Intel Holtek AVR MSP430 Microchip Книги: Емкостный датчик 500 схем для радиолюбителей часть 2 (4) Структура компьютерных программ Автоматическая коммутация Кондиционирование и вентиляция Ошибки при монтаже Схемы звуковоспроизведения Дроссели для питания Блоки питания Детекторы перемещения Теория электропривода Адаптивное управление Измерение параметров Печатная плата pcad pcb Физика цвета Управлении софтверными проектами Математический аппарат Битовые строки Микроконтроллер nios Команды управления выполнением программы Перехода от ahdl к vhdl Холодный спай Усилители hi-fi Электронные часы Сердечники из распылённого железа Анализ алгоритмов 8-разрядные КМОП Классификация МПК История Устройства автоматики Системы и сети Частотность Справочник микросхем Вторичного электропитания Типы видеомониторов Радиобиблиотека Электронные системы Бесконтекстный язык Управление техническими системами Монтаж печатных плат Работа с коммуникациями Создание библиотечного компонента Нейрокомпьютерная техника Parser Пи-регулятор ч.1 ПИ-регулятор ч.2 Обработка списков Интегральные схемы Шина ISAВ Шина PCI Прикладная криптография Нетематическое: Взрывной автогидролиз Нечеткая логика Бытовые установки (укр) Автоматизация проектирования Сбор и защита Дискретная математика Kb радиостанция Энергетика Ретро: Прием в автомобиле Управление шаговым двигателем Магнитная запись Ремонт микроволновки Дискретные системы часть 2 | ||