0REM~*:B6S6l;`ALB5@):~B9B>I?I8B9~L8L?T>T:L8"~4-;8NEaNnPZ?L74-N5Y<kLnP~L7O6~Z?Y<~G=I9Q<NAG=~S=YBWFQCS=!
1HGR2:DEFFNP(X)=3*PEEK(2054+I+X)-99
2POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
3V=FNP(0):IFV=3THENI=I+1:GOTO2
4IFV=0THENI=0:GOTO2
5IFV=279THENHPLOTFNP(1),FNP(2):I=I+3
6HPLOTTOFNP(0),FNP(1):I=I+2
7GOTO3