blob: 5d34117b9af9ccbb6e89745564a38eb29ed79630 (
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
39
40
41
42
43
44
45
46
47
48
49
50
51
|
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)
25 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 &H00, 0
50 GOSUB 100
52 GOSUB 200
54 GOSUB 300
56 GOSUB 400
58 GOSUB 500
60 GOSUB 600
70 IF A=AR AND B=BR AND C=CR AND D=DR AND L=LR AND M=MR 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 M = MR THEN RETURN
610 LET M = M + 1
620 OUT &H0, M
630 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
|
