UPIS PODATAKA U SEKVENCIJALNU DATOTEKU

Upis podataka u sekvencijalnu datoteku pod nazivom podaci.txt.

 
OPEN "podaci.txt" FOR OUTPUT AS #1
   INPUT "Broj zapisa"; bzapisa$
   WRITE #1, bzapisa$
FOR i = 1 TO VAL(bzapisa$)
     INPUT " redni broj"; rbr$
     INPUT "ime"; ime$
  WRITE #1, rbr$, ime$
NEXT i
CLOSE #1