0REM##JJR*((*+*((.?*++(+***->*33'9*<<'=%,0(+%+1-A%49'A%=B'>#06:@)15;?#14AC&11AA&00BB#+,:A%++<<(,,?A(**EN(*/CC(49CC(99JN#=@<>%@@==+=?>>(=?<<(>@;;':::=';<990<<::
1GR:POKE49234,0:DEFFNP(X)=PEEK(2054+I*5+X)-35:FORI=0TO30:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I