0 GOSUB19:K=0:PRINT"[147]":FORI=0TO9:READJ:A(I)=J:C(I)=INT(A1*RND(0)+4):REM012345678
1 NEXT:X=1868:D(1)=C(2):D(3)=C(0):FORJ=2TO9:E=C(0)/J:IFE=INT(E)THENGOSUB19:REM12
2 NEXT:D(0)=C(0)*C(1):Y=INT(8*RND(0)+2):Z=INT(K*RND(0)):RESTORE:IFK=0THEN0:REM12
3 S1=1726:D(3)=G(Z):FORI=0TO9:Z=INT(10*RND(I)):B(I)=A(Z):IFA(Z)<0THENI=I-1:REM12
4 A(Z)=-1:NEXT:F=LOG(10):H=INT(LOG(D(0))/F):ONHGOSUB14,15,16:V=D(1):Y=1634
5 T=D(3)-V:W=44:D(8)=.5*(D(2)+D(6)+T):GOSUB17:GOSUB17:IFD(5)=0THEN0
6 IFD(9)<>D(4)ORD(8)>INT(D(8))THEN0:PRINT" x[169]X[133]_[169][133]`[169][192][133]Z[169][133][[169][144][133]X[169][133]Y [191][163]X`"
7 POKE1638,42+N:POKE1713,42+O:POKE1958,W-SGN(D(8)-D(2)):POKE1798,W-SGN(U-V)
8 POKES1,W-SGN(D(5)-D(3)):POKES,W-SGN(D(8)-D(6)):GOSUB10:SYS2462:FORI=0TO2
9 B(I)=I+48:NEXT:Y=1074:GOSUB10:FORI=3TO9:B(I)=I+48:NEXT:GOSUB10:GOTO0
10 DATA35,65,81,83,86,87,88,90,102,160:GOSUB11:POKE198,0:WAIT198,1:RETURN
11 FORI=0TO2:FORJ=0TO2:Z=D(3*I+J):E=INT(LOG(D(3*I+J)+.5)/F):FORL=ETO0STEP-1
12 M=INT(Z/10^L+1.E-5):Z=Z-INT(M*10^L+1.E-5):POKEY+13*I+160*J-2*L,B(M)
13 POKE1651+160*J,61:NEXTL,J,I:FORI=0TO32:POKEX+I,64:NEXT:RETURN
14 D(2)=D(0)*D(1):D(3)=C(3):D(6)=D(0)*D(3):P=0:Q=0:RETURN
15 D(1)=Y:D(2)=Y*D(0):D(6)=D(0)/D(3):P=1:Q=0:RETURN
16 D(1)=C(0):D(2)=D(0)/D(1):D(6)=D(0)/D(3):P=1:Q=1:RETURN
17 D(5)=ABS(D(8)-D(2)):D(4)=ABS(D(5)-D(3)):D(7)=ABS(D(8)-D(6)):U=D(7)
18 D(9)=ABS(D(7)-D(1)):N=16*INT(P):O=16*   INT(Q):IFD(9)<>D(4)THEND(8)=D(8)-T
19 S=1740:A1=INT(96*RND(0)):G(K)=E:K=K+1:RETURN