blob: 4e0c388ac6c50bf192abeddfa9efee7f513ebf21 (
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*256)
21 BR = INT(RND*256)
22 CR = INT(RND*256)
23 DR = INT(RND*256)
24 LR = INT(RND*256)
25 MR = INT(RND*256)
30 DELAY = INT(RND*10000)
31 SEED = INT(RND*100)
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
51 GOSUB 200
52 GOSUB 300
53 GOSUB 400
54 GOSUB 500
55 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 &H00, 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 : M = 0
1030 GOTO 10
|
