forked from besm6/pasauto-re
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathnewedt.pas
1746 lines (1686 loc) · 43.3 KB
/
newedt.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(*=p-,t-,m-*)_program новыйр;
_label 5511;
_const c20=20;c16=16;c4=4;ca=73400B;etx='\377';lf='\175';olf='\214';sp=' ';colon=':';eq='=';endf='\172';ilf='\375';
a='a';z='z';c9=9;e31=000001T;e40=001T;c44=44;drum=10300000270036C;c40=40;c8=8;cb=57640B;cc=70000B;
_type letter=a..z; digit='0'..'9';
word=_record _case boolean _of true:(i:integer); false:(a:alfa) _end;
sector=_record a:_array [0..255] _of word _end;
_var endl:char;
g11z:char;
g12z, g13z:@sector;
g14z, fileLen:integer;
fileName, g17z:alfa;
g18z, fromMem, g20z:boolean;
g21z, g22z:boolean;
tooLong:boolean;
f:text;
_proced SkipSp; _( _while f@ = sp _do get(f); _);
_proced WRPG(l2a1z, l2a2z:integer);
_(
l2a1z := l2a2z * e31 + l2a1z;
code(2Э0703=,);
_);
_proced RDPG(l2a1z, l2a2z:integer);
_(
l2a1z := (l2a1z + e40) + (l2a2z * e31);
code(2Э0703=,);
_);
_proced L0500;
_(
code(СЧ75207=ЗЧ75225,СЧ74215=ЗЧ74220,ИК75225=СЧ,ЗЧ74217=ВИ,ЗЧ74221=);
get(input);
_);
_proced P0607;
_label 707;
_var l2v1z, l2v2z: @_record a:_array [1..15] _of alfa _end;
l2v3z:alfa;
l2v4z:alfa;
l2v5z:integer;
l2v6z:integer;
_function getName(_var l3a1z:alfa):boolean;
_var l3v1z, l3v2z:alfa; _(
_while input@ = sp _do get(input);
getName := false;
_if _not (input@ _in letter) _then exit;
code(=7ПА-5,L0530:);
_if (input@ _in letter) _or (input@ _in digit) _then _( l3v2z := input@; get(input) _) _else l3v2z := sp;
code(3СЧ5=СД/-10/,3ЛС6=3ЗЧ5,);
code(7KЦL0530=);
l3a1z := l3v1z;
getName := true;
_);
_function hasArchive(_var l3a1z: integer; _var l3a2z:alfa):boolean;
_var l3v1z:integer; _(
code(=ИА57776,СЧ=); l3a1z := ;
l3v1z := (10300000270036C);
code(3Э0706=,);
g12z@ := g13z@;
code(ИА57770=СЧ,СР73400=У0L600,);
hasArchive := false;
exit;
code(L600:СЧ73400=); l3a2z := ;
hasArchive := chr(sel(l3a2z, 40, 8)) _in letter;
_);
_( (* P0607 *)
l2v2z := ptr(24480);
l2v1z := ptr(70000B);
l2v1z@ := l2v2z@;
L0500;
_if getName(l2v3z) _then ;
_if _not getName(fileName)_then _( writeln('ГДЕ ЖЕ ИМЯ ?'); _GOTO 5511 _);
fromMem := fileName = 'ПАМ ';
_if _not hasArchive(l2v6z, l2v4z) _then _(
_if fromMem _then _goto 707;
writeln('НЕТ НАСТРОЙКИ НА АРХИВ'); _GOTO 5511
_);
l2v6z := sel(l2v6z, 0, 18);
l2v5z := 1;
_while l2v5z < 256 _do _(
_if [email protected][l2v5z].a = fileName _then _goto 707;
l2v5z := l2v5z + 2;
_);
_if _not fromMem _then _( writeln('В АРХИВЕ ', l2v4z, ' НЕТ ИМЕНИ ', fileName); _GOTO 5511 _);
707:_if fromMem _then _( g14z := 270000C; fileName := 'БУФ '; fileLen := 20; exit _);
l2v5z := (l2v5z + 1);
l2v5z := [email protected][l2v5z].i;
g14z := shift(l2v5z, 24) + l2v6z;
fileLen := sel(l2v5z, 0, 24);
exit;
code(ЗЧ74356=,);
_);
(* Level 2 *)_proced P5127;
_label 5152,5217,5222;
_const prompt='+\146\377000';minetx='-\377';c6=6;limit=43772B;c3=3;c5=5;c7=7;plus='+';
_type unalfa = _array [1..6] _of char;
_var l2v1z, errPos, l2v3z, l2v4z, l2v5z, l2v6z, l2v7z, l2v8z, l2v9z, l2v10z, l2v11z, l2v12z, l2v13z:integer;
cmd, unisym, separ:char;
l2v17z:integer;
l2v18z, l2v19z:boolean;
l2v20z, l2v21z, l2v22z, l2v23z:integer;
l2v24z, l2v45z: _array [0..20] _of integer;
_proced MYBIND(l3a1z:alfa);
_var l3v1z:integer; _(
code(3ИА3=15ПА,12ПВФ=,СЧ76424=СД/-26/,СД/-2/=MP,); l3v1z := ;
_if l3v1z = 1 _then _(
rewrite(output);
_GOTO 5217;
_);
rewrite(f);
_while (input@ <> etx) _do _(
write(f, input@); get(input);
_);
write(f, etx);
reset(f);
_);
_proced P0761(l3a1z, l3a2z:integer);
_(
code(3СЧ3=,ЗЧ75207=3СЧ4,СД/-12/=ЗЧ75210,ВИ=ЗЧ75212,);
_);
_proced P0773(l3a1z, l3a2z:integer);
_(
code(=3СЧ3,ЗЧ75205=3СЧ4,ЗЧ74327=СЧ13,ЗЧ75204=)
_);
_proced flush;
_(
code(=СЧ76766,14ПВГГ=,СЧ75205=УИ7,СЧ76013=ЛУL1055,У0L1011=Э064L1053,L1011:СЧ76013=ЛУ13,У0L1050=СЧ76401,ЛСL1052=17ЗЧ1,17Э0711=,);
code(Э07176402=,СД/-26/=СД/-2/,МР=СР13,У0L1060=СЧ76422,УИ7=7СА-1,ВИ7=ЗЧ76422,У1L1050=СЧ76421,ЗЧ76422=СЧL5523,ЗЧL1056=СЧL5524,ЗЧL1057=16ПВL5526,);
P0761(70000B, 29);
MYBIND('?\146\377000');
_if f@ = etx _then _( P0761(10000B, l2v10z); code(16ПВL5531=,СЧL1056=ЗЧL5523,СЧL1057=ЗЧL5524,) _)
_else _( rewrite(output); _GOTO 5222 _);
code(L1050:);rewrite(output);
exit;
code(C;L1052:3000000024000321,L1053:3400000034000000,40000000,L1055:2,L1056:0,L1057:0,K;L1060:);
rewrite(output); _GOTO 5217
_);
_proced error;
_(
P0773(72000B, 1024);
rewrite(output);
write('!':errPos);
write(' ОШИБКА');
flush;
_GOTO 5217;
_);
_proced L1101;
_(
_if g18z _then exit;
_while f@ = sp _do _( errPos := errPos + 1; get(f) _);
_);
_proced L1113;
_(
errPos := errPos + 1; get(f)
_);
_proced nextLine;
_(
_while (input@ <> endl) _and (input@ <> endf) _do get(input);
_);
_function readInt:integer;
_var i:integer; _(
i := 0;
_if _not (f@ _in digit) _then error;
_while f@ _in digit _do _( i := i * 10 + ord(f@); L1113 _);
readInt := i;
_);
_function DTOA(val:integer):alfa;
_var i, j:integer; ret:alfa; a:unalfa; _(
i := 1000;
j := 1;
_while (j <= 4) _do _(
a[j] := chr(trunc(val / i));
val := val _mod i;
i := i _div 10;
j := j + 1;
_);
a[5] := sp;
a[6] := etx;
pck(a[1], ret);
DTOA := ret;
_);
_proced L1200(l3a1z:integer);
_(
g21z := false;
output@ := chr(l3a1z _div 1000);
code(16ПВTTOUT=,);
l3a1z := (l3a1z _MOD 1000);
output@ := chr(l3a1z _DIV 100);
code(16ПВTTOUT=,);
l3a1z := (l3a1z _MOD 100);
output@ := chr(l3a1z _DIV 10);
code(16ПВTTOUT=,);
output@ := chr(l3a1z _MOD 10);
code(=16ПВTTOUT,);
output@ := sp;
code(16ПВTTOUT=,);
g21z := true;
_);
_proced L1226(l3a1z:integer);
_(
l2v5z := (l3a1z - 1) _div 1024;
l2v10z := 4 + l2v5z + 1;
_);
_proced L1234;
_(
_if (input@ = endf) _then _(
L1226( 1 );
rewrite(output);
write('ФАЙЛ ПУСТОЙ');
flush;
_GOTO 5217;
_);
_);
_proced P1247;
_var l3v1z:char; _(
code(16ПВL5531=,);
_if (l2v17z = 6) _then L1234;
g21z := true;
_while (input@ <> endl) _and (input@ <> endf) _do _(
l3v1z := input@;
get(input);
output@ := l3v1z;
code(16ПВTTOUT=,);
_);
_if (l2v17z <> 2) _then _( output@ := ilf; code(=16ПВTTOUT,) _);
flush;
g21z := false;
_);
_proced L1274(l3a1z:integer);
_(
l2v21z := l3a1z;
l2v22z := l3a1z _div 16;
_if (l2v22z = 0) _then l2v22z := 1;
l2v23z := l2v22z _div 4;
_if (l2v23z = 0) _then l2v23z := 1;
_);
_proced P1310(l3a1z, l3a2z:integer);
_(
code(=3СЧ3,СД/-6/=3ЛС4,СД/22/=МР,ЛСЯ1322=3ЗЧ3,3Э0723=,);
exit; code(С;Я1322:1000007700000000,К;)
_);
_proced copy(l3a1z, l3a2z:integer);
_var l3v1z, l3v2z, l3v3z:integer; l3v4z:alfa; _(
_if ((l3a1z <> 0)_or (l3a2z = 1)) _then _while (input@ <> endf) _do _(
output@ := input@;
code(=16ПВTTOUT,);
get(input);
_);
_if g22z _then code(СЧ74254=СР13,У1L1344=5СА1,L1344:5СА1=);
write('\172\17500000');
_if g22z _then code(ВИ5=,) _else code(СЧ75224=);
l3v3z := ;
l3v3z := (l3v3z - 4096);
L1274( l3v3z );
l2v18z := true;
L1226( l3v3z );
_if g22z _then _(
_if l2v19z _then _(
code(СЧ75224=АВ13,); l3v2z := ;
_if (l3v2z > 61777B) _then l3v1z := (l2v8z - 61777B) _else l3v1z := (l2v8z - l3v2z);
code(=УИ15,);
l3v1z := l2v8z;
code(УИ12=);
l3v1z := l2v7z;
code(=УИ11,);
code(L1377:12СЧ=11ЗЧ,12СА1=11СА1,15КЦL1377=);
l3v1z := l3v2z _div 1024;
l3v2z := 25;
_while (l3v2z <= l3v1z) _do _(
_if (l2v9z >= l2v12z) _then code(ПБL5023=);
P1310( l3v2z, l2v9z );
l2v9z := (l2v9z + 1);
l3v2z := (l3v2z + 1);
_)
_) _else _( (* 1417 *)
l3v2z := 1;
_while (l3v2z <= 4) _do _(
_if (l2v9z >= l2v12z) _then code(ПБL5023=);
l2v11z := ((l2v11z + 1) _mod 4);
P1310(24 + l2v11z, l2v9z );
l2v9z := (l2v9z + 1);
l3v2z := (l3v2z + 1);
_)
_)
_); (* 1435 *)
P0773( 72000B, 1024 );
rewrite(output);
_if ((l2v5z + 1) > fileLen) _then _(
_if _not tooLong _then _(
tooLong := true;
write('*** ДЛИНА ТЕКСТА ПРЕВЫСИЛА ');
mapia( fileLen, l3v4z);
ГГ( l3v4z );
write(' ЗОН. (');
mapia( l2v5z, l3v4z);
ГГ( l3v4z );
ГГ( '.' );
l3v1z := l3v3z _mod 1024;
code(=СД/-44/,);
l3v1z := ;
code(=7ПА-3,L1462:3СЧ5=СД/-3/,3ЗЧ5=МР,);
l3v2z :=; output@ := chr(l3v2z); code(=16ПВTTOUT,7КЦL1462=);
ГГ( ') !' );
flush;
_)
_) _else _( (* 1473 *)
_if tooLong _then _(
tooLong := false;
write('*** ДЛИНА ТЕКСТА ');
mapia( (l2v5z + 1), l3v4z);
ГГ( l3v4z );
write(' ЗОН. (');
mapia( fileLen, l3v4z);
ГГ( l3v4z );
ГГ( ')' );
flush;
_);
_);
_if (l3a1z = 0) _then exit;
L1200( l3a1z );
P1247;
_);
_proced L1520(l3a1z:integer);
_(
P0773( 72000B, 1024 );
rewrite(output);
write('НЕТ СТРОКИ С НОМЕРОМ ');
write(l3a1z:0);
flush;
_GOTO 5217;
_);
_function L1666(l3a1z:integer):integer;
_var l3v1z:integer;
l3v2z:char;
l3v3z:boolean;
l3v4z:integer;
l3v5z:boolean;
l3v6z, l3v7z, l3v8z, l3v9z, l3v10z,
l3v11z, l3v12z, l3v13z, l3v14z, l3v15z, l3v16z:integer;
_proced P1535;
_label 1546;
_var l4v1z, l4v2z, l4v3z, l4v4z:integer; _(
l3v8z := (l3v8z + 1);
_if (l3v16z < 20) _then _(
l3v7z := l2v45z[l3v8z];
_if (l3v7z = 0) _then _(
l3v16z := (l3v16z + 1);
1546:
l2v24z[l3v8z] := l3v1z;
l2v45z[l3v8z] := l3v11z;
l3v15z := (l3v14z + l2v23z);
l3v14z := (l3v14z + l2v22z);
exit
_) _else _(
l4v2z := l3v16z;
_while (l4v2z >= l3v8z) _do _(
l2v24z[(l4v2z + 1)] := l2v24z[l4v2z];
l2v45z[(l4v2z + 1)] := l2v45z[l4v2z];
l4v2z := (l4v2z - 1);
_);
l3v16z := (l3v16z + 1);
_goto 1546;
_)
_); (* 1573 *)
l4v4z := 32767;
l4v2z := 1;
_while (l4v2z <= 20) _do _(
l4v3z := (l2v45z[l4v2z] - l2v45z[(l4v2z - 1)]);
_if (l4v3z < l4v4z) _then _( l4v4z := l4v3z; l4v1z := l4v2z _);
l4v2z := (l4v2z + 1);
_);
_select
(l4v1z = l3v8z): _goto 1546;
(l4v1z < l3v8z): _(
l4v4z := (l3v8z - 2);
l4v2z := l4v1z;
_while (l4v2z <= l4v4z) _do _(
l2v24z[l4v2z] := l2v24z[(l4v2z + 1)];
l2v45z[l4v2z] := l2v45z[(l4v2z + 1)];
l4v2z := (l4v2z + 1);
_);
l3v8z := (l3v8z - 1);
_goto 1546;
_);
true: _(
l4v2z := (l4v1z - 1);
_while (l4v2z >= l3v8z) _do _(
l2v24z[(l4v2z + 1)] := l2v24z[l4v2z];
l2v45z[(l4v2z + 1)] := l2v45z[l4v2z];
l4v2z := (l4v2z - 1);
_);
_goto 1546;
_)
_end
_);
_proced L1655;
_(
P0761( 4*1024 + l3v11z, l2v10z );
L0500;
_);
_( (* L1666 *)
(q) _if (l3a1z = 1) _then _( l3v1z := 1; l3v11z := 0 _) _else _(
l3v5z := true;
l3v8z := 1;
l3v9z := ;
(q) l3v6z := 1;
(loop) _while (l3v6z <= 20) _do _(
l3v7z := l2v24z[l3v6z];
_select
_not ((l3a1z <= l3v9z) _or (l3a1z > l3v7z) _or _not l3v5z): _(
l3v5z := false;
l3v8z := (l3v6z - 1);
_);
(l3v7z = 0): _(
l3v16z := (l3v6z - 1);
_if l3v5z _then_( l3v8z := l3v16z; l3v5z := false _);
_exit loop
_);
true: l3v9z := l3v7z
_end;
l3v6z := (l3v6z + 1);
_);
_if l3v5z _then _( l3v16z := 20; l3v8z := ; _);
l3v1z := l2v24z[l3v8z];
l3v10z := ;
l3v11z := l2v45z[l3v8z];
l3v12z := ;
l3v13z := ;
L1655;
l3v14z := (l3v11z + l2v22z);
l3v15z := (l3v11z + l2v23z);
l3v11z := (l3v11z - 1);
l3v3z := true;
l3v2z := endl;
code(3СЧ5=УИ11,16ПА1746=7ПА6,L1746:7СА-1=);
_if (input@ <> l3v2z) _then _(
code(СРL5525=У0L1775,L1751:7И0L1763=,L1752:СЧ74217=СД/-10/,ЗЧ74217=МР,); input@ := ;
code(=СЧ74220,У074227=СД/1/,ЗЧ74220=ПБL1746,);
_); (* 1757 *)
code(11СА1=ВИ11,3АВ4=У0L2000,ВИ=3ЗЧ7,ПБL1751=);
code(L1763:7ПА6=);
l3v11z := (l3v11z + 1);
_if l3v3z _then _(
code(ВИ11=); l3v1z := ;
l3v10z := ;
l3v12z := l3v11z;
_if (l3v11z >= l3v14z) _then P1535;
_);
l3v3z := true;
code(16ПА1746=ПБL1752,L1775:);
L1274( (l3v11z + 1) );
code(L2000:);
l3v11z := l3v12z;
l3v1z := l3v10z;
_if (l3v11z > l3v15z) _then P1535;
_);
L1655;
_if (l2v17z = 4) _then L1666 := l3v11z _else L1666 := l3v1z;
_);
_proced L2012(target:integer);
_label 2026;
_var l3v1z:char; l3v2z:integer; _(
_if target <= 1 _then exit;
l3v1z := endl;
l3v2z := L1666( target );
code(УИ11=16ПА2023,);
_while (input@ <> l3v1z) _do _(
code(=СР5525,У0L2036=);
2026:
code(СЧ74217=СД/-10/,ЗЧ74217=МР,);
input@ := ;
code(=СЧ74220,У074227=СД/1/,ЗЧ74220=)
_);
code(11СА1=ВИ11,3АВ3=У0L2040,);
_goto 2026;
code(L2036:); L1520( target );
code(L2040:); get(input);
_);
_proced P2042;
_var l3v1z:char; l3v2z:integer; l3v3z:alfa; l3v4z:boolean; _(
l3v4z := input@ <> endf;
l2v17z := 9;
l3v2z := L1666( 9999 );
_if l3v4z _then l3v2z := (l3v2z - 1) _else l3v2z := (l3v2z - 2);
l3v1z := endf;
(L2062)_while (input@ <> l3v1z) _do _(
code(=СР5525,У0L2066=);
get(input);
_goto L2062;
code(L2066:3СЧ4=ЦС13,3ЗЧ4=); % ++l3v2z
get(input);
_);
l2v6z := l3v2z;
code(=16ПВL5551,);
P0761(70000B, 29);
(L2076)_repeat
l3v2z := (l3v2z + 1);
l3v3z := DTOA( (l3v2z + 1) );
MYBIND( l3v3z );
_if f@ = etx _then _exit L2076;
_if l3v4z _then _( output@ := endl; code(16ПВTTOUT=,) _)
_else l3v4z := true;
_if (f@ = sp) _then _(
get(f);
_if (f@ <> etx) _then _( output@ := sp; code(16ПВTTOUT=,) _)
_);
_while (f@ <> etx) _do_(
_if (f@ = endl) _or (f@ = olf) _then_(
output@ := endl; code(16ПВTTOUT=,);
l3v2z := (l3v2z + 1);
_) _else _( output@ := f@; code(=16ПВTTOUT,) _);
get(f);
_)
_until false;
copy(0, 0);
_);
_proced getRange(_var first, last:integer);
_var range:boolean; _(
_if _not g18z _then L1113;
_if f@ _in letter _then error;
range := false;
L1101;
_if _not (f@ _in digit) _then _(
first := 1;
last := 9999;
_) _else _(
first := readInt;
last := ;
L1101;
_if (f@ = ':') _then _( L1113; range := true; L1101; _);
_if _not (f@ _in digit) _and range _then
last := 9999
_else _(
_if f@ _in digit _then last := readInt;
_if (first > last) _then last := first;
_);
_if (first = 0) _or (first > 9999) _or (last > 9999) _then error;
_);
l2v6z := first;
L1101;
_);
_proced combine;
_var first, last:integer; l3v3z:char;_(
getRange( first, last );
l2v17z := 8;
_if first = last _then last := last + 1;
L2012( first );
code(=16ПВL5551,16ПВL5526=,);
l3v3z := endl;
code(3СЧ3=3АВ4,УИ7=7СА1,L2265:);
_while (input@ <> l3v3z) _do _(
code(=СРL5525,У0L2275=);
output@ := input@;
code(=16ПВTTOUT,);
get(input);
_);
get(input);
code(7КЦL2265=);
code(L2275:);
copy( first, 1 );
_);
(* Level 3 *) _proced P2355(l3a1z:integer; l3a2z:boolean);
_label 2421, 2523;
_var l3v1z, l3v2z, l3v3z, l3v4z, l3v5z, l3v6z, l3v7z, l3v8z, l3v9z, l3v10z:integer;
l3v11z, l3v12z, l3v13z: boolean;
(* Level 4 *) _proced P2300;
_label 2305;
_var l4v1z, l4v2z:integer; _(
l4v2z := l3v6z;
l4v1z := limit;
code(6ПА=,);
2305:
_if (input@ = endf) _then _(
l3v7z := l4v2z;
_if l3v12z _then _( output@ := endl; code(=16ПВTTOUT,) _);
exit
_);
_if (input@ = endl) _then l4v2z := (l4v2z + 1);
_if (l4v2z > l3v7z) _then _(
_if l3v12z _then_( output@ := endl; code(=16ПВTTOUT,) _);
exit
_);
output@ := input@;
code(16ПВTTOUT=,);
code(6СА1=ВИ6,4СР3=У0L2331,);% _if (R6 = l4v1z) _then goto L2331;
get(input);
_goto 2305;
code(L2331:);
_if l3v12z _then _( output@ := endl; code(16ПВTTOUT=,) _);
l3v13z := true;
l3v7z := l4v2z;
_);
_proced L2337;
_(
code(=16ПВL5452,);
l3v12z := input@ <> endf;
_if _not l3a2z _then _(
nextLine;
_if l3v12z _then _( l3v5z := (l3v5z + 1); get(input) _)
_);
code(=16ПВL5526,);
_);
_( (* P2355 *)
L1234;
_if _not l3a2z_then _(
reset(f);
getRange( l3a1z, l3v10z );
L1113;
_) _else l3v10z := l3a1z;
getRange( l3v6z, l3v7z );
l2v6z := l3a1z;
l3v12z := true;
l3v11z := false;
l3v13z := ;
l3v5z := 1;
_if _not (l3a1z > l3v6z) _then l3v5z := L1666( l3a1z );
(L2412) _(
_if (input@ = endf) _then _(
_if (l3a1z <> 9999) _and (l3v5z <> l3a1z) _then _goto 2421;
_if l3a2z _then _exit L2412
_else 2421: L1520( l3a1z );
_);
_if _not (l3v11z _or (l3v5z <> l3v6z)) _then _( l3v11z := true; code(=16ПВL5526,) _);
_if (l3v5z >= l3a1z) _then _exit L2412;
nextLine;
_if (input@ = endl) _then _( l3v5z := (l3v5z + 1); get(input) _);
_goto L2412;
_);
_if l3v11z _then _(
code(СЧ5523=); l3v1z := ;
code(СЧ5524=); l3v2z := ;
L2337;
_if (l3a1z = 9999) _then _( output@ := endl; code(=16ПВTTOUT,) _);
code(СЧ5523=3ЗЧ7,СЧ5524=3ЗЧ10,);
code(3СЧ5=ЗЧ5523,);
code(3СЧ6=ЗЧ5524,);
code(16ПВL5531=,);
P2300;
code(3СЧ7=ЗЧ5523,);
code(3СЧ10=ЗЧ5524,);
_) _else _(
L2337;
_if (l3v5z < l3v6z) _then (L) _(
l3v8z := 1;
_while (l3v8z <= 20) _do _(
l3v9z := l2v24z[l3v8z];
_if (l3v9z = 0) _then _exit L;
_if (l3v9z >= l3v6z) _then _(
l3v9z := l2v24z[(l3v8z - 1)];
_if _not (l3v9z <= l3v5z) _then l3v5z := L1666( l3v6z );
_exit L;
_);
l3v8z := (l3v8z + 1);
_);
_);
_while (l3v5z < l3v6z) _do _(
_if _not (input@ <> endf) _then L1520( l3v6z );
_if _not (input@ <> endl) _then l3v5z := (l3v5z + 1);
get(input);
_);
P2300
_);
code(16ПВL5531=,);
(L) _if (l3v10z <> l3a1z) _then _(
l3v5z := l3a1z;
2523:
_if (input@ = endf) _then _exit L;
get(input);
nextLine;
_if (input@ = endl) _then _(
l3v5z := (l3v5z + 1);
_if (l3v5z = l3v10z) _then _( get(input); _exit L _)
_);
_goto 2523
_);
copy( 0, 1 );
_if l3v13z _then _( write('БОЛЬШАЯ ВСТАВКА !'); flush _);
_if l3a2z _then _(
_if (l3a1z = 9999) _then write('В КОНЕЦ ФАЙЛА') _else write('ПЕРЕД СТРОКОЙ ', l3a1z:0)
_) _else write('В СТРОКУ ', l3a1z:0);
write(' ВСТАВЛЕНЫ СТРОКИ С ', l3v6z:0);
ГГ( ' ПО ' );
write( l3v7z:0 );
flush;
_);
_proced insert;
_label 2721;
_var l3v1z, l3v2z, l3v3z:integer; l3v4z:alfa; tooMuch:boolean;
_proced L2575;
_(
_if f@ = sp _then _(
get(f);
_if f@ <> etx _then _( output@ := sp; code(16ПВTTOUT=,) _)
_);
_while f@ <> etx _do _(
_if (f@ = olf) _or (f@ = endl) _then _(
output@ := endl;
code(16ПВTTOUT=,);
l3v3z := (l3v3z + 1);
_) _else _( output@ := f@; code(=16ПВTTOUT,) _);
code(6СА1=ВИ6,3СР3=У0L2633,);
get(f);
_);
output@ := endl;
code(16ПВTTOUT=,);
exit;
code(L2633:);
tooMuch := true;
output@ := endl;
code(16ПВTTOUT=,);
_GOTO 2721;
_);
_( (* insert *)
L1113;
L1101;
_if f@ = etx _then _( P2042; exit _);
_if f@ = eq _then l3v2z := 9999
_else _(
l3v2z := readInt;
_if (l3v2z = 0) _or (input@ = endf) _then L1520( l3v2z );
l3v1z := limit;
tooMuch := false;
l2v6z := l3v2z;
l2v17z := 5;
_);
_if f@ = eq _then _( P2355( l3v2z, true ); exit _);
L2012( l3v2z );
l3v3z := l3v2z;
code(=16ПВL5452,);
code(16ПВL5526=,);
_if f@ = etx _then _(
P0761( 70000B, 29 );
code(6ПА=,);
(L2706) _(
l3v4z := DTOA( l3v3z );
MYBIND( l3v4z );
_if f@ = etx _then _goto 2721;
L2575;
code(6СА1=);
l3v3z := l3v3z + 1;
_goto L2706
_);
2721:
code(16ПВL5531=,);
_) _else _(
_if f@ <> sp _then error;
get(f);
L2575;
_);
copy( l3v2z, 1 );
_if tooMuch _then _( write('БОЛЬШАЯ ВСТАВКА !'); flush _)
_);
_proced P2742;
_var l3v1z:alfa; _(
ГГ( ' (' );
l3v1z := '777777';
l2v3z := l2v3z;
code(СД/-36/=3РБ3,);
l3v1z := ;
ГГ( l3v1z, ':' );
mapia( l2v4z, l3v1z );
ГГ( l3v1z, ')' );
flush;
_);
_proced wrFile;
_var l3v1z:alfa; l3v2z, l3v3z:integer; _(
_if tooLong _then _(
write('*** ПИСАТЬ НЕЛЬЗЯ ! ТЕКСТ > ');
mapia( fileLen, l3v1z );
ГГ( l3v1z, ' ЗОН.' );
flush;
exit
_);
_if fromMem _then g20z := true;
l3v2z := 0;
_while (l3v2z <= l2v5z) _do _(
WRPG( (l2v3z + l3v2z), (4 + l3v2z) );
l3v2z := (l3v2z + 1);
_);
write('В ФАЙЛ ', fileName, ' ЗАПИСАНО ЗОН: ');
mapia( (l2v5z + 1), l3v1z);
ГГ( l3v1z );
P2742;
_);
_proced delete;
_var first, cur, last:integer; _(
getRange( first, last );
l2v17z := 6;
_if (first = 1) _and (last = 9999) _then input@ := endf;
L2012( first - 1 );
_if first <> 1 _then nextLine;
code(16ПВL5551=,);
_if (input@ <> endf) _and (first <> 1) _then get(input);
code(=16ПВL5526,);
_if (last = 9999) _and (first <> 1) _then_(
first := 0;
input@ := endf;
_);
cur := first;
(L3061) _(
_if (input@ = endf) _then _(
_if (first <> 1) _then first := 0;
_exit L3061;
_);
nextLine;
_if (input@ = endl) _then _(
cur := cur + 1;
_if (cur > last) _then _(
_if (first = 1) _then get(input);
_exit L3061;
_);
get(input);
_);
_goto L3061;
_);
copy( first, 1 );
_);
_proced search;
_label 3764, 4150, 4165, 4302;
_var l3v1z:boolean;
l3v2z, l3v3z, l3v4z, l3v5z, l3v6z, l3v7z:integer;
l3v8z:char;
l3v9z, l3v10z,l3v11z, l3v12z, l3v13z, l3v14z, l3v15z:integer;
l3v16z:integer;
l3v17z, l3v18z, l3v19z, l3v20z, l3v21z, repCnt, l3v23z, l3v24z:integer;
l3v25z:_array[1..50] _of char;
l3v75z:_array [1..50] _of char;
l3v125z:_array [1..100] _of char;
l3v225z, l3v226z,
l3v227z, seenSep, l3v229z, l3v230z, l3v231z, l3v232z, l3v233z, l3v234z, l3v235z:boolean;
_proced P3104;
_var i:integer; _(
_if f@ = etx _then error;
l3v8z := f@;
l3v19z := 0;
l3v20z := ;
seenSep := ;
l3v229z := ;
l3v230z := ;
L1113;
(loop) _repeat _select
f@ = etx: _exit loop;
(f@ = l3v8z): _( L1113; _exit loop _);
(f@ = separ): _(
_if seenSep _then _( write('НЕСКОЛЬКО РАЗДЕЛИТЕЛЕЙ !'); flush; _GOTO 5217 _);
seenSep := true;
L1113;
_);
true: _(
_if seenSep _then l3v20z := (l3v20z + 1) _else l3v19z := (l3v19z + 1);
_if (l3v19z > 50) _or (l3v20z > 50) _then _(
write('ДЛИНА ОБРАЗЦА > ', 50:0);
flush;
_GOTO 5217;
_);
_if seenSep _then l3v75z[l3v20z] := f@
_else _(
l3v25z[l3v19z] := f@;
_if (f@ = endl) _or (f@ = unisym) _then l3v234z := true;
_);
L1113;
_)
_end _until false;
_if seenSep _then l3v234z := true;
_if (l3v19z = 0) _and (l3v20z = 0) _then _( write('НЕТ ОБРАЗЦА'); flush; _GOTO 5217 _);
_if ((l3v19z = 0) _or (l3v20z = 0)) _and seenSep _then _(
write('В ОБРАЗЦЕ НЕТ ');
_if (l3v19z = 0) _then ГГ( 'ЛЕВОЙ' ) _else ГГ( 'ПРАВОЙ' );
ГГ( ' ЧАСТИ' );
flush;
_GOTO 5217;
_);
i := 2;
(a) _if i <= l3v19z _then _(
_if (l3v25z[1] = l3v25z[i]) _or (l3v25z[i] = unisym) _then l3v229z := true
_else _( i := i + 1; _goto a _);
_);
_if seenSep _then _(
i := 2;
(a) _if i <= l3v20z _then _(
_if (l3v75z[1] = l3v75z[i]) _or (l3v75z[i] = unisym) _then l3v230z := true
_else _( i := i + 1; _goto a _);
_);
_);
l3v19z := l3v19z - 1;
_if seenSep _then l3v20z := l3v20z - 1;
_);
_proced L3275;
_(
l3v21z := 0;
_if f@ = etx _then EXIT;
_repeat _select
f@ = etx: _(
_if g18z _or _not l3v1z _then _(
_if ((l3v125z[1] = 'К') _or (l3v125z[1] = 'В')) _and (l3v21z = 1) _then _( f@ := l3v125z[1]; EXIT _)
_else error;
_);
EXIT;
_);
(f@ = l3v8z): _( L1113; l3v1z := true; EXIT _);
true: _(
l3v21z := (l3v21z + 1);
_if (l3v21z > 100) _then _( write('ДЛИНА СТРОКИ > ', 100:0); flush; _GOTO 5217 _);
l3v125z[l3v21z] := f@;
L1113;
_)
_end _until false
_);
_proced L3351;
_(
_if (repCnt < (l3v23z - 1)) _then _(
l3v1z := false;
l3v235z := true;
_) _else _(
l3v1z := true;
l3v235z := false;
_if (l3v23z <> 0) _and (((l3v23z + l3v24z) - 1) = repCnt) _then l3v12z := (l3v11z + 1);
_)
_);
_function F3371(_var l4a1z:_array [1..50] _of char; l4a2z:integer; l4a3z:boolean):boolean;
_label 3403;
_var l4v1z:char; l4v2z:boolean;
l4v3z, l4v4z, l4v5z, l4v6z, l4v7z, l4v8z, l4v9z, l4v10z:integer; _(
(q) l4v1z := unisym;
code(=4СЧ4,УИ11=ВИ,4ЗЧ3=11СЧ,4СР7=4ЗЧ10,);
3403: code(L3403:);
_if (l3v227z _and l3v231z _and _not l3v232z) _and ((l2v17z = 2) _or _not l3v234z) _then _(
l3v227z := false;
l3v13z := l3v12z;
_if (l2v17z <> 7) _or (l3v12z <= l3v11z) _then code(=16ПВL5526,);
_);
code(6ПВL3530=,1СЧ7=11СР,У0L3430=);
_if l4v2z _then _(
_if _not l3v231z _then _( output@ := input@; code(=16ПВTTOUT,) _);
get(input);
_goto 3403;
_); code(L3430:);
_if l3v1z _and l3v231z _then code(=16ПВL5452,);
l4v3z := 1;
_while l4v3z <= l4a2z _do _(
_if _not l3v231z _and (l4v3z = 1) _then_(
code(СЧ74220=); l4v6z := ;
code(СЧ75225=); l4v7z := ;
_);
get(input);
_if l4a3z _and (l4v3z = 1) _then _(
code(СЧ74220=); l4v4z := ;
code(СЧ75225=); l4v5z := ;
l4v10z := l3v12z;
_);
_if l3v227z _and l3v231z _and _not l3v232z _and ((l2v17z = 2) _or _not l3v234z) _then _(