;=============================================================================
;
;(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(?)
CUR_POINT POINT ?
;-----------------------------------------------------------------------------
; 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 CUR_POINT.X,160	;
	MOV CUR_POINT.Y,100	;
	MOV CUR_POINT.COL,43
        CALL DRAW_CIRCLE        ;
        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

END START