:
in%=OPENIN("temp.txt")
out%=OPENOUT("AllVoted2014-VANIDs.csv")
BPUT#out%,"VANID,PD,NUM,VOTED?,voted-all - Scarborough Borough Council - Euro - 22-May-2014 - J.G.Harston - jgh@mdfs.net"
REPEAT
VAN$="":PD$="":NUM$=""
REPEAT
VAN$=PD$:PD$=NUM$:NUM$=GET$#in%
UNTIL LENPD$=2 AND VALNUM$<>0 OR EOF#in%
PRINT VAN$;",";PD$;",";NUM$
BPUT#out%,VAN$+","+PD$+","+NUM$+",Y"
UNTIL EOF#in%
CLOSE#out%
CLOSE#in%
QUIT