dos33fsprogs/textmode/mousetext/sw.bas

1HOME:POKE49167,0
2FORX=0TO64:POKE1024+RND(1)*999,174:NEXT
3FORI=0TO1:COLOR=6-I:FORJ=0TO1
4HLIN8,10AT6+J*10+I:HLIN7,11AT8+J*6+I:HLIN6,12AT10+J*2+I:NEXTJ,I
6VTAB6:HTAB11:?"()"
7FORX=13TO37:POKE1063+X,90:POKE1064+X,91:POKE1065+X,95
8FORI=1TO200:NEXT:VTAB9:HTABX:?"   ":NEXT
9GOTO7
mousetext 2021-02-21 05:37:15 +00:00			`1HOME:POKE49167,0`
			`2FORX=0TO64:POKE1024+RND(1)*999,174:NEXT`
mousetext: sw: fits in tweet 2021-02-21 05:47:13 +00:00			`3FORI=0TO1:COLOR=6-I:FORJ=0TO1`
			`4HLIN8,10AT6+J10+I:HLIN7,11AT8+J6+I:HLIN6,12AT10+J*2+I:NEXTJ,I`
			`6VTAB6:HTAB11:?"()"`
sw: shave two bytes off 2021-02-21 05:57:18 +00:00			`7FORX=13TO37:POKE1063+X,90:POKE1064+X,91:POKE1065+X,95`
			`8FORI=1TO200:NEXT:VTAB9:HTABX:?" ":NEXT`
mousetext: sw: fits in tweet 2021-02-21 05:47:13 +00:00			`9GOTO7`