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
990 PRINT "BAD FILE;TAKING NEXT"
1000 CLOSE #1
1010 CLOSE #2
1020 GOTO 60
1030 END

---