* ***************************  DNSHOW COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
STORE 3 TO target
STORE 1 TO strpos
DO WHILE strpos<19
 IF showcl
  IF $(cl,strpos,2)= '  ' .OR. '00' $cl
   RELEASE mom,var,z,mes,which,intcl,strpos,target
   RETURN
  ENDIF
  STORE val($(cl,strpos,2)) TO intcl
 ELSE
  IF $(mmcl,strpos,2)= '  ' .OR. '00' $mmcl
   RELEASE mom,var,z,mes,which,intcl,strpos,target
   RETURN
  ENDIF 
  STORE val($(mmcl,strpos,2)) TO intcl
 ENDIF
 DO CASE
  CASE @(str(intcl,2)+ '>' ,mcl1)<>0
   STORE @(str(intcl,2)+ '>' ,mcl1)+3 TO z
   STORE '1' TO var
  CASE @(str(intcl,2)+ '>' ,mcl2)<>0
   STORE @(str(intcl,2)+ '>' ,mcl2)+3 TO z
   STORE '2' TO var
  CASE @(str(intcl,2)+ '>' ,mcl3)<>0
   STORE @(str(intcl,2)+ '>' ,mcl3)+3 TO z
   STORE '3' TO var
  CASE @(str(intcl,2)+ '>' ,mcl4)<>0
   STORE @(str(intcl,2)+ '>' ,mcl4)+3 TO z
   STORE '4' TO var
  CASE @(str(intcl,2)+ '>' ,mcl5)<>0
   STORE @(str(intcl,2)+ '>' ,mcl5)+3 TO z
   STORE '5' TO var
  CASE @(str(intcl,2)+ '>' ,mcl6)<>0
   STORE @(str(intcl,2)+ '>' ,mcl6)+3 TO z
   STORE '6' TO var
  CASE @(str(intcl,2)+ '>' ,mcl7)<>0
   STORE @(str(intcl,2)+ '>' ,mcl7)+3 TO z
   STORE '7' TO var
  CASE @(str(intcl,2)+ '>' ,mcl8)<>0
   STORE @(str(intcl,2)+ '>' ,mcl8)+3 TO z
   STORE '8' TO var
  CASE @(str(intcl,2)+ '>' ,mcl9)<>0
   STORE @(str(intcl,2)+ '>' ,mcl9)+3 TO z
   STORE '9' TO var
  CASE @(str(intcl,2)+ '>' ,mcl10)<>0
   STORE @(str(intcl,2)+ '>' ,mcl10)+3 TO z
   STORE '10' TO var
 ENDCASE 
 STORE 'MCL' +var TO mom
 IF strpos=1
  STORE trim($(&mom,z,12)) TO mes
 ELSE
  STORE '/' +trim($(&mom,z,12)) TO mes
 ENDIF
 @ 7,target SAY mes
 STORE len(mes)+target TO target
 STORE strpos+3 TO strpos
ENDDO WHILE twice
RELEASE mom,var,z,mes,which,intcl,strpos,target
RETURN