5 REM .... P R O G R A M T W 0 ....›105 GRAPHICS 1:SETCOLOR 2,1,8:SETCOLOR 4,8,4:POSITION 5,3:? #6;"animation":POSITION 3,5:? #6;"demonstration"›120 GOSUB 1000:REM initialize vb routine›125 FOR J=0 TO 3:POKE PLY+J,169:POKE PLL+J,24:NEXT J›135 DRAW=1›145 FOR I=212 TO 10 STEP -1:REM move rt to lft horiz›155 FOR J=0 TO 3:REM four players›165 POKE PLX+J,I+J*10:REM new position, maintain separation›175 NXTDRW=DRAW+J*24:IF NXTDRW>73 THEN NXTDRW=NXTDRW-96:REM select different drawing for each player›185 POKE PDR+J,NXTDRW:NEXT J›195 DRAW=DRAW+24:IF DRAW>73 THEN DRAW=1:REM select next drawing›205 NEXT I:GOTO 145›1000 REM INITIALIZE VBLANK PM SUBR›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›1045 FOR I=0 TO 3:DRWBAS=PMBASE+I*256+1:REM four players›1055 RESTORE 3015:FOR J=0 TO 3:REM four drawings›1065 FOR K=DRWBAS+J*24 TO DRWBAS+J*24+23:READ X:POKE K,X:NEXT K:NEXT J:NEXT I›1075 POKE 704,12:POKE 705,128:POKE 706,48:POKE 707,192›1080 PLX=53248:PLY=1780:PLL=1784›1090 POKE 559,62:POKE 623,1:POKE 1788,PM+4:POKE 53277,3:POKE 54279,PM›1095 PDR=1772:POKE 1771,PM›1100 X=USR(1696)›1110 RETURN ›2000 REM vblank interupt 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,2O3,136,202,208,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›3005 REM drawings 0, 1, 2 and 3›3015 DATA 0,12,12,30,0,12,12,0,12,14,30,45,13,13,12,28,28,20,52,34,34,34,102,0›3025 DATA 0,12,12,30,0,12,12,0,12,14,14,13,26,4,8,12,12,28,24,28,20,18,50,0›3035 DATA 0,12,12,30,0,12,12,0,12,14,10,14,30,12,8,12,28,28,8,12,12,8,24,0›3045 DATA 0,12,12,30,0,12,12,0,12,12,12,10,6,30,12,12,12,12,20,20,18,50,6,0›