;************************************************************************
;
; __RVerSup   Return the POWER TOOLS PLUS version number.
;
; procedure __VerSup : _VerCtrlBlock;
;
; Description This procedure returns the current POWER TOOLS PLUS
;	      version number and copyright notice.  The notice is placed
;	      in the code segment, and should not be removed from any
;	      POWER TOOLS PLUS application.
;
;	      This notice must not be removed.
;
; Version     4.01 (C)Copyright Blaise Computing Inc.  1988
;________________________________________________________________________


code	   segment
	   assume  cs:code,ds:nothing

ver_block   equ     $

minor_ver   db	    00		       ; Minor version number
major_ver   db	    04		       ; Major version number
version_str db	    12,'Version 4.01'
copyright   db	    39,'(C)Copyright Blaise Computing Inc. 1988'
rights	    db	    19,'All rights reserved'

;========================================================================
;
; __rversup   Return the address of the version control block
;
;________________________________________________________________________

	   public  __rversup
__rversup  proc    near

	   mov	   dx,cs		  ; Move address of the block into
	   mov	   ax,offset ver_block	  ; DX:AX for function return
	   ret
__rversup  endp

code	   ends
	   end
