home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
UT
/
UT130.ZIP
/
ALLEYCAT.ZIP
/
CAAT.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1990-10-04
|
4KB
|
163 lines
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