Fast VDP Modo 0

Tiny pseudo 9 bit basic demo by Yukio.

10 SCREEN8:M%=1:O%=2:C%=0
100 FORN!=768TO53503!
110 VPOKEN!,C%:C%=C%+1:IFC%>255THENC%=0
140 NEXT
1000 FORS=0TO1:SPRITE$(S)=CHR$(128)+STRING$(7,CHR$(255)):NEXT
1007 PUTSPRITE0,(0,209),15:PUTSPRITE1,(0,209),15
1010 SPRITEON
1020 ONSPRITEGOSUB2000
1400 REM
1500 GOTO1400
2000 IFM%=1THENVDP(0)=&B1010:IFM%=2THENVDP(0)=&B1110
2004 SWAPM%,O%:RETURN