diff options
| -rw-r--r-- | sc126/BASIC/RNDMIZE.BAS | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/sc126/BASIC/RNDMIZE.BAS b/sc126/BASIC/RNDMIZE.BAS new file mode 100644 index 0000000..dc48683 --- /dev/null +++ b/sc126/BASIC/RNDMIZE.BAS @@ -0,0 +1,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 |