1 files changed, 37 insertions, 0 deletions
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