Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 rem js99er load extended basic first
- 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$)
- 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
Add Comment
Please, Sign In to add comment