10
20 :
30 A$="":in%=OPENIN("!Make"):IF in%=0:in%=OPENIN("!Make."):IF in%=0:in%=OPENIN("!Make.bat")
40 IF in%:REPEAT:A$=GET$#in%:UNTIL EOF#in% OR INSTR(A$,"rem") OR INSTR(A$,"REM"):CLOSE#in%:in%=0
50 A%=INSTR(A$,"reg=") :IF A%:reg$ =STR$(VALMID$(A$,A%+4))
60 A%=INSTR(A$,"year="):IF A%:year$=STR$(VALMID$(A$,A%+5))
70 A%=INSTR(A$,"max=") :IF A%:max% =VALMID$(A$,A%+4)
80 DIM info$(10)
90 :
100 out%=OPENOUT(year$+"-Register.csv")
110 BPUT#out%,"VANID,PD,NUM,NAME,ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4,POSTTOWN,POSTCODE"
120 READ file$:REPEAT
130 PRINTfile$;
140 in%=OPENIN(year$+"-"+file$+".txt")
150 ptr%=0
160 IF in% THEN
170 REPEAT
180 n%=0
190 done%=0
200 PTR#in%=ptr%
210 REPEAT
220 ptr%=PTR#in%:A$=GET$#in%
230 info$(n%)=A$
240 n%=n%+1
250 IF LEN A$=8:IF VALA$:done%=done%+1
260 UNTIL done%=2 OR EOF#in%
270 IF done%<>2:n%=n%+1
280 :
290
300
310 :
320
330 info$(9)=info$(n%-2):info$(8)=info$(n%-3)
340 IF n%<11:FOR A%=n%-3 TO 7:info$(A%)="":NEXT A%
350 :
360 FOR n%=0 TO 8
370 BPUT#out%,info$(n%)+",";
380 NEXT n%
390 BPUT#out%,info$(9)
400 UNTIL EOF#in%
410 CLOSE#in%
420 ELSE
430 PRINT" - not found";
440 ENDIF
450 PRINT
460 READ file$
470 UNTIL file$="*"
480 CLOSE#out%
490 QUIT
500 :
510
520 DATA Burniston,Castle,Cayton,Danby,DerwentValley
530 DATA Eastfield,EskValley,Falsgrave,Filey
540 DATA Fylingdales,Hunmanby,Mayfield,Newby
550 DATA Northstead,Scalby,Seamer,Streonshalh
560 DATA Weaponness,WestCliff,Woodlands,*
570 :
580
590 DATA Castle,Eastfield,EskValley,Falsgrave,Filey,Hertford
600 DATA Mayfield,Newby,Northstead,Scalby,Seamer,Streonshalh
610 DATA Weaponness,Woodlands,*