rem Old Filmstrip of a CRT Simulator I for the 2600 rem by Fort Apocalypse set kernel_options no_blank_lines const noscore=0 dim ab = a.b dim cd = c.d dim rand16 = q initsim u=127 v=8 w=2 r=30 x=0 mainloop COLUPF=255-n COLUP0=n+45 COLUP1=rand if joy0fire then n=n+1 : r=r+1 if joy1fire then n=n-1 : r=r-1 if switchreset then goto initsim if switchselect then y=y+1 if !switchrightb then goto woutfilm player0x=rand player0y=player1x player1x=rand player1y=player0x ballx=player1y bally=player0x ENAM0=2 missile0x=f goto afterfilm woutfilm player0y=240 player1y=240 bally=240 ENAM0=1 afterfilm f=f+w+2 g=g+w if fg+v then f=g if joy1up then v=v-1 if joy1down then v=v+1 if joy1left then w=w-1 if joy1right then w=w+1 a = a + 7 c = ab - rand d = cd + c e = c - d if !switchleftb then pfclear : goto aftersnow x=255 asm ifconst pfres ldx #pfres*pfwidth-1 else ldx #47-(4-pfwidth)*12 ; will this work? endif pfsnow_loop jsr randomize ifconst superchip sta playfield-128,x else sta playfield,x endif dex bpl pfsnow_loop end aftersnow player0: %0 end player1: %1 end drawscreen goto mainloop