;=============================================================================
;
;(C)I don't take any responsibility for the use of this program
;                           Zedr0n -- connection closed
;=============================================================================
;=============================================================================
; .Com declaration
;=============================================================================
.MODEL TINY
LOCALS @@
;=============================================================================
; Data definition/declaration
;=============================================================================
.DATA
;-----------------------------------------------------------------------------
; Equals
;-----------------------------------------------------------------------------
INCLUDE ..\LIB\DEFS.INC
X0 EQU 160                      ;
Y0 EQU 100                      ;
RAD EQU 60
;-----------------------------------------------------------------------------
; Constants
;-----------------------------------------------------------------------------
INCLUDE ..\LIB\SINE_TAB.INC
;-----------------------------------------------------------------------------
; File variables
;-----------------------------------------------------------------------------
CUR COLOR ?                     ;
PAL COLOR 64 DUP(?)
CIRCLE_1 CIRCLE ?
RECT_1 RECT ?			;
;-----------------------------------------------------------------------------
; Stack variables
;-----------------------------------------------------------------------------


.CODE
.386
ORG 100H
;=============================================================================
; Code segment
;=============================================================================
START:                          ;
; <<Set the video mode and the video buffer>>
        MOV AX,013H     ;
        INT 10H                 ;
        PUSH 0A000H             ;
        POP ES
; <<Fade down to look neat>>
        CALL GRABPAL
        CALL FADEDOWN
; <<Draw a circle>>
        MOV CIRCLE_1.CENTER.X,160	;
	MOV CIRCLE_1.CENTER.Y,100	;
	MOV CIRCLE_1.CENTER.COL,43
	MOV CIRCLE_1.RADIUS,30	; 
        CALL DRAW_CIRCLE        ;
; <<Draw a rectangle>>
	MOV AL,46
	MOV RECT_1.ULC.X,140
	MOV RECT_1.ULC.Y,80
	MOV RECT_1.LLC.X,140
	MOV RECT_1.LLC.Y,120 
	MOV RECT_1.URC.X,180 
	MOV RECT_1.URC.Y,80 
	MOV RECT_1.LRC.X,180
	MOV RECT_1.LRC.Y,120
	CALL DRAW_RECTANGLE
; <<Draw another circle>>
	MOV CIRCLE_1.CENTER.X,160 	;
	MOV CIRCLE_1.CENTER.Y,100
	MOV CIRCLE_1.CENTER.COL,50
	MOV CIRCLE_1.RADIUS,20	;
	CALL DRAW_CIRCLE
; <<Wait for a key>>
        XOR AH,AH               ;
        INT 16H
; <<Now fade up>>
        CALL FADEUP
; <<Make a pause>>
        XOR AH,AH               ;
        INT 16H
        MOV AX,03H              ;
        INT 10H

        RET
;=============================================================================
; Procedures
;=============================================================================
INCLUDE ..\LIB\MCGA.INC         ;
INCLUDE ..\LIB\CIRCLE.INC       ;
INCLUDE ..\LIB\SINES.INC
INCLUDE ..\LIB\PAL.INC
INCLUDE ..\LIB\FADEUP.INC
INCLUDE ..\LIB\FADEDOWN.INC
INCLUDE ..\LIB\READPAL.INC
INCLUDE ..\LIB\BLACKOUT.INC
INCLUDE ..\LIB\RECT.INC		;
INCLUDE ..\LIB\HOR_LINE.INC	;
INCLUDE ..\LIB\VERT_LIN.INC	;

END START