Index of /ukdwk_archive/ukncbtlwebcomplekt/Other/FOCAL_UKNC
  
.dsk НАПЮГ Я МЕОНЯПЕДЯРБЕММН
ХМРЕПОПЕРЮРНПНЛ ЪГШЙЮ ТНЙЮК
FOCAL.SAV ДКЪ сй-мж Х НОХЯЮМХЕЛ
Й МЕЛС FOC.DPR
Image  :   disk0.dsk
Format :   DSK 
Size   :   189 Kb
Volume ID: PAF40
Owner    : 
File       Blocks    Date       Bytes
---------- ------ ----------- ----------
FOC   .DPR   104  17-Feb-1989     53'248
FOCAL .SAV    20  21-Dec-1988     10'240
ASK   .FOC    32  17-Jun-1997     16'384
DEMO  .FOC    25  17-Jun-1997     12'800
FOR   .FOC    45  17-Jun-1997     23'040
TYPE  .FOC    34  17-Jun-1997     17'408
DO    .FOC    22  17-Jun-1997     11'264
TEST  .FOC     8  17-Jun-1997      4'096
SET   .FOC    33  17-Jun-1997     16'896
IF    .FOC    41  17-Jun-1997     20'992
---------- ------ ----------- ----------
 10 Files, 364 Blocks
 0 Free blocks
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *	  FFFFFFFF	OOOO	    CCCC	 AAAAA	  LL		    *
 *	  FF	       OO  OO	   CC  CC	AA  AA	  LL		    *
 *	  FF	      OO    OO	  CC	CC     AA   AA	  LL		    *
 *	  FF	      OO    OO	  CC	      AA    AA	  LL		    *
 *	  FFFFFF      OO    OO	  CC	      AA    AA	  LL		    *
 *	  FF	      OO    OO	  CC	      AA    AA	  LL		    *
 *	  FF	      OO    OO	  CC	      AAAAAAAA	  LL		    *
 *	  FF	      OO    OO	  CC	CC    AA    AA	  LL		    *
 *	  FF	       OO  OO	   CC  CC     AA    AA	  LL	LL	    *
 *	  FF		OOOO	    CCCC      AA    AA	  LLLLLLLL	    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *									    *
 *			  псйнбндярбн опнцпюллхярю.			    *
 *									    *
 *									    *
 *	FOCAL -- ноепюрнпш  х  тсмйжхх лхйпнщбл  "щкейрпнмхйю сй мж"	    *
 *									    *
 *									    *
 *			    лняйбю лхщр (я) 1988.			    *
 *									    *
 *									    *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *
				   - 3 -
13-OCT-88
				    тнйюк
				  юммнрюжхъ
   мюярнъыхи днйслемр яндепфхр йпюрйне нохяюмхе ноепюрнпнб х  тсмйжхи  хмреп-
оперюрнпю ъгшйю тнйюк V01.04 дкъ лхйпнщбл "щкейрпнмхйю сй мж".
   дюммши днйслемр ме опедмюгмювем дкъ хяонкэгнбюмхъ б йювеярбе свеамнцн  он-
янахъ. кхж, ме хлечыху ношрю пюанрш я хмрепоперюрнпнл тнйюкю, лш  нряшкюел  й
ймхце: тпнкнб ц.х. х дп. лхйпнщбл б свеамшу гюбедемхъу.  свеамне  онянахе
онд пед.опеямсухмю к.м., л.:бшяьюъ ьйнкю,1988.
   пюгпюанрвхйх нохяшбюелни бепяхх тнйюкю ме ямхлючр я	яеаъ  нрберярбеммнярх
гю бнглнфмше ньхайх х цнрнбш ху хяопюбхрэ. лш рюйфе ме оперемдсел мю йнмрпнкэ
гю оепедювеи гюцпсгнвмшу лндскеи кчашл кхжюл, мюдеъяэ онксвхрэ сднбкербнпемхе
нр янгмюмхъ, врн мюь рпсд нйюферяъ онкегмшл.
   лняйнбяйхи хмярхрср щкейрпнммни реумхйх.
   йютедпю бшвхякхрекэмни реумхйх р.532-99-55,
   йютедпю пюдхнщкейрпнмхйх р.532-99-07.
				   - 4 -
				    тнйюк
	    1. ъгшй тнйюк
   "тнйюк - щрн опнярни х кецйхи дкъ насвемхъ дхюкнцнбши ъгшй  опнцпюллхпнбю-
мхъ, хдеюкэмши дкъ свемшу, хмфемепнб, ярсдемрнб, ме хлечыху бпелемх дкъ  хгс-
вемхъ якнфмшу ъгшйнб опнцпюллхпнбюмхъ, мн мсфдючыхуяъ б пеьемхх гюдюв.	тнйюк
онгбнкъер бшонкмърэ бшвхякемхъ хкх мейнрнпше ноепюжхх  япюгс  оняке  ббедемхъ
яннрберярбсчыеи йнлюмдш. онкэгнбюрекэ лнфер рюйфе опнмслепнбюрэ йюфдсч	ярпн-
йс, яндепфюысч йнлюмдш, рел яюлшл нтнплхрэ опнцпюллс. тнйюк наеяоевхбюер онк-
мши мюанп йнлюмд дкъ бшонкмемхъ юпхтлерхвеяйху ноепюжхи, сопюбкемхе  бшонкме-
мхел опнцпюллш х ноепюжхълх ббндю/ бшбндю. хлемю ноепюрнпнб б ъгшйе тнйюк лн-
цср ашрэ янйпюыемш дн ндмни асйбш". (THE INTERNATIONAL 1985/1986 DECUS	PROG-
RAM LIBRARY SOWTWARE CATALOG. PDP-11 ABSTRACTS. 11-454.)
	    2. ноепюрнп опхябюхбюмхъ
								    рюакхжю 1
-----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		    ! деиярбхе			    !
! йю	 !	     !			    !				    !
!--------+-----------+----------------------+-------------------------------!
! SET хкх! опхябнхрэ ! SET A=5/B*C	    ! оепелеммни A опхябюхбюеряъ бе-!
! S	 !	     !			    ! кхвхмю 5/(B*C).(*)	    !
!	 !	     ! S X(1,I)=B	    ! щкелемрс	дбслепмнцн   люяяхбю!
!	 !	     !			    ! опхябюхбюеряъ гмювемхе B	    !
!	 !	     ! Z=FEXP(Y*FLOG(X))    ! хлъ ноепюрнпю SET лнфмн  нося-!
!	 !	     !			    ! йюрэ.(**) 		    !
-----------------------------------------------------------------------------
   о_п_х_л_е_в_ю_м_х_е.
   1) (*) опхнпхрер ноепюжхи б тнйюке меяйнкэйн нркхвюеряъ нр  наыеопхмърнцн.
     б онпъдйе сашбюмхъ опхнпхрерю ноепюжхх пюяонкюцючряъ: *,/,+-. онякеднбю-
     рекэмнярэ ноепюжхи лнфмн хглемхрэ опхлемъъ яйнайх (,[,<,>,],),  б	кчанл
     онпъдйе, бюфмн рнкэйн врнаш рхо гюйпшбючыеияъ яйнайх яннрберярбнбюк рхос
     нрйпшбючыеияъ.
   2) (**) ноепюрнп SET янупюмем дкъ янблеярхлнярх я опнцпюллюлх пюммху  беп-
     яхи хмрепоперюрнпю ъгшйю тнйюк.
				   - 5 -
				    тнйюк
	    3. ноепюрнпш ббндю-бшбндю
								    рюакхжю 2
-----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		    ! деиярбхе			    !
! йю	 !	     !			    !				    !
!--------+-----------+----------------------+-------------------------------!
! TYPE	 ! оевюрэ    ! TYPE %W.0D,A+B*C     ! бшвхякъер бшпюфемхе х  бшбндхр!
! хкх T  !	     !			    ! пегскэрюр мю сярпниярбн бшбндю!
!	 !	     !			    ! б тнплюре %W.0D,	цде  0.
   3) б йювеярбе опхябюхбюелнцн гмювемхъ оепелеммни лнфмн  ббндхрэ  юпхтлерх-
     веяйне бшпюфемхе бйкчвючыее хлемю дпсцху оепелеммшу, яйнайх, гмюйх люре-
     люрхвеяйху ноепюжхи х тсмйжхи тнйюкю. дкхмю ббндхлнцн бшпюфемхъ ме  днк-
     фмю опебшьюрэ 79 яхлбнкнб. ASK рпюйрсер асйбш х  мейнрнпше  яхлбнкш  йюй
				   - 6 -
				    тнйюк
     "жхтпш" (ял. опхкнфемхе 1.) р.е. ббнд щйбхбюкемрем: A.AAA=1.111,  O'KEY-
     =1581.E+25, YES=25.E+19, х щрн сднамн б нрдекэмшу яксвюъу дкъ  нпцюмхгю-
     жхх дхюкнцю б опнцпюлле онкэгнбюрекъ, мн опх ббнде юпхтлерхвеяйху	бшпю-
     фемхи, мювхмючыхуяъ ян яйнайх хкх	хлемх  оепелеммни,  оепбшл  гмюйнл  б
     ярпнйе ббндю днкфем ашрэ наъгюрекэмн +, - хкх жхтпю, врнаш хмрепоперюрнп
     нркхвхк "яхлбнкш-вхякю" нр "яхлбнкнб-оепелеммшу".
   о_п_х_л_е_в_ю_м_х_е. (***)  ноепюрнп  HAVE  нркхвюеряъ  нр  ноепюрнпю  ASK
рнкэйн рел, врн опх ббнде рпюйрсер асйбш йюй хлемю оепелеммшу, врн  онгбнкъер
ббндхрэ юпхтлерхвеяйхе бшпюфемхъ б анкее еяреярбеммни тнпле, р.е.  аег	кхдх-
псчыецн + хкх -.
	    4. ноепюрнпш сопюбкемхъ опнцпюллни
								    рюакхжю 3
-----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		    ! деиярбхе			    !
! йю	 !	     !			    !				    !
!--------+-----------+----------------------+-------------------------------!
! GO  хкх! хдрх      ! GO		    ! оепедювю сопюбкемхъ  ноепюрнпс!
! G	 !	     !			    ! я мюхлемэьхл мнлепнл  (он  йн-!
!	 !	     !			    ! люмде GO мювхмюеряъ бшонкмемхе!
!	 !	     !			    ! опнцпюллш).		    !
!	 !	     ! G 3.15		    ! сопюбкемхе оепедюеряъ ярпнйе я!
!	 !	     !			    ! мнлепнл 3.15		    !
!	 !	     ! 7.1 S M=3*2.1;G M    ! бшвхякъеряъ гмювемхе  оепелем-!
!	 !	     !			    ! мни 'M' х сопюбкемхе оепедюер-!
!	 !	     !			    ! яъ ярпнйе я мнлепнл 6.3.	    !
!--------+-----------+----------------------+-------------------------------!
! DO  хкх! бшонкмхрэ ! DO 5		    ! бшонкмъеряъ цпсоою  ноепюрнпнб!
! D	 !	     !			    ! онд мнлепнл 5. гюрел  опнхяун-!
!	 !	     !			    ! дхр бнгбпюыемхе й йнлюмде,яке-!
!	 !	     !			    ! дсчыеи гю DO.		    !
!	 !	     ! D 5.1		    ! бшонкмъеряъ ярпнйю онд мнлепнл!
!	 !	     !			    ! 5.1, гюрел бнгбпюр й  йнлюмде,!
!	 !	     !			    ! якедсчыеи гю DO.		    !
!	 !	     ! D A хкх D	    ! бшонкмъер бяч опнцпюллс, мювх-!
!	 !	     !			    ! мюъ ян  ярпнйх  я  лхмхлюкэмшл!
!	 !	     !			    ! мнлепнл (юмюкнцхвмн GO).	    !
!--------+-----------+----------------------+-------------------------------!
! RETURN ! бнгбпюр   ! R		    ! хяонкэгсеряъ  дкъ  бнгбпюрю  й!
! хкх R  !	     !			    ! ноепюрнпс, якедсчыелс гю	ное-!
!	 !	     !			    ! пюрнпнл DO хкх гю  ноепюрнпнл,!
!	 !	     !			    ! яндепфюыхл  напюыемхе  й	FSBR!
!	 !	     !			    ! дняпнвмн. 		    !
!--------+-----------+----------------------+-------------------------------!
! QUIT	 ! онйхмсрэ  ! Q		    ! нярюмнб бшонкмемхъ опнцпюллш х!
! хкх Q  !	     !			    ! оепеунд б дхюкнцнбши пефхл.   !
!--------+-----------+----------------------+-------------------------------!
				   - 7 -
				    тнйюк
						      рюакхжю 3 (опнднкфемхе)
-----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		    ! деиярбхе			    !
! йю	 !	     !			    !				    !
!--------+-----------+----------------------+-------------------------------!
! IF  хкх! еякх   ...! IF(A)N1,N2,N3	    ! ноепюрнп	сякнбмнцн  оепеундю,!
! I	 ! рн	     !			    ! онгбнкъер оепедюбюрэ  сопюбке-!
!	 !	     !			    ! мхе он  пегскэрюрюл  япюбмемхъ!
!	 !	     !			    ! гмювемхъ юпхтлерхвеяйнцн бшпю-!
!	 !	     !			    ! фемхъ : A<0, сопюбкемхе  оепе-!
!	 !	     !			    ! дюеряъ  йнлюмдмни  ярпнйе  N1.!
!	 !	     !			    ! A=0, сопюбкемхе оепедюеряъ йн-!
!	 !	     !			    ! люмдмни ярпнйе N2. A>0, сопюб-!
!	 !	     !			    ! кемхе   оепедюеряъ   йнлюмдмни!
!	 !	     !			    ! ярпнйе N3.		    !
!	 !	     ! I(A)N1,N2	    ! A<0 сопюбкемхе оепедюеряъ  йн-!
!	 !	     !			    ! люмдмни ярпнйе N1. A=0, сопюб-!
!	 !	     !			    ! кемхе   оепедюеряъ   йнлюмдмни!
!	 !	     !			    ! ярпнйе N2. A>0, сопюбкемхе ое-!
!	 !	     !			    ! педюеряъ якедсчыелс ноепюрнпс.!
!	 !	     ! IF(A)N1		    ! A<0, сопюбкемхе оепедюеряъ йн-!
!	 !	     !			    ! люмдмни ярпнйе  N1.  A=0,  A>0!
!	 !	     !			    ! сопюбкемхе оепедюеряъ  якедсч-!
!	 !	     !			    ! ыелс ноепюрнпс.		    !
!--------+-----------+----------------------+-------------------------------!
! FOR хкх! дкъ ...   ! FOR		    ! ноепюрнп хяонкэгсеряъ дкъ  нп-!
! F	 !	     ! I=A,B,C;(ноепюрнп)   ! цюмхгюжхх жхйкнб х хрепюжхи  I!
!	 !	     !			    ! -  оюпюлерп  жхйкю.  A  -  мю-!
!	 !	     !			    ! вюкэмне	гмювемхе   оюпюлерпю!
!	 !	     !			    ! жхйкю, B - ьюц опхпюыемхъ  ою-!
!	 !	     !			    ! пюлерпю жхйкю,  C  -  йнмевмне!
!	 !	     !			    ! гмювемхе оюпюлерпю жхйкю.     !
!	 !	     ! F I=A,C;(ноепюрнпш)  ! еякх 'B'	б  гюохях  ноепюрнпю!
!	 !	     !			    ! нрясрярбсер,рн  он   слнквюмхч!
!	 !	     !			    ! жхйк бшонкмъеряъ я ьюцнл 1.  б!
!	 !	     !			    ! йювеярбе 'A','B','C' лнцср хя-!
!	 !	     !			    ! онкэгнбюрэяъ    юпхтлерхвеяйхе!
!	 !	     !			    ! бшпюфемхъ.		    !
!--------+-----------+----------------------+-------------------------------!
! XECUTE ! бшонкмхрэ ! XECUTE (юпхт.бшпюф.) ! опнхгбндхр бшвхякемхе  юпхтле-!
! хкх X  !	     !			    ! рхвеяйнцн бшпюфемхъ.	    !
!	 !	     ! X FCHR(12)	    ! бшонкмъер хкх  бшвхякъер	тсм-!
!	 !	     !			    ! йжхч тнйюкю.		    !
!--------+-----------+----------------------+-------------------------------!
				   - 8 -
				    тнйюк
	    5. ноепюрнпш нркюдйх опнцпюллш
								    рюакхжю 4
-----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		    ! деиярбхе			    !
! йю	 !	     !			    !				    !
!--------+-----------+----------------------+-------------------------------!
! ERASE  ! яреперэ   ! ERASE		    ! смхврнфюер оепелеммше.	    !
! хкх E  !	     !			    !				    !
!	 !	     ! ERASE TEXT хкх E T   ! ярхпюер рейяр опнцпюллш, оепе-!
!	 !	     !			    ! леммше нярючряъ.		    !
!	 !	     ! ERASE ALL хкх E A    ! ярхпюер рейяр опнцпюллш х  ое-!
!	 !	     !			    ! пелеммше. 		    !
!	 !	     ! E 55		    ! ярхпюер  рнкэйн  цпсоос  ярпнй!
!	 !	     !			    ! онд мнлепнл 55.		    !
!	 !	     ! E 1.2		    ! ярхпюер рнкэйн ярпнйс я  мнле-!
!	 !	     !			    ! пнл 1.2			    !
!--------+-----------+----------------------+-------------------------------!
! MODIFY ! хглемхрэ  ! MODIFY N.M	    ! педюйрхпнбюмхе йнлюмдмни ярпн-!
! хкх M  !	     !			    ! йх я мнлепнл N.M		    !
!--------+-----------+----------------------+-------------------------------!
! COMMENT! йнллемрю- ! C опнцпюллю реяр #1  ! яксфхр дкъ  ббедемхъ  б  рейяр!
! хкх C  ! пхи	     !			    ! опнцпюллш  йнллемрюпхеб.	 бяе!
!	 !	     !			    ! оняке йнлюмдш  C	х  дн  йнмжю!
!	 !	     !			    ! ярпнйх ме бшонкмъеряъ.	    !
!--------+-----------+----------------------+-------------------------------!
! VACANT ! ябнандмн  ! V		    ! онйюгшбюер   вхякн   ябнандмшу!
! хкх V  !	     !			    ! якнб б астепе оюлърх.	    !
!--------+-----------+----------------------+-------------------------------!
   о_п_х_л_е_в_ю_м_х_е.
   1) ноепюрнпш ERASE х MODIFY бярперхбьхеяъ б рейяре опнцпюллш  бшонкмъчряъ,
     опепшбючр дюкэмеиьхи унд бшонкмемхъ опнцпюллш х бшгшбючр бшунд б  дхюкн-
     цнбши пефхл.
   2) педюйрхпнбюмхе ярпнйх опнхгбндхряъ  я  онлныэч  тсмйжхнмюкэмшу  йкюбхь,
     мюгмювемхе йнрнпшу опхбедемн б опхкнфемхх 2.
   3) ноепюрнп MODIFY лнфер хглемърэ мнлепю ярпнй, щрн сднамн дкъ  педюйрхпн-
     бюмхъ опнцпюллш, ндмюйн якедсер нярнпнфмн онкэгнбюрэяъ  щрни  бнглнфмня-
     рэч, врнаш ме оепеярюбхрэ лндхтхжхпселсч ярпнйс мю леярн сфе  ясыеярбсч-
     ыеи, б пегскэрюре вецн онякедмъъ асдер српювемю.
				   - 9 -
				    тнйюк
	    6. тсмйжхх тнйюкю.
								    рюакхжю 5
-----------------------------------------------------------------------------
! лмелнмхйю	      ! тсмйжхъ 		      ! опхлеп		    !
!---------------------+-------------------------------+---------------------!
! FSIN(X)	      ! яхмся (юпцслемр б пюдхюмюу)   ! T FSIN[3.14/4]	    !
!		      ! 			      ! A=FSIN[B(I,J)]	    !
!---------------------+-------------------------------+---------------------!
! FCOS(X)	      ! йняхмся (юпц. б пюдхюмюу)     ! KAT=HIP*FCOS[AL]    !
!		      ! 			      ! X FCOS(1)	    !
!---------------------+-------------------------------+---------------------!
! FTAN(X)	      ! рюмцемя (юпц. б пюдхюмюу)     ! I(FTAN(A))2.5,2.6,2.!
!		      ! 			      ! 7		    !
!		      ! 			      ! T FTAN(0.87)	    !
!---------------------+-------------------------------+---------------------!
! FASIN(X)	      ! юпйяхмся б пюдхюмюу, X он  лн-! ALPH=FASIN(K/H)     !
!		      ! дскч ме опебшьюер 1	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FACOS(X)	      ! юпййняхмся б  пюдхюмюу,  X  он! T FACOS[0.5]	    !
!		      ! лндскч ме опебшьюер 1	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FATAN(X)	      ! юпйрюмцемя б пюдхюмюу	      ! T FATAN(3.91)	    !
!---------------------+-------------------------------+---------------------!
! FLOG(X)	      ! мюрспюкэмши кнцюпхтл, юпцслемр! T FLOG(5.17)	    !
!		      ! анкэье 0		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FLOG10(X)	      ! деяърхвмши  кнцюпхтл  юпцслемр! T FLOG10(10)	    !
!		      ! анкэье 0		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FEXP(X)	      ! щйяонмемрю б яреоемх X	      ! T FEXP(5)	    !
!---------------------+-------------------------------+---------------------!
! FSGN(X)	      ! гмюйнбюъ вюярэ	вхякю.	X<0  -! T FSGN[-0.4]	    !
!		      ! FSGN(X)=-1, X=0  -  FSGN[X]=0,! 		    !
!		      ! X>0 FSGN[X]=1		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FITR(X)	      ! жекюъ вюярэ вхякю, гмюй  юпцс-! TRUN=FITR(55.27)    !
!		      ! лемрю янупюмъеряъ	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FABS(X)	      ! юаянкчрмюъ бекхвхмю вхякю     ! T FLOG[FABS(-17)]   !
!---------------------+-------------------------------+---------------------!
! FRAN() (*)	      ! цемепюрнп  яксвюимшу  вхяек  б! F I=1,10;R(I)=FRAN()!
!		      ! хмрепбюке нр 0 дн +1	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FSQT(X)	      ! йнпемэ йбюдпюрмши хг менрпхжю-! T FSQT(625)	    !
!		      ! рекэмнцн вхякю		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FSBR(N,X) (**)      ! тсмйжхъ ндмнцн юпцслемрю опнц-! Y=FSBR(13,ALFA)     !
!		      ! пюллхпселюъ онкэгнбюрекел. N -! 		    !
!		      ! мнлеп цпсоош ярпнй, X -  юпцс-! 		    !
!		      ! лемр			      ! 		    !
!---------------------+-------------------------------+---------------------!
				   - 10 -
				    тнйюк
						      рюакхжю 5 (опнднкфемхе)
-----------------------------------------------------------------------------
! лмелнмхйю	      ! тсмйжхъ 		      ! опхлеп		    !
!---------------------+-------------------------------+---------------------!
! FCHR(X1,X2,...,XN)  ! ббнд-бшбнд яхлбнкэмни хмтнплю-! S=FCHR[65,66,-1]    !
!		      ! жхх. еякх  гмювемхе  юпцслемрю! 		    !
!		      ! онкнфхрекэмн, бшбндхр  мю  ся-! 		    !
!		      ! рпниярбн бшбндю яхлбнк,  опед-! 		    !
!		      ! ярюбкемхе  йнрнпнцн  б	 йнх-7! 		    !
!		      ! яннрберярбсер  бекхвхме  юпцс-! 		    !
!		      ! лемрю, еякх  гмювемхе  нрпхжю-! 		    !
!		      ! рекэмн, ббндхр	яхлбнк	я  ся-! 		    !
!		      ! рпниярбю ббндю	х  опхябюхбюер! 		    !
!		      ! тсмйжхх ецн йнд б йнх-7.      ! 		    !
!---------------------+-------------------------------+---------------------!
! FCS(X,Y)	      ! тсмйжхъ сярюмнбйх  яхлбнкэмнцн! X FCS(40,12);T "$"  !
!		      ! йспянпю. X - мнлеп  онгхжхх  б! 		    !
!		      ! ярпнйе	(0...79),  Y  -  мнлеп! 		    !
!		      ! ярпнйх мю щйпюме (0...23).    ! 		    !
!---------------------+-------------------------------+---------------------!
! FCLK()	      ! тсмйжхъ  явхршбюмхъ   рюилепю.! T FCLK()/50,"яей."  !
!		      ! онксвюер  гмювемхе  яхярелмнцн! 		    !
!		      ! бпелемх б "рхйюу", (опх вюярн-! 		    !
!		      ! ре яерх 50 цж 1 "рхй"  =  0.02! 		    !
!		      ! яейсмдш)		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FX(йнд,юдп,юпц)     ! сопюбкемхе наыеи ьхмни.  йнд=1! X FX[-1,177560,0]   !
!		      ! - времхе якнбю хг юдпеяю  юдп,! 		    !
!		      ! йнд=0 - времхе якнбю хг юдп  х! 		    !
!		      ! кнцхвеяйюъ йнм'чмйжхъ  я  юпц,! 		    !
!		      ! йнд=-1 - гюохяэ юпц он	юдпеяс! 		    !
!		      ! наьеи ьхмш юдп. юдп  -	вермне! 		    !
!		      ! бняэлепхвмне вхякн хкх хлъ ое-! 		    !
!		      ! пелеммни.		      ! 		    !
!---------------------+-------------------------------+---------------------!
   о_п_х_л_е_в_ю_м_х_е.
   1) (*) опх онбрнпмни гюцпсгйе хмрепоперюрнпю онякеднбюрекэмнярэ  яксвюимшу
     вхяек онбрнпъеряъ.
   2) (**) гмювемхе юпцслемрю опхябюхбюеряъ яоежхюкэмни оепелеммни '&', йнрн-
     пюъ днкфмю ашрэ хяонкэгнбюмю б цпсоое ярпнй, пеюкхгсчыеи дюммсч тсмйжхч.
     оепед бшунднл хг щрни ондопнцпюллш якедсер опхябнхрэ  бнгбпюыюелне  тсм-
     йжхеи гмювемхе оепелеммни '&'.
				   - 11 -
				    тнйюк
	    7. цпютхвеяйхе тсмйжхх тнйюкю
   цпютхвеяйхи щйпюм опедярюбкъер янани пюярпнбсч люрпхжс рнвей пюглепнл  393
у 263.
	       X=0   +-----------------------------+ X=393
	       Y=263 !				   ! Y=263
		     !				   !
		     !	    цпютхвеяйхи щйпюм	   !
		     !				   !
	       X=0   !				   ! X=393
	       Y=0   +-----------------------------+ Y=0
								    рюакхжю 6
-----------------------------------------------------------------------------
! лмелнмхйю	      ! тсмйжхъ 		      ! опхлеп		    !
!---------------------+-------------------------------+---------------------!
! FI([K,L,M])	      ! хмхжхюкхгюжхъ цпютхвеяйнцн щй-! X FI[7,1,1]	    !
!		      ! пюмю			      ! 		    !
! (*)		      ! й - йнд жберю оепедмецн окюмю ! X FI[]		    !
! (**)		      ! L - йнд жберю гмюйнлеярю      ! 		    !
!		      ! M - йнд жберю тнмю	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FM(йнд)	      ! сярюмнбйю йндю жберю	      ! X FM[7] 	    !
! (**)   	      ! йнд=0 - 7		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FA(X,Y)	      ! сярюмнбйю цпютхвеяйнцн йспянпю! X FA(75,127)	    !
!		      ! б рнвйс я юаянкчрмшлх  йннпдх-! 		    !
!		      ! мюрюлх X,Y.		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FC(DX,DY)	      ! ядбхц цпютхвеяйнцн йспянпю  мю! X FC(-15,-47)	    !
!		      ! DX,DY  нрмняхрекэмн   опефмецн! 		    !
!		      ! онкнфемхъ.		      ! 		    !
!---------------------+-------------------------------+---------------------!
! FP(X,Y)	      ! оепемня цпютхвеяйнцн йспянпю х! X FP(17,25)	    !
!		      ! бшбнд  рнвйх   я   юаянкчрмшлх! 		    !
!		      ! йннпдхмюрюлх X,Y	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FD(DX,DY)	      ! оепемня  цпютхвеяйнцн  йспянпю! X FD[A(1),B(1)]     !
!		      ! мю DX,DY нрмняхрекэмн  опефмеи! 		    !
!		      ! онгхжхх х бшбнд рнвйх	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FV(X1,Y1[,XN,YN])   ! бшбнд нрпегйнб (кнлюмни) б юа-! X FV[0,0,5,3,20,70] !
! (*)		      ! янкчрмшу йннпдхмюрюу,  мювхмюъ! 		    !
!		      ! нр опедшдсыецн онкнфемхъ  йсп-! 		    !
!		      ! янпю, опнундъыху вепег рнвйх я! 		    !
!		      ! йннпдхмюрюлх		      ! 		    !
!		      ! (X1,Y1),...(XN,YN)	      ! 		    !
!---------------------+-------------------------------+---------------------!
! FL(DX,DY[,DXN,DYN]) ! бшбнд нрпегйнб (кнлюмни) мювх-! X FL(-14,-160,0,8)  !
! (*)		      ! мючыхуяъ я опедшдсыецн онкнфе-! 		    !
!		      ! мхъ йспянпю (X,Y) х опнундъыху! 		    !
!		      ! вепег  рнвйх  я   йннпдхмюрюлх! 		    !
!		      ! (X+DX,Y+DY),...(X+DX+...+DXN,Y! 		    !
!		      ! +DY+...+DYN)		      ! 		    !
!---------------------+-------------------------------+---------------------!
				   - 12 -
				    тнйюк
						      рюакхжю 6 (опнднкфемхе)
-----------------------------------------------------------------------------
! лмелнмхйю	      ! тсмйжхъ 		      ! опхлеп		    !
!---------------------+-------------------------------+---------------------!
! FS(L,H[,X,Y])       ! бшбнд	гюйпюьеммнцн   опълнс-! X FS(7,13,1,100)    !
!		      ! цнкэмхйю ьхпхмни L х бшянрни H! 		    !
!---------------------+-------------------------------+---------------------!
! FR(R[,X,Y])	      ! бшбнд нйпсфмнярх пюдхсяю  R  я! X FR[15]	    !
!		      ! жемрпнл б рнвйе цде  мюундхкяъ! 		    !
!		      ! цпютхвеяйхи йспянп хкх б рнвйе! 		    !
!		      ! (X,Y)			      ! 		    !
!---------------------+-------------------------------+---------------------!
! FF(X,Y[,K])	      ! гюонкмемхе гюлймсрнцн  йнмрспю! X FF(123,45)	    !
! (**)		      ! яберкшлх рнвйюлх. X,Y -  йннп-! 		    !
!		      ! дхмюрш кчани рнвйх бмсрпх йнм-! 		    !
!		      ! рспю.			      ! 		    !
!---------------------+-------------------------------+---------------------!
   о_п_х_л_е_в_ю_м_х_е.
(*) юпцслемрш цпютхвеяйху тсмйжхи бгърше б йбюдпюрмше яйнайх ме ъбкъчряъ 
наъгюрекэмшлх.  ндмю  тсмйжхъ  FV  хкх  FL  лнфер  бшбеярх ярнкэйн нрпегйнб
кнлюмни, яйнкэйн юпцслемрнб онлеярхряъ б ярпнйе опнцпюллш.
(**) йндш жберю: 0 - вепмши, 1 - яхмхи, 2 - гекемши, 3 - цнксани, 4 - йпюямши,
5 - оспоспмши, 6 - фекрши, 7 - аекши.                
	    8. ноепюрнпш дкъ пюанрш я тюикюлх
								   рюакхжю 7
----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		   ! деиярбхе			   !
! йю	 !	     !			   !				   !
!--------+-----------+---------------------+-------------------------------!
! LIBRARY! бгърэ     ! L G MX:TEST	   ! гюцпсгхрэ тюик MX:TEST б юаян-!
! GET	 ! опнцпюллс !			   ! кчрмнл   тнплюре,	 опедшдсыюъ!
! FILE	 ! хг	     !			   ! опнцпюллю ярхпюеряъ.	   !
! хкх L G! ахакхнрейх!			   !				   !
! FILE	 !	     !			   !				   !
!--------+-----------+---------------------+-------------------------------!
! LIBRARY! бшонкмхрэ ! L X MX3:DESIGN	   ! гюцпсгхрэ	х  гюосярхрэ   тюик!
! XECUTE ! опнцпюллс !			   ! MX3:DESIGN б юаянкчрмнл тнплю-!
! FILE	 ! хг	     !			   ! ре, опедшдсыюъ опнцпюллю  ярх-!
! хкх L X! ахакхнрейх!			   ! пюеряъ.			   !
! FILE	 !	     !			   !				   !
!--------+-----------+---------------------+-------------------------------!
! LIBRARY! янупюмхрэ ! L S PROG 	   ! янупюмхрэ опнцпюллс б тюике  я!
! SAVE	 ! опнцпюллс !			   ! хлемел  DK:PROG  б  юаянкчрмнл!
! FILE	 ! б	     !			   ! тнплюре.			   !
! хкх L S! ахакхнрейе!			   !				   !
! FILE	 !	     !			   !				   !
!--------+-----------+---------------------+-------------------------------!
				   - 13 -
				    тнйюк
						     рюакхжю 7 (опнднкфемхе)
----------------------------------------------------------------------------
! лмелнмх! ноепюрнп  ! опхлеп		   ! деиярбхе			   !
! йю	 !	     !			   !				   !
!--------+-----------+---------------------+-------------------------------!
! LIBRARY! нрйпшрэ   ! L I SY:TEST	   ! ноепюрнп  оепейкчвюер  ббнд  я!
! INPUT  ! дкъ	ббндю!			   ! йкюбхюрспш  мю  тюик  SY:TEST.!
! FILE	 ! рейярнбши !			   ! хяонкэгнбюмхе йнлюмдш б дхюкн-!
! хLх L I! тюик    хг!			   ! цнбнл пефхле онгбнкъер  вхрюрэ!
! FILE	 ! ахакхнрейх!			   ! рейярнбши тюик  опнцпюллш	хкх!
!	 !	     !			   ! меоняпедярбеммн	хяонкмъелшу!
!	 !	     !			   ! ноепюрнпнб, ю бн бпелъ  хяонк-!
!	 !	     !			   ! мемхъ опнцпюллш щрнр фе ноепю-!
!	 !	     !			   ! рнп лнфер	хяонкэгнбюрэяъ	дкъ!
!	 !	     !			   ! времхъ гмювемхи оепелеммшу  хг!
!	 !	     !			   ! рейярнбнцн тюикю.		   !
!	 !	     !			   ! времхе опнхгбндхряъ бокнрэ  дн!
!	 !	     !			   ! йнмжю  тюикю,  оняке  вецн  нм!
!	 !	     !			   ! гюйпшбюеряъ, хкх дн  ноепюрнпю!
!	 !	     !			   ! LIBRARY CLOSE (ял.мхфе)	   !
!--------+-----------+---------------------+-------------------------------!
! LIBRARY! нрйпшрэ   ! L O LP:		   ! нрйпшрэ дкъ бшбндю тюик мю ся-!
! OUTPUT ! дкъ бшбндю!			   ! рпниярбе онярпнвмни оевюрх    !
! FILE	 ! рейярнбши !			   !				   !
! хкх L O! тюик      !			   !				   !
! FILE	 !	     !			   !				   !
!	 !	     ! L O SY:RES.DAT	   ! нрйпшрэ дкъ бшбндю  тюик  RES-!
!	 !	     !			   ! .DAT мю яхярелмнл сярпниярбе  !
!--------+-----------+---------------------+-------------------------------!
! LIBRARY! гюйпшрэ   ! L C LP:		   ! гюйпшрэ тюик бшбндхлши мю	ся-!
! CLOSE  ! рейсыхи   !			   ! рпниярбн оевюрх		   !
! хкх L C! тюик,     !			   !				   !
!	 ! нрйпшрши  !			   !				   !
!	 ! йнлюмдни L!			   !				   !
!	 ! O FILE хкх!			   !				   !
!	 ! L I FILE  !			   !				   !
!	 !	     ! L C RES.DAT	   ! гюйпшрэ тюик RES.DAT	   !
!	 !	     ! L O LP:;W 12;L C    ! бшбеярх мю оевюрэ 12-ч  цпсоос!
!	 !	     !			   ! ярпнй опнцпюллш,  яоежхтхйюжхъ!
!	 !	     !			   ! тюикю б ноепюрнпе	L  C  лнфер!
!	 !	     !			   ! нрясрярбнбюрэ		   !
!--------+-----------+---------------------+-------------------------------!
   о_п_х_л_е_в_ю_м_х_е.
   1) бяе тюикнбше ноепюжхх рпеасчр пегхдемрмнцн дпюибепю яннрберябсчыецн ся-
     рпниярбю, онщрнлс оепед пюанрни я сярпниярбнл, йнрнпне ме ъбкъеряъ  яхя-
     релмшл, менаундхлн бшонкмхрэ гюцпсгйс дпюибепю йнлюмдни LOAD. опх нряср-
     ярбхх дпюибепю бшдюеряъ яннаыемхе "меясыеярбсчыее сярпниярбн".
   2) пюяьхпемхел он слнквюмхч дкъ ноепюрнпнб L G, L X, L S ъбкъеряъ .FOC,  L
     I,L O - .FTX.
   3) опх хяонкэгнбюмхх ноепюрнпнб L I, L O опнхяундхр дсакхпнбюмхе ббндю хкх
     бшбндю мю реплхмюк. хмнцдю щрю  бнглнфмнярэ  ъбкъеряъ  кхьмеи,  онщрнлс,
     сйюгюб оняке хлемх тюикю йкчв /N лнфмн гюоперхрэ дсакхпнбюмхе.
    L I DATA/N
    L O LP:/N
				   - 14 -
				    тнйюк
   о_п_х_л_е_в_ю_м_х_е. опхлемемхе йкчвю /N опх ббнде опнцпюллш б  дхюкнцнбнл
пефхле ме онгбнкъер намюпсфхрэ йнмеж ббндю, р.й. онякедмхи яхлбнк '*',	нгмю-
вючыхи опхцкюьемхе й пюанре оняке ббндю, ме оевюрюеряъ. дкъ хяйкчвемхъ ньханй
опх онднамшу яхрсюжхъу пейнлемдсеряъ опнхгбндхрэ ббнд опнцпюллш аег йкчвю  /N
кхан рейяр ббндхлни опнцпюллш днкфем яндепфюрэ б йнмже дхюкнцнбши ноепюрнп  L
C.
   о_п_х_л_е_в_ю_м_х_е. опх хяонкэгнбюмхх ноепюрнпю L I б  дхюкнцнбнл  пефхле
дкъ ббндю рейярю опнцпюллш аеяялшякеммю онякеднбюрекэмнярэ:
    L I TEST;L C
   б пегскэрюре рюйни йнлюмдш тюик асдер нрйпшр, ю онрнл япюгс гюйпшр, х ббе-
демн мхвецн ме асдер. опюбхкэмн асдер опнярн:
    L I TEST
   опнхгнидер ббнд, врн бш ялнфере мюакчдюрэ мю щйпюме реплхмюкю, х он днярх-
фемхх йнмжю ббндю тюик асдер юбрнлюрхвеяйх гюйпшр.
   4) он слнквюмхч яхярелю бшдекъер онд  бшундмни  тюик  онкнбхмс  мюханкэьеи
     ябнандмни накюярх мю дхяйе, бшдювю яннаыемхъ "мер леярю" ябхдерекэярбсер
     н рнл, врн тюик якхьйнл люк. ясыеярбсер бнглнфмнярэ гюопняхрэ  бяч  мюх-
     анкэьсч накюярэ, сйюгюб оняке хлемх тюикю йнлахмюжхч [-1], мюопхлеп:
    L O PROGR[-1]/N
    L O MX:DATA.DAT[-1];T $;L C;T "йнмеж"!
   5) кчаюъ ньхайю опх бшонкмемхх опнцпюллш бшгшбюер гюйпшрхе бшундмнцн  тюи-
     кю, яннаыемхе н меи бшбндхряъ мю реплхмюк х опнхяундхр бшунд  б  дхюкнц.
     рюйхл напюгнл бяе пегскэрюрш пюанрш бокнрэ дн ньхайх янупюмъчряъ  б  бш-
     ундмнл тюике.
   6) б дюммни бепяхх тнйюкю бнглнфмн ндмнбпелеммне нрйпшрхе рнкэйн 1  тюикю,
     онщрнлс опх оношрйе бшонкмхрэ еые ндмс тюикнбсч ноепюжхч бнгмхйюер ньха-
     йю "йюмюк гюмър", рейсыхи тюик гюйпшбюеряъ х тнйюк бшундхр б дхюкнц.
   7) ноепюрнпш рхою LIBRARY лнцср хяонкэгнбюрэяъ б рейяре опнцпюллш, мн яке-
     дсер онлмхрэ, врн оняке бшонкмемхъ:
   - L G, L S - опнхяундхр бшунд б дхюкнц,
   - L X - гюосяйюеряъ гюцпсфеммюъ опнцпюллю,
   - L I, L O, L C - опнднкфюер бшонкмемхе опнцпюллш б нашвмнл онпъдйе.
   8) опх гюцпсгйе опнцпюлл б юаянкчрмнл  тнплюре  (.FOC)  тнйюк  наеяоевхбер
     опенапюгнбюмхе юдпеянб гюцпсгйх, врн декюер ецн  янблеярхлшл  я  пюммхлх
     бепяхълх, ндмюйн оняке гюцпсгйх рюйни опнцпюллш, бшдюеряъ яннаыемхе  "н-
     ьхайю ббндю", врн ме днкфмн осцюрэ онкэгнбюрекъ. едхмярбеммюъ  менаундх-
     люъ пеюйжхъ мю щрн яннаыемхе - щрн мюапюрэ йнлюмдс ERASE (ярхпюмхе оепе-
     леммшу), врнаш нвхярхрэ астеп оепелеммшу нр  лсянпю,  нярюбьецняъ	оняке
     гюцпсгйх. дюкее ноепюрнпнл WRITE бш лнфере саедхрэяъ, врн опнцпюллю  мю-
     ундхряъ б оюлърх. врнаш хгаефюрэ онднамнцн б дюкэмеиьел, янгдюире	мнбсч
     йнохч опнцпюллш ноепюрнпнл LIBRARY SAVE FILE.
   9) опхлеп опнцпюллш дкъ пюанрш я тюикюлх опхбедем б опхкнфемхх 4.
				   - 15 -
				    тнйюк
	    опхкнфемхе 1. йндш яхлбнкнб б ноепюрнпе ASK
				     рюакхжю 8
----------------------------------------------
! яхлбнк ! йнд ! яхлбнк ! йнд ! яхлбнк ! йнд !
!--------+-----+--------+-----+--------+-----!
! A	 ! 1   ! N	! 14  ! \      ! 28  !
! B	 ! 2   ! O	! 15  ! ?      ! 31  !
! C	 ! 3   ! P	! 16  ! !      ! 1   !
! D	 ! 4   ! Q	! 17  ! "      ! 2   !
! E	 ! 0   ! R	! 18  ! #      ! 3   !
! F	 ! 6   ! S	! 19  ! $      ! 4   !
! G	 ! 7   ! T	! 20  ! %      ! 5   !
! H	 ! 8   ! U	! 21  ! &      ! 6   !
! I	 ! 9   ! V	! 22  ! '      ! 7   !
! J	 ! 10  ! W	! 23  ! :      ! 26  !
! K	 ! 11  ! X	! 24  !        !     !
! L	 ! 12  ! Y	! 25  !        !     !
! M	 ! 13  ! Z	! 26  !        !     !
!--------+-----+--------+-----+--------+-----!
   о_п_х_л_е_в_ю_м_х_е. яхлбнк "E" хяонкэгсеряъ дкъ сйюгюмхъ щйяонмемжхюкэмни
тнплш гюохях вхякю, онщрнлс ецн лнфмн хяонкэгнбюрэ рнкэйн 1 пюг  бн  ббндхлнл
вхяке хкх ярпнйе.
				   - 16 -
				    тнйюк
	    опхкнфемхе 2. йнлюмдш педюйрхпнбюмхъ ярпнйх.
  'га'	сдюкемхе яхлбнкю, ярнъыецн якебю нр йспянпю.
  --->	ядбхц йспянпю бопюбн.
  <---	ядбхц йспянпю бкебн.
    !
    !	оепеунд мю педюйрхпнбюмхе якедсчыеи ярпнйх.
    Y
    ^
    !	оепеунд мю педюйрхпнбюмхе опедшдсыеи ярпнйх.
    !
  'рюа'  цнпхгнмрюкэмюъ рюаскъжхъ, йспянп оепелеыюеряъ мю 8 онгхжхи бопюбн.
   'бй'  нйнмвюмхе педюйрхпнбюмхъ ярпнйх.
		
				   - 17 -
				    тнйюк
	    опхкнфемхе 3. нянаеммнярх бепяхх V01
   бепяхъ тнйюкю V01 наеяоевхбюер ьеярэ гмювюыху жхтп, опхвел онякедмъъ жхтпю
лнфер ашрэ нйпсцкемю.
   хяонкэгсире дхпейрхбш SET USR SWAP х SET SL OFF дкъ сбекхвемхъ на'елю  ою-
лърх, бшдекъелни дкъ онкэгнбюрекъ. (б щрнл лнфмн саедхрэяъ я онлныэч ноепрнпю
VACANT).
   опхнярюмнб бшонкмемхъ опнцпюллш мю тнйюке нясыеярбкъеряъ он яс/S,  ю  опн-
днкфемхе - он яс/Q.
   бнгбпюр б дхюкнц бн бпелъ бшонкмемхъ опнцпюллш нясыеярбкъеряъ  дбсуйпюрмшл
ббедемхел яс/я.
   бнгбпюр б яхярелс нясыеярбкъеряъ он йкюбхье 'оя' я ондрбепфдемхел (д/м).
   б мейнрнпшу щйярпюнпдхмюпмшу яксвюъу ( мюопхлеп еякх ббнд  опнхгбндхряъ  я
онлныэч тсмйжхх FCHR[-1] х опнцпюллю гюжхйкхкюяэ ) рпеасеряъ опнхгбеярх  пея-
рюпр хмрепоперюрнпю аег онрепх опнцпюллш б астепе, дкъ щрнцн якедсер бширх  б
оскэрнбни пефхл (мюфюрэ йкюбхьс 'ярно') х оняке '@' мюапюрэ  '104'  х  мюфюрэ
йкюбхьс 'хяо'.
				   - 18 -
				    тнйюк
	    опхкнфемхе 4. опхлеп опнцпюллш дкъ пюанрш я тюикюлх.
			    гюохяэ дюммшу б тюик.
    1.1 T %3.00;L O T.DAT/N;F I=1,20;X[I]=FITR[FRAN[]*100];T X[I]
    1.2 T !;L C
   о_п_х_л_е_в_ю_м_х_е. опхмжхохюкэмн мюкхвхе яхлбнкю <бй> б йнмже тюикю дюм-
мшу, нрячдю х мюкхвхе 'T !' б ярпнйе 1.2 оепед гюйпшрхел тюикю.
			   времхе дюммшу хг тюикю.
    2.1 T %3.00;L I T.DAT/N;F I=1,20;A X[I]
    2.2 L C;F I=1,20;T X[I]
	    времхе х оевюрэ мю реплхмюке рейярю дюммнцн нохяюмхъ.
    1.1 L I FOCAL.DPR;CR=13;CC=3;LF=10
    1.2 X=FCHR[-1];X FCHR[X];I [X-CR]1.3,1.4,1.2
    1.3 I [X-CC]1.2,1.5,1.2
    1.4 X FCHR[LF];G 1.2
    1.5 Q
   о_п_х_л_е_в_ю_м_х_е. опх ббнде рейярю хг тюикю я онлныэч тсмйжхх FCHR[-1],
якедсер онлмхрэ, врн тнйюк хцмнпхпсер мскебше аюирш х яхлбнкш оепебндю ярпнйх
(LF, йнд йнх-7 10.), онщрнлс, врнаш опюбхкэмн оевюрюрэ ббндхлши рейяр якедсер
днаюбкърэ яхлбнкш LF, врн х ядекюмн б опхбедеммни опнцпюлле.
				   - 19 -
				    тнйюк
	опхкнфемхе 5. рЮАКХЖЮ ЙНДНБ ЯХЛБНКНБ ЛХЙПНщбл 
	"щКЕЙРПНМХЙЮ сй мж", НРНАПЮФЮЕЛШУ МЮ ЩЙПЮМЕ.	
	
________________________________________________________
 бняэлепхвмши ! лмелнмхвеяйне нангмювемхе !  деяърхвмне
     йнд      !___________________________!   гмювемхе
              ! пефхл кюр   !   пефхл пся !
______________!_____________!_____________!_____________
    040       !   опнаек    !   опнаек    !      32
    041       !     !       !     !       !      33
    042       !     "       !     "       !      34
    043       !     #       !     #       !      35
    044       !     $       !     $       !      36
    045       !     %       !     %       !      37
    046       !     &       !     &       !      38
    047       !     '       !     '       !      39
    050       !     (       !     (       !      40
    051       !     )       !     )       !      41
    052       !     *       !     *       !      42
    053       !     +       !     +       !      43
    054       !     ,       !     ,       !      44
    055       !     -       !     -       !      45
    056       !     .       !     .       !      46
    057       !     /       !     /       !      47
    060       !     0       !     0       !      48
    061       !     1       !     1       !      49
    062       !     2       !     2       !      50
    063       !     3       !     3       !      51
    064       !     4       !     4       !      52
    065       !     5       !     5       !      53
    066       !     6       !     6       !      54
    067       !     7       !     7       !      55
    070       !     8       !     8       !      56
    071       !     9       !     9       !      57
    072       !     :       !     :       !      58
    073       !     ;       !     ;       !      59
    074       !     <       !     <       !      60
    075       !     =       !     =       !      61
    076       !     >       !     >       !      62
    077       !     ?       !     ?       !      63
    100       !     @       !     Ч       !      64
    101       !     A       !     Ю       !      65
    102       !     B       !     А       !      66
    103       !     C       !     Ж       !      68      
    104       !     D       !     Д       !      68
    105       !     E       !     Е       !      69
    106       !     F       !     Т       !      70
    107       !     G       !     Ц       !      71
    110       !     H       !     У       !      72
    111       !     I       !     Х       !      73
    112       !     J       !     И       !      74
				   - 20 -
				    тнйюк
	
________________________________________________________
 бняэлепхвмши ! лмелнмхвеяйне нангмювемхе !  деяърхвмне
     йнд      !___________________________!   гмювемхе
              ! пефхл кюр   !   пефхл пся !
______________!_____________!_____________!_____________
    113       !     K       !     Й       !      75
    114       !     L       !     К       !      76
    115       !     M       !     Л       !      77
    116       !     N       !     М       !      78
    117       !     O       !     Н       !      79
    120       !     P       !     О       !      80
    121       !     Q       !     Ъ       !      81
    122       !     R       !     П       !      82
    123       !     S       !     Я       !      83
    124       !     T       !     Р       !      84
    125       !     U       !     С       !      85
    126       !     V       !     Ф       !      86
    127       !     W       !     Б       !      87
    130       !     X       !     Э       !      88
    131       !     Y       !     Ш       !      89
    132       !     Z       !     Г       !      90
    133       !     [       !     Ь       !      91
    134       !     \       !     Щ       !      92
    135       !     ]       !     Ы       !      93
    136       !     ^       !     В       !      94
    137       !     _       !             !      95
    140       !             !     ч       !      96
    141       !     a       !     ю       !      97
    142       !     b       !     а       !      98
    143       !     c       !     ж       !      99
    144       !     d       !     д       !     100
    145       !     e       !     е       !     101
    146       !     f       !     т       !     102
    147       !     g       !     ц       !     103
    150       !     h       !     у       !     104
    151       !     i       !     х       !     105
    152       !     j       !     и       !     106
    153       !     k       !     й       !     107
    154       !     l       !     к       !     108
    155       !     m       !     л       !     109
    156       !     n       !     м       !     110
    157       !     o       !     н       !     111
    160       !     p       !     о       !     112
    161       !     q       !     ъ       !     113
    162       !     r       !     п       !     114
    163       !     s       !     я       !     115
    164       !     t       !     р       !     116
    165       !     u       !     с       !     117
    166       !     v       !     ф       !     118
    167       !     w       !     б       !     119
    170       !     x       !     э       !     120
    171       !     y       !     ш       !     121
    172       !     z       !     г       !     122
    173       !     {       !     ь       !     123
				   - 21 -
				    тнйюк
	
________________________________________________________
 бняэлепхвмши ! лмелнмхвеяйне нангмювемхе !  деяърхвмне
     йнд      !___________________________!   гмювемхе
              ! пефхл кюр   !   пефхл пся !
______________!_____________!_____________!_____________
    174       !     |       !     щ       !     124
    175       !     }       !     ы       !     125
    176       !     ~       !     в       !     126
    177       !             !             !     127      
    200       !             !             !     128
    201       !             !             !     129
    202       !             !             !     130
    203       !             !             !     131
    220       !             !             !     144
    221       !             !             !     145
    224       !             !             !     148
    240       !             !             !     160
    241       !             !             !     161    
    242       !             !             !     162
    243       !             !             !     163 
    244       !             !             !     164 
    245       !             !             !     165 
    246       !             !             !     166 
    247       !             !             !     167 
    250       !             !             !     168 
    251       !             !             !     169 
    252       !             !             !     170 
    253       !             !             !     171 
    254       !             !             !     172 
    255       !             !             !     173 
    256       !             !             !     174 
    257       !             !             !     175 
    260       !             !             !     176 
    261       !             !             !     177 
    262       !             !             !     178 
    263       !             !             !     179 
    264       !             !             !     180 
    265       !             !             !     181
    266       !             !             !     182 
    267       !             !             !     183
    270       !             !             !     184
    271       !             !             !     185
    272       !             !             !     186
    273       !             !             !     187
    274       !             !             !     188
    275       !             !             !     189
    276       !             !             !     190
    277       !             !             !     191
    300       !     Ч       !     Ч       !     192
    301       !     Ю       !     Ю       !     193
    302       !     А       !     А       !     194
    303       !     Ж       !     Ж       !     195      
    304       !     Д       !     Д       !     196
    305       !     Е       !     Е       !     197
				   - 22 -
				    тнйюк
	
________________________________________________________
 бняэлепхвмши ! лмелнмхвеяйне нангмювемхе !  деяърхвмне
     йнд      !___________________________!   гмювемхе
              ! пефхл кюр   !   пефхл пся !
______________!_____________!_____________!_____________
    306       !     Т       !     Т       !     198
    307       !     Ц       !     Ц       !     199
    310       !     У       !     У       !     200
    311       !     Х       !     Х       !     201
    312       !     И       !     И       !     202
    313       !     Й       !     Й       !     203
    314       !     К       !     К       !     204
    315       !     Л       !     Л       !     205
    316       !     М       !     М       !     206
    317       !     Н       !     Н       !     207
    320       !     О       !     О       !     208
    321       !     Ъ       !     Ъ       !     209
    322       !     П       !     П       !     210
    323       !     Я       !     Я       !     211
    324       !     Р       !     Р       !     212
    325       !     С       !     С       !     213
    326       !     Ф       !     Ф       !     214
    327       !     Б       !     Б       !     215
    330       !     Э       !     Э       !     216
    331       !     Ш       !     Ш       !     217
    332       !     Г       !     Г       !     218
    333       !     Ь       !     Ь       !     219
    334       !     Щ       !     Щ       !     220
    335       !     Ы       !     Ы       !     221
    336       !     В       !     В       !     222
    337       !             !             !     223
    340       !     ч       !     ч       !     224
    341       !     ю       !     ю       !     225
    342       !     а       !     а       !     226
    343       !     ж       !     ж       !     227
    344       !     д       !     д       !     228
    345       !     е       !     е       !     229
    346       !     т       !     т       !     230
    347       !     ц       !     ц       !     231
    350       !     у       !     у       !     232
    351       !     х       !     х       !     233
    352       !     и       !     и       !     234
    353       !     й       !     й       !     235
    354       !     к       !     к       !     236
    355       !     л       !     л       !     237
    356       !     м       !     м       !     238
    357       !     н       !     н       !     239
    360       !     о       !     о       !     240
    361       !     ъ       !     ъ       !     241
    362       !     п       !     п       !     242
    363       !     я       !     я       !     243
    364       !     р       !     р       !     244
    365       !     с       !     с       !     245
    366       !     ф       !     ф       !     246
				   - 23 -
				    тнйюк
	
________________________________________________________
 бняэлепхвмши ! лмелнмхвеяйне нангмювемхе !  деяърхвмне
     йнд      !___________________________!   гмювемхе
              ! пефхл кюр   !   пефхл пся !
______________!_____________!_____________!_____________
    367       !     б       !     б       !     247
    370       !     э       !     э       !     248
    371       !     ш       !     ш       !     249
    372       !     г       !     г       !     250
    373       !     ь       !     ь       !     251
    374       !     щ       !     щ       !     252
    375       !     ы       !     ы       !     253
    376       !     в       !     в       !     254
    377       !             !             !     255
________________________________________________________
 	
				   - 25 -
				    тнйюк
	опхкнфемхе 6.  сопюбкемхе х педюйрхпнбюмхе яхлбнкэмни
		     хмтнплюжхх мю щйпюме я онлныэч тсмйжхх FCHR
1)  аег опедьеярбсчыецн йндю юп2:
    X FCHR[7]	- бшдювю гбсйнбнцн яхцмюкю;
    X FCHR[8]	- бнгбпюр мю ьюц;
    X FCHR[10]	- оепебнд ярпнйх;
    X FCHR[11]	- ярхпюмхе яхлбнкнб я онгхжхх йспянпю дн йнмжю ярпнйх;
    X FCHR[12]	- яапня щйпюмю;
    X FCHR[13]	- бнгбпюр йспянпю б мювюкн ярпнйх;
    X FCHR[14]	- псяяйхи пецхярп;
    X FCHR[15]	- кюрхмяйхи п4цхярп;
    X FCHR[18]	- ядбхц рейярю ббепу;
    X FCHR[19]	- пюглшйюмхе ярпнйх;
    X FCHR[20]	- ялшйюмхе ярпнйх;
    X FCHR[21]	- люпйеп б мювюкн якедсчыеи ярпнйх;
    X FCHR[22]	- ядбхц рейярю бмхг;
    X FCHR[25]	- люпйеп бопюбн;
    X FCHR[26]	- люпйеп бкебн;
    X FCHR[27]	- бшдювю йндю юп2;
    X FCHR[28]	- люпйеп ббепэ;
    X FCHR[29]	- люпйеп бмхг.
2)  я йнднл юп2
    X FCHR[27,160,M]	- хглемемхе жберю яхлбнкю,
			  цде л=48...55
	48 -вепмши жбер;
	49 - яхмхи жбер;
	50 - гекемши жбер;
	51 - цнксани жбер;
	52 - йпюямши жбер;
	53 - оспоспмши жбер;  
	54 - фекрши жбер;
	55 - аекши жбер.
    X FCHR[27,161,M]	- хглемемхе жберю гмюйнлеярю;
    X FCHR[27,162,M]	- хглемемхе жберю тнмю яхлбнкэмнцн щйпюмю;
    X FCHR[27,167,M]	- хглемемхе жберю йспянпю;
    X FCHR[27,164]	- ондвепйхбюмхе бяеу онякедсчыху бшбндхлшу яхлбнкнб;
    X FCHR[27,191,164]	- нрлемю ондвепйхбюмхъ.
о-п-х-л-е-в-ю-м-х-е: йндш, мювхмюъ ян 160 он 191 ъбкъчряъ щкелемрюлх
		     ояебднцпютхйх, йнрнпше лнфмн хяонкэгнбюрэ,мюопхлеп,
		     опх нтнплкемхх рюакхж.
				   - 24 -
				 яндепфюмхе
	FOCAL -- ноепюрнпш  х  тсмйжхх лхйпнщбл  "щкейрпнмхйю сй мж"
юммнрюжхъ  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  3
1. ъгшй тнйюк  . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  4
2. ноепюрнп опхябюхбюмхъ . . . . . . . . . . . . . . . . . . . . . . . .  4
3. ноепюрнпш ббндю-бшбндю  . . . . . . . . . . . . . . . . . . . . . . .  5
4. ноепюрнпш сопюбкемхъ опнцпюллни . . . . . . . . . . . . . . . . . . .  6
5. ноепюрнпш нркюдйх опнцпюллш . . . . . . . . . . . . . . . . . . . . .  8
6. тсмйжхх тнйюкю. . . . . . . . . . . . . . . . . . . . . . . . . . . .  9
7. цпютхвеяйхе тсмйжхх тнйюкю  . . . . . . . . . . . . . . . . . . . . . 11
8. ноепюрнпш дкъ пюанрш я тюикюлх  . . . . . . . . . . . . . . . . . . . 12
опхкнфемхе 1. йндш яхлбнкнб б ноепюрнпе ASK  . . . . . . . . . . . . . . 15
опхкнфемхе 2. йнлюмдш педюйрхпнбюмхъ ярпнйх. . . . . . . . . . . . . . . 16
опхкнфемхе 3. нянаеммнярх бепяхх V01 . . . . . . . . . . . . . . . . . . 17
опхкнфемхе 4. опхлеп опнцпюллш дкъ пюанрш я тюикюлх. . . . . . . . . . . 18
опхкнфемхе 5. рюакхжю йнднб яхлбнкнб лхйпнщбл "щкейрпнмхйю сй мж",
             
              нрнапюфюелшу мю щйпюме . . . . . . . . . . . . . . . . . . 19	
опхкнфемхе 6. сопюбкемхе х педюйрхпнбюмхе яхлбнкэмни хмтнплюжхх мю
	      щйпюме я онлныэч тсмйжхх FCHR  . . . . . . . . . . . . . . 24