fullmonty/digital_io/cylon1.bas


1
2
3
4
5
6
7
8
9
10

10 FOR F=0 TO 7
20 OUT 0,2^F
30 GOSUB 100
40 NEXT F
50 FOR F=7 TO 0 STEP -1
60 OUT 0,2^F
70 GOSUB 100
80 NEXT F
90 GOTO 10
100 FOR X = 1 TO 150 : NEXT X : RETURN