10 DIM char_tab%(50,9),st$(5)
20 OPEN #3,valley_char
30 INPUT #3,start,no
40 OPEN_OVER #4,work1
50 lno=22000
60 PRINT #4,lno!"data"!start;",";no:lno=lno+10
70 FOR i=1 TO no
80 init$=lno&" data ":lno=lno+10
90 INPUT #3,st$
100 IF st$<>"-" THEN PRINT "ERROR":STOP
110 FOR j=1 TO 9
120 INPUT #3,st$:vl=0
130 FOR k=1 TO 5:vl=vl*2+(st$(k)<>" ")
140 PRINT #4,init$;vl*4;:init$=","
150 END FOR j
160 PRINT #4
170 END FOR i
180 CLOSE #3
190 CLOSE #4
