5 GOTO 80
10 DATA &h00, &h00, &h00, &h72
20 DATA &h00, &h00, &hd6, &h61
30 A$="": FOR I%=1 TO 4
40 READ A%
50 A$ = A$+CHR$(A%)
60 NEXT
70 RETURN
80 OPEN "gwbround.dat" FOR RANDOM AS 1 LEN=8
85 FIELD#1, 4 AS OUT1$, 4 AS OUT2$
90 OPEN "allword.dat" FOR RANDOM AS #2 LEN=4
93 RECNUM = RECNUM+1
95 FIELD#2, 4 AS F$
98 FIELD#2, 2 AS FL$, 2 AS FR$
99 RESTORE
100 GOSUB 30: L$=A$
110 GOSUB 30: R$=A$
112 GET#2, RECNUM
114 MID$(R$,1,2) = FL$
120 LSET OUT2$=MKS$(CVS(L$)+CVS(R$))
130 LSET OUT1$=F$
160 PUT#1
170 IF RECNUM <= 65536! GOTO 93
