10 OPEN "allword.dat" FOR RANDOM AS 1 LEN=4
20 FIELD#1, 2 AS A$
30 OPEN "gwbasala.dat" FOR RANDOM AS 2 LEN=4
40 FIELD#2, 4 AS B$
50 FOR I = 1 TO 65536!
60   GET#1, I
70   L$= MKS$(R): MID$(L$,4,1) = CHR$(128+10): L = CVS(L$)
71   R = CVS(A$+CHR$(0)+CHR$(128))
75   LSET B$ = MKS$(L+R)
80   PUT#2, I
90 NEXT
100 CLOSE
