10 rem -----INITIALISE VARIABLES-----
20 dim A(6,6,6)
30 dim B(65000)
40 dim C(6,6)
50 dim D(6)
60 rem -----CREATE RANDOM DATA FILE-----
70 for N=1 to 65000
80 B(N)=rnd(5)+1
90 next N
100 rem -----EXAMINE DATA FILE FOR 2ND SEQUENCE-----
110 for N=3 to 65000
120 inc A((B(N-2),B(N-1),B(N))
130 next N
140 rem -----PRINT OUT DATA-----
150 for X=1 to 6
160 print X
170 for Y=1 to 6
180 print Y;"/ ";
190 for Z=1 to 6
200 print A(X,Y,Z);"  ";
210 next Z
220 print
230 next Y
240 print
250 print
260 print
270 next X
280 rem -----EXAMINE DATA FOR 1ST SEQUENCE-----
290 for N=2 to 65000
300 inc C(B(N-1),B(N))
310 next N
320 for X=1 to 6
330 print X
340 for Y=1 to 6
350 print C(X,Y);"  ";
360 next Y
370 print
380 print
390 next X
400 rem -----EXAMINE DATA FOR TOTALS-----
410 for N=1 to 65000
420 inc D(B(N))
430 next N
440 for X=1 to 6
450 print X;" ";D(X)
460 next X