blob: dc48683df1566e55b078c1862de88c12d9b1b691 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
1 REM DISPLAY 4 RANDOM BYTE VALUES
2 REM SCOTT BAKER FRONT PANEL BOARD
3 REM AT PORT 0x20
4 REM 00000000 TO FFFFFFFF
10 RANDOMIZE SEED
15 LET DELAY = INT(RND*1000)
20 IR = INT(RND*256)
21 HR = INT(RND*256)
22 GR = INT(RND*256)
23 FR = INT(RND*256)
25 SEED = INT(RND*100)
30 OUT 13, IR
35 OUT &H23, FR
36 OUT &H22, GR
37 OUT &H21, HR
38 OUT &H20, IR
100 FOR Z = 0 TO DELAY : NEXT Z
200 GOTO 10
|
