;; BOXES! JOY!

	INCLUDE	PCMAC.INC 
	INCLUDE VIDEO.INC

        .MODEL  SMALL

        .STACK  100h

        .DATA
Vert	EQU	179
Horiz	EQU	196
ULC	EQU	218
LLC	EQU	192
URC	EQU	191
LRC	EQU	217
H	DW	?
W	DW	?

        .CODE
BoxIt   PROC
	EXTRN	GetDec : NEAR
        mov     ax, @data
        mov     ds, ax
	
	call	GetDec
	mov	W, ax
	call	GetDec
	mov	H, ax
        
	_CLS
	_Locate	0,0

	_PutCh	ULC
	mov	cx, W
	sub	cx, 2
	jcxz	Over
Lab1:
	_PutCh	Horiz
	Loop	Lab1
Over:
	_PutCh	URC, 13, 10
	mov	cx, H
	sub	cx, 2
	jcxz	Over2
Lab2:
	_PutCh	Vert
	push	cx
	mov	cx, W
	sub	cx, 2
	jcxz	Over3
Lab3:
	_PutCh	' '
	loop	Lab3
Over3:
	_PutCh	Vert, 13, 10
	pop	cx
	loop	Lab2
Over2:
	_PutCh	LLC
	mov	cx, W
	sub	cx, 2
	jcxz	Over4
Lab4:
	_PutCh	Horiz
	Loop	Lab4
Over4:
	_PutCH	LRC, 13, 10

        mov     al, 0   ; Return code of 0
        mov     ah, 4ch ;       Exit back to MS/PCDOS
        int     21h
BoxIt   ENDP

        END     BoxIt