0 if g=0 then for x=18 to 239:virtualworld(x)=0:next x else f=f+1:goto 2:rem ini
1 for x=0 to 9:g=g+10:rowcolors(x)=g:next x:x=10:y=5:h=1: rem initial dir right
2 if f<4 then scrollvirtualworldtoggle=0:return else scrollvirtualworldtoggle=1
3 if joy0left=1 then e=1:h=0:i=0:j=0:AUDC0=8:AUDF0=BITIndex:SUSTAINFORFRAMES=15
4 if joy0right=1 then h=1:e=0:i=0:j=0:AUDC0=6:AUDF0=BITIndex:SUSTAINFORFRAMES=15
5 if joy0down=1 then i=12:e=0:h=0:j=0:AUDF0=y*3:AUDC0=15:SUSTAINFORFRAMES=15
6 if joy0up=1 then j=12:i=0:e=0:h=0:AUDC0=3:AUDF0=y*2:SUSTAINFORFRAMES=15
7 x=x-e:x=x+h:l=i/12:y=y+l:l=j/12:y=y-l:BYTErowoffset=BYTErowoffset+i:rem TRON!!
8 BITIndex=BITIndex-e:BITIndex=BITIndex+h:BYTErowoffset=BYTErowoffset-j:f=0
9 if vwpixel(x,y,on)>0 then COLUBK=100:SUSTAINFORFRAMES=100:goto 6:rem Atari VCS

 data textdata    "Atari2600 BASIC"
 data textdata9   "programming is "
 data textdata8   "fun player!    "
 data textdata7   "focus your mind"

 data textdata6   "write some code"
 data textdataB   "build a game   "
 data textdataC   "download the   "
 data textdatad   "BASIC from site"
 
 data textdataaa  "relationalframe"
 data textdataa9  "work dot com   "
 data textdataa8  "Concentrate and"
 data textdataa7  "make fun games!"

 data textdataa6  "Have you played"
 data textdataaB  "Atari today!msg"
 data textdataaC  "easter-egg fun!"
 data textdataad  "I love writing "
 data textdataae  "BASIC games!U2?"

 data atextdata    "Atari2600 BASIC"
 data atextdata9   "programming is "
 data atextdata8   "fun player!    "
 data atextdata7   "focus your mind"

 data atextdata6   "write some code"
 data atextdataB   "build a game   "
 data atextdataC   "download the   "
 data atextdatad   "BASIC from site"
 
 data atextdataaa  "relationalframe"
 data atextdataa9  "work dot com   "
 data atextdataa8  "Concentrate and"
 data atextdataa7  "make fun games!"

 data batextdata    "Atari2600 BASIC"
 data batextdata9   "programming is "
 data batextdata8   "fun player!    "
 data batextdata7   "focus your mind"

 data batextdata6   "write some code"
 data batextdataB   "build a game   "
 data batextdataC   "download the   "
 data batextdatad   "BASIC from site"
 
 data batextdataaa  "relationalframe"
 data batextdataa9  "work dot com   "
 data batextdataa8  "Concentrate and"
 data batextdataa7  "make fun games!"


 data ctextdata    "Atari2600 BASIC"
 data ctextdata9   "programming is "
 data ctextdata8   "fun player!    "
 data ctextdata7   "focus your mind"

 data ctextdata6   "write some code"
 data ctextdataB   "build a game   "
 data ctextdataC   "download the   "
 data ctextdatad   "BASIC from site"
 
 data ctextdataaa  "relationalframe"
 data ctextdataa9  "work dot com   "
 data ctextdataa8  "Concentrate and"
 data ctextdataa7  "make fun games!"