rem batari Basic Program rem created 1/2/2020 4:56:40 PM by Visual bB Version 1.0.0.568 set kernel_options pfcolors rem ----- init variables ----- dim _title_frame = 1 goto __setup_titlescreen rem ----- main_loop: start ----- __main_loop if _title_frame > 0 then _title_frame = _title_frame + 1 if _title_frame = 10 then goto __setup_playfield1 drawscreen goto __main_loop rem ----- main_loop: end ----- rem ----- setup_titlescreen: start ----- __setup_titlescreen pfcolors: $00 $64 $68 $FE $FE $9A $FE $FE $68 $64 $00 end playfield: ................................ .....X.X.X..XXX.XX..XX..XXX..X.. .......X.X..X...X.X.X.X.X...X.X. .....X...X..X...XXX.XX..X.X.X.X. X.X.X.X......XX.X.X.X.X..X...X.. .X.X.X.X........................ X.X.X.X.....XX..X.X.X..X........ .....X...X..X.X.X.X.XX.X........ .......X.X..XX..X.X.X.XX........ .....X.X.X..X.X..XX.X..X........ ................................ end goto __main_loop rem ----- setup_titlescreen: end ----- rem ----- setup_playfield1: start ----- __setup_playfield1 pfcolors: $00 $00 $00 $00 $00 $D2 $D2 $50 $5A $F8 $60 end playfield: ................................ ................................ ................................ ................................ ................................ ................................ XXXX.......................XXXXX XXXX.......................XXXXX XXXXXX.......XXXX........XXXXXXX ..............XX................ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end _title_frame = 0 goto __main_loop rem ----- setup_playfield1: end -----