displaying 8x8 patterns like tms9918 (msx1, sg1000, etc)

[nitrofurano]

with the libraries above, i think this example is not bad, for showing a better idea of that - i made similar example on msx, but this one lacks those tms9918 hardware sprites

Code:

#include "library/vpokechr.bas" #include "library/charmap01.bas" poke 23693,peek(@charmap01+2048+32):border 0:cls dim p1,p2,s1,s2,vl as integer p1=int(rnd*767):p2=int(rnd*767) s1=int(rnd*32)+8:s2=int(rnd*32)+8 lp01: 'vl=int(rnd*255) vl= (128+int(rnd*160))band 255 vpokechr(p1,vl,@charmap01) p1=(p1+1)mod 768 s1=s1-1 if s1<1 then: p1=int(rnd*767):s1=int(rnd*32)+8:end if vpokechr(p2,32,@charmap01) p2=(p2+1)mod 768 s2=s2-1 if s2<1 then: p2=int(rnd*767):s2=int(rnd*32)+8:end if pause 1 goto lp01

a screenshot of it: