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 %00000000 %11111100 %11111100 %01111000 %01110000 %01110000 %00111010 %00111101 %00111001 %00111000 %00111000 %00111000 %00000000 %00000000 %01111100 %00111000 %00111000 %00010000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 end if f = 10 then player0color: $F4; $F4; $F4; $F2; $F4; $F4; $F4; $0E; $0C; $0C; $0A; $08; $06; $06; $06; $F6; $F6; $F4; $F2; $0E; $0E; $0E; $0E; $0E; $0E; end if f = 20 then player0: %00000000 %00000000 %11111100 %11111100 %01111000 %01110000 %01110000 %00111010 %00111101 %00111001 %00111000 %00111001 %00111000 %00000000 %00000000 %01111100 %00111000 %00111000 %00010000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 end if f = 20 then player0color: $F4; $F4; $F4; $F2; $F4; $F4; $F4; $0E; $0C; $0C; $0A; $08; $06; $06; $06; $F6; $F6; $F4; $F2; $0E; $0E; $0E; $0E; $0E; $0E; end if f = 30 then player0: %00000000 %00000000 %11111100 %11111100 %01111000 %01110000 %01110000 %00111010 %00111101 %00111001 %00111000 %00111001 %00111000 %00000001 %00000000 %01111100 %00111000 %00111000 %00010000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 end if f = 30 then player0color: $F4; $F4; $F4; $F2; $F4; $F4; $F4; $0E; $0C; $0C; $0A; $08; $06; $06; $06; $F6; $F6; $F4; $F2; $0E; $0E; $0E; $0E; $0E; $0E; end if f=30 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