Tag system by pooq

t$="aaaaaaaaabc"
for i=1to 240step 2?t$
c$=mid$(t$,i,1)
if"a"=c$b$="bc"
if"b"=c$b$="a"
if"c"=c$b$="aaa"
t$=t$+b$
mid$(t$,i)="  "next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page