diff options
| author | William Harrington <kb0iic@berzerkula.org> | 2019-11-20 11:46:48 -0600 |
|---|---|---|
| committer | William Harrington <kb0iic@berzerkula.org> | 2019-11-20 11:46:48 -0600 |
| commit | 55af174ad12245ff85f5ffd94b869589ee96c390 (patch) | |
| tree | 6e08cba409633b7b22454c3df40a46fe48277192 /sc126/BASIC/RNDMIZE.BAS | |
| parent | 8a9fc97a15cc9cfb768c141077b76db420c35a38 (diff) | |
Add program for displaying random byte values on front panel display with a random delay between updates.
Diffstat (limited to 'sc126/BASIC/RNDMIZE.BAS')
| -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 |