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 >
dBASE Multiple Index  |  1990-10-04  |  4KB  |  163 lines
  1. 8,0 SAY '
  2. DISK INSERT (in jacket)  CUTLINE
  3. @60,0 SAY ' '
  4. SET DEVI TO SCREEN
  5. PROC OVER280
  6. GO TOP
  7. COPY TO $$A NEXT 280
  8. GOTO 281
  9. COPY TO $$B NEXT 280
  10. IF RECC()>560
  11. GOTO 561
  12. COPY TO $$C NEXT 280
  13. ENDI 
  14. IF RECC()>840
  15. GOTO 841
  16. COPY TO $$D NEXT 280
  17. ENDI 
  18. IF RECC()>1120
  19. GOTO 1121
  20. COPY TO $$E NEXT 280
  21. ENDI 
  22. IF RECC()>1400
  23. GOTO 1401
  24. COPY TO $$F NEXT 280
  25. ENDI 
  26. IF RECC()>1680
  27. CATALOG
  28. COPY TO $$H NEXT 280
  29. ENDI 
  30. IF RECC()>2240
  31. GOTO 2241
  32. COPY TO $$I NEXT 280
  33. ENDI 
  34. IF RECC()>2520
  35. GOTO 2521
  36. COPY TO $$J NEXT 280
  37. ENDI 
  38. IF FILE('$$A.DBF')
  39. CLOS DATA
  40. USE $$A
  41. DO OVER120
  42. ENDI 
  43. IF FILE('$$B.DBF')
  44. CLOS DATA
  45. USE $$B
  46. PAGEN=PAGEN+1
  47. DO OVER120
  48. ENDI 
  49. IF FILE('$$C.DBF')
  50. CLOS DATA
  51. USE $$C
  52. PAGEN=PAGEN+1
  53. DO OVER120
  54. ENDI 
  55. IF FILE('$$D.DBF')
  56. CLOS DATA
  57. USE $$D
  58. PAGEN=PAGEN+1
  59. DO OVER120
  60. ENDI 
  61. IF FILE('$$E.DBF')
  62. CLOS DATA
  63. USE $$E
  64. PAGEN=PAGEN+1
  65. DO OVER120
  66. ENDI 
  67. IF FILE('$$F.DBF')
  68. CLOS DATA
  69. USE $$F
  70. PAGEN=PAGEN+1
  71. DO OVER120
  72. ENDI 
  73. IF FILE('$$G.DBF')
  74. CLOS DATA
  75. USE $$G
  76. PAGEN=PAGEN+1
  77. DO OVER120
  78. ENDI 
  79. IF FILE('$$H.DBF')
  80. CLOS DATA
  81. USE $$H
  82. PAGEN=PAGEN+1
  83. DO OVER120
  84. ENDI 
  85. IF FILE('$$I.DBF')
  86. CLOS DATA
  87. USE $$I
  88. PAGEN=PAGEN+1
  89. DO OVER120
  90. ENDI 
  91. IF FILE('$$J.DBF')
  92. CLOS DATA
  93. USE $$J
  94. PAGEN=PAGEN+1
  95. DO OVER120
  96. ENDI 
  97. ! DEL $$*.*
  98. PROC BLKTXT 
  99. SET DELI ON
  100. STOR SPAC(74) TO LDESC1,LDESC2,LDESC3,LDESC4,LDESC5,LDESC6,LDESC7,LDESC8
  101. STOR SPAC(74) TO LDESC9,LDESC10,LDESC11,LDESC12,LDESC13,LDESC14,LDESC15
  102. DO BOX3
  103. @2,5 SAY '  
  104. @3,5 SAY '  
  105.  ADD THE FOLLOWING TEXT TO THE DISK JACKET ABOUT TO BE PRINTED  
  106. @4,5 SAY '  
  107.  NOTE EACH LINE FILLS IN IN PLACE OF THE CATALOG DESCRIPTION    
  108. @5,5 SAY '  
  109.  DOES NOT HAVE LINE OR WORD WRAP WUS IS WUG      PAGE 1 OF 3    
  110. @6,5 SAY '  
  111. CATALOG
  112. CATALOG
  113.             
  114.             
  115.             
  116.             
  117.             
  118.             
  119.                 
  120.             
  121.             
  122.             
  123.             
  124.             
  125.             
  126.             
  127.             
  128.             
  129.             
  130.             
  131.             
  132.             
  133.             
  134.             
  135.             
  136.             
  137.             
  138.             
  139.             
  140.             
  141.             
  142.              
  143.             !
  144.             "
  145.             #
  146.             $
  147.             %
  148.             &
  149.             '
  150.             (
  151.             )
  152.             *
  153.             +
  154.             ,
  155.             -
  156.             .
  157.             /
  158.             0
  159.             1
  160.             2
  161.             
  162. BOBCAT   DBF
  163.