10 OPEN "PASWRD.B00" AS FILE VF1% 20 VF1(I)=0 \ I=I+1 \ GO TO 20