10  COM H[300],I[300],J[300],K[300],L[300],M[300]
20  COM N[25],G0,G1,G2,G3,G4,G5,G6,G7,G8,G9
30  COM A[100],B[100],M0,M1,A0
40  COM O[20],P[20],Q[20],R[20]
50  COM R$[7],R9
60  COM H1
70  COM H2,H3,H4,H5,H6,H7,H8,H9,J0
80  COM J1,J2,J3,J4,J5,J6,J7,J8
100  COM C$[4],D[4],E$[4],F[4]
110  COM Q$[7],Q9
120  COM N0,N1
140  COM I1,I0
150  I0=0
160  Z$="Z"
170  A$="A"
180  M$="-"
190  P$="+"
200  IF (N0>M0) THEN 360
240  X0=B[N0+1]
250  IF (X0#0) THEN 280
260  N0=N0+1
270  GOTO 200
280  C$[I1]=P$
290  IF  NOT (X0<0) THEN 310
300  C$[I1]=M$
310  D[I1]=ABS(X0)
320  E$[I1]=Z$
330  F[I1]=N0
340  N0=N0+1
350  CHAIN Q$,Q9
360  IF (N1>M1) THEN 550
400  X0=A[N1+1]
410  IF (X0#0) THEN 440
420  N1=N1+1
430  GOTO 360
440  C$[I1]=M$
450  IF  NOT (X0<0) THEN 470
460  C$[I1]=P$
470  D[I1]=ABS(X0)
480  E$[I1]=A$
490  F[I1]=N1
500  N1=N1+1
510  CHAIN Q$,Q9
550  I0=1
560  CHAIN Q$,Q9
570  END 
