90 REM * VBLANK PM DEMO *›100 POKE 752,1:? CHR$(125):SETCOLOR 2,0,0›110 PCOL0=216:PCOL1=56:REM Color of players›120 GOSUB 1000:REM Initialize VBLANK routine›130 POKE PLL,8:POKE PLL+1,8:REM Height of players›140 POKE PLX,108:POKE PLY,102:REM Player 0's initial position›150 POKE PLX+1,108:POKE PLY+1,72:REM Player 1's initial position›160 REM Let players dance!›170 POKE PLX,RND(0)*159+48:POKE PLY,RND(0)*191+32›180 POKE PLX+1,RND(0)*159+48:POKE PLY+1,RND(0)*191+32›190 FOR I=1 TO 75:NEXT I:GOTO 170›200 END ›1000 REM * INITIALIZE VBLANK *›1010 FOR I=1536 TO 1706:READ A:POKE I,A:NEXT I›1020 FOR I=1774 TO 1787:POKE I,0:NEXT I›1030 PM=PEEK(106)-16:PMBASE=256*PM›1040 FOR I=PMBASE+1023 TO PMBASE+2047:POKE I,0:NEXT I›1050 FOR I=PMBASE+1025 TO PMBASE+1032:READ A:POKE I,A:NEXT I›1060 FOR I=PMBASE+1281 TO PMBASE+1288:READ A:POKE I,A:NEXT I›1070 POKE 704,PCOL0:POKE 705,PCOL1:POKE 706,PCOL2:POKE 707,PCOL3›1080 PLX=53248:PLY=1780:PLL=1784›1090 POKE 559,62:POKE 623,1:POKE 1788,PM+4:POKE 53277,3:POKE 54279,PM›1100 X=USR(1696)›1110 RETURN ›2000 REM * VBLANK INTERRUPT ROUTINE *›2010 DATA 162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141›2020 DATA 255,6,142,253,6,24,169,0,109,253,6,24,109,252,6,133,204,133›2030 DATA 206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,46,255›2040 DATA 6,144,16,168,177,203,145,205,169,0,145,203,136,2O2,2O8,244,76,87›2050 DATA 6,160,0,177,203,145,205,169,0,145,203,200,202,208,244,174,253,6›2060 DATA 173,254,6,157,240,6,189,236,6,240,48,133,203,24,138,141,253,6›2070 DATA 109,235,6,133,204,24,173,253,6,109,252,6,133,206,189,240,6,133›2080 DATA 205,189,248,6,170,160,0,177,203,145,205,200,202,208,248,174,253,6›2090 DATA 169,0,157,236,6,202,48,3,76,2,6,76,98,228,0,0,104,169›2100 DATA 7,162,6,160,0,32,92,228,96›3000 REM * Draw players 0 & 1 *›3010 DATA 6,6,8,126,195,195,195,126›3020 DATA 126,195,195,126,24,126,126,24›