%%HP: T(1)A(G)F(.);
 'DB' 4 GET 'DB' 1
GET 2 LIST 0 CON
'M' STO 1 'DB' 1
GET
  FOR EC 'PRE50'
PRAUX
  NEXT

