blob: 546dd002144025b19e5444937be31f301f8d066d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
|
