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

Text File | 1990-05-26 | 3.0 KB | 193 lines

*** RPTCR1.PRG ***
*** ╚δ┐┌: FNA(32):╬─╝■├√;│÷┐┌: LLO:╗∙┤í▓π▓π┤╬;TAA:╗∙┤í▓π┐Γ ***
SET SCOR ON
CLOSE DATA
SELE 10
USE TAA
LLO=0
DO WHILE .NOT.EOF()
IF FIELD_LEN/2<>INT(FIELD_LEN/2)
REPL FIELD_LEN WITH FIELD_LEN+1
ENDIF
LGO=INT(LEN(TRIM(C_NAME))/(FIELD_LEN))+1
IF (LGO-1)=(LEN(TRIM(C_NAME))/(FIELD_LEN))
LGO=LGO-1
ENDIF
IF LLO<LGO
LLO=LGO
ENDIF
SKIP
ENDDO
GO BOTT
NUM=RECNO()
SUM FIELD_LEN TO LLD
LLD=LLD+NUM*2+2
YN=' '
DO WHILE .NOT.YN$'YN'
@ 4,10 SAY '╤í╘±┤≥╙í╩²╛▌╧ε┬≡?[Y/N]:' GET YN
READ
YN=UPPE(YN)
ENDDO
IF LLD>250
YN='Y'
ENDIF
IF UPPE(YN)='Y'
LLO=0
CLEAR
@ 2,6 SAY '╩²╛▌╧ε╫▄╩²╬¬ : '+STR(NUM,2)
@ 2,26 SAY '▒φ╕±╘╩╨φ╫ε┤≤┐φ╢╚╬¬ : 250'
@ 2,52 SAY '╟δ╥└┤╬╤í╘±╕≈╩²╛▌╧ε '
@ 3,0 SAY '⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
LLD=2
GO TOP
CC=' '
@ 5,1 SAY '├√│╞ : '
@ 5,24 SAY '▒α║┼ : '
@ 5,40 SAY '┐φ╢╚ : '
@ 5,54 SAY '╧╓└█╝╞┐φ╢╚ : '
@ 7,25 SAY '┤≥╙í┤╦╩²╛▌╧ε┬≡ ? [Y/N] '
DO WHILE .NOT.EOF()
@ 5,8 SAY TRIM(C_NAME)+SPACE(14-LEN(TRIM(C_NAME)))
@ 5,31 SAY STR(RECNO(),3)
@ 5,47 SAY STR(FIELD_LEN,3)
@ 5,67 SAY STR(LLD,3)
@ 6,0
@ 7,49 GET CC PICT '!' VALID CC$'YN'
READ
IF UPPE(CC)<>'Y'
DELE
LA=0
ELSE
LJ=0
ST=FIELD_LEN
@ 7,49 GET CC PICT '!' VALID CC$'YN'
@ 6,8 GET C_NAME PICT 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 6,40 SAY '┐φ╢╚ :' GET ST PICT '999'
IF FIELD_TYPE='N'
@ 6,54 SAY '╥¬└█╝╞┬≡?[0-▓╗╥¬,1-╥¬]:' GET LJ PICT '9' RANG 0,1
ENDIF
READ
IF CC='N'
RECA
SKIP
LOOP
ENDIF
IF ST>FIELD_LEN
IF INT(ST/2)#(ST/2)
ST=ST+1
ENDIF
REPL FIELD_LEN WITH ST
ENDIF
LGO=INT(LEN(TRIM(C_NAME))/FIELD_LEN)+1
IF LGO-1=LEN(TRIM(C_NAME))/FIELD_LEN
LGO=LGO-1
ENDIF
IF LGO>LLO
LLO=LGO
ENDIF
REPL SUM WITH STR(LJ,1)
LA=FIELD_LEN+2
ENDIF
LLD=LA+LLD
SKIP
IF LLD>250
LLD=2
CLEAR
@ 3,10 SAY '▒φ╕±╠½┐φ ,╬▐╖¿┤≥╙í ! '
@ 3,32 SAY '╟δ░┤╚╬╥Γ╝ⁿ ,╓╪╨┬╤í╘±┴╨▒φ╧ε─┐├√ :'
WAIT
RECA ALL
GO TOP
LOOP
ENDIF
ENDDO
CLEAR
*PACK
ENDIF
YN=' '
DO WHILE .NOT.YN$'YN'
@ 5,10 SAY '─·╨Φ╥¬║ß╧≥║╧╝╞┬≡?[Y/N]:' GET YN
READ
YN=UPPE(YN)
ENDDO
IF YN='Y'
DO RPTCR11
ENDIF
SELE 10
USE TAA
PACK
YN=' '
DO WHILE .NOT.YN$'YN'
@ 6,10 SAY '─·╨Φ╥¬╕─▒Σ╩²╛▌╧ε╡─┼┼┴╨╦│╨≥┬≡ ? [Y/N]:' GET YN
READ
YN=UPPE(YN)
ENDDO
IF YN='Y'
CLEAR
SELE 10
DO WHILE .T.
CLEAR
@ 1,29 SAY '╟δ─·╓╪╨┬┼┼╢¿╩²╛▌╧ε╦│╨≥'
@ 2,0 SAY '⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
I=3
GO BOTT
NUM=RECNO()
DIME X(NUM)
GO TOP
DO WHILE .NOT.EOF()
J=0
DO WHILE J+LEN(TRIM(C_NAME))<74.AND..NOT.EOF()
X(RECNO())=RECNO()
@ I,J SAY TRIM(C_NAME)+':' GET X(RECNO()) PICT '999' RANG 1,NUM
J=J+LEN(TRIM(C_NAME))+7
SKIP
ENDDO
I=I+1
ENDDO
READ
CLEAR
I=1
N1=0
M1=0
DO WHILE I<=NUM
M1=M1+X(I)
N1=N1+I
I=I+1
ENDDO
IF N1=M1
EXIT
ELSE
CLEAR
@ 3,10 SAY '╤í╘±┴╦╓╪╕┤╩²╛▌╧εú¼░┤╚╬╥Γ╝ⁿ╓╪╨┬╤í╘± !'
WAIT
LOOP
ENDIF
ENDDO
SELE 10
COPY TO TBB
SELE 9
USE TBB
I=1
DO WHILE I<=NUM
GO I
IF X(I)=I
I=I+1
LOOP
ENDIF
SCAT TO MA
SELE 10
GO X(I)
GATH FROM MA
I=I+1
SELE 9
ENDDO
USE
RELE X,MA
ERAS TBB.DBF
ENDIF
SELE 10
COPY TO TBB1
SET SCOR OFF
RETU
** END OF RPTCR1.PRG  **