90 CALL INIT
100 A=-31040
110 B=-31232
120 T=15
130 DATA 16,32,8,64,4,128,0
140 FOR I=2 TO 8
150 READ L(I)
160 NEXT I
170 FOR I=2 TO 7
180 FOR J=1 TO 15 :: NEXT J
190 R=1+RND*6
195 Z=L(R)XOR Z
200 CALL LOAD(A,Z)
210 CALL LOAD(B,Z)
220 NEXT I
230 GOTO 170
240 CALL LOAD(A,L(8))
250 FOR I=2 TO 8
260 FOR J=1 TO T :: NEXT J
270 CALL LOAD(B,L(I))
280 NEXT I
290 GOTO 170
300 REM SAVE "DSK2.LEDRNDX"