From 55af174ad12245ff85f5ffd94b869589ee96c390 Mon Sep 17 00:00:00 2001
From: William Harrington <kb0iic@berzerkula.org>
Date: Wed, 20 Nov 2019 11:46:48 -0600
Subject: Add program for displaying random byte values on front panel display
 with a random delay between updates.

---
 sc126/BASIC/RNDMIZE.BAS | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 sc126/BASIC/RNDMIZE.BAS

(limited to 'sc126/BASIC')

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
-- 
cgit v1.2.3-54-g00ecf