книги из ГПНТБ / Кастин, О. М. Система первичной обработки метеорологической информации
.pdfПРий, з |
ПР.1 Л. j |
|
пРил. г |
пРиЯ. |
|
*В9,0 |
Т Е И С Т С К О Н Е Ц ОПОЗНАВАНИЯ |
И |
РАСКОДИРОВАНИЯ' , |
|
|
*90,0 |
|
В К А Т , 1,3,3); |
|
|
|
*91,0 |
Б Р ('721' ,ВКАТ,5,200 ,ASP 1)! |
|
|
||
*98,0 |
|
сото S T O P ; |
|
|
|
S 9 S . , J > . |
P A T : |
B E « I N |
|
|
|
* 9 ( 1 , 0 |
|
|
|
||
5 9 5 , 0 C O M M E N T Б Л О К О П О З Н А Е Т И Р А С К О Д И Р У Е Т А Э Р О Л О Г И Ч Е С К И Е |
|||||
* 9 6 , 0 |
|
С У Х О П У Т Н Ы Е И М Э Р С К И Е С О О Б Щ Е Н И Я Ч А С Т И А И С , |
|||
* 9 7 , 0 |
|
Ф О Р М И Р У Е Т З А П И С И |
( М А К Е Т Ы ) С О О Б Щ Е Н И Й . |
|
|
* Ь в , 0 |
|
Р а б о т а б л о к а R A T |
н а ч и н а е т с я с о |
|
|
* 9 9 , 0 |
|
С Т Р О К И С Н О М Е Р О М N T |
« |
|
|
|
N T S N T S ) ; |
|
|||
6 0 0 , 0
6 0 1 , 0
6 0 8 , 0
6 0 3 , 0
6 0 4 , 0
6 0 5 , 0
6 0 6 , 0
6 0 7 , 0
6 0 S , p
6 0 9 , 0
6 1 0 , 0
6 1 1 , 0
6 1 2 , 0
1 N T E . 6 E R |
A l O , A 5 T M , A N U , A S V U , I C E . A S H . A O . |
|
|
А К К , A V K , а , A K C P P R , А S О , А У У , Я С С , |
|
Т , 1 , A R 1 , A N R , A N O S , A K t C , A N S R , A P S E , A K P N S ! |
||
C O M M E N T |
- Н О М Е Р П О С Л Е Д Н Е Й С Т А Н Д А Р Т Н О Й И З О Б А Р И Ч Е С К О Й |
|
A I D |
||
A S T M |
- |
П О В Е Р Х Н О С Т И С Д А Н Н Ы М И 0 В Е Т Р Е , |
Н О М Е Р У Р О В Н Я ( С Т Р О К И ) В М А К Е Т Е A 4 , |
||
A N U |
- |
Н О М Е Р У Р О В Н Я , |
A S V U |
- |
Ч И С Л О Г Р У П П В У Р О В Н Е , |
I С Е |
- |
И С П О Л Ь З У Е Т С Я В Б Л О К Е П О И С К А З А Г О Л О В К А , |
A S H , А О - |
Л И Р О Т А И Д О Л Г О Т А , |
|
А К К |
- |
Н О М Е Р К В А Д Р А Т А , |
А Ѵ К |
. - |
В Ы Ч И С Л Е Н Н Ы Й Н О М Е Р К В А Д Р А Т А , |
6 1 3 , 0
6 1 4 , 0
6 1 5 , 0
6 1 6 , 0
Q |
- Н О М Е Р |
К В А Д Р А Н Т А , |
А К 6 Р Р Я - Д Л Я З А П О М И Н А Н И Я A S V U П Е Р Е Д |
||
|
Р А С Ш И Ф Р О В К О Й О Ч Е Р Е Д Н О Г О У Р О В Н Я , |
|
Т , 1 . A R I - Р Д Ь О Ч И Е |
П Е Р Е М Е Н Н Ы Е |
|
100
П Р И Л , 2 |
|
і і р |
и л .. г |
пРил. г |
п р и л . з |
||
6 1 7 , n . A N R - ' H O M E P |
P A K 0 H A ' = X 4 X 5 , |
|
|
|
|||
6 1 8 . 0 |
A N O S - ' H O M E P С Т Л Н Ц И Й ' = Х і Х 2 Х З , |
|
|
||||
6 1 1 . 0 A K L G - Ч И С Л О Н О М Е Р О В C T Д Н Ц И Й , С О О Т В Е Т С Т В У Ю Щ И Х |
|
||||||
6 8 0 . 0 |
Д а н н о м у |
A N A , |
|
|
|
|
|
6 2 1 . 0 |
A N S R - H O M Ë P C T - t P o j E r O Б И Т А С Т О Л Б Ц А С П И С К А , |
|
|||||
6 2 2 . 0 |
A P S i - П Е Р В Л Я С Т Р О К А В С П И С К Е Д Л Я Д А Н Н О Г О A N R |
|
|||||
6 2 8 . 0 |
A K P N S - Ч И С Л О Н О М Е Р О В С Т А Н Ц И И В С П И С К Е ; |
|
|||||
6 2 4 . 0 |
B O O L E A N |
A B O Z , A B I C , A B B V , A B H O S , A P U R , A B S K , |
|
||||
6 2 5 . 0 |
|
A S S E , Л В К Т , A B A C . A B P U N R P , Д В О Р и , А В О Ѵ І |
|
||||
6 2 6 , 0 |
A B l U A , A B L E , A d l O V , A B P U O l , A B 1 , A B 2 , A B 3 J |
|
|||||
6 2 7 . 0 C O M M E N T |
- О Б Н А Р У Ж Е Н А Г Р У П П А С С И М В О Л О М 1 Е ' И Л И |
||||||
6 2 8 , 0 |
A B I C |
||||||
6 2 9 , 0 |
А В 8 V |
- |
д е к о д и р о в а н у р о в е н ь б е з |
в е т р а , |
|
||
6 3 0 , 0 |
A P U R |
• О Б Н 4 Р У Ж Е Н П Р О П У Щ Е Н Н Ы Й У Р О В Е Н Ь , |
|
||||
6 3 1 , ' |
А В S K |
- С О В П А Д Е Н И Е Н О М Е Р О В К В А Д Р А Т О В , |
|
||||
6 3 2 , 0 |
А В 5 Е |
- Д Л Я К О Н Т Р О Л Я Е Д И Н И Ц Ш И Р О Т Ы И Д О Л Г О Т Ы , |
|||||
6 3 3 , 0 |
А В К Т |
- О Б Щ И Й П Р И З Н А К К О Н Ц А С О О Б Щ Е Н И Я , |
|
||||
6 3 4 , 0 |
A B A C |
- П Р И З Н А К Ч А С Т И А И Д И С , |
|
|
|||
6 5 5 , 0 |
A B P U N R P - П О С Л Е Д Н И Й У Р О В Е Н Ь В A R P |
|
|
||||
6 3 6 , 0 ’ |
A B O P U - О Б Н А Р У Ж Е Н П О С Л Е Д Н И Й У Р О В Е Н Ь , |
|
|||||
6 3 7 . , 0 |
А Ѳ О Ѵ |
- П Р И З Н А К О Т С У Т С Т В И Я И Н Ф О Р М А Ц И И 0 В Е Т Р Е , |
|||||
б З в , о |
а а і и я |
- Р А С Ш И Ф Р О В А Н П Е Р В Ы Й У Р О В Е Н Ь , |
|
||||
639 ,0 |
А 8 L G |
- |
В A R P |
О Б Н А Р У Ж Е Н Ы |
Л И Ш Н И Е |
Г Р У П П Ы , |
|
6 4 0 , 0 |
A B I U V - П Р И З Н А К И С К А Ж Е Н И Я У К А З А Т Е Л Я В Е Т Р А , |
|
|||||
6 4 1 , о |
A 8 P U J 1 - П Р О П У Щ Е Н У Р О В Е Н Ь - A C V U И З М Е Н Я Е Т С Я |
|
|||||
6 4 2 , 0 |
С З Н Д 2 , |
|
|
|
|
|
|
6 4 3 , 0 |
А В І - А В З - - Р А Б О Ч И Е И Д Е Н Т И Ф И К А Т О Р Ы ; |
|
|
||||
6 4 4 , 0 |
I N T E G E R |
А я Я Д у A M [ - i : i l , i : 5 J , A 8 S H , A B J , A B K G ( i : S ) , |
|||||
Ю І
ПРИЛ. 2 |
ПРИЛ. ? |
ПРИЛ. 2 |
ПРиЛ. 2 |
* 4 5 , 0
6 4 6 , 0
6 4 7 , 0
6 4 0 , 0
6 4 9 , 0
6 5 0 , 0
6 5 1 , 0
6 5 2 , 0
6 5 5 , 0
6 5 4 , 0
6 5 5 , 0
6 5 6 , 0
6 5 7 ^ 0
6 5 8 , 0
6 5 9 , 0
6 6 0 , 0
6 6 1 , 0
6 6 2 , 0
6 6 5 , 0
6 6 4 , 0
6 6 5 , 0
6 6 6 ,
C O M M E N T |
4 R P ( O : S , I : S I , A T N U ( O : 6 ) | |
|
- М А К Е Т А Э Р О Л О Г И Ч Е С К О Г О С О О Б Щ Е Н И Я , |
||
Д М |
||
Д О Э Н |
- Г Р У П П А Ш И Р О Т У , |
|
Д В О |
- Г Р У П П А Д О Л Г О Т Ы , |
|
Д в к с |
- К О Н Т Р О Л Ь Н А Я Г Р У П П А |
|
А Я Р |
- Р А Б О Ч И Й М А С С И В , И С П О Л Ь З У Е М Ы Й П Р И |
|
A T N U |
О П О Э Н - О В Л Н И И С О О Б Щ Е Н И Я , |
|
- Т А Б Л И Ц А Н О М Е Р О В У Р О В Н Е Й Д Л а |
||
|
И С К Л й Ч Е Н И Я о ш и б о ч н ы х Г Р У П П ; |
|
S W I T C H а 2 : з т ) , т г , т 2 , т з ; |
||
S W I T C H |
0 3 ; a J 2 , 5 2 , 3 5 , 0 4 , J 5 , J 6 ; |
|
S W I T C H s o c : s s ' o o o , s o 1, s o 2, s u J : |
||
P R O C E D U R E t t P c T ; |
||
C O M M E N T |
В ы Б И Р . Е Т О Ч Е Р Е Д Н У Ю П Я Т И З Н . . Ч н У й Г Р У П П У |
|
|
С О О Б Щ Е Н И Я , В Ы Р А Б А Т Ы В А Е Т О Б Щ И Й П Р И З Н А К |
|
|
К О Н Ц А С О О Б Щ Е Н И Я , И С К Л Ю Ч А Е Т О Ш И Б О Ч Н Ы Е Г Р У П П Ы |
|
|
И С П Р А В Л Е Н Н Ы Е П О П Р А В И Л У • Е • , • . * ; |
|
B E G I N |
I N T E G E R t t ; |
|
|
Д С 1 : |
I F K T T P S » O T H E N B E G I N |
|
|
|
A B K T I a T R U E |
i G O T O A G ' E N U |
; |
|
Д В К Т • a F A L S E |
i B P G ( 5 ) ; |
|
6 6 7 , 0 |
I F |
S G a B G T H E N G O T O A G 2 ! |
B E G I N |
||
6 6 8 , 0 |
I F |
6 [ s c ) 3 W E T G ( S C J a H P O T H E N |
|||
■669,0 |
|
e T i i s o ) : * C |
T I i s o |
i * i ; |
|
6 7 0 , 0 |
ЯС2: £ F |
A B I G : = T R 4I E |
; с о т о A C J E N D |
; |
|
671, |
S O B T H E N |
С О Т О |
f l G * |
|
|
672,0 Дез: К5с:=з; coro лсі;
102
ПРиЛ, |
2 |
* • • • • • |
ПВиЛ. |
% |
ПРИЛ. |
2 |
ПРИЛ, |
...................................... |
• • » « » . |
. . . . . . |
П А К Е Т . 0 0 |
• » » • •2 |
ьп, 0.
6 7 4 , 0
6 7 5 , 0
6 7 6 , 0
6 7 7 , 0
6 7 8 |
, 0 |
6 7 9 |
, 0 |
6 8 0 |
, 0 |
6 8 1 |
, 0 |
6 8 2 , 0 |
|
6 8 3 |
, 0 |
6 8 4 |
, 0 |
6 8 5 , 0 |
|
6 8 6 |
, 0 |
6 8 7 |
, 0 |
6 8 8 |
, 0 |
6 8 9 |
, 0 |
|
6 9 U |
, |
0 |
6 9 1 |
, 0 |
|
6 9 2 |
, |
а |
6 9 3 |
, 0 |
|
6 9 4 |
, |
п |
6 9 5 |
, 0 |
|
6 9 6 |
, q |
|
Я Е 4 : |
I F 7 Л В I G T H E N |
; |
U O T O Л Е 5 ; |
|
|
A C S ; |
|||||||
|
A B I G I S F A L B E |
I F |
T * O T H E N |
с о т о |
|||||||||
|
F O R |
R I n O S T E P |
|
l U N T I L |
|
T - l Q O |
|
|
|||||
|
|
I F |
|
Щ 1 І і Я Я Р І Я , 1 1 » C [ 2 ) « A R P ( R , 2 ) I G ( 3 1 = A R P { R , 3 1 |
|||||||||
|
|
|
Е С | 4 J p A R P t R , 4 ) » G t 5 J » A R P ( R . 5 1 T H E N |
||||||||||
|
|
|
B E G I N |
Г : = й * 1 J A N U I s A T N U I R ) ; |
|||||||||
Я С 5 ; E N O |
G O T O A G I E H O ; |
|
|
|
|
|
|
||||||
|
В Р Е Т [ |
|
|
|
|
|
|
|
I N T E G E R K R G [ |
||||
P R O C E D U R E |
|
A R U M ( К R G ) I V A L U E K R s ; |
|||||||||||
C O M M E N T |
Б З А В И С И М О С Т И О Т Ч И С Л О Г Р У П П В A R P |
||||||||||||
|
|
|
Ф О Р М И Р У Е Т О Д Н У И Л И Д В Е С Т Р О К И М А К Е Т А |
||||||||||
|
|
|
И З И Н Ф О Р М А Ц И И , Н А Х О Д Я Щ Е Й С Я B - A R P ; |
||||||||||
B E G I N |
S N I T C H а : = м 2 , м з , м 4 , м 5 , м б ; |
|
|
||||||||||
С О Т О |
Q l K R G - l l j |
|
|
|
|
|
|
|
|
|
|||
M J : |
A B B V I S T R U E |
і |
|
|
|
|
|
|
|
|
|||
м з ' : |
u R ( о ) ; |
с о т а |
к ; |
|
|
G O T O - t ; |
|
|
|||||
М 4 - . |
A B B V I s T R U E |
і |
U R ( Q ) i |
|
|
||||||||
M S ; |
U R I O J - : |
A B B V I S T R U E |
; |
G O T O |
L ; |
|
|
||||||
М 6 І |
U A ( 0 > ; |
K R G I s K R G - 1 ; |
A S T M 1 s A S T M * 1 i |
||||||||||
L ; |
I F |
A P U R T H E N B E G I N |
|||||||||||
|
|
A P U R I S F A L S E |
|
E N D |
; |
U R ( K R G - 2 ) I |
|
||||||
K ; |
E N D |
|
— “ ТГ— • |
|
— |
|
|
|
|
|
|
||
A R U M ; |
|
V A L U E |
J J |
I N T E G E R |
> i |
||||||||
P R O C E D U R E |
|
U R ( I ) ; |
|||||||||||
C O M M E N T |
ф о р м и р у е т |
с т р о к у |
м а к е т а |
и з |
|||||||||
6 9 7 , 0 |
|
|
Г Р У П П , |
Н А Х О Д Я Щ И Х С Я В А Я Р ; |
|
6 9 8 |
, 0 |
B E G I N |
I N T E G E R F ; |
I N T E G E R A R R A V A , 9 , C t i 1 5 ) ; |
|
6 9 9 , 0 |
I N T E G E R |
T V V , T V , T R , Z T , D D , F F ; |
|||
7 0 0 |
, 0 |
A S T M : = A S T M + 1 ; |
|
||
ПРИЛ. 2 |
ПРИЛ.. 2 |
ПРИП. 2 |
ПРИЛ. 2 |
701.0 FOR F :=I,2,J ,«,500 BEGIN
702.0Я (F I'.aARPt I ,F| i B(F ):sARP II* t,F I;
703.0C(F|:aARP(I»2,F|EHO ;
704.0 |
4Mi*STM,i]:»TTN(4,3,i); |
B R E A K : |
||
705.0 |
F:*RM(0,11; |
IF FF5(J'2F«60THEN |
BEGIN |
|
706.0 |
п е р е к о д и р о в а н и е г р у п п |
т е м п е Р л Ту р н и |
||
707.0 |
в е т р а в к и т а й с к и х |
с о о б щ е н и я х ) |
||
700.0 |
зт:»о; T V V :«T T N (B,I ,2»; |
|
|
|
706-J-0 £F Т»Ѵ«0ТнеМ |
BEOIN Т»!з1023) |
■ |
||
710.0TR:B |27) GOTO МЕТЕНО )
711.0 IF |
ТѴѴ05Г THEN |
BEGIN TVV:*TVV-SJ) |
|
7ia,: |
2T :SIEND |
; |
т у ;«т ѵѵ «і «IT ; |
7 1 3 . 0 T R : a T T N ( B , £ , 2 ) ) |
|||
714.0 £F |
T R .O T H E N |
B E G I N T R :>)27; |
|
715.0сото метено ;
716.0 |
IF |
T R T 5 O TH E N |
T R :«5O -T A ; |
717.0 TR:«(-1)12T»TVy-TRJ |
|||
71В ,0 |
l_F |
TRT5THEN |
T R :«TR« I0EL3E TR;*TR*50S |
710.0M E T : A M (A S T M ,2I:>T V ;
720.0RM.(4STM,3):*TR)
721.0 |
MINO: IF 7ABBVSCtt)=HJTHEN B E G I N |
728.0 |
00:аТТЫ(С,2,2); F F !aTTNIC,4,2 )) |
723.0£F FF«0THEN F F :S IOBJELSE
724.0IF DO’ SOTHEN FF:aFF*100J 72$,o W A M (A S T M ,5):*FFS
726,0' ±F 00<0THEN 00:»l27ELSE
727.0IF OO’ SOTHEN 00:aOO-50; '
726.0 AM(ASTH,4);aOOENO HIND)
I »
................................................................................... |
|
|
|
|
* ....................................................... |
|
і |
|
• • • • • • • « » П А К Е Т . 0 0 |
• • • • • |
|||||
П Р И Л . 2 |
|
|
|
П Р | Л . |
|
|
|
П Р и Л , |
2 |
П Р і Л . 2 |
|||||
|
|
|
|
|
|
|
|
||||||||
7 2 9 . 0 |
С О Т О E N O U R E N ü |
C H I N A ; |
|
Д м [ A S T M , 3 ] 1 = Т Т N ( В , 4 , 2 ) i |
|
||||||||||
7 3 0 , 0 |
A M t A S T M , 2 ] : = T T N ( 8 , l , J ) ; |
|
|||||||||||||
7 3 1 . 0 |
I F 7 A B B V T H E N |
B E G I N |
|
|
|
A M [ A S T M , 5 ] ; 3 T T N < C , 3 , 3 ) £ N D |
|||||||||
7 3 2 , 0 |
A 4 [ A S T M , 4 ) ; s T T N ( C , i , a ) ; |
||||||||||||||
7 3 3 , 0 |
E N O U R : |
E N O |
и й ; |
|
|
|
|
|
|
|
|
|
|
||
7 3 4 , 0 |
C O M M E N T |
П О И С К З А Г О Л О В К А Д З Р О Л О Г И Ч Е С К О Г О С О О Б Щ Е Н И Я ; |
|||||||||||||
7 3 5 , 0 |
р z т : |
а у 9 : = а с с ; т А і о : = і і і |
|
|
|
|
|
|
|
||||||
7 3 6 , О |
с т I ( г о ) : = с т 11 2 и ) ♦ 1 ; |
|
; |
|
R i c ; |
|
|
|
|||||||
7 3 7 , 0 |
|
A B 1 с : = д а в 9 ; = K A L S E |
|
|
|
|
|||||||||
7 3 8 , 0 |
|
F O R |
A S Г . ч : |
1 , О О О |
|
A M [ A S T M , T ) 1 з 0 i |
|
||||||||
7 3 9 . 0 |
|
F O R |
T : = 4 , 2 , 3 , 4 , 5 D O |
|
|||||||||||
7*0,0 |
|
F O R |
A S T M ; B |
| S T E P |
1 U N T I L |
| | 0 0 |
] : |
= 1 oooooo; |
|
||||||
7 4 1 . 0 |
A P 2 ; |
F O R |
T : = 1 , 2 , 3 , |
4 , |
5 0 0 |
A |
M I A S T M , T |
|
|||||||
7 4 2 , 0 |
B P C ( 5 ) ; |
I F S G F 5 T H E N |
|
|
|
|
|
|
|||||||
7 4 3 . 0 |
|
B E C l N |
I F |
K S T H E N |
G O T O A N L Z S ; |
|
|
|
|||||||
7 4 4 , 0 |
А Р З : |
к s G : = o ; |
G O T O |
A P 2 E N O |
; |
|
т : = 0 ; |
|
|
|
|||||
7 4 5 , 0 |
I F |
K S T H E N |
G O T O |
A N L Z S ; |
|
А У У І з О Д Ѵ ; |
|
||||||||
7 4 6 , 0 |
|
I F |
G [ 1 j = W 5 - » T = 0 T H E N B E G I N |
|
|||||||||||
7 4 7 , 0 |
|
A G G : = T I M E ; |
G O T O |
A S S E N Q |
; |
|
|
|
|||||||
7 4 8 , 0 |
|
A V 9 ! = T T N ( G , I , 2 ) ; |
A G G ; = T T N I G , 3 , 2 ) ; |
|
|||||||||||
749 ,0 |
A S S ; |
л 1 0 : = |
c ( s |
] ; |
|
|
B P |
G < 5 ) ; |
|
|
|
|
|
||
7 5 0 , 0 |
I F |
S G 3 5 T H E N |
G O T O |
A P 7 ; |
|
|
|
|
|
||||||
7 5 1 . 0 |
C O v f M E N T П О И С К В С Л О В А Р Е ; |
|
|
|
|
|
|
||||||||
7 5 2 , О С Т І I 2 П ; 5 С Т 1 1 2 1 1 7 1 ; |
A N R < 0 T H E N |
G O T O |
N O ; |
|
|||||||||||
7 5 3 . 0 |
A N R I = T T N ( G , 4 , 2 ) ; |
I F |
|
||||||||||||
7 5 4 , 0 |
A N C i S : = T T N ( G , 1 , 3 ) ; |
I F |
A N O S < O T H E N G O T O |
N O ; |
|
||||||||||
7 5 5 . 0 |
A 8 i : = B K A T [ A N R J I |
A K L G ; = V N O R ( A B |
, 2 4 , 9 ) ; |
|
|
||||||||||
7 5 6 . 0 |
I F A K U G = O T H E N |
G O T O N o ; |
|
|
|
|
|
|
|
||||||
ПРИЛ, |
2 |
|
|
|
ПРИЛ, 2 |
|
|
ПРИЛ. |
|
ПРИЛ, |
2 |
||||||
7 5 7 , 0 |
A N 5 R : * V N 0 R ( A B ) , 4 2 , 6 л - Д Р 5 6 ! » V N O R ( 4 6 1 , 1 6 , 1 2 ) ! |
|
|||||||||||||||
7 5 6 , 0 |
A K P N S ’. S V N O R ( Л В і , 1 5 , 1 5 ) J |
|
|
|
|
|
|
|
|||||||||
7 5 9 , 0 |
F O R |
U a O S T E P |
l U N T u |
A K L G - 1 0 0 |
|
|
|
|
|
||||||||
7 6 0 , 0 |
B E 5 | N |
Я В З : = Я 5 Р ) ( « P S S + I ) ; |
|
|
|
|
|
| |
|
||||||||
7 6 1 , 0 £ F |
A N O S B V N O R ( A B 3 , A N 5 R , 1 0 ( T H E N G O T O F S M E N O |
|
|||||||||||||||
7 6 2 , o |
G O T O |
N O ) |
F S M : I : * A K P N S * I ♦ I I |
|
|
|
|
A M [ 0 , 3 J i » l |
|||||||||
7 6 5 , 0 |
A M t 0 , 1 ] ! * T T N ( C , 1 , 2 ) I |
A M I 0 , 1 ) : « T T N ( G , 3 , 5 ) ! |
|||||||||||||||
7 6 4 , 0 |
N 0 1 |
|
|
|
|
|
|
|
|
|
н а й д е н ; |
|
|
|
|||
7 6 5 , 0 |
C O M M E N T Н О М Е Р с т а н ц и и |
н е |
|
|
|
||||||||||||
7 6 6 , 0 |
I F |
А М [ 0 , 5 J a O T H E N |
С О Т О |
Д Р 7 ; |
С О Л О |
А Ѵ М ! |
|
|
|
||||||||
7 6 7 , 0 |
л р * | |
т : » т * і ; |
I F |
т < з т н е н |
с о т о |
д р з і |
|
|
|
||||||||
7 6 6 , 0 |
Я р 7 : |
R I G ) |
I C E : = 1 ; |
с о т о |
р о к ; |
B E G M I I C E j a O ; |
|
|
|||||||||
7 6 9 , 0 |
U |
С ( I ) I W 9 7 G ( 2 ) = W 9 T H E N |
|
|
|||||||||||||
7 7 0 , 0 |
|
|
F O R |
I : = i , 2 , 3 , 4 , 5 0 0 |
A B S H l I ] ; а С [ 1 ) ; |
|
|
||||||||||
7 7 1 , 0 |
|
|
с о т о |
P D E N D |
; |
K S C : = O ; |
с о т о |
A P 6 ; |
|
|
|
||||||
7 7 2 ,0 C O M M E N T |
п о и с к к о о р д и н а т ; |
|
|
|
|
|
|
|
|||||||||
7 7 3 , o |
р о к ; |
в р с ( 5 ) ; |
а у ѵ : = T T N U , i , 2 ) ; |
|
|
|
|
||||||||||
7 7 4 , 0 |
|
|
A G C : * T T N ( G , 3 , 2 ) ; |
A i o : = T T N ( c , 5 , 1 ) ; |
|
|
|||||||||||
7 7 5 , 0 |
|
|
B P G ( 5 ) ; |
I F |
S G = 5 » 7 K S T H E N |
B E G I N |
G O T O |
P D E N O ; |
|||||||||
7 7 6 , 0 |
|
|
F O R |
|
I : = 1 , 2 , 3 , 4 , 5 0 0 A B S H [ I ] : = G [ I Ц |
||||||||||||
7 7 7 , 0 |
P o : |
|
I F |
« 5 T H E N |
G O T O |
A L i K S C l r ' . i |
G O T O |
P O K J |
|
|
|||||||
7 7 6 , o |
|
T : = o ; |
|
|
|
|
|
|
|
|
|
|
|
|
|||
7 7 9 , 0 |
|
C T l ( 2 a i ; s C T l [ 2 2 ] + i ; |
|
|
|
B E G I N |
|
|
|
||||||||
7 6 0 , 0 |
P О 1 : |
B P G ( 5 ) ; |
I F |
S G = 5 * 7 K S T H E N |
С О Т О A K 1 E N O |
; |
|||||||||||
7 6 1 , 0 |
|
|
F O R |
|
1 : = 1 , 2 , 3 , 4 , 5 0 3 A B D I I ) : = G [ I ) ; |
||||||||||||
7 8 2 , 0 |
A K l : |
I F |
K s T H E N G O T O |
A L i K 5 G : = 0 l |
G O T O |
P O 1 i |
|
|
|||||||||
7 а з , 0 |
B P G ( 5 ) ; |
I F |
S G = 5 T H c N . Ü E C I N |
|
|
P 0 2 E N 0 |
; |
||||||||||
7 6 4 , U |
|
|
F O R . |
I : = 1 , 2 , 3 , 4 , 5 0 0 |
A B K C ( I ) : = C [ I ] ; G O T O |
||||||||||||
IÜb
П Р И Л . 2 |
• * • » • • • • • • • • • • • • • • • • • • п н к е т . |
о о |
|
|
П Р ‘1 Л . 2 |
П Р И Л . 2 |
П Р И ! ) |
7 В 5 , 0
7 8 6 |
, Г |
7 8 7 , ( 1 |
|
7 8 8 |
, 0 |
7 8 9 |
, 0 |
7 9 0 |
, 0 |
7 9 1 , 0 |
|
7 9 2 |
, 0 |
7 9 0 |
, 0 |
7 9 ^ , 0 |
|
7 9 5 , 0 |
|
7 9 Ь |
, 0 |
7 9 7 , 0 |
|
7 9 8 |
, г |
7 9 9 |
, 1 |
9 " 0 |
, 0 |
|
•Sr1 |
, |
0 |
9 Р 2 |
, |
0 |
9 ' 3 |
, |
С |
З Н < |
, |
0 |
9 " Ь |
, |
С |
1 ' Ь, 0
3 0 7 , 1
9 011 , 0
9 * 9 , 0
3 \и , 0
9 1 1 , *
3 1 2 ,
“ 0 2 : |
I F K s T H t N |
с о т о |
л и ; |
к з с : = о ; |
с о т о |
я к і ; |
N я в ; |
||||||||
I F |
|
1 с е = о т я а к о ( 1 ) = w 9 « я в к і ; t г ] = W 9 T H E N |
с о т о |
||||||||||||
Я 5 н : = т т м ( д в 5 н , з , і ) « з б ; |
л о : = т т ^ ( я в о , 2 , 2 ) ; |
|
|
||||||||||||
я к к : = т т ч ( д в к о , і , 3 ) і |
A B S K I I T R U E |
: |
|
|
|
||||||||||
я ѵ к : = д з ч - д о * З б ; |
B E G I N |
|
Q : = 1 ; |
С о т о |
я ' К 2 Е Т І 0 |
; |
|
||||||||
I F |
f l V K = f l « K T H E N |
|
|
||||||||||||
Д Ѵ К : = Д Ѵ К + 2 9 9 ; |
B E G I N |
|
о : = з ; |
с о т о |
A K 2 E N O |
; |
|
||||||||
I F |
o v K s o K K T H E N |
|
|
||||||||||||
n V K : : B S 9 * e U ‘ l J |
B E ; I N |
|
Q : = 7 ; |
|
Д К ? E N о |
; |
|
||||||||
I F |
O V K = O K K T 4 E N |
|
G O T O |
|
|||||||||||
A V K I I A V - < ' 2 9 1 ; |
a E c i N |
|
а : = 5 ; |
с о т о |
я к ** £ N j |
; |
|
||||||||
I F |
а ѵ к = д к к т н ь м |
|
|
||||||||||||
я а э к : = F O L S E |
і |
|
|
|
|
|
|
|
|
|
|
||||
Д < 2 : |
Я В S E : = f l s 5 Н 1 < ) = Д В К С [ < ) І Я В О t *) = я а к с [ 5 1 ; |
|
|||||||||||||
|
|
I F O E S K T H E M В Е Н Ы |
Д Ѵ М К ; |
|
|
|
|
||||||||
|
|
|
I f |
Л Ч 5 £ Т н Е М З о ю |
|
|
с о т о |
д к з ; |
|||||||
|
|
5 H I 9 : |
I F f l d S H t l l * I T 9 * a a S H ( 2 ] * ' - 9 9 T H E N |
||||||||||||
( • ■ и : |
T : = г T . j { я в и , 1 , 1 ) ; |
1 : = 3 i ; |
С О Т О f l V M K E N O |
1 |
|||||||||||
Я К J : |
If - Д 8 5 £ Т ч £ м |
S O T o |
3 H 9 9 ; |
|
|
|
|
|
|||||||
r : = T * i ; |
I F |
|
T r 2 T h E N |
С О Т О Я L : |
|
|
|
||||||||
|
|
9 V V : = : T T 9 ( J B S H , 1 , 2 ) ; |
f l c c : = T T N ( A b S H , 3 t 2 ) ; |
|
|||||||||||
|
|
д I J : = т r N ( Д В Ö H , 5 , I ) ; |
|
|
B E S I N |
|
|
||||||||
|
|
n ; : r . i | |
F O R |
i : - i , 2 , 3 , 4 , s o o |
|
|
|||||||||
Д L : |
|
я 5 3 − 1 1 ] : = я а о [ 1 ] ; |
л в о і 1 1 : = я в к в і 1 1 E N Q ; s о т о д к |
||||||||||||
|
s i r e |
aч L LS ; |
я м і о , 2 ) : = т т ы ( д в з н , з , з ) ; |
|
|
||||||||||
a v |
|
|
1 ■ ), l ) : = r i ; |
|
|
||||||||||
|
|
cv[ * , я |
: = т T N ( д а о , p , 4 ) ; |
я м ( - 1 . г 1 : = 1 ; |
|
||||||||||
|
|
| r |
7 | l s l 7 Q = 3 " Q = 5 * a = 7 ) T 4 E N |
с о т о |
я и ; |
|
|
||||||||
п р и Я . 1 |
п р и л . з |
п р и л . ? |
П Р И Л , ■} |
8 1 3 . 0 |
I F |
Я о | ( 0 |
, 2 ) < 0 * Я Ч [ 0 |
, |
2 1 > 9 0 O T H E N |
8 1 4 . 0 |
I F |
Я м і 0 |
, 3 ) < 0 * Д Ч [ 0 |
, |
Л ) > 1 8 0 0 T H E N |
« 1 5 , 0 |
C T I I J 3 ) : = C T I ( г л 1 * 1 ; |
|
|
||
С О Т О |
л и 5 |
С О Т О |
« L I |
в і б , о |
я ѵ м : |
A S T M : = 0 1 |
|
|
|
|
|
|
|
|
|||
* IT , о |
|
яміо, 4 ] і =яуѵ ; |
ям t |
, 5 ]: = д сс ; |
|
||||||||
8 1 8 ( 0 C O M M E N T |
|
П О И С К П Е Р В О Г О У Р О В Н Я ; |
|
|
|||||||||
в і 9 р о |
я р і и : |
|
р з : = 0 і |
|
B E G I N |
|
|
|
|
|
|||
8 2 0 , 0 F OR T ' . e O , 1 , 2 , 3 0 0 |
|
|
|
|
|
||||||||
8 2 1 . 0 |
! [F I * 3 1 T H E N |
B E C I N |
I : = O i G O T O T O E N O i |
||||||||||
8 2 2 . 0 |
|
I F |
K S S T X O T H E H |
С О Т О |
A N L Z 5 ; |
|
|
||||||
8 2 3 . 0 |
|
В Р С Т І |
I F |
A B K T T H E N |
G O T O |
Я к Т Р і и ; |
|||||||
8 2 4 . 0 |
SOTO |
Q 2 t T |
♦ 1 ] |
; |
|
|
|
|
|
|
|
f l N U ; * 0 J |
|
8 2 5 , ' 0' t « 1 ' 1 Г |
C l 1 ) Ь « 9 9 С Г 2 I b H O T H E N - B E C H |
||||||||||||
8 2 6 ' , 0 |
R E : |
f l B « C : = T R U E |
i G O T O |
P O U E N D |
; |
||||||||
8 2 7 . 0 |
|
I F |
G l 1 J 3 r t 7 - 2 C t 2 ) 3 H 0 T H E N |
B E G I N |
A N U I a O i |
||||||||
8 2 8 , . |
|
Rt: |
Я В Я С : » F |
4 L S E |
; |
G O T O |
P O U E N O |
; |
|||||
8 2 9 , и |
|
I F |
С l 1 J = r t 1 > G [ 2 J a W O T H E N |
|
B E G I N |
|
|||||||
в з о , о |
|
A S T H : B A N U : : I ; |
с о т о |
R E E N D |
; |
|
|||||||
8 3 1 , и |
|
I F |
G l 1 ) n i 4 4 T G 1 2 J a W o T H E N |
B E C i N |
с о т о т і ; |
||||||||
в 3 2 , о |
т г : |
A S T M : B A N U : * s ; |
с о т о |
R E E N D |
; |
||||||||
в з з , о |
I F |
c l i ] = w 3 t c t 2 l = w o T H E N |
B E C I N |
я я и м і г ) ; |
|||||||||
8 3 4 . 0 |
T 4 ! |
R N U : * 1 J |
G O T O |
R I E N Q |
; G O T O |
T i ; |
• |
||||||
8 3 5 . 0 |
T 3 : |
l^F |
C l |
1 J r W O l G |
1 2 ) = V t O T H E N |
B E C i N |
|||||||
8 3 6 . 0 |
|
д я и м ( 3 ) 1 |
f l N U l a l ; |
G O T O |
R E E N D |
i |
|||||||
8 3 7 . 0 |
|
1? C l 1 ] S W 5 - 8 C 1 2 ] 3 W 0 T H E N |
8 E U N |
T I ! |
|||||||||
8 3 8 . 0 |
T z : |
f l R l J M l 3 ) l |
С О Т О |
T 4 E N O |
i |
С О Т О |
|||||||
8 3 9 . 0 |
I _ F C l 1 J « N 8 7 C 1 2 1 = W 5 T H E N |
B E G I N N |
|
||||||||||
8 4 0 . 0 |
|
Я 5 Т м : B f l N U ! * 2 ; |
G O T O |
R E E N D |
; |
|
|||||||
108
|
|
|
. ............... ........... п а к е т •о о |
• •••« |
||
П Р И Л . |
2 |
П Р . І Л . |
2 |
П Р И Л . 2 |
П Р И Л . 2 |
|
3 * 1 , 0 |
т 1 : FOR |
ля 1 := 1 ,у ,з , * , 5 0 0 |
д я р [т,ляі):=зіл я п і |
|
||
8 * 2 , 0 |
END |
Г - |
ЯРіи; сото |
ANLZS) |
|
|
8 * 3 , 0 |
C O M M E N T |
П О И С К О Ч Е Р Е Д Н О Г О У Р О В Н Я J |
|
|||
8 4 * , О |
оо и :т:=о і с п 1 2 *):=ct 1 12 *]* i; |
|
||||
3 * 5 , 0 |
|
A B P U N R P : = A B O P U : = A B O V : = A B I U R : = F A L S E i |
|
|||
8 * 6 , О |
|
1 F 7 A 8 A C T H E N |
B E C l N |
|
|
|
8 * 7 , 0 |
|
|
A N I j ; = A N U * 1 I ) G O T O ' A Ö Z V E N O ! |
|
||
В * 8 , п |
I F A N U S 0 T H E N A B 1 U R ! = T R U E |
8 * 8 , 0 |
f l a Z V ; C 0 M M E N T У Р О В Е Н Ь С В Е Т Р О М |
і
И Л И 6 Е З В Е Т Р А )
8 5 и , О |
I F A B B V T H E N B E G I N |
3 5 1 . 0
8 5 2 |
, |
г |
8 5 3 . 0 |
||
8 5 * |
, |
■> |
8 5 5 |
, 0 |
|
8 5 6 |
, |
О |
8 5 7 |
, 0 |
|
8 5 8 |
, |
О |
A . ; v u 2 i A G V U : = 2 ) G O T O A P O E N O i
I F |
A B O V T H E N G O T O A G V U 2 ) |
|
|
I F |
7 ( A B 1 U R « A B A C ) T H E N B E G I N |
||
|
I F |
A I Ü = W S L T H E N G O T O A C V U 2 i |
|
|
I F |
A ! D = T V 1 D [ A N U ) T H E N |
A B O V I s T A U E |
E N D E L S E A B 1 U R I = F A L S E |
i A G V U I s S ) |
||
A P J I A K G P P R I r A G V U )
A P U R::A B L G :=A B I U V ;=A B P U J I :=F A L S E t
8 5 9 , 0 |
C O M M E N T |
з а н е с е н и е |
групп в ARP и р а с ш и ф р о в к а в м д к е Т) |
3 6 0 , 0 |
P M C E I I F |
T j t A G V U T H E N |
B E G I N |
8 6 1 , 0
8 6 2 , 0
3 6 5 . 0
8 6 6 , с
8 6 5 , 0
8 6 6 , 0
86 7 , 0
Z N R P ; FOR |
A A I :=ISTEP |
IU NT IL |
SDO |
|
||||
<|RP t T |
, А Й |
1 J : = G [ |
A R |
1 ] ; |
A T N |
U t T j I s A |
N U ) |
|
T : = T » 1 ; B P G T J |
|
|
|
|
|
|||
I F A B K T T H E N |
G O T O E N O 1 E L S E G O T O P M C E E N O ) |
|||||||
I F C f i O P U T H E N B E G I N |
A 6 P U N R Р I = T R U E |
I |
||||||
К A R L ’ M : |
A R U M I A G V U ) ; |
|
|
P S K ; |
|
|||
I F |
B I P U N R P T H E N |
G O T O |
|
|||||
8 6 8 . 0 C O M M E N T |
С Л В И Г Г Р У П П В Д Я Р ) |
109