*PROGRAM GOES THROUGH EACH PROGRAM AND BRANCHES AND COMPILES A TEXT OF ALL
*PROGRAMS INTO PRGOUT.TXT
DO WHILE .T.
SELECT 1
USE PRGDB
ZAP
SELECT 2
USE PTEXT
SELECT 3
USE PTEXT1
SELECT 1
STORE 'Y' TO CLEARTOP
DO TOP
STORE '          ' TO PP
@ 5,0 SAY 'ENTER PROGRAM NAME (NO EXT.) - ' GET PP
READ
APPEND BLANK
REPLACE PNAME WITH PP
GOTO TOP
DO WHILE .NOT. EOF()
SELECT 1
STORE PNAME + '.PRG' TO TT
SELECT 2
ZAP
APPEND FROM &TT DELIMITED
DO WHILE .NOT. EOF()
SELECT 2
IF UPPER(LINE) = 'DO' .AND. UPPER(LINE) <> 'DO WHILE'
 *PROG LINE IS FOUND. NOW APPEND TO DATABASE
 STORE SUBSTR(LINE,3,10) TO YY
 SELECT 1
 STORE RECNO() TO RE
 LOCATE FOR PNAME = YY
 IF EOF()
  APPEND BLANK 
  @ 7,0 SAY 'ADDING PROGRAM - ' + YY
  REPLACE PNAME WITH YY
  STORE RECNO() TO EE
  GOTO RE
  STORE EE-RE TO RR
  @ 7,40 SAY 'TOTAL PROGRAMS LEFT - ' + STR(RR,5,0)
  STORE ALLTRIM(YY) + '.PRG' TO YY
  SELECT 2
  GOTO TOP
  DO WHILE .NOT. EOF()
  SELECT 2
  STORE LINE TO MM
  STORE RECNO() TO MMM
  SELECT 3
  APPEND BLANK
  REPLACE LINE WITH MM
  REPLACE REC WITH MMM
  SELECT 2
  SKIP
  ENDDO
 ENDIF
ENDIF    
SKIP
ENDDO
SKIP
@ 10,0 SAY 'MAIN FILE - ' + STR(RECNO(),5,0)
ENDDO
ENDDO