DIM T(81),S(81)
LET I=1
FOR E=-1 TO 1
   FOR F=-1 TO 1
      FOR G=-1 TO 1
         FOR H=-1 TO 1
            LET T(I)=E+F*4+G*16+H*64
            LET S(I)=E+F*2+G*4+H*8
            LET I=I+1
         NEXT H
      NEXT G
   NEXT F
NEXT E
CALL sort(T,81)
CALL sort(S,81)
PRINT
PRINT "1g   4g  16g   64g :"
PRINT "   ";
FOR q=1 TO 81
   IF T(q)>0 THEN
      IF T(q)>T(q-1) THEN
         PRINT USING "####":T(q);
      END IF
   END IF
NEXT q
PRINT
PRINT
PRINT "1g   2g   4g   8g :"
PRINT "   ";
FOR q=1 TO 81
   IF S(q)>0 THEN
      IF S(q)>S(q-1) THEN
         PRINT USING "####":S(q);
      END IF
   END IF
NEXT q
PRINT
PRINT
END

EXTERNAL SUB sort(a(),m)
FOR i=1 TO m-1
   FOR j=i+1 TO m
      IF a(i)>a(j) THEN
         LET t=a(j)
         LET a(j)=a(i)
         LET a(i)=t
      END IF
   NEXT j
NEXT i
END SUB