Index of /ukdwk_archive/dwkwebcomplekt/LA_REPUBLIKA_DE_ANCHURIA
1000 DIM N(7),F(5),P(10),L(5),G(13)
1010 LET C9=10
1020 LET W=0 \ LET Z1=0
1030 PRINT "**********************************"
1040 PRINT "* LA REPUBLIKA DE ANCHURIA *"
1050 PRINT "**********************************"
1060 PRINT
1070 PRINT "бш - опегхдемр пеяосакхйх юмвспхъ"
1080 PRINT "мсфмю хмярпсйжхъ он сопюбкемхч ярпюмни?"
1090 LET C9=5
1100 GOSUB 4510
1110 IF N=1 THEN 4630
1120 LET P(2)=0
1130 LET P(3)=0
1140 LET P(4)=0
1150 LET P(5)=0
1160 LET P(6)=0
1170 LET L(1)=1500
1180 LET L(3)=0
1190 LET G(5)=0
1200 LET G(6)=0
1210 LET G(7)=0
1220 LET G(8)=0
1230 LET G(9)=0
1240 LET Y=0
1250 LET Y2=0
1260 LET X4=0
1270 LET X5=0
1280 LET P(1)=100
1290 LET P(8)=P(1)
1300 LET G(1)=5000
1310 LET G(10)=G(1)
1320 LET L(4)=L(1)
1330 LET P(7)=0
1340 LET L(2)=0
1350 LET G(2)=0
1360 LET G(3)=0
1370 LET G(4)=0
1380 LET V=10000
1390 LET V1=0
1400 LET F(1)=0
1410 LET F2=0
1420 GO TO 1580
1430 LET X1=36
1440 LET K1=INT(100000*RND(N))
1450 LET P(9)=0
1460 LET X3=1
1470 LET K4=8+INT(3*RND(N))
1480 GOSUB 5520
1490 LET K3=8+5*RND(N)
1500 LET K2=2.5+4*RND(N)
1510 LET K6=.25+RND(N)*.5
1520 LET X6=0
1530 GO TO 1790
1540 PRINT
1550 PRINT
1560 LET C9=10
1570 GOSUB 5560
1580 PRINT "яйнкэйн кер бюье опебняундхрекэярбн"
1590 PRINT "пюявхршбюер мюундхрэяъ с бкюярх",
1600 GOSUB 4510
1610 LET N=ABS(N)
1620 LET N=INT(200*(N/200-INT(N/200)))
1630 FOR I=1 TO N
1640 LET G2=RND(N)
1650 NEXT I
1660 LET G3=INT(7*RND(N))
1670 GO TO 1430
1680 PRINT
1690 IF RND(N)>.75 THEN 1430
1700 IF RND(N)<=.2 THEN 1750
1710 PRINT " фекюере щллхцпхпнбюрэ б юпцемрхмс ?"
1720 GOSUB 4510
1730 IF N=0 THEN 1750
1740 GO TO 5600
1750 LET C9=10
1760 GOSUB 5560
1770 LET C9=10
1780 GOSUB 5560
1790 PRINT "цнд",,Y \ PRINT \ PRINT
1800 IF X31 THEN 2500
2470 PRINT "сдюп мнфю мюпндмнцн лярхрекъ напшбюер бюьс фхгмэ"
2480 PRINT "нярюрнй юмвспхияйнцн мюпндю щллхцпхпсер б юпцемрхмс"
2490 GO TO 2410
2500 LET R=10+INT(13*RND(N))
2510 PRINT "яйнкэйн гепмю фекюере щйяонпрхпнбюрэ он";R;"днкк.гю асьекэ"
2520 GOSUB 4510
2530 IF N=0 THEN 2610
2540 IF N<=G(1) THEN 2570
2550 GOSUB 4540
2560 GO TO 2510
2570 LET G(11)=-N
2580 LET V=V+R*N
2590 LET G(1)=G(1)+G(11)
2600 LET U=R
2610 LET R=100+INT(50*RND(N))
2620 LET U=0
2630 PRINT "яйнкэйн юйпнб фекюере йсохрэ он";R;"днкк. гю юйп"
2640 GOSUB 4510
2650 IF N<0 THEN 2630
2660 IF N=0 THEN 2730
2670 IF N*R0 THEN 3090
3070 IF RND(N)<.2 THEN 5780
3080 IF X5<0 THEN 5240
3090 PRINT "яйнкэйн юйпнб фекюере гюяеърэ?"
3100 GOSUB 4510
3110 IF N<0 THEN 3080
3120 IF N<=G(1) THEN 3150
3130 GOSUB 4540
3140 GO TO 3080
3150 IF N<=L(1) THEN 3180
3160 GOSUB 4560
3170 GO TO 3080
3180 IF N<=P(1)*10+F(1) THEN 3210
3190 GOSUB 4580
3200 GO TO 3080
3210 LET G(4)=-N
3220 LET G(1)=G(1)+G(4)
3230 PRINT "яйнкэйн гепмю бш унрхре сонрпеахрэ б охыс?"
3240 GOSUB 4510
3250 IF N<=G(1) THEN 3280
3260 GOSUB 4540
3270 GO TO 3230
3280 IF N>X1*P(1) THEN 3370
3290 LET P(4)=-(P(1)-INT(N/X1))
3300 LET Y1=-P(4)
3310 IF P(4)<=0 THEN 3340
3320 LET X4=X4+9
3330 LET P(4)=0
3340 IF Y1>=-5 THEN 3360
3350 LET Y=-5
3360 IF Y1<=0 THEN 3370
3370 LET G(3)=-N
3380 LET G(12)=N-X1*P(1)
3390 LET G(1)=G(1)+G(3)
3400 LET P(1)=P(1)+P(4)
3410 LET G2=3+INT(12*RND(N))
3420 IF RND(N)<.3 THEN 5980
3430 IF RND(N)<.35 THEN 6020
3440 IF RND(N)<.4 THEN 3470
3450 IF RND(N)>.999 THEN 6060
3460 GO TO 3490
3470 PRINT " мюьеярбхе яюпюмвх "
3480 LET G2=INT(G2/2)-1
3490 LET G(2)=-G2*G(4)
3500 LET G(1)=G(1)+G(2)
3510 IF RND(N)>.25 THEN 3540
3520 LET G(7)=-INT(G(1)/10)
3530 LET G(1)=G(1)+G(7)
3540 IF X5=0 THEN 3560
3550 GO TO 3570
3560 GOSUB 4910
3570 IF P(1)>0 THEN 3590
3580 LET P(1)=0
3590 IF RND(N)>K6 THEN 4200
3600 LET W=.25
3610 PRINT "***** яняедмъъ цбюрелюкю сцпнфюер бнимни *****"
3620 PRINT "на'ъбкъере рнрюкэмсч лнахкхгюжхч ?"
3630 GOSUB 4510
3640 IF N=0 THEN 3690
3650 LET X4=X4+.5
3660 LET W=1
3670 LET Y1=Y1+5
3680 GO TO 3750
3690 PRINT "мюелмхйх рпеасчр он 80 асьекеи гепмю"
3700 PRINT "асдере кх бш опхбкемйюрэ мюелмхйнб ?"
3710 GOSUB 4510
3720 IF N=0 THEN 3750
3730 PRINT "яйнкэйн мюелмхйнб бш опхбкевере ?"
3740 GOSUB 4510
3750 IF RND(N).25 THEN 3800
3790 LET W=1.5
3800 IF NRND(N) THEN 4000
3850 PRINT "***********************"
3860 PRINT "* бнимю опнхцпюмю *"
3870 PRINT "***********************"
3880 IF F2=0 THEN 3930
3890 PRINT
3900 PRINT "ондкше цбюрелюкэжш сйпюкх бюь рпюйрнп !!!"
3910 LET F2=0
3920 LET F(1)=0
3930 LET X4=X4+9
3940 LET Y1=Y1+50/W
3950 LET P(5)=-INT(P(1)/2)
3960 GOSUB 4680
3970 LET L(3)=-INT(L(1)/2)
3980 LET G(8)=-INT(G(1)/2)
3990 GO TO 4070
4000 PRINT "бнимю бшхцпюмю !!!"
4010 LET X4=X4+.5
4020 LET P(5)=-INT(P(1)/4)
4030 LET L(3)=INT(L(1)/2)
4040 LET G(8)=INT(G(1)/4)
4050 IF N>ABS(P(5)) THEN 4080
4060 LET P(5)=P(5)+N
4070 LET P(1)=P(1)+P(5)
4080 LET L(1)=L(1)+L(3)
4090 LET G(1)=G(1)+G(8)
4100 IF N*80<=G(1) THEN 4180
4110 PRINT "с бюя ме убюрхр гепмю гюокюрхрэ мюелмхйюл"
4120 LET P(7)=-INT(.25*P(1))
4130 LET G(9)=-INT(.75*G(1))
4140 LET P(1)=P(1)+P(7)
4150 LET G(1)=G(1)+G(9)
4160 LET X4=X4+9
4170 GO TO 4200
4180 LET G(6)=-N*80
4190 LET G(1)=G(1)+G(6)
4200 IF RND(N)>.1 THEN 4240
4210 PRINT "---- вепмюъ вслю онпюгхкю юмвспхч ----"
4220 LET P(6)=-INT(P(1)/2)
4230 GO TO 4270
4240 IF RND(N)>.2 THEN 4330
4250 PRINT "---- б ярпюме ябхпеоярбсер щохделхъ ункепш ----"
4260 LET P(6)=-INT(P(1)/20)
4270 LET P(1)=P(1)+P(6)
4280 IF G(12)>0 THEN 4300
4290 LET G(12)=0
4300 LET G(12)=G(12)/(2*X1)
4310 IF G(12)<.25*P(1) THEN 4330
4320 LET G(12)=.25*P(1)
4330 LET P(2)=INT((.09+.05*RND(N))*P(1))+1
4340 LET P(3)=-INT((.04+.03*RND(N))*P(1))
4350 LET P(1)=P(1)+P(2)+P(3)
4360 IF G(7)=0 THEN 4390
4370 PRINT "==== йпшяш гюапюкхяэ б бюьх юлаюпш ===="
4380 GOSUB 4770
4390 LET Y2=Y2+1
4400 IF Y2>=0 THEN 4420
4410 LET Y2=0
4420 LET Y=Y+1
4430 IF F2=0 THEN 4500
4440 LET F2=F2-1
4450 IF F2=0 THEN 4470
4460 GO TO 4500
4470 LET F(1)=0
4480 PRINT " япнй щйяоксюрюжхх рпюйрнпю хярей !"
4490 GOSUB 4680
4500 GO TO 1680
4510 INPUT N
4520 LET N=INT(N)
4530 RETURN
4540 PRINT " с бюя мер ярнкэйн гепмю "
4550 RETURN
4560 PRINT " с бюя мер ярнкэйн гелкх "
4570 RETURN
4580 PRINT " с бюя ме мюаеперяъ ярнкэйн кчдеи "
4590 RETURN
4600 INPUT N
4610 IF N=1 THEN 4630
4620 IF N<>0 THEN 4600
4630 PRINT " рюйни хмярпсйжхх, й янфюкемхч, мер"
4640 PRINT " пюгахпюиреяэ он ундс декю"
4650 PRINT
4660 GO TO 1120
4670 LET Z1=0
4680 PRINT " онмърмн ?"
4690 INPUT Z
4700 IF Z=1 THEN 4740
4710 LET Z1=1
4720 PRINT " х реоепэ ме онмхлюере ?"
4730 GO TO 4690
4740 IF Z1=0 THEN 4760
4750 PRINT " TO-TO !"
4760 RETURN
4770 LET X7=INT(-G(7)*RND(N))
4780 PRINT
4790 PRINT " рср бнр йюйхе-рн кчдх опняър";X7;"ась. гю"
4800 PRINT " хярпеакемхе йпшя. дюдхре ?"
4810 GOSUB 4510
4820 IF N=1 THEN 4840
4830 RETURN
4840 IF RND(N)>.5 THEN 4880
4850 LET X6=1
4860 LET G(1)=G(1)-X7
4870 RETURN
4880 LET G(1)=G(1)-G(7)-X7
4890 LET G(7)=0
4900 RETURN
4910 IF X4>K2 THEN 4930
4920 RETURN
4930 PRINT
4940 PRINT " хг йнмтхдемжхюкэмшу хярнвмхйнб ярюкн хгбеярмн,"
4950 PRINT " врн опнрхбмхйх ясыеярбсчыецн пефхлю цнрнбър"
4960 PRINT " цнясдюпярбеммши оепебнпнр."
4970 PRINT
4980 PRINT " фекюере сапюрэ меакюцнмюдефмшу ?"
4990 GOSUB 4510
5000 IF N=0 THEN 5050
5010 PRINT "яйнкэйн?"
5020 GOSUB 4510
5030 LET P(9)=N
5040 IF N>0 THEN 5070
5050 LET X3=X3+INT(X3*.5*RND(N))
5060 GO TO 5190
5070 IF N>P(1) THEN 2470
5080 IF NINT(N/1000) THEN 5350
5330 LET X3=9
5340 GO TO 5370
5350 LET X3=X3-INT(N/1000)
5360 LET X4=X4/2
5370 PRINT "***** пегскэрюрш петепемдслю *****"
5380 IF N/X3*X1>X4*10 THEN 5500
5390 PRINT "бкюярэ гюубюрхкю ноонгхжхъ! бш опхцнбнпемш"
5400 PRINT "й онфхгмеммнлс гюйкчвемхч!"
5410 GOSUB 4670
5420 PRINT "еярэ фекючыхи бшбеярх ярпюмс хг йпхгхяю ?"
5430 GOSUB 4510
5440 LET X4=0
5450 LET X3=9
5460 IF N=0 THEN 2420
5470 LET X4=0
5480 LET X3=9
5490 GO TO 1790
5500 PRINT "мю щрнр пюг бяе нанькняэ - бш сдепфюкхяэ с бкюярх !"
5510 GO TO 1680
5520 FOR I=1 TO K4
5530 LET K3=RND(N)
5540 NEXT I
5550 RETURN
5560 LET I=1
5570 RETURN
5580 LET I=1
5590 RETURN
5600 IF RND(N)>.5 THEN 5690
5610 PRINT "**********************************************************"
5620 PRINT "* мнбши юйр лефдсмюпндмнцн реппнпхглю ! *"
5630 PRINT "* *"
5640 PRINT "* чмюиред опеяя яннаыхкн, врн 'анхмц' я дхйрюрнпнл юмвс- *"
5650 PRINT "* пхх мю анпрс он мехгбеярмшл опхвхмюл бгнпбюкяъ мюд *"
5660 PRINT "* юркюмрхвеяйхл нйеюмнл ! оюяяюфхпш х щйхоюф онцхакх! *"
5670 PRINT "**********************************************************"
5680 GO TO 5420
5690 PRINT " я акюцнонксвмшл опхашрхел б асщмня-юипея !"
5700 LET C9=4
5710 GOSUB 5580
5720 PRINT "мю бюьел кхвмнл яверс б ьбеижюпяйнл аюмйе";V;"днккюпнб !"
5730 LET V=0
5740 GO TO 5420
5750 PRINT " с бюя мер ярнкэйн демец !"
5760 RETURN
5770 GO TO 5970
5780 PRINT "фекюере йсохрэ б янберяйнл янчге рпюйрнп 'й-700'"
5790 PRINT "ярнхлнярэч 7000 днккюпнб !"
5800 PRINT
5810 PRINT " нм онгбнкхр бюл днонкмхрекэмн напюанрюрэ 500 юйпнб гелкх !"
5820 GOSUB 4510
5830 IF N=0 THEN 3090
5840 IF V>7000 THEN 5870
5850 GOSUB 5750
5860 GO TO 3090
5870 LET F(1)=F(1)+500
5880 LET F2=3+INT(5*RND(N))
5890 LET V=V-7000
5900 GO TO 3090
5910 PRINT " йпеохреяэ! бш ярюкх фепрбни мюдсбюрекэярбю !"
5920 PRINT
5930 GO TO 3030
5940 IF U=0 THEN 3030
5950 IF U
![[ICO]](/icons/blank.gif){kind=icon}
![[PARENTDIR]](/icons/bullet_arrow_up.png){kind=icon}