10 open "fred" as 1, recordsize 12
20 field #1, 8 as a$, 4 as b$
25 goto 80
30 while not eof(1)
40 get #1
50 ?b$, mksd(a$)
60 wend
70 end
80 for x = 1 to 10
90 lset a$ = mkds$(x)
100 lset b$ = str$(x)
110 put #1
120 next
130 end