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