Directory of image this file is from
This file as a plain text file

1 DIM Z(100)
2 DIM Y(100)
3 DIM X(100)
4 DIM T(12)
5 DIM D(5,100)
6 GOTO 57
10 FILE #1:"LOTDAT.BA"
15 FILEV #2:"DCWR:"
17 PRINT #2:
18 FOR I=1 TO 1000 STEP 1
20 INPUT #1: D(0,I)
22 IF END #1 THEN 50
25 IF D(0,I)=0 THEN 20
35 FOR K=1 TO 3
37 INPUT #1: D(K,I)
38 IF END #1 THEN 50
40 NEXT K
42 INPUT #1: A,B,C
43 IF END #1 THEN 50
45 GOSUB 100
47 LET D(4,I)=A
49 NEXT I
50 GOSUB 500
51 REM
52 REM
54 GOTO 900
57 REM
58 REM
59 REM
60 LET T(1)=0
62 LET T(2)=31
64 LET T(3)=59
66 LET T(4)=90
68 LET T(5)=120
70 LET T(6)=151
72 LET T(7)=181
74 LET T(8)=212
76 LET T(9)=243
78 LET T(10)=273
80 LET T(11)=304
82 LET T(12)=334
84 GOTO 10
100 REM SR CALCULATE DATE
101 REM
103 LET C=C-70
105 LET B=T(B)
110 LET A=A+B+C*365
120 RETURN
200 REM SR PRINT
201 REM
210 REM I=LINE INDEX
230 FOR J=50 TO 0 STEP -1
235 REM CR-LF
236 REM
240 PRINT #2:
242 REM PRINT Y-AXIS CHAR
245 IF J=0 GOTO 290
250 IF J/5-INT(J/5)<0.001 THEN 280
260 PRINT #2: "!";
270 GOTO 290
280 PRINT #2: "+";
285 REM INIT LINE VEKTOR
290 FOR K=0 TO 100
295 LET Z(K)=0
300 NEXT K
303 REM
304 REM WORK OUT LINE VEKTOR
305 LET Z1=0
310 FOR K=1 TO 99
320 IF Y(K)<>J THEN 347
340 LET Z(X(K))=Z(X(K))+1
342 IF Z(X(K))-1>0.01 THEN 347
345 LET Z1=Z1+1
347 NEXT K
348 REM
349 REM PRINT L.V.
350 IF Z1=0 THEN 380
352 PRINT #2: PNT(13);
355 LET L=-1
356 LET M=0
357 IF J<>0 THEN 359
358 LET Z1=71
359 LET L=L+1
360 IF M=Z1 THEN 380
361 IF Z(L)=0 THEN 375
365 PRINT #2: "#";
367 LET M=M+1
370 GOTO 359
375 IF J=0 THEN 400
376 PRINT #2: " ";
378 GOTO 359
380 REM
390 NEXT J
395 RETURN
396 REM
397 REM X-AXIS
400 LET M=M+1
410 IF (M-1)/7-INT((M-1)/7)<0.001 THEN 440
420 PRINT #2: "-";
430 GOTO 359
440 PRINT #2: "+";
450 GOTO 359
500 REM
501 REM PLOT RATE VERS DATE
502 REM
505 FOR K=1 TO 26
510 LET Y(K)=D(3,K)/D(2,K)
520 LET X(K)=D(4,K)
525 NEXT K
530 LET Y1=0.05
532 LET X1=2000
534 FOR K=1 TO 100
536 LET Y(K)=INT(Y(K)*50/Y1+0.5)
538 LET X(K)=INT(X(K)*70/X1+0.5)
540 NEXT K
550 GOSUB 200
560 RETURN
900 CLOSE #2
1000 END