ZXTape!HAMMURAB  !\6!H\6͵ !]>7 ]8]!>7(!L>!? Ok Q32767:23760\:58443K:58444L:23739\,111o:""  |;;33R*~=(^#V@##~< ~w#~< ~w#~w~86~8686~ 6#~@WOF  FF( CzW{ _zWQ>XWFK x 66V( y(~# ~G#~O#^ "" U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U UUWUUWUUW?U N*UW NU N*UW NU ?N*UW NU N*UW NU N*UW ?NU N*UW NU N*UW ?NU N*UW NU N*UW NU N*UW NU ?0??N*UW NU ?N*UW NU N*UW ???NU N*UW NU ???N*UW ?NU ?N*UW ??NU N*UW ????NU N*UW NU N*UW NU N*UW NU N*UW NU N*UW?U*UWU*UWU*UPU* U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U A(ADADADADAhA>!? O͹0!+| ͵0͵0>Ƹ0$ ͹0x0͹yO& 0uyO~#.͵>˸Ҝ|gz |͹> = > (y/O><22hY2iY2jY2kY2lY2mY2nY2oY2pY2qY2rY2sY2tY2uY2vY2wY7!X@8p8p88xx88{ " """"!# xp8p8߀xqp8p8~q? " """"!# cc>>0>>>~~fp8p8=p8p8> `  ""!B""""" " c<<<|<6`|<<f cf<ff00fm ` c>>~fff`mf 8c>f`mxf8f~8~|<xx8qpp8p8=p " A@ ! a !!¡b! c|0<>f>f|00fm ` ?cccfff<>mcf>~>ff<>ml>f>f~8x>8<qpp8p88pq " A@ ! a !!¡b! `0fff06c|`00fm c cccf>ffmcf0ffffffmff|ff8??πp8x߀p8p8qB @"! !""""! " 6>0|6>f>c>`>00?>>>~<<|>?><~><c>><|>?c>`<>f8?x}x}߁8p=p~88qǀB @"! !""""! " `<`0`@  '~? o&@|Q>O#``0@0pb C_G80զ~qu  `K!p  pgp`fp؛b <,K38<80` Ng@fj5 @/ !c8!@8s8@ -6⼇Nm_?;h#U>`@ ``8xROx l~@Y !Ep8AH4`PD!U ` $ S0g`2 U =@"ŗ0 T#T@`0`\p~!vrC}#p?VF!E $4`P! l_@_T@X38NG^/^q808$0 Ulߜ`@ nx<ˀ#HG0_ @4U0 \@?o? ͪo*r0$ 0~@0 w%/HP$y0gx.2L;s q@32@wcP@@ P@ `?倸@ yA1 3@o8Fp&F 0`0` f?\(hP%/B-R H(JP IR!%I@HJ%-J@$ 2@%F0@0_ǂ@@2_G00@/`|>@1o``y @0xǗ9 &@ ~`@Iw|_@0NhP=)q- &䥩JLI!%q@FK%-J@' @'P@r0 -O(iG50?XxWfψ @ n6d @ ?` e1o/ %X %)@R+N  ! iKNR!%`HAJ=K$ @0_  1_'T  $ ^  0@%|Bw% A,N-@ހ,? (~& OF9 (X %)BR+BdH)@iKґ$IR!%`HIJ!%+K$ DBP@G0~ȿؙ@00@ 0K(E)=(K(E)*1.1 ) E  600X -----------------------  0 V=   ----------------------- */Y,0;"" /I=Y+1Y+6 4 I,0;"";I,31;"" >I C$"" H R/Y,0;"" WI=Y+1YU-1 \ I,0;"";I,31;"" aI f0YU,0;"" p  Wineta  0:58444L  I=130:I   Inicjacja  3:3: y=7:800  '9 ,7;"Liczba grajcych ?" 11 ,14;"(1-6)" 3710:F=V:F<491F>5461025  F=F eN$(42*):T$="":L(F):P(F):C(F):A(F):D(F):B(F):S(F):K(F):Z(30):E(30):F(F) NG(F):T(F):V(F):H(F):I(F):J(F):O(F):R(F):N(F):Q(F):M(F):U(F):W(F) A=1F: `A(A)=0:B(A)=0:C(A)=0:D(A)=0:U(A)=0:V(A)=0:LU=0 $ )Y5,8;"Imi gracza no.";a;8,12 ;"-------";7,11 ;"?"; 89800H&:F$=""10808 ;"A$=" ":A$(1̱F$)=F$ =Y=3:800  B5N$(7*A-67*A)=A$(17) G W(A)=A$ LY=13 :800  QH15,4;"Kobieta czy Mczyzna ?";17,13 ;"(K/M)" [ 710 `#V75KV77M1115[ eV=75KV(A)=15 jG(A)=25:H(A)=10 :I(A)=5:J(A)=2:O(A)=1420+(*8):K(A)=1000:L(A)=10000':R(A)=10000':T(A)=1:N(A)=3 oKP(A)=502:Q(A)=5:M(A)=25:S(A)=2000:F(A)=2 tA y ~Y=7:800  '9 ,7;"Wybierz poziom gry" 11 ,14;"(0-9)" 3710:U=V:U<480U>5791165 U=U+9 Y1=1400x :Y=7:800  %9 ,8;"Tajne zbrojenia?" 11 ,14;"(T/N)" /710:TAZB=0:V="T"TAZB=1 V"T"V"N"1185    200 (I=130 2.Z(I)=T$+1:A$:E(I)=T$+A$:T$=T$+A$ <I FB$="rzetelne" PC$="rozsdne" ZD$=" surowe " dE$=" okrutne" n "Y=3:YU=7:850R %RT=((*A1+1)*S(E)/100d) @4,1;"Urodzio si ";RT;" poddanych":S(E)=S(E)+RT %RT=((*A2+1)*S(E)/100d) RT>S(E)RT=S(E)  ,5,1;"Zmaro ";RT;" poddanych"  LZG=RT:H1=S(E) S(E)=S(E)-RT: @----------------------- J!Y=YCOR:YU=Y+4:850R T,Y+1,1;"Wybuchy rozruchy ..." WRT=-(*(JK*910)) YR(E)0W<62014+W  2030 !W$="Susza ... groba godu !": %W$="Za pogoda, sabe zbiory ...": W$="Przecitne niwa ...": W$="Dobre zbiory ...": 'W$="Dobra pogoda, cudowne niwa...": R=(*25+1) 3RZE=S(E)-(L(E)/5):RZE<0RZE=0 (X=L(E):X>S(E)*5X=S(E)*5 Y=R(E)*2:Y2Y=2 Y<.8LY=.8L  !L=L*Y:L=(L*10 )/10 %"L>F(E)+.5L=F(E)+.5 *8L5:5:2950 HR(E)=(R(E)):H1=H1 R"Y=3:YU=9 :850R \14,1;"Szczury zjady ";R;"% zboa " f5,1;W$ k6,1;"Zbiory -" p7,1;"Kraj -" z8,1;"Zasiew -" $Y=10 :YU=17:850R 411 ,1;"zboe zboe cena cena skarb" .12 ,1;"zapasy popyt zboa ziemi" 316,1;"Stert Stert tys.St. ha Fl." j6,11 ;" ";7,9 ;" ";8,11 ;" " 614,0;" " G6,11 ;H1;" stert zboa";7,9 ;L(E);" hektarw" &SD=(L(E)/2):SD>R(E)SD=R(E) ?8,11 ;SD;" (";(100d*SD/(L(E)/2));"%)" K(E)=(K(E)) 14,1;R(E)-SD 14,8;D1 14,15;G 14,21;L E14,26-1*(K(E)>99999COK(E)<-9999');K(E) $Y=18:YU=21:850R 419,1;"1-kupno zboa 2-sprzeda zboa" 420,1;"3-kupno ziemi 4-sprzeda ziemi" .21,6;" ENTER Kontynuacja " ----------------------- *710:I1=V:I1=13 2300 %I1<491I1>5242235 #2250+(I1-480)*10  2190 D0,0;" Ile zboa chcesz kupi ";I1  2900T K(E)=K(E)-(I1*G/1000) R(E)=R(E)+I1  D0,0;" Ile zboa chcesz sprzeda ? ";I1  2900T RI1>R(E)#0;" Niestety nie masz tyle ":.2~L,0:DELAY: K(E)=K(E)+(I1*G/1000) R(E)=R(E)-I1  D0,0;" Ile ziemi chcesz kupi ? ";I1  2900T L(E)=L(E)+I1 K(E)=K(E)-(I1*L)  D0,0;" Ile ziemi chcesz sprzeda ? ";I1  2900T [I1>L(E)-5000#0;" Musisz pozostawi 5000 ha ! ":.2~L,0:DELAY: L(E)=L(E)-I1 K(E)=K(E)+(I1*L)   Zboe dla ludu  D0,0;" Ile zboa dla poddanych ";G1 &G1R(E)*.2~L+123553 )y#0;0,0;"musisz da poddanym ";(R(E)*.2~L+1);" stert":.2~L,0:DELAY:2190 .4#0;" (20% zapasw zboa)":DELAY:2190 3G1R(E)2400` =f#0;0,0;"masz o ";G1-R(E);" stert za mao !":.2~L,0:DELAY:2190 `Co si dzieje w panstw. e2950 :YCOR=8 jR(E)=R(E)-G1 oZ=G1/D1-1 tZ<0Z=Z*4 y4Z1=94^-G(E)-H(E)-I(E):Z1<0Z1=Z1*J(E) ~0Z1=Z1/90Z:Z1>0Z1=Z1+3-J(E) JK=Z1+Z G132000}RT=32000} RT=(*RT+(RT/5)) #Y=8:YU=14:850R A9 ,2;RT;" chopw zostao lennikami"':S(E)=S(E)+RT 10 ,2;"a take:" YU=((*RT+1)/100d) ,11 ,2;"- szlachty ---- ";YU N(E)=N(E)+YU YU=((*RT+1)/40() ,12 ,2;"- duchownych -- ";YU Q(E)=Q(E)+YU YU=((*RT+1)/20) ;13 ,2;"- kupcw ------ ";YU:YCOR=15 M(E)=M(E)+YU ----------------------- J(E)<32560 EJ1=S(E)/100d*(J(E)-2)*(J(E)-2):J1=(*J1+1) J1>S(E)J1=S(E) S(E)=S(E)-J1 26,1;"wyemigrowao ";J1;" poddanych" JK<01600@  710: LZGH1/2SMI=1: 2950 :YCOR=3 K(E)>-12570 :K(E)=(K(E)*1.5@):Y=3:YU=6:850R ?4,2;"Musisz zapaci ";((K(E)/3));" Fl." <5,2;"Tytuem zalegych odsetek":YCOR=7 $YU=RZE/100d:YU>A(E)YU=A(E) [Z1=((*25+1))*(100d-H(E))*.01z# =*(D(E)/10 +1)*YU*18 $YU=RZE/200:YU>D(E)YU=D(E) [Z2=((*25+1))*(100d-H(E))*.01z# =*(A(E)/10 +1)*YU*36$ 4Y=YCOR:YU=Y+5:850R:YCOR=YCOR+6 )Y+1,2;"Dochody handlowe :" !9Y+3,1;"- markety (";A(E);") - ";Z1;" Fl." #=Y+4,1;"- manufaktury (";D(E);") - ";Z2;" Fl." (!Y=YCOR:YU=Y+2:850R -P(E)=P(E):Z3=P(E)*3 2KYCOR+1,2;"Na cele wojskowe - ";:YU=Z3:300,:YU;" Fl." 7K(E)=(K(E)+Z1+Z2-Z3) < 710 F ----------------------- X=(D1-G1)/D1*100d-9 X<0X=-8 'A1=3:A2=X+10 :1500 (X=X+9 :X=((*X)*P(E)/100d) X=0P(E)=0 2Y=8:YU=11 :YCOR=12 :850R L9 ,1;"Wybucha epidemia w Armii.";10 ,1;"Zmaro "; X>P(E)X=P(E) =X=18;8;" 1 Twj onierz":2750 X;" Twoich onierzy ..." P(E)=P(E)-X: S----------------------- hI1<1I1ɺI1I1=0 r -----------------------  "Y=0:YU=2:850R 51,1;T$(Z(T(E)+V(E))E(T(E)+V(E)));" "; !N$(E*7-6E*7) 1,23;"Rok ";Y1   Martwota  6:6:2950 #Y=4:YU=14:850R *6,1;"Przykra wiadomo ..." &8,1;"Wanie stracie"; V(E)=158;"a"; " ycie " 'SMI<1SMI=(*9 +2) 9 ,1; 3090 +SMI*10 -11 ,1;"To koniec Twej przygody" 012 ,1;"Ze redniowieczn ekonomi" U(E)=1 710:670 #"w czasie rozruchw godowych.": &"w czasie powstnia ...": 0$"spadajc z konia na polowaniu.": :"z powodu zarazy ...": D"chorujc na tyfus ...": N"chorujc na osp ...": X"chorujc na dum ...": b"w wyniku zamachu ...": l)"otruty";:V(E)=158;"a"; n" przez wasne potomstwo.": v1"zasztyletowany";:V(E)=158;"a"; x" w ku":  Wojna  $(L(E)/1000)>P(E)4100  I=1F I=E4060 1P(I)>(P(E)*1.25 )U(I)=04100 I  -----------------------  Z=E  I=1F I=E41506 U(I)=141506 P(I)P(E)41506 .P(E)<(5*(L(I)/1000))41506 "P(I)>P(Z)Z=I 6I ;Z=E @,Q1=*3+1:Q2=*3+1 J!ST=Q1*P(E)*1.25 /(Q2*P(Z)) O 44000 TST14200h ^ST<14300 h/STZ=(P(E)*ST/10 +(ST*4)+.5) r-STE=P(Z)/(10 *ST)-ST*4+.5 wSTE<1STE=1 411 ,1;"Mimo przewagi liczebnej wroga," 412 ,1;"osignite zostao zwycistwo."  4500  710: /11 ,1;"Mimo bohaterskiej obrony," 212 ,1;"Twoje wojska zostay pobite." ST=04600 ST=1/ST -STE=(P(Z)*ST/10 +ST*4+.5) /STZ=(P(E)/(10 *ST)-ST*4+.5) STEP(E)4332 +P(Z)=P(Z)-STZ:P(Z)<0P(Z)=0  4600 $UTRZ=((*200+300,)*ST) UTRZ>L(E)UTRZ=L(E) STZ<1STZ=1  4500 <AZO=(*A(E)):BZO=(*B(E)):CZO=(*C(E)):DZO=(*D(E)) @YU=1000*AZO+3000 *BZO+5000*CZO+2000*DZO <A(E)=A(E)-AZO:B(E)=B(E)-BZO:C(E)=C(E)-CZO:D(E)=D(E)-DZO 519,1;"Zagrabiona ziemia - ";UTRZ;" ha"  L(E)=L(E)-UTRZ:L(Z)=L(Z)+UTRZ J21,1;"Zniszczenia wojenne - ";YU;" Fl"+("."YU<10000')  710: 02:2:2950 :#Y=4:YU=14:850R D/6,1;"Napadnito na twoje woci" N&7,1;"Najedc okaza"; b"a"V(Z)=15;" si:" v59 ,1;T$(Z(T(Z)+V(Z))E(T(Z)+V(Z)));" "; !N$(Z*7-6Z*7)  NY=16:YU=22:23659k\,1:850R:23659k\,2 P(E)5245060  5500| 5600:5040 K(E)=K(E)+C1+S1+I1+J %K(E)<(-2000*T(E))8000@  &J=((J(E)*300,-500)*T(E)) 2Y=160-G(E)-H(E)-I(E):Y<1Y=1 ?C1=(N(E)*80P+Q(E)*65A+M(E)*120x)*(Y/100d)  US1=(N(E)*30+M(E)*502+Q(E)*10 )*(Y/100d)*(5-J(E))/2 EI1=N(E)*250+Q(E)*120x+(J(E)*10 *M(E))*(Y/100d) C1=(C1*G(E)/100d) (S1=(S1*H(E)/100d) 2I1=(I1*I(E)/100d) < P"Y=3:YU=5:850R d&4,1;"Dochody pastwa -" n#Y=6:YU=14:850R x38,1;"Co Export Import Sdy " } g10 ,1;G(E);"%";10 ,8;H(E);"%";10 ,17;I(E);"%";10 ,23; 5300+J(E)*10 V12 ,1;C1;12 ,8;S1;12 ,17;I1;12 ,25;J %4,19;J+C1+S1+I1;" Fl."  B$: C$: D$: E$: $Y=15:YU=21:850R "$16,3;"1-Opaty celne" ,*17,3;"2-Podatek od exportu" 6*18,3;"3-Podatek od importu" @#19,3;"4-Sdownictwo" J.21,6;" ENTER Kontynuacja " T |DA=V 5540+10 *DA DELAY  G0,0;" Nowe co? (0-100%)  ";I )I=I:I>100dI<05550 G(E)=I:5540 G0,0;"Nowy podatek od exportu? (0-50%) ";I (I=I:I>502I<05560 H(E)=I:5540 G0,0;"Nowy podatek od importu? (0-25%) ";I (I=I:I>25I<05570 I(E)=I:5540 :21,0;" Sdownictwo " Y#0;0,0;" 1-Rzetelne 2-Rozsdne 3-Surowe 4-Okrutne"  710 (I=V:I<491I>5245586 J(E)=I:;:5540 S4,19;" ";10 ,1;" " 612 ,1;" ": p Wszyscy s martwi  z71:1::Y=4:YU=16:850R 6,2;"Gra zakoczona...";8,2;"Niestety, nikt z grajcych";9 ,2;"nie opanowa tajnikw";10 ,2;"redniowiecznej ekonomii." eY=18:YU=20:850R:19,1;"Moe sprbujecie jeszcze raz ?":710: X Test zdobyczy punktow. ]Z=0:A=A(E):7500L:A=3*B(E):7500L:A=5*C(E):7500L:A=2*D(E):7500L:A=K(E)/4000:7500L bA=L(E)/500:7500L:A=M(E)/6:7500L:A=N(E):7500L:A=P(E)/20:7500L:A=Q(E)/2:7500L gA=S(E)/200:7500L lA=Z/U+2-J(E):A=A vA>15A=15 $O(E)=Y1+2T(E)=T(E)+1 O(E)=Y1U(E)=1 A<1A=1 4T(E)=A:T(E)>L(E)/1000T(E)=L(E)/1000 T(E)=157600  LA>30A=30 jA=A:Z=Z+A: 1:1:2950 #Y=3:YU=21:850R 5,2;"Zostae"; V(E)=158;"a"; " zwycizc ..."; ]V(E)=158;8;8;8;8;8;8;"zczyni ..." *7,4;"Nikt rwnie doskonale" I8,4;"nie potrafi opanowa";9 ,4;"tajnikw -" .11 ,6;"redniowiecznej ekonomii"  .12 ,6;"" +14,2;"Oto lista pokonanych:" Z=1:I=1F (I=E7750F 2?15+Z,2;I;". ";T$(Z(T(I)+V(I))E(T(I)+V(I)));" "; 7 Z=Z+1 69000(# # 9050Z# #9290J$+II # 9610% $ 710 $+ZZ=V:ZZ<480ZZ>5799220$ $9599%+II $ZZ=ZZ:ZZ=0 $II=19250"$ $II=29260,$ $II=392706$ $II=49275;$ $ II=59280@$ $!II=69285E$ $"?A(E)=A(E)+ZZ:M(E)=M(E)+ZZ*5:K(E)=K(E)-ZZ*1000: $,)D(E)=D(E)+ZZ:K(E)=K(E)-ZZ*2000: $6NB(E)=B(E)+ZZ:N(E)=N(E)+ZZ*((*2+1)):K(E)=K(E)-ZZ*3000 : $;NC(E)=C(E)+ZZ:Q(E)=Q(E)+ZZ*((*5+1)):K(E)=K(E)-ZZ*5000: $@%S(E)"Z"9802J& &NB$;:F$=F$+B$:I &O C