1 files changed, 38 insertions, 0 deletions
diff --git a/sc126/BASIC/COUNTUP2.BAS b/sc126/BASIC/COUNTUP2.BAS
new file mode 100644
index 0000000..692e4f5
--- /dev/null
+++ b/sc126/BASIC/COUNTUP2.BAS
@@ -0,0 +1,38 @@
+10 AR=INT(RND(1)*256)
+11 BR=INT(RND(1)*256)
+12 CR=INT(RND(1)*256)
+13 DR=INT(RND(1)*256)
+14 LR=INT(RND(1)*256)
+20 DELAY=INT(RND(1)*1000)
+30 OUT &H20,0:OUT &H21,0:OUT &H22,0:OUT &H23,0:OUT &HD,0
+40 GOSUB 100
+42 GOSUB 200
+44 GOSUB 300
+46 GOSUB 400
+48 GOSUB 500
+70 IF A = AR AND B = BR AND C = CR AND D = DR AND L = LR THEN GOTO 1010
+90 GOTO 40
+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 &H0D, 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