10 OPEN "TEST.DAT" FOR RANDOM AS 1
15 OPEN "output.txt" FOR OUTPUT AS 2
20 FIELD#1, 128 AS A$
25 FIELD#1, 64 AS B$, 64 AS C$
30 LSET A$="1234567890"
35 RSET C$="1234567890"
50 POKE 3751+6+188, 65
60 PRINT#2, A$
70 CLOSE
