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

(Source file text) 

---

10 DIM X0$(10)
11 X0$="0000000000"
20 DIM A$(16,10)
100 FILE #1:"M28D06.FD"
110 INPUT #1:A$
120 PRINT A$
130 INPUT #1:C,I
140 PRINT I
150 FOR J=0 TO I-1
160 INPUT #1:C,D
180 NEXT J
190 INPUT #1:C,I
200 FOR J=1 TO I
210 INPUT #1:C,D
211 S=SGN(D)
212 IF S<>0 THEN 214
213 S=1
214 D=ABS(D)
215 D=INT(D*1000+.5)/1000
216 A$=STR$(D)
220 A$(J)=CHR$(44-S)&SEG$(X0$,1,7-LEN(A$))&A$
230 NEXT J
235 INPUT #1:C
240 FOR J=1 TO 13
250 PRINT #1:A$(J)
260 NEXT J
261 FOR J=1 TO 0
262 PRINT #1:A$(J)
263 NEXT J
270 CLOSE #1
280 END

---