1 files changed, 22 insertions, 0 deletions
diff --git a/sc126/BASIC/COUNTER.BAS b/sc126/BASIC/COUNTER.BAS
new file mode 100644
index 0000000..546dd00
--- /dev/null
+++ b/sc126/BASIC/COUNTER.BAS
@@ -0,0 +1,22 @@
+1 REM LARSON SCANNER AT PORT 13 WITH
+2 REM SCOTT BAKER FRONT PANEL BOARD
+3 REM AT PORT 0x20 COUNTER FROM
+4 REM 00000000 TO FFFFFFFF
+10 LET DELAY = 50
+20 FOR I = 0 TO 255
+21 FOR H = 0 TO 255
+22 FOR G = 0 TO 255
+23 FOR F = 0 TO 255
+30 OUT 35, F : OUT 34, G : OUT 33, H : OUT 32, I
+50 GOSUB 100
+60 NEXT F : NEXT G : NEXT H : NEXT I
+100 FOR A = 1 TO 6
+110 OUT 13, 2^A
+120 GOSUB 200
+130 NEXT A
+140 FOR A = 7 TO 0 STEP -1
+150 OUT 13, 2^A
+160 GOSUB 200
+170 NEXT A
+200 FOR Z = 1 TO DELAY : NEXT Z
+210 RETURN