﻿0 if g=0 or SWCHB|254<>255 then for g=0 to119:virtualworld(g)=255:j=g+120:virtualworld(j)=0:i=g/12:player0y=9 else goto2
1 rowcolors(i)=g:next g:for i=0 to 7:player1(i)=pl(i):player0(i)=pl(i):next i:scrollvirtualworldtoggle=1:p=120:s=0:rem77
2 if joy0fire=1 and s=0 then s=random(f)+127:return else t=1-t:SUSTAINFORFRAMES=SUSTAINFORFRAMES+t:rem ProgrammedByMrSQL
3 if f>29then f=0:r=SWCHA:player0x=player0x+1:player0y=player0y+t else f=f+1:vwpixel(x,y,bindplayer1):goto9:rem AtariVCS
4 if s>0 then e=p+1:r=virtualworld(e):data random 0,96,0,64,112,96,0,112,0,96,64,96,96,112,64,96,0,112,64,64,0,0,64,96,0 
5 if r=0then r=s else NUSIZ1=3:data R2 112,0,112,64,0,0:data pl 24,60,60,28,4,5,7,6:rem MUSICAL-SimonSaysTouchMe! 3/2019
6 if r<>239 and r<>223then goto7 else SUSTAINFORFRAMES=15:j=r^239:AUDC1=12:AUDF1=r/2:COLUBK=0:p=p+1:COLUP1=r/2:x=8:y=j/6
7 if r<>127 and r<>191 then goto8 else SUSTAINFORFRAMES=15:j=197-r:AUDC0=4:AUDF0=j/4:COLUBK=0:p=p+1:COLUP1=j:y=4:x=j/5
8 if virtualworld(p)=0 and p>120 then virtualworld(p)=r:COLUBK=$62:j=p-120:vwpixel(j,9,flip):p=120:s=0:rem BASIC is Fun!
9 if virtualworld(p)<>r and r<>255 and p>120then AUDF1=31:AUDC1=3:COLUP1=0:SUSTAINFORFRAMES=14:p=120:s=0:rem 4Everyone:)
