From 8a9fc97a15cc9cfb768c141077b76db420c35a38 Mon Sep 17 00:00:00 2001 From: William Harrington Date: Mon, 18 Nov 2019 23:31:37 -0600 Subject: Create SC126 project area. --- sc126/BASIC/COUNTER.BAS | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 sc126/BASIC/COUNTER.BAS 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 -- cgit v1.2.3-54-g00ecf