diff options
| author | William Harrington <kb0iic@berzerkula.org> | 2019-05-20 16:53:14 -0500 |
|---|---|---|
| committer | William Harrington <kb0iic@berzerkula.org> | 2019-05-20 16:53:14 -0500 |
| commit | e96b0e90dcdb465f10bd9d618bafb87698bf0ac1 (patch) | |
| tree | 2191178a070061581fbf1542ba52826695d78568 /fullmonty/digital_io/cylon1.bas | |
| parent | 6735a389ee8d61429e983a0a12d939fdcfcca8db (diff) | |
Add some basic programs for currently built modules
Diffstat (limited to 'fullmonty/digital_io/cylon1.bas')
| -rw-r--r-- | fullmonty/digital_io/cylon1.bas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fullmonty/digital_io/cylon1.bas b/fullmonty/digital_io/cylon1.bas new file mode 100644 index 0000000..c768590 --- /dev/null +++ b/fullmonty/digital_io/cylon1.bas @@ -0,0 +1,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 |