theworstcomputer

Counting up in binary

10 print "{CLEAR}"
20 dim x(13)
30 for y = 0 to 12
40 print x(y);
50 next y
60 print
70 x(13) = 1
80 for y = 13 to 0 step -1
90 if x(y) = 0 then x(y)=1:goto 30
100 if x(y) = 1 then x(y)=0
110 next y