8,0 SAY '
DISK INSERT (in jacket)  CUTLINE
@60,0 SAY ' '
SET DEVI TO SCREEN
PROC OVER280
GO TOP
COPY TO $$A NEXT 280
GOTO 281
COPY TO $$B NEXT 280
IF RECC()>560
GOTO 561
COPY TO $$C NEXT 280
ENDI 
IF RECC()>840
GOTO 841
COPY TO $$D NEXT 280
ENDI 
IF RECC()>1120
GOTO 1121
COPY TO $$E NEXT 280
ENDI 
IF RECC()>1400
GOTO 1401
COPY TO $$F NEXT 280
ENDI 
IF RECC()>1680
CATALOG
COPY TO $$H NEXT 280
ENDI 
IF RECC()>2240
GOTO 2241
COPY TO $$I NEXT 280
ENDI 
IF RECC()>2520
GOTO 2521
COPY TO $$J NEXT 280
ENDI 
IF FILE('$$A.DBF')
CLOS DATA
USE $$A
DO OVER120
ENDI 
IF FILE('$$B.DBF')
CLOS DATA
USE $$B
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$C.DBF')
CLOS DATA
USE $$C
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$D.DBF')
CLOS DATA
USE $$D
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$E.DBF')
CLOS DATA
USE $$E
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$F.DBF')
CLOS DATA
USE $$F
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$G.DBF')
CLOS DATA
USE $$G
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$H.DBF')
CLOS DATA
USE $$H
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$I.DBF')
CLOS DATA
USE $$I
PAGEN=PAGEN+1
DO OVER120
ENDI 
IF FILE('$$J.DBF')
CLOS DATA
USE $$J
PAGEN=PAGEN+1
DO OVER120
ENDI 
! DEL $$*.*
PROC BLKTXT 
SET DELI ON
STOR SPAC(74) TO LDESC1,LDESC2,LDESC3,LDESC4,LDESC5,LDESC6,LDESC7,LDESC8
STOR SPAC(74) TO LDESC9,LDESC10,LDESC11,LDESC12,LDESC13,LDESC14,LDESC15
DO BOX3
@2,5 SAY '  
@3,5 SAY '  
 ADD THE FOLLOWING TEXT TO THE DISK JACKET ABOUT TO BE PRINTED  
@4,5 SAY '  
 NOTE EACH LINE FILLS IN IN PLACE OF THE CATALOG DESCRIPTION    
@5,5 SAY '  
 DOES NOT HAVE LINE OR WORD WRAP WUS IS WUG      PAGE 1 OF 3    
@6,5 SAY '  
CATALOG
CATALOG
            
            
            
            
            
            
            	
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
            
             
            !
            "
            #
            $
            %
            &
            '
            (
            )
            *
            +
            ,
            -
            .
            /
            0
            1
            2
            
BOBCAT   DBF