%%HP: T(1)A(G)F(.);
 " " CLLCD 4
DISP XSOL COL 
ncol
   ncol LIST 1
     OBJ EVAL
LIST 1 'D' 1 GET
SUB
     DOSUBS { } 0
ncol 1 -
    FOR I "'Nj" I +
+
    NEXT
     OBJ
     DOSUBS DUP
    IF ncol 5 
    THEN ncol 1 +
11
      FOR I "" +
      NEXT
    ELSE ncol 1 + 5
      FOR I "" +
      NEXT
    END 'MENUA' +
TMENU STO
  

