rem CODE INSPIRED BY Atarius Maximus at http://www.atariage.com/forums/index.php?showtopic=109288 set kernel_options player1colors playercolors pfcolors player0x = 50 player0y = 50 main f=f+1 rem POSSIBLY INEFFICIENT CODE, SEPARATE COLOR INFO FOR EACH FRAME... if f = 10 then player0: %00000000 %00111100 %01111110 %00000000 %01111110 %00000000 %01111110 %00111100 %00000000 %00000100 %00010100 %00000000 %00011100 %00011100 %00000000 %00011100 %00010000 %00000000 %00011100 %00111110 %00111110 %00000000 %00000000 %00000000 end if f = 10 then player0color: $2C; $2E; $2E; $D0; $40; $2E; $2E; $2E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; end if f = 20 then player0: %00000000 %00111100 %01111110 %00000000 %01111110 %00000000 %01111110 %00111100 %00000000 %00100000 %00101000 %00000000 %00111000 %00111100 %00000000 %00111000 %00100000 %00000000 %00111000 %00111000 %01111100 %00000000 %00000000 %00000000 end if f = 20 then player0color: $2C; $2E; $2E; $D0; $40; $2E; $2E; $2E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; end if f = 30 then player0: %00000000 %00111100 %01111110 %00000000 %01111110 %01111110 %00111100 %00000000 %00000100 %00010100 %00000000 %00011100 %00111100 %00000000 %00011100 %00010000 %00000000 %00011100 %00011100 %00111110 %00000000 %00000000 %00000000 %00000000 end if f = 30 then player0color: $2C; $2E; $2E; $D0; $40; $2E; $2E; $2E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; end if f = 40 then player0: %00000000 %00111100 %01111110 %01111110 %00000000 %01111110 %00111100 %00000000 %00100000 %00101000 %00000000 %00101000 %00111000 %00000000 %00111000 %00100000 %00111000 %00111000 %01111100 %00000000 %00000000 %00000000 %00000000 %00000000 end if f = 40 then player0color: $2C; $2E; $2E; $D0; $40; $2E; $2E; $2E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; end if f = 50 then player0: %00000000 %00111100 %01111110 %01111110 %01111110 %00000000 %01111110 %00111100 %00000000 %00001000 %00101000 %00000000 %00111000 %00111100 %00111000 %00000000 %00111000 %00100000 %00100001 %00000111 %00000111 %00000111 %00000001 %00000000 end if f = 50 then player0color: $2C; $2E; $2E; $D0; $40; $2E; $2E; $2E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; end if f=50 then f=0 if joy0right then REFP0 = 0 if joy0left then REFP0 = 8 drawscreen if joy0right then player0x = player0x + 1 if joy0left then player0x = player0x - 1 if joy0up then player0y = player0y - 1 if joy0down then player0y = player0y + 1 goto main