14 lines
215 B
Text
14 lines
215 B
Text
tm$ = "0"
|
|
for i=1 to 8
|
|
? tm$
|
|
tm$ = tm$ + inverte$(tm$)
|
|
next
|
|
|
|
sub inverte$(tm$)
|
|
local i
|
|
|
|
for i = 1 to len(tm$)
|
|
mid$(tm$, i, 1) = str$(not val(mid$(tm$, i, 1)))
|
|
next
|
|
return tm$
|
|
end sub
|