ÒÀÁËÈÖÀ 1 5 REM ********************************************* 10 REM **** ÌÓÇÛÊÀËÜÍÛÉ ÐÅÄÀÊÒÎÐ ÄËß ÐÀÄÈÎ-86ÐÊ **** 20 REM ******** ÍÀ ÎÑÍÎÂÅ ÒÀÉÌÅÐÀ Ê580ÈÂ53 ********* 30 REM * ÏÐÈÑÂÎÅÍÈÅ ÇÍÀ×ÅÍÈÉ ÏÅÐÅÌÅÍÍÛÌ 40 REM * BS - ÍÀ×ÀËÜÍÛÉ ÀÄÐÅÑ ÐÀÑÏÎËÎÆÅÍÈß ÍÎÒ Â ÎÇÓ 50 REM * À0,A1,À2,A3 -ÀÄÐÅÑÀ ÏÎÐÒΠÒÀÉÌÅÐÀ Ê580ÈÂ53 60 A0=&A000:A1=&A001:A2=&A002:A3=&A003:BS=&4200 70 V=30:R$="<-":Z°=" ":GOTO 640 80 REM * ÏÎÄÏÐÎÃÐÀÌÌÀ ÂÂÎÄÀ ÍÎÂÎÉ ÊÎÌÀÍÄÛ 90 Â=À 100 A=USR(-2021):IF À= OR À=255 THEN 100 110 RETURN 120 REM * ÈÍÈÖÈÀËÈÇÀÖÈß ÐÅÄÀÊÒÎÐÀ 130 PRINTAT36,17;"NEW ?";:Y$=CHR$(USR(-2045)) 140 PRINTAT36,17;SPC(12):IF YD="Y" THEN 200 150 REM * ÏÎÈÑÊ ÊÎÍÖÀ ÍÎÒÍÎÉ ÇÀÏÈÑÈ 160 B1=BS+&2000:FOR 1=BS TO B1 170 IP PEEK(I)=255 THEN KX=I-BS:GOTO 410 180 NEXTI:CUR36,17:INPUT"ÄËÈHA";X:X=X*4 190 PRINTAT36,17;SPC(20)$:POKEBS+X+1,255:GOTO 410 200 X=0:Y=11:PRINTATV,11;R$;:KX=0 210 PRINTAT36,24;"HOTA - 1" 220 REM * ÖÈÊË ÂÂÎÄÀ È ÇÀÏÈÑÈ ÍÎÒ 240 A=USR(-2021):IF À=255 THEN 240 250 IF (Y=24 AND A=25) OR (Y=0 AND A=26) THEN 240 260 IF A=8 THEN 1100 270 IF A=0 THEN KX=X:A=2 280 IF A=24 THEN 1150 290 IF A>57 OR A=1 OR A=46 THEN GOSUB 1060 300 IF A=25 THEN PRINTATV,Y;Z$;:Y=Y+1:PRINTATV,Y;R$; 310 IF A=26 THEN PRINTATV,Y;Z$;:Y=Y-1:PRINTATV,Y;R$; 320 IF A=2 THEN PRINTATV,Y;Z$;:POKEBS+X,255:GOTO 410 330 IF A<>27 THEN TS=S(Y):TM=M(Y) 340 IF A=27 THEN TS=S(Y):TM=DM(Y):GOSUB 90 350 IF A=32 THEN GOSUB 1280 360 POKE A0,TM:POKE A0,TS:POKE À2,20 370 IF A>48 AND A<58 THEN GOSUB 1330 380 GOTO 240 400 REM * ÂÂÎÄ ÏÀÐÀÌÅÒÐΠÂÎÑÏÐÎÈÇÂÅÄÅÍÈß 410 CUR36,22:INPUT"TEMÏ",Z:R=28/Z:X1=KX-4 420 PRINTAT36,20;"STAC. NORM. LEG.": K$=CHR$(USR(-2045)) 430 PRINTAT36,22;SPC(20):PRINTAT36,20;SPC(20) 440 PPINTAT36,17;"TEMÏ - ";Z;" ";K$".":PRINTAT36,24; "ÍÎÒÀ -" 450 K=0.0015:IF K$="S" THEN K=R*0.5 460 IF K$="N" THEN K=R*0.1 470 REM * ÖÈÊË ÂÎÑÏÐÎÈÇÂÅÄÅÍÈß 490 FOR X=0 TO X1 STEP4:K2=PEEK(BS+X+1): Y=PEEK(BS+X+3) 500 IF K2=0 THEN POKE A3,54 510 IF K2<>0 THEN POKE A0,PEEK(BS+X):POKE A0,K2: POKE A2,100:PRINTATV,Y;R$; 520 PRINTAT 42,24;X/4+1:PAUSE R*PEEK(BS+X+2): POKE A3,54:PAUSE Ê 530 PRINTAT V,Y;Z$;:NEXTX 550 REW * ÂÛÂÎÄ ÄÈÐÅÊÒÈ ÐÅÄÀÊÒÎÐÀ 560 PRINTAT36,24;"1 - ÏÎÂTOPÈTb":PRINTTAB(36) "2 - ÄÎÏÈÑÀÒÜ" 570 PRINTTAB(36)"3 - ÈCÏPABÈTb":PRINTTAB(36) "4 - ÐÀÑÏÅ×ÀÒÀÒÜ" 580 PRINTTAB(36)"5 - ÎÒÒÐÀÍÑËÈÐÎÂÀÒÜ": PRINTTAB(36)"6 - NEW" 590 A=USR(-2045):FORI=0TO5:PRINTAT36,24-1;SPC(20); NEXTI 600 IF PA<49 OR A>54 THEN 1810 610 REM * ÀÄÐÅÑÀÖÈß ÏÎ ÄÈÐÅÊÒÈÂÀÌ 620 A=A-8:ON A GOTO 410, 1380, 1410, 1470, 1530, 200 630 REM * ÍÀÑÒÐÎÉÊÀ ÏÀÐÀÌÅÒÐΠÒÀÉÌÅÐÀ Ê580ÈÂ53 640 ÍÎÌÅ:ÐÎÊÅ ÀÇ,54:ÐÎÊÅ ÀÇ,102:ÐÎÊÅ A3,144: POKE A1,110 650 REM * ÎÏÈÑÀÍÈÅ ÔÓÍÊÖÈÉ ÐÀÇÁÈÅÍÈß ÄÅÑßÒÈ×ÍÎÃÎ ×ÈÑËÀ ÍÀ ÁÀÉÒÛ 660 REM * FNS(X) - ÑÒÀÐØÈÉ ÁÀÉÒ,FNM(X) - ÌËÀÄØÈÉ ÁÀÉÒ 670 DEFFNS(X)=INT(X/256) 680 DEFFNM(X)=X-INT(X/256)*256 690 REM * ÎÏÈÑÀÍÈÅ ÌÀÑÑÈÂΠ700 REM * SO,WO - ÌÀÑÑÈÂÛ ÊÎÝÔÔÈÖÈÅÍÒΠÄÅËÅÍÈß ÄËß ÒÎÍΠ710 REM * DM0,DSO - ÌÀÑÑÈÂÛ ÊÎÝÔÔÈÖ. ÄÅËÅÍÈß ÄËß ÏÎËÓÒÎÍΠ720 DIM S(24),M(24),DM(25),DS(25),K(24) 730 REM * ÐÈÑÓÍÎÊ ÍÎÒÍÎÃÎ ÑÒÀÍÀ 740 PRINT"ÑÎËÜ #";SPC(21);"-0" 750 PRINT"ÔA #";SPC(21);"-0" 760 ÐRINÒ"ÌÈ";5ÐÑ(24);"-0-" 770 PRINT"PE #";SPC(19);"-0-" 780 ÐRINÒ"ÄÎ #";SPC(18);"-0---" 790 PRINT"CÈ";SPC(21);"-0----" 800 PRINT"Ëß";SPC(16);"-0-----" 810 PRINT"COËÜ #"SPC(16);"0" 820 PRINT"ÔA #----------0---- " 830 PRINT"MÈ";SPC(18);"0";SPC(15);"CÈ$ = Ëß#" 840 PRINT"PE #-------0-----";SPC (7) ; "Ëß$ = ÑÎËÜ#" 850 PRINT"ÄO #";SPC(12);"0";SPC(17);"COËÜ$ = ÔÀ#" 860 PRINT"CÈ -------0-------";SPC(7); "ÌÈ$ = ÐÅ#" 870 ÐÐINÒ"Ëß #";SPC(10);"0";SPC(19);"PE$ = Ëß#" 880 PRINT"COËÜ #------0----------";SPC(7); "ÄÎ$ = ÑÈ" 890 PRINT"ÔA #";SPC(8);"0";SPC(21);"$ - ÁÅÌÎËÜ, # - ÄÈÅÇ" 900 PRINT"MÈ ----Î---------" 910 PRINT"PE #";SPC(6);"0";SPC(23); "<-- ÍÀ 1 ÍÎÒÓ ÍÀÇÀÄ" 920 PRINT"ÄO #-------0-";SPC(23); "--> HA 1 ÍÎÒÓ ÂÏÅÐÅÄ" 930 PRINT"CÈ --î-" 940 ÐÐINÒ"Ëß #------0-";SÐÑ(25);"ÄÈÅÇ - ÀÐ2" 950 PRINT"COËÜ #--0-";SPC(26);"BÛXOÄ - F3" 960 PRINT"ÔA #-0-";SÐÑ(27);"ÓÑÒÀÍÎÂÊÀ ÊÎÍÖÀ ÍÎÒÍÎÉ" 970 ÐÐINÒ"ÌÈ -0-";SÐÑ(28);"ÇÀÏÈÑÈ - F1" 980 PRINT"PE #O-"; 990 REM * ÇÀÏÎËÍÅÍÈÅ ÌÀÑÑÈÂΠÊÎÝÔÈÖÈÅÍÒÀÌÈ ÄÅËÅÍÈß 1000 FORI=0T024:READH:S(I)=FNS(H):M(I)=FNM(H):NEXTI 1010 FORI=1T018:READH,J:DS(J)=FNS(H):DM(J)=FNM(H): NEXTI 1020 REM * ÇÀÏÎËÍÅÍÈÅ ÌÀÑÑÈÂÀ ÊÎÄÀÌÈ ÊËÀÂÈØ ÑÎÎÒÂÅÒÑÒÂ. ÍÎÒÀÌ 1030 FORI=0T024:READH:K(I)=H:PRINTAT33,I;CHR$(H); : NEXTI 1040 GOTO 130 1050 REM * ÏÎÄÏÐÎÃÐÀÌÌÀ ÂÛÁÎÐÀ ÏÎËÎØÅÍÈß ÓÊÀÇÀÒÅËß ÏÎ ÊËÀÂÈØÀÌ 1060 FORI=0T024 1070 IFA=K(I)THEN PRINTATV,Y;Z$;:Y=1:PRINTATV,Y;R$; : RETURN 1080 NEXTI:RETURN 1090 REM * ÏÎÄÏÐÎÃÐÀÌÌÀ ÂÎÇÂÐÀÒÀ Ê ÏÐÅÄÛÄÓÙÅÉ ÍÎÒÅ 1100 IF X=0 THEN 240 1110 IF KX=0 THEN KX=X 1120 X=X-4:PRINTATV,Y;Z$;: K1=PEEK(BS+X) :K2==PEEK(BS+1+X) 1130 IF K1=0 AND K2=0 THEN 1220 1140 GOTO 1240 1150 REM ÏÎÄÏÐÎÃÐÀÌÌÀ ÏÅÐÅÕÎÄÀ Ê ÑËÅÄÓÞÙÅÉ ÍÎÒÅ 1160 IF ÊÕ=0 OR Õ=ÊÕ THEN 240 1170 IF KX=X+4 THEN X=X+4:PRINTAT42,24;X/4+1:GOTO 240 1180 X=X+4:PRINTATV,Y;Z$;: K1=PEEK(BS+X) :K2=PEEK(BS+1+X) 1190 IF K1=0 AND K2=0 THEN 1220 1200 GOTO 1240 1210 REM * ÏÎÄÏÐÎÃÐÀÌÌÀ ÎÒÎÁÐÀÆÅÍÈß ÏÀÓÇÛ 1220 PRINTAT36,22;"ÏÀÓ3A":PRINTAT42,24;X/4+1:GOTO 240 1230 REM * ÏÎÎÄÏÐÎÃÐÀÌÌÀ ÎÒÎÁÐÀÆÅÍÈß ÍÎÒÛ 1240 POKE A0,K1:POKE A0,K2 1250 POKE A2,PEEK(BS+2+X)+20:Y=PEEK(BS+3+X): PRINTATV,Y;R$; 1260 PRINTAT42,24;X/4+1:PRINTAT36,22;" ":GOTO 240 1270 REM * ÏÎÄÏÐÎÃÐÀÌÌÀ ÇÀÏÈÑÈ ÏÀÓÇÛ 1280 POKEBS+X+1,0:POKEBS+X,0:POKEBS+X+3,1: PRINTATV,Y;Z$; 1290 GOSUB 90:POKE BS+X+2,A-48:POKE BS+X+3,Y:X=X+4: PRINTAT42,24;X/4+1 1300 IF KXKX THEN 1410 1430 X=(N-1)*4:POKE A0,PEEK(BS+X): POKE A0,PEEK(BS+X+1) 1440 POKE A2,20:Y=PEEK(BS+X+3):PRINTATV,Y;R$; 1450 PRINTAT36,24;"HOTA -";SPC(15):PRINTAT42,24;N: GOTO 240 1460 REM * ÏÅ×ÀÒÜ ÍÎÒÍÎÉ ÇÀÏÈÑÈ ÄËß DATA 1470 HOME:PRINT"PACÏE×ATKA ÍÎÒÍÎÉ ÇÀÏÈÑÈ ÄËß DATA " 1480 PRINT"MË. ÁÀÉÒ";SÐÑ(5);**ÑÒ. ÁÀÉÒ";SÐÑ(5); "ÄËÈÒÅËÜÍ." " 1490 KX=KX-4:FOR X=0 TO KX STEP 4 1500 PRINTPEEK(BS+X),PEEK(BS+X+1),PEEK(BS+X+2) 1510 NEXT X 1515 STOP 1520 REM * ÒÐÀÍÑËßÖÈß ÍÎÒÍÎÉ ÇÀÏÈÑÈ 1530 HOME 1540 ÐRINT"ÑÂÎÁÎËÍÀß ÎÁËÀÑÒÜ-Ñ";@(ÊÕ+4+ÂS); "Í ÏÎ 75FFH" 1550 INPUT"HA×AËÜHÛé ÀÄÐÅÑ ÄËß ÒÐÀÍÑËßÖÈÈ (×ÅÐÅÇ &)";NA 1560 REM * ÇÀÏÈÑÜ ÓÏÐÀÂËßÞÙÅÉ ÏÐÎÃÐÀÌÌÛ Â ÏÀÌßÒÜ È 1570 REM * ÅÅ ÊÎÐÐÅÊÒÈÐÎÂÊÀ ÏÎ ÀÄÐÅÑÀÌ ÏÅÐÅÕÎÄÀ 1580 RESTORE 1940: FOR I=NA TO NA+65:READ R:POKE 1,R: NEXTI 1590 KA=1:TT=INT(600/2):POKE NA+36,TT 1600 M1=FNS(65536+A0):M2=FNM(65536+A0):POKE NA+8,M2 1610 POKE NA+9,M1:POKE NA+17,M2:POKE NA+18,M1 1620 POKE NA+22,FNM(A2*65536): POKE NA+23,FNS(A2+65536) 1630 POKE NA+30,FNM(A3+65536): POKE NA+31,FNS(A3*65536) 1640 POKE NA+52,FNM(A3+65536): POKE NA+53,FNS(A3+65536) 1650 POKE NA+1,FNM(KA):POKE NA+2,FNS(KA) 1660 IF K$="S" THEN POKE NA+56,TT*.8 1670 IF K$="L" THEN POKE NA+51,0:POKE NA+52,0: POKE NA+53,0 1680 IF K$="N" THEN POKE NA+56,TT*.6 1690 POKE NA+14,FNM(NA+27):POKENA+15,FNS(NA+27) 1700 POKE NA+25,FNM(NA+32):POKE NA+26,FNS(NA+32) 1710 POKE NA+47,FNM(NA+43):POKENA+48,FNS(NA+43) 1720 POKE NA+61,FNM(NA+57):POKE NA+62,FNS(NA+57) 1750 POKE NA+64,FNM(NA+3):POKE NA+65,FNS(NA+3) 1740 REM ÒÐÀÍÑËßÖÈÉ ÑÀÌÎÉ ÍÎÒÍÎÉ ÇÀÏÈÑÈ 1750 FOR X=0 TO KX STEP 4 1760 POKEKA,PEEK(BS+X):KA=KA+1:POKE KA,PEEK(BS+X+1) 1770 KA=KA+1:POKE KA,PEEK(BS+X+2):KA=KA+1:NEXTX: POKE KA,255 1780 ÐÐINÒ:ÐRINÒ"ÌÓÇÛÊÀËÜÍÛé ÌÎÄÓËÜ ÐÀÑÏÎËÎÆÅÍ :" 1790 PRINT"HA×ÄËÜHÛé AAPEC";@NA: ÐRINÒ"ÊÎÍÅ×ÍÛé ÀÄÐÅÑ";@ÊÀ 1800 Y=USR(&F86C) 1810 ÍÎÌÅ:ÐRINÒ"ÍÅÒÐÀÍÑËÈÐÎÂÀÍÍAß ÍÎÒÍÀß ÇÀÏÈÑÜ ÍÀÕÎÄÈÒÑß :" 1820 PRINT"C ÀÄÐÅÑÀ ";@BS 1830 PRINT"ÏO ÀÄÐÅÑ ";@(BS+KX+4) 1840 U=USR(&F86C) 1850 REM ******************************************* 1860 DATA12108,10787,10181,9070,8081,7199,6795,6054 1870 DATA 5393,5091,4535,4040,3600,3398,3027,2697 1880 DATA 2545,2268,2020,1800,1699,1513,1348,1273 1890 DATA 1134,11428,0,9610,2,8561,3,7627,4,6670,6 1900 DATA 5714,7,4805,9,4281,10,3814,11,3207,13,2857 1910 DATA 14,2402,16,2140,17,1907,18,1603,20,1428,21 1920 DATA 1201,23,1070,24,74,67,85,75,69,78,71,91,93 1930 DATA 90,72,58,1,70,89,87,65,80,82,79,76,68,86,92,46 1940 DATA &21,0,0,&7E,&FE,&FF,&C8,&32,0,0,&23 1950 DATA &7E,&B7,&CA,0,0,&32,0,0,&3E,&C8,&32,0,0 1960 DATA &C3,0,0,&3E,&36,&32,0,0,&23,&7E,&23,&C6 1970 DATA 0,&87,&87,&87,&87,&57,&5F,&1B,&7A,&B3,&C2 1980 DATA 0,0,&3Å, &36,&32,0,0,&01,2,Î,&0Â,&79,&Â0 1990 DATA &Ñ2,0,0,&ÑÇ,0,0 2000 REM ********************************************