File: MONIT.BA of Tape: Various/ETH/ba1

(Source file text) 

---

10 DIM A$(25)
20 DIM B$(25)
30 DIM D$(30)
90 D$="                           "
100 FILE #1:"DIREC"
110 INPUT #1:A$
114 INPUT #1:A$
115 Y=LEN(A$)
116 B$=SEG$(A$,2,2)
117 IF B$=" " THEN 125
120 PRINT "RUN "&A$&" ON "&DAT$(X)
125 K=0
130 INPUT #1:A$
131 IF END #1 THEN 500
132 K=K+1
135 C$=SEG$(A$,1,1)
140 IF C$<>"M" THEN 130
150 C$=SEG$(A$,2,3)
160 IF C$<"00" THEN 130
170 IF C$>"99" THEN 130
180 RESTORE #1
185 INPUT #1:B$,D1
186 B$=SEG$(D$,1,Y)
187 PRINT #1:B$
190 FOR I=1 TO K-1
200 INPUT #1:B$
210 NEXT I
220 INPUT #1:D1
230 X=LEN(A$)
240 D$=SEG$(D$,1,X)
250 PRINT #1:D$
260 CLOSE #1
270 PRINT
280 PRINT "DATA FILE: "&A$
290 A$=SEG$(A$,1,9)
300 FILE #1:A$
310 FILEVN #2:"SYS:FOURTM.NU"
320 INPUT #1:B$,D1
330 C$=SEG$(B$,1,1)
340 IF C$="D" THEN 370
350 PRINT "BAD FILE"
360 GOTO 510
370 INPUT #1:P3,D1
380 IF P3>256 THEN 350
390 PRINT #2:P3
400 FOR I=0 TO P3-1
410 INPUT #1:D1,D2
420 PRINT #2:D1
430 NEXT I
440 FOR I=0 TO 3
450 FOR J=0 TO 3
460 INPUT #1:D1,D2
462 PRINT #2:D1
464 PRINT D1,
470 NEXT J
475 PRINT
480 NEXT I
482 CLOSE #1
484 CLOSE #2
490 CHAIN "SYS:NONLI.BA"
492 STOP
500 PRINT "NO MORE FILES!"
510 STOP
1000 END

---