From d184eba02aecfd2872163b8afdf58469e595435f Mon Sep 17 00:00:00 2001
From: William Harrington <kb0iic@berzerkula.org>
Date: Tue, 26 Nov 2019 11:26:00 -0600
Subject: Add countup basic program for setting values for each byte 7 segment
 and LED port.

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

(limited to 'sc126/BASIC')

diff --git a/sc126/BASIC/COUNTUP.BAS b/sc126/BASIC/COUNTUP.BAS
new file mode 100644
index 0000000..4443bee
--- /dev/null
+++ b/sc126/BASIC/COUNTUP.BAS
@@ -0,0 +1,37 @@
+10 RANDOMIZE SEED
+20 AR = INT(RND*256) : BR = INT(RND*256) : CR = INT(RND*256) : DR = INT(RND*256)
+ : LR = INT(RND*256)
+25 DELAY = INT(RND*10000)
+30 SEED = INT(RND*100)
+40 OUT &H20, 0 : OUT &H21, 0 : OUT &H22, 0 : OUT &H23, 0 : OUT &HD, 0
+50 GOSUB 100
+52 GOSUB 200
+54 GOSUB 300
+56 GOSUB 400
+58 GOSUB 500
+70 IF A = AR AND B = BR AND C = CR AND D = DR AND L = LR THEN GOTO 1010
+90 GOTO 50
+100 IF A = AR THEN RETURN
+110 LET A = A + 1
+120 OUT &H20, A
+130 RETURN
+200 IF B = BR THEN RETURN
+210 LET B = B + 1
+220 OUT &H21, B
+230 RETURN
+300 IF C = CR THEN RETURN
+310 LET C = C + 1
+320 OUT &H22, C
+330 RETURN
+400 IF D = DR THEN RETURN
+410 LET D = D + 1
+420 OUT &H23, D
+430 RETURN
+500 IF L = LR THEN RETURN
+510 LET L = L + 1
+520 OUT &HD, L
+530 RETURN
+1000 REM RANDOM DELAY LENGTH
+1010 FOR Z = 0 TO DELAY : NEXT Z
+1020 A = 0 : B = 0 : C = 0 : D = 0 : L = 0
+1030 GOTO 10
-- 
cgit v1.2.3-54-g00ecf