TI99 basic Color Cycling Text mode cats (slow random)

catcycleslow.bas

10 call clear
90 for a=2 to 16
91 call color(a,a,a-1)
92 next a
101 c$="4163777F6B6B3E1C"
102 randomize
105 for a=0 to 15
106 call char(a*8+32,c$)
107 next a
110 row=int(24*rnd)+1
111 col=int(32*rnd)+1
112 cat=int(16*rnd)*8+32
120 call hchar(row,col,cat)
130 for a=2 to 16
131 fg=int(14*rnd)+2
132 bg=int(14*rnd)+2
133 call color(a,fg,bg)
134 next a
140 goto 110