Liren Large Software Subsidy 6/06.iso/b/b007/2.ddi/AMISG/RPTCR2.PRG

Text File | 1990-04-27 | 1.4 KB | 104 lines

**╔·│╔╔╧▓π▒φ═╖─┌╚▌┐ΓTBB(1,MC).DBF   RPTCR2.PRG **
SET SCOR ON
SELE 10
USE TAA
COPY TO TBB1
C1=2
BB0='TBB'+STR(2,1)
COPY TO TBB2
L=1
DO WHILE .T.
L=L+1
USE &BB0
COUNT TO NUM
CLEAR
@0 ,1 SAY '╡╣╩²╡┌'+STR(L,2)+' ▓π'
AB=2
A2=1
DO WHILE NUM+1-A2>0
BC1=0
DO WHILE BC1<71
GO A2
@ AB,BC1 SAY '<'+STR(A2,2)+'>'+TRIM(C_NAME)
A2=A2+1
IF A2<>NUM+1
FNA1=LEN(TRIM(C_NAME))
BC1=BC1+FNA1+5
ELSE
BC1=80
ENDIF
ENDDO
AB=AB+1
ENDDO
@ 9,0 CLEAR
A2=0
@ 9,10 SAY '╩Σ╚δ▒╛▓π▒φ═╖╡─╞≡╩╝╧ε╨≥║┼ ' GET A2 RANGE A2,NUM
READ
M1=A2
M5=A2
A1=1
DO WHILE M1-A1>0
GO A1
REPL C_NAME WITH '     '
A1=A1+1
ENDDO
LN0=0
Q=A2
DO WHILE .T.
Q=Q+1
IF NUM-A2=0
EXIT
ENDIF
A2=M1+1
@ 9,0 CLEAR
@ 9,10 SAY '╟δ╩Σ╚δ▒╛▓π╡┌'+STR(Q,2)+' └╕╓╒╓╣╧ε╨≥║┼ ' GET A2 RANGE A2,NUM
READ
M1=M1+1
M2=A2
DO WHILE .T.
GO M1
IF M1=M2
LN0=FIELD_LEN+LN0
FNA=SPACE(LN0)
@9,0 CLEAR
@9,10 SAY '╟δ╩Σ╚δ╡┌'+STR(Q,2)+' └╕├√│╞' GET FNA
READ
EXIT
ELSE
LN0=LN0+FIELD_LEN+2
REPL C_NAME WITH ' ',FIELD_LEN WITH 0
DELE
M1=M1+1
ENDIF
ENDDO
REPL C_NAME WITH FNA,FIELD_LEN WITH LN0
REPL FIELD_TYPE WITH 'C',FIELD_DEC WITH 0
LN0=0
ENDDO
PACK
CLEAR
JJ=0
@ 3,10 SAY '╗╣╙╨╕ⁿ╔╧╥╗▓π▒φ═╖┬≡ ? [1-╙╨/0-╬▐]' GET JJ PICT '9' RANG 0,1
READ
IF M5#0
DO WHILE M5>0
GO M5
REPL C_NAME WITH '  '
M5=M5-1
ENDDO
ENDIF
IF JJ=1
C1=C1+1
BB0='TBB'+STR(C1,1)
COPY TO &BB0
LOOP
ELSE
EXIT
ENDIF
ENDDO
MC=C1
DO RPTCR21 WITH MC
RETU
*** END OF RPTCR21.PRG ***