1 PRINT"{CLR}":D(0)=41:D(1)=39:D(2)=-41:D(3)=-39:K=0:P=0:FORJ=1TO9:READX:GOSUB2:NEXT:RUN
2 POKEX,42:K=K+1:X=X+D(P):IFK=4THEN:X=X-D(P):P=P+1:K=0:IFP>3THENP=0:RETURN
3 GOTO2:DATA1027,1033,1039,1267,1273,1279,1507,1513,1519
