TITLE PROG7-1MM DEMONSTRATES MODULAR PROGRAMMING
  PAGE 60,132
EXTRN SUBPROG1:FAR
EXTRN SUBPROG2:FAR
  PUBLIC VALUE1, VALUE2, SUM, PRODUCT
  .MODEL SMALL
  .STACK 64
  .DATA
  VALUE1 DW 2050
  VALUE2 DW 500
  SUM DW 2 DUP (?)
  PRODUCT DW 2 DUP (?)
  .CODE
  MAIN PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  CALL SUBPROG1 
  CALL SUBPROG2 
  MOV AH,4CH
  INT 21H 
  MAIN ENDP
  END MAIN