10 MAXFILES=3:OPEN"A3" AS#2 LEN=2:FIELD #2,2 AS K$
20 POKE VARPTR(#2)+9,66:POKE VARPTR(#2)+10,65  'χΝΕΣΤΟ LSET K$="ba"
30 PUT #2,2:CLOSE#2
40 OPEN"a3"AS#2 LEN=2:FIELD #2,2 AS K$:GET #2,2:CLOSE #2