(100) ZZ$=CHAR$(147):vv$=CHAR$(18):FF$=CHAR$(146):PRINTZZ$
(104) INPUT "K5-ILOSC KROKOW";K5:AZ=1000
(108) INPUT "RASA MAT PSZCZ CAU/CAR";RA$
(112) IF RA$="CAU" THEN C1=2B.:C2=.3:GOTO 120
(116) C1=2B.:C2=.3
(120) INPUT "GR.WYDAJN.DOB.MAT.PSZCZ. W [TYS]";C3
(124) INPUT "GR.ROC.WYDAJN.MAT.PSZCZ. W [TYS]";C4
(128) IF C3<=.0 OR C4<=.0 THEN PRINTZZ$"Z M I E N  M A T K E":GOTO 120
(132) INPUT "POC.WYD.MAT.PSZCZ.W [TYS/DO BE]";DY
(136) IF DY<=.0 THEN PRINTZZ$"N I E C H  Z A C Z N I E  C Z E R W I C";GOTO 132
(140) INPUT "L.CERW.WYPR.OD POCZ.SEZ W [TYS]";S5
(144) INPUT "TM-CZAS ZYCIA PSZCZ.W [DOB.]";TM
(148) IF TM<21 THEN PRINT "P S Z C Z O L Y  C H O R E":STOP
(152) CZ=TM+21
(156) DIM A${18),B(18},X<18,KS),OW(CZ)
(160) A$(1)="DY-PROD.CERWIU W [TYS/DOBE]"
(164) A$(2)="Y- LICZBA JAJ W [TYS]"
(168) A$(3)="Y2- LICZBA LARW W [TYS]"
(172) A$(4)="Y3- LICZBA PSZCZOL W [TYS]"
(176) A$(5)="Y4- PSZCZOL 10 DNIOWYCH W [TYS]"
(180) A$(6)="Y5- PSZCOL 20 DNIOWYCH W [TYS]"
(184) A$(7)="Y6- ZBIERACZKI NEKTARU W [TYS]"
(188) A$(8)="YV- ZBIERACZKI PYLKU W [TYS]"
(192) A$(9)="U4- NEKTAR LUB SPADZ W [KG/DOBE]"
(196) A$(10)="PK-USR WSPOLCZ WAGI W [J.W.]"
(200) A$(11)="B- WYKORZ.ROCZ.PULI W [J.W.]"
(204) A$(12)="U0- ZAPAS MIODU NIEZASKLEP. W [KG]"
(208) A$(13)="U1- ZAPAS MIODU ZASKLEP. W [KG]"
(212) A$(14)="U2- ZAPAS PIERZGI W [KG]"
(216) A$(15)="SR- POW.WEZY W [DCM.KWADR.]"
(220) A$(16)="K1-SPOZ.MIODU W [KG/DOBE]"
(224) A$(17)="PT-TEMP.WSP.WAGI W [J.W.]"
(228) A$(18)="K3-NADM.SPOZ.MIODU [KD/DDB]"
(232) FOR I=1 TO 18:READ Z:B(I)=Z:NEXT
(236) DATA 5,5,5,5,2,2,5,5,8,8,4,9,9,9,4,6,6,6
(240) PRINTA$(12);:INPUTU0:PRINTA$(13);:INPUTU1
(244) PRINTA$(14);:INPUTU2:PRINTA$(2);:INPUTY:PRINTA$(3);:INPUTY1
(248) INPUT "Y2-CZERW ZASKLEPIONY W [TYS]";Y2
(252) PRINTA$(4);:INPUTY3:PRINTA$(5);:INPUTY4:PRINTA$(6);:INPUTY5
(256) INPUT "SKAD CZYTAC DANE O POGODZIE I POZYTKACH";N$OPEN 2,8,2,N$+",S,R"
(260) INPUT#2,KP:PAINT "ZAKRES DANYCH SRODOWISKOWYCH";KP
(264) DIMTT[KP), =TD(KP],Q1(KP/10+1),Q2(KP/10+1),QT(KP/10+1)
(268) FOR I=1 TO KP:INPUT#2,TT(I),TD(I):NEXT
(272) FOR I=1 TO KP/10+1:INPUT#2,Q1(I),Q2(I),QT(I):NEXT:CLOSE 2
(276) V0=0:V1=0:V2=0:SB=0:K=1
(280) PRINT AT(15,23)K:GOSUB 344
(284) O1=Q1(INT(K/10)+1);O2=Q2(INT(K/10)+1:L=QT(INT(K/10)+1)
(288) TA=TT(K):DE=TD(K)
(292) IF TA <=10 THEN PT=1
(296) IF TA>10 AND TA<=14 THEN PD=1-.1$DE
(300) IF TA>14 THEN PT=1
(304) IF DE=0 THEN PD=1
(308) IF DE>0 AND DE<=10 THEN PD=1-.1$DE
(312) IF DE>10.THEN PD=0
(316) P=PD$PT
(320) GOSUB 812:GOSUB 476:GOSUB 500:GOSUB 520:GOSUB 532:GOSUB 592:GOSUB 560
(324) X(1,K)=DY:X(2,K)=Y:X(3,K)=Y1:X(4,K)=Y3:X(5,K)=Y4:X(6,K)=Y5
(328) X(7,K)=YQ:X(8,K)=YV:X(9,K)U4:I(10,K)=X1:X(11,K)=B:I(12,K)=GO
(332) X(13,K))=U1:X(14,K)=U2:X(15,K)=SR:X(16,K)=X1:X(17,K)=PT:X(18,K)=X3
(336) K=K+1:IF K<KS THEN 280
(340) GOTO 824
(344) IF K>1 HEN 376
(348) FOR I=1 TO 3:DW(I)=Y/3:NEXT
(352) FOR I=4 TO 9:DW(I)=Y1/6:NEXT
(356) FOR I=10 TO 21:DW(I)=Y2/12:NEXT
(360) FOR I=22 TO 31:DW(I)=Y4/10:NEXT
(364) FOR I=32 TO 41:DW(I)=Y5/10:NEXT
(368) FOR I=42 TO CZ:DW(I)=(Y3-Y4-Y5)/(CZ-41):NEXT
(372) GOTO 452
(376) J=CZ-1
(380) DW(J+1)=DW(J)
(384) J=J-1
(388) IF J>0 THEN 380
(392)PK=.0
(396)IF K>11 THEN 408
(400)FOR I=1 TO K-1:PK=PK+X(17,I):NEXT:PK)K=PK/(K-1)
(404)GOTO 4:2
(408)FOR I=K-10 TO K-1:PK=PK+X(17,I):NEXT:PK=PK/10.
(412)IF X<10,K-1<=.1 AND X(1,K-1)<=.0
THEN ON(CZ-1)=DW(CZ-1)+ON(CZ)
(416)GOSUB 740:OW(1)=DY
(420)Y=0:FOR I=1 TO 3:Y=Y+OW(I):NEXT:Y=1NT(Y#RZ)/RZ
(424)Y1=0:FOR I=4 TO 9:Y1=Y1+OW(I):NEXT:Y1=INT(Y1#RZ)/RZ
(428)Y2=0:FOR I=10 TO 21:Y2=Y2+OW(I):NEXT:Y2=INT(Y2#RZ)/RZ
(432)Y3=0:FOR I=22 TO CZ:Y3=Y3+OW(I):NEXTl:Y3=INT(Y3#RZ)/RZ
(436)IF Y3=>1. THEN 448
(440)GOSUB 1036:PRINT AT(1,21)VV$;*DZIEN";K;*DAJ PSZCZOLY DO ULA";FF$
(444)KS=K
(448)Y4=0:FOR I=22 TO 31:Y4=Y4+OW(1):NEXT:Y4=INT(Y4#RZ)/RZ
(452)Y5=0:FOR I=32 RO 41:Y5=Y5+0W(1):NEXT:Y5=INT(Y5#RZ)/RZ
(456)YP=Y3-Y4-Y5
(460)IF YP>.6#Y3 THEN YP=6.#Y3
(464)YV=.2#YP
(468)Y0=.8#YP
(472)RETURN
(476)X1=4.2E-3#Y3:X2=20.E-3#Y1:X3=.0
(480)IF (Y+Y1) >.0 AND PK>0 THEN X3=10.E-3#Y4
(484)X4=0
(488)IF K=1 THEN RETURN
(492)IF X(15,K-1)>0 THEN X4=1.E-2#Y5#P
(496)RETURN
(500)X0=1.E-3#L#P#(Y0+YV):U4=12.E-3#L#P#Y0:GU=.75#-01-X0
(504)IF U4>GU THEN U4=GU
(508)U5=10.E-3#L#P#YU
(512)IF U5>02 THEN U5=02
(516)RETURN
(520)U0=U0+U4+V0:U1=U1+V1:U2=U2+U5+V2
(524)IF U2>0 THEN U2=0
(528)RETURN
(532)IF U0=>X1+X2+X3+X4 THEN RETURN
(536)IF U0=>X1+X2 THEN 552
(540)IF RA#="CAU" THEN X3=.0:RETURN
(544) X3=.2#X3:X4=.1#X4
(548)RETURN
(552)DU=OU-X1-X2:X3=DU#X3/(X3+X4):X4=DU=X3
(556)RETURN
(560)SY=1.25#(Y+Y1+Y2):SU=3.#(1.5#UO+U1+1.4#U2):SZ=SY+SU
(564)SB=SB+B0.#U3:SR=32.-SB
(568)IF SR<0 THEN SR=0
(572)SD=160.-SR
(576)IF SZ<SD THEN RETURN
(580)SD=SD+16
(584)GOSUB 1-36:PRINT AT(1,21)VVS:"DZIEN";K;DODANO 2 PLASTRY";FF$
(588)RETURN
(592)X5=.1#X1:IF X5>U2 THEN X5=U2
(596)X6=.75#X2:IF X6>U2-X5 THEN X6=U2-X4
(600)IF X6<0 THEN X6=0
(604)G=U2-X6-X5:IF G<0 THEN G=0
(608)X5=.1#X1:IF X5>U2 THEN X5=U2
(612)X6=.75#X2:IF X6>U2-X5 THEN X6=U2-X5
(616)XB=.75#X4
(620)G=U2-X6-X5:IF G<0 THEN G=0
(624) X7=.75#X3:IF X7?G THEN X7=G
(628)G=G-X7:IF G<0 THEN G=0
(632)GOSUB 1036:PRINT AT(1,21)VV$"DZIEN";K;"DODAKO 2KG SYROPU";FF$
(636)P2=U0-X1-X2-X3-X4:IFP2<=0. THEN P2=.0
(640)IF (X4<=0) AND (P2<=2) THEN 668
(644)U3=.3E-2#Y5
(648)IF U3>X(15,K+2)#1.25E-2 THEN U3=1.25E-2#X(15,K-1)
(652)IF U3>.25#P2 THEN U3=.25#P2
(656)IF U3>20.#P3 THEN U3=20.#P3
(660)IF U3>20.#P3 THEN U3=5.E-2#Y5
(664)GOTO 672
(668)U3=0
(672)XP=U3#4.:XD=5.E-2#U3:UO=UO-X1-X2-X3-X4-XP
(676)IF UO<0 THEN 692
(680)UA=1.#Y3:IF UA>.1#UO THEN UA=.1#U0
(684)XS=.25#UA:U0=U0-1.25#UA:U1=U1+UA
(688)GOTO 716
(692)D=V0:V0=0:U1=U1+D:IF U1>=0 THEN 716
(696)U1=0:U0=D+2
(700)GOSUB 1036:PRINT AT(1,21)VV$;"DZIEN";K;"DODANO 2 KG SYROPU";FF$
(704)IF U0>0 THEN 716
(708)GOSUB 1036:PRINT AT(1,21)VV$;"TO JEDNAK MALO";FF$
(712)KS=K
(716)U2=U2-I5-X6-X7-X8-XD:IF U2<0 THEN U2=0
(720)IF U1<10 OR U4<.5 THEN RETURN
(724)UZ=U1-5.
(728)GOSUB 1036:PRINT AT(1,21)VV$;"DZIEN";K;"ODEBRANO 5KG MIODU";FF$
(732)U1=5.
(736)RETURN
(740)IF K=1 THEN RETURN
(744)SA=0.
(748)IF K>11 THEN 760
(752)FOR I=1 TO K-1:SA=SA+X(18,I):NEXT:SA=SA/10
(756)GOTO 764
(760)FOR I=K-10 TO K=1:SA=SA+X(18,I):NEXT:SA=SA/10
(764)IF X(10,K-1)<=.0 OR X(14,K-1)<=0 THEN 796
(768)D1=C1#SA+C2
772 IF DY<.0 THEN DY=.0
776 IF DY<C3 THEN DY=C3
780 IF X(1,K-1)=.0 THEN 800
784 IF DY<=.95*X(1,K-1) THEN DY=.95*X(1,K-1)
788 IF DY=>2.0*X(1,K-1) THEN DY=2.0*X(1,K-1)
792 GOTO 800
796 DY=.95*X(1,K-1)*PK
800 IF DY<=1.E-2 THEN DY=.0
804 DY=INT(DY*RZ)/RZ
808 RETURN
824 POKE 53280,2:GG=0
828 INPUT "CZY USREDNIC (TAK/NIE)";A$:IF A$="NIE" THEN 844
832 FORI=1TO18:FORJ=1TOKS/10:S=0:FORK=(J-1)*10+1TOJ*10:S=S+X(I,K):NEXTK
836 FORK=(J-1)*10+1 TO J*10:X(I,K)=.1*S:NEXT K,J,I
840 PRINT "USREDNIONO"
844 GET A$: IF A$="" THEN 844
848 GG=GG+1:IF GG=19 THEN GG=1
852 IF GG=9 OR GG=10 THEN 848
856 E=0
860 POKE 53280,B(GG):HIRES1,B(GG)
864 LINE 50,180,290,180,1
868 FOR K=50 TO 290 STEP 40
872 LINE K,180,K,184,1
876 NEXT
880 TEXT 46,185,"0",1,1,8
884 TEXT 82,185,"20",1,1,8
888 TEXT 122,185,"40",1,1,8
892 TEXT 162,185,"60",1,1,8
896 TEXT 202,185,"80",1,1,8
900 TEXT 238,185,"100",1,1,8
904 TEXT 278,185,"120",1,1,8
908 TEXT 287,170,"K",1,1,8
912 LINE 50,180,50,20,1
916 FOR K=180 TO 20 STEP -40
920 LINE 50,K,46,K,1
924 NEXT
928 GOSUB 972
932 GX=50
936 GY=180
940 FOR K=1 TO KS
944 GO=180-ABS(X(GG,K))/(4*XN*10 (STRZALKA?) E)*160
948 G1=2*K+50
952 LINE GX,GY,G1,G0,1
956 GX=G1
960 GY=G0
964 NEXT
968 GOTO 844
972 XM=0
976 FOR K=1 TO KS
980 IF X(GG,K)>XM THEN XM=X(GG,K)
984 NEXT
998 IF XM<4 THEN 1028
992 IF XM>40 THEN 1032
996 XN=INT(XN/4)+1
1000 FOR K=0 TO 4
1004 X$=STR$(K*XN)+"E"+STR$(E)
1008 TEXT 0,176-K*40,X$,1,1,8
1012 NEXT
1016 TEXT 55,16,LEFT$(A$GG,2),1,1,8
1020 TEXT 5,5,A$(GG),1,1,8
1024 RETURN
1028 XM=XM*10:E=E-1:GOTO988
1032 XM=XM/10:E=E+1:GOTO992
1036 PRINT AT(1,21) "":RETURN