100 REM *** ZAPIS DANYCH ***
105 :
110 INPUT "DLA ILU DNI ZADAJESZ DANE";KP
115 DIM TT(KP),TD(KP),Q1(KP/10+1),Q2(KP/10+1),QT(KP/10+1)
120 INPUT "JAK SIE MA NAZYWAC ZBOIR Z DANYMI";N$
125 OPEN 2,8,2,N$+",S,W": OPEN 15,8,15
130 FOR I=1 TO KP
135 PRINT "DZIEN";I;"TEMPERATURA I OPADY"
140 INPUT TT(I),TD(I)
145 NEXT
150 PRINT "TERAZ DANE FENOLOGICZNE W DEKADACH"
155 FOR I=1 TO KP/10+1
160 PRINT "DEKADA";I;" Q1,Q2.QT"
165 INPUT Q1(I),Q2(I),QT(I)
170 NEXT
175 INPUT "CZY WSZYSTKO W PORZADKU";A$
180 PRINT#2,KP
185 IF A$="NIE" THEN 130
190 FOR I=1 TO KP
195 PRINT#2,TT(I);Z$;TD(I)
200 GOSUB 310
205 NEXT
210 FOR I=1 TO KP/10+1
215 PRINT#2,Q1(I);Z$;Q2(I);Z$;QR(I)
220 GOSUB 310
225 NEXT
230 CLOSE 2:CLOSE 15
235 INPUT "CZY CHCESZ PODOBNY WYDRUK DANYCH";A$
240 IF A$="NIE" THEN STOP
245 OPEN 4,4 : CMD 4
250 PRINT "ZAWARTOSC ZBIORU ";N$;" POGODA"
255 FOR I=1 TP KP
260 PRINT I,TT(I),TD(I)
265 NEXT
270 IF I=1 THEN PRINT Q1(1),Q2(I),QT(I);
275 PRINT "ZAWARTOSC ZBIORU ";N$;" FENOLOGIA"
280 FOR I=1 TO KP/10+1
285 PRINT Q1(I),Q2(I),QT(I)
290 NEXT
295 PRINT#4
300 CLOSE 4
305 END
310 INPUT#15,EN,EM$,ET,ES
315 IF EN>21 THEN PRINT "BLAD ZAPISU NA DYSKU";EN,EM$,ET:STOP
320 RETURN
READY