10 RANDOMIZE SEED
20 AR = INT(RND(1)*256)
21 BR = INT(RND(1)*256)
22 CR = INT(RND(1)*256)
23 DR = INT(RND(1)*256)
24 LR = INT(RND(1)*256)
25 MR = INT(RND(1)*256)
26 NR = INT(RND(1)*256)
30 DELAY = INT(RND(1)*10000)
40 OUT &H20, 0
41 OUT &H21, 0
42 OUT &H22, 0
43 OUT &H23, 0
44 OUT &H0D, 0
45 OUT &H01, 0
46 OUT &H00, 0
50 GOSUB 100
52 GOSUB 200
54 GOSUB 300
56 GOSUB 400
58 GOSUB 500
60 GOSUB 600
62 GOSUB 700
70 IF A=AR AND B=BR AND C=CR AND D=DR AND L=LR AND M=MR AND N=NR THEN GOTO 1010
90 GOTO 50
100 IF A = AR THEN RETURN
110 LET A = A + 1
120 OUT &H20, A
130 RETURN
200 IF B = BR THEN RETURN
210 LET B = B + 1
220 OUT &H21, B
230 RETURN
300 IF C = CR THEN RETURN
310 LET C = C + 1
320 OUT &H22, C
330 RETURN
400 IF D = DR THEN RETURN
410 LET D = D + 1
420 OUT &H23, D
430 RETURN
500 IF L = LR THEN RETURN
510 LET L = L + 1
520 OUT &H0D, L
530 RETURN
600 IF N = NR THEN RETURN
610 LET N = N + 1
620 OUT &H01, N
630 RETURN
700 IF M = MR THEN RETURN
710 LET M = M + 1
720 OUT &H00, M
730 RETURN
1000 REM RANDOM DELAY LENGTH
1010 FOR Z = 0 TO DELAY : NEXT Z
1020 A = 0 : B = 0 : C = 0 : D = 0 : L = 0 : M = 0 : N = 0
1030 GOTO 10