;
PAGE,132
NAME CONTRACT_CODE
TITLE CONTRACT.ASM -- VOL ID = MSB-SCRATCH
;
;PROCEDURE TO SHRINK CURSOR TO NORMAL SIZE
;
CONTRACT_CODE SEGMENT PARA PUBLIC 'CODE'
              PUBLIC    CONTRACT
CONTRACT      PROC      FAR
              ASSUME    CS:CONTRACT_CODE
              PUSH      BP
              MOV       BP,SP
              MOV       AH,01
              MOV       CH,11        ;RESET CURSOR SIZE TO 11/12
              MOV       CL,12        ;END SCAN LINE AT 12
              INT       10H          ;BIOS FOR CURSOR MANAGE SERVICE
              POP       BP
              RET
CONTRACT      ENDP
CONTRACT_CODE ENDS
              END                    ;ASSEMBLY
