blob: 692e4f5fdc436303252486bb3c8bc33b2adea3d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
10 AR=INT(RND(1)*256)
11 BR=INT(RND(1)*256)
12 CR=INT(RND(1)*256)
13 DR=INT(RND(1)*256)
14 LR=INT(RND(1)*256)
20 DELAY=INT(RND(1)*1000)
30 OUT &H20,0:OUT &H21,0:OUT &H22,0:OUT &H23,0:OUT &HD,0
40 GOSUB 100
42 GOSUB 200
44 GOSUB 300
46 GOSUB 400
48 GOSUB 500
70 IF A = AR AND B = BR AND C = CR AND D = DR AND L = LR THEN GOTO 1010
90 GOTO 40
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
1000 REM RANDOM DELAY LENGTH
1010 FOR Z = 0 TO DELAY: NEXT Z
1020 A = 0:B = 0:C = 0:D = 0:L = 0
1030 GOTO 10
|
