! creat sequential text file val.dat

! stop writing with a "."

! see Chapter 9 for details

LET name$ = "val.dat"

OPEN #200: name name$, create newold

ERASE #200

LINE INPUT input$

DO until input$ = "."

PRINT #200:input$

LINE INPUT input$

LOOP

PRINT "file is written"

CLOSE #200

END