DATA SEGMENT
     STRING DB 67,11,2AH,0CBH,23H,43,27,27H,0EDH,78,9DH,3AH,23H,45,6AH,42H,0EAH,8AH,20H
     S_LEN EQU $-STRING
     STRING1 DB 20 DUP(?)
     STRING2 DB 20 DUP(?)
     DAT DB 2
DATA ENDS
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
START:
      MOV AX,DATA
      MOV DS,AX
      MOV DH,0		      ;0
      MOV DL,0		      ;1
      MOV CX,S_LEN
      MOV BL,STRING
      MOV SI,OFFSET STRING1   ;0
      MOV DI,OFFSET STRING2   ;1
  LOP:
      MOV AL,BL
      CBW
      IDIV DAT
      CMP AH,0
      JZ  LOP1
      CMP AH,1
      JZ  LOP2
  LOP1:
      MOV [SI],BL
      INC SI
      INC DH
      MOV BL,BL[1]
      LOOP LOP
  LOP2:
      MOV [DI],BL
      INC DI
      INC DL
      MOV BL,BL[1]
      LOOP LOP
      MOV AH,4CH
      INT 21H
CODE ENDS
     END START