echo off
cls
echo.                                                                             
echo.                                                                             
echo                ÖÂÄÄÄ·                                            
echo                º³                                                
echo                º³     Ö   Ò ÖÄ·    ÖÂÄÄÄ·  ÖÄÄÄÄ·  ÖÄÄÄÄ·  ÖÄÄÄÄ·
echo                º³     º   º ÇĽ    º³      º    º  º       º     
echo                ÓÁÄÄĽ ÓĽ Ð Ð      º³      ÇÄÄÄĶ  ÓÄÄÄÄ·  ÇÄÄÄÄ 
echo                                    º³      º    º       º  º     
echo                                    ÓÁÄÄĽ  Ó    ½  ÓÄÄÄĽ  ÓÄÄÄĽ
echo.                                                                              
echo                            Version [Pre-Release]                             
echo.                                                                              
echo                         Copyright (c) Ingenuity, Inc.                  
echo                              All Rights Reserved                              
echo.                                                                             
echo  Clip CASE  is user supported software.  It is not free, and it is not in the
echo  public domain.    You are granted a limited license to use  Clip CASE  for a
echo  trial period.  If you decide to continue using  Clip CASE, you must register
echo  by sending $295 for registration, disks and manual to the address below.   
echo.                                                                           
echo  Ingenuity, Inc., 1111 Evans Street, Bainbridge, GA 31745       (912)243-9313
SET CLIPPER=V010;R020;E000;F095
cc_sys
:begin
if errorlevel 99 goto exit
if errorlevel 70 goto vtree_f
if errorlevel 69 goto vtree_e
if errorlevel 68 goto vtree_d
if errorlevel 67 goto vtree_c
if errorlevel 66 goto vtree_b
if errorlevel 65 goto vtree_a
if errorlevel 6 goto chlbl_b
if errorlevel 5 goto chlbl_a
if errorlevel 1 goto sys_m1
if errorlevel 0 goto sys_m0
goto continue
:sys_m0
cc_sys
goto begin
:sys_m1
echo                      *****  File Not Found!  *****
goto begin
:chlbl_a
cls
label a:
goto begin
:chlbl_b
cls
label b:
goto begin
:vtree_a
vtree a:>dtree.txt
goto begin
:vtree_b
vtree b:>dtree.txt
goto begin
:vtree_c
vtree c:>dtree.txt
goto begin
:vtree_d
vtree d:>dtree.txt
goto begin
:vtree_e
vtree e:>dtree.txt
goto begin
:vtree_f
vtree f:>dtree.txt
goto begin
:exit
goto continue
:continue