Gate Crasher (Commodore 64) by Mr SQL

rem ******************************************************************************************************************
 rem Gate Crasher Commodore 64 entry for the 2024 BASIC Programming 10 liner contest. 120 character per line category.
 rem Guide your ship through several gates to make it to the next level with a new algorithmic Jazz Improv soundtrack!
 rem Gravity and inertia add to the challenge! Unlock dazzling multicolor mode on the 2nd level!
 rem It is possible to go into hyperspace but you cannot be sure where your ship will come down.
 rem Gate Crasher is programmed in Atari Flashback BASIC for the Commodore 64 and Atari 2600 VCS.
 rem The C64 version runs in an embedded Atari 2600 emulator compatible with SuperCharger and Atari Flashback BASIC.
 rem This BASIC program uses a large virtual world with graphics commands for scrolling and sprites.
 rem And a programmable musical score with tracker sequencer commands. 
 rem Download the embedded emulator and BASIC programming languages from http://RelationalFramework.com 
 rem ******************************************************************************************************************
0 if joy0up=1 then player0y=player0y+1:t=1-t:missile1y=missile1y+t else player0y=player0y-t:t=1-t:missile1y=missile1y+t
1 if joy0left=1 then player0x=player0x-1:missile0y=missile0y+1 else player0x=player0x+2:missile0y=missile0y+1
2 if e=5 and joy0fire=1 then r=r+1 else missile1x=missile1x+1:missile0x=missile0x+t:AUDV0=R(l):COLUBK=r
3 if g=0 then for j=0 to 3:player0(j)=pl(j):player0colors(j)=p2(j):next j:MUSICINDEX=8 else goto 5
4 for x=20 to 70 step 10:for y = 0 to 19:vwpixel(x,y,on):next y,x:player0y=50:player0x=52:BYTErowoffset=120:g=1 
5 if e>7 then e=0:BITIndex=BITIndex+1:scrollvirtualworldtoggle=1 else e=e+1:return:data pl 240,255,127,240
6 if l<20 then l=l+1:x=BITIndex/10 else l=0:x=BITIndex/10:data p2 $36,$64,$76,$36:data R 3,8,2,0,3,8,8,5,3,0,3,5,8,8,5
7 if b=0 then x=BITIndex+10:vwpixel(x,R(l)+10,flip):vwpixel(x,R(l)+11,flip):return
8 if CXP0FB=130 or CXM1P>127 or CXM0P>127 then CXCLR=0:COLUBK=$34:g=0:BITIndex=0:data R2 5,8,5,3,0,2
9 if BITIndex>71then BITIndex=0:n=2-n else for j=0to21:i=i+1:i=i+n:MusicData(j)=i&31:rowcolors(j)=i|193:next j