` File: MONITO.BA of Tape: Various/ETH/ba1`
`(Source file text) `

```10 DIM A\$(25)
20 DIM B\$(25)
35 DIM G\$(25)
37 DIM D(20)
40 D\$="   "
50 P9=3.14159
60 FILE #1:"DIREC"
70 INPUT #1:A\$
80 INPUT #1:A\$
90 Y=LEN(A\$)
100 B\$=SEG\$(A\$,2,2)
110 IF B\$=" " THEN 130
120 PRINT "RUN "&A\$&" ON "&DAT\$(X)
125 F=0\GOTO 135
130 F=VAL(A\$)
135 T=10000
140 FOR I=0 TO 200
150 INPUT #1:A\$
160 IF END #1 THEN 260
170 C\$=SEG\$(A\$,1,1)
180 IF C\$<>"M" THEN 250
190 C\$=SEG\$(A\$,2,3)
200 IF C\$<"00" THEN 250
210 IF C\$>"99" THEN 250
212 H\$=SEG\$(A\$,4,4)
213 IF H\$<>"D" THEN 250
214 H\$=SEG\$(A\$,5,6)
215 IF H\$<"00" THEN 250
216 IF H\$>"99" THEN 250
220 L=VAL(C\$&H\$)
230 IF L>=T THEN 250
235 IF L<=F THEN 250
240 T=L\G\$=A\$
250 NEXT I
260 IF T=10000 THEN 920
270 RESTORE #1
280 INPUT #1:B\$,D1
290 B\$=D\$&STR\$(T)
300 PRINT #1:B\$
380 CLOSE #1
390 PRINT
400 PRINT "DATA FILE: "&G\$
410 A\$=SEG\$(G\$,1,9)
420 FILE #1:A\$
430 FILEVN #2:"SYS:FOURTM.NU"
440 INPUT #1:B\$,D1
450 C\$=SEG\$(B\$,1,1)
460 IF C\$="D" THEN 480
470 GOTO 990
480 INPUT #1:P3,D1
490 IF END #1 THEN 990
500 IF P3>256 THEN 990
510 PRINT #2:P3
520 FOR I=0 TO P3-1
530 INPUT #1:D1,D2
540 IF END #1 THEN 990
550 PRINT #2:D1
560 NEXT I
570 INPUT #1:I9,D1
580 IF END #1 THEN 990
590 FOR I=1 TO I9
600 INPUT #1:D(I),D2
610 IF END #1 THEN 990
620 NEXT I
630 GOSUB 940
640 FOR I=0 TO 3
650 IF I=0 THEN 680
660 INPUT #1:D1,D2
670 IF END #1 THEN 990
680 PRINT D1,
690 PRINT #2:D1*P9/256
700 INPUT #1:D1,D2
710 IF END #1 THEN 990
720 PRINT D1,
730 PRINT #2:D1*P9/180
740 INPUT #1:D1,D2
750 IF END #1 THEN 990
760 PRINT D1,
770 PRINT #2:D1
780 INPUT #1:D1,D2
790 IF END #1 THEN 990
800 PRINT D1
810 PRINT #2:D1*P9/256
830 NEXT I
840 PRINT #2:I9
850 FOR I=1 TO I9
860 PRINT #2:D(I)
870 NEXT I
880 CLOSE #1
890 CLOSE #2
900 CHAIN "SYS:FITJA.BA"
910 STOP
920 PRINT "NO MORE FILES!"
930 STOP
940 INPUT #1:D1
950 IF END #1 THEN 990
960 IF D1=0 THEN 940
970 INPUT #1:D2
980 RETURN