TI99 extended basic Scooting Cat sprites

catscoot.bas

10 rem Extended basic uses magnify
50 rem init
60 call clear
80 randomize

85 rem random background
90 scrclr = int(rnd*15)+2
95 call screen(scrclr)

100 rem set available colors
101 clridx = 0
102 dim clrset(14)
110 for clr=2 to 16
120 if clr=scrclr then 150
121 rem assign all non bg colors to a list
130 clrset(clridx) = clr
140 clridx = clridx + 1
150 next clr

200 rem define cat sprite
201 call magnify(4)
210 cattl$ = "00080F0F18101121"
211 catbl$ = "393C7C784041231F"
212 cattr$ = "00808080C64ACEEE"
213 catbr$ = "EAFE1E2478B090E0"
220 call char(96,cattl$&catbl$&cattr$&catbr$)

230 rem cat fill sprite

300 rem setup cat sprites
301 ncats = 28
310 for cnum=1 to ncats
320 cclr = clrset(int(rnd*14))
321 crow = int(rnd*256)+1
322 ccol = int(rnd*256)+1
323 crowv = int(rnd*32)-16
324 ccolv = int(rnd*32)-16
330 call sprite(#cnum,96,cclr,crow,ccol,crowv,ccolv)
340 next cnum

500 rem loop
510 goto 500