230 IF PEEK(1700)=1 OR STRIG(0)=1 THEN 230¢235 DIR=STICK(0):IF DIR=15 THEN 230¢240 X=USR(ADR(MISCLR$),PMBASE+768,255,252):PPOS=PEEK(1688)¢250 POKE PMBASE+768+PPOS-1,3:POKE PMBASE+768+PPOS,3:POKE PMBASE+768+PPOS+1,3¢260 POKE 1696,PPOS:POKE 1692,PEEK(1684)+2:POKE 53252,PEEK(1692)¢270 POKE 1704,0¢280 IF DIR<12 THEN POKE 1704,128¢290 IF DIR<8 THEN POKE 1704,1¢300 POKE 1708,0¢310 IF DIR/2=INT(DIR/2) THEN POKE 1708,128:GOTO 330¢320 IF DIR<>11 AND DIR<>7 THEN POKE 1708,1¢330 POKE 1700,1¢340 GOTO 230¢
