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

Text File | 1990-04-29 | 2.8 KB | 189 lines

** ╔·│╔║ß╧≥║╧╝╞└╕  RPTCR11.PRG **
SET SCOR ON
SET  DELI OFF
SELE 10
USE TAA
DO WHILE .T.
SET FILT TO FIELD_TYPE='N'
GO TOP
HS=25
LS=5
MAX1=0
MAX2=0
HJ=''
HHJ=''
COUNT TO MAX
GO TOP
N=0
SET DEVI TO SCRE
@ 1,0
T=.T.
DO WHILE T
@ 2,0 CLEAR
I=2
J=0
N1=N+1
DO WHILE .NOT. EOF()
N=N+1
@ I,J*15 SAY STR(N,2)+'.'+TRIM(C_NAME)
J=J+1
IF J=LS
I=I+1
J=0
ENDIF
IF I=HS-6
EXIT
ENDIF
SKIP
ENDDO
DO WHILE .T.
@ HS-5,1 SAY '╡▒╟░║╧╝╞▒φ┤∩╩╜╬¬: '+HHJ
@ 1,7 SAY '╤í╘±▓╬╙δ╘╦╦π╡─╩²╛▌╧ε║┼:Enter_═╦│÷ PgUp_╟░▓Θ PgDn_║≤▓Θ:  '
DO WHILE .T.
@ 1,60 SAY ':'
YN=INKEY(0)
IF YN>48.AND.YN<58.OR.YN=13.OR.YN=3.OR.YN=18.OR.YN=27
EXIT
ENDIF
?? CHR(7)
ENDDO
@ 1,0 SAY SPACE(7)
@ 1,63 SAY SPACE(16)
DO CASE
CASE YN=27
CLOS DATA
RETU TO MAST
CASE YN=18
IF N1=1
LOOP
ENDIF
IF N1<LS*HS+1
N=0
ELSE
N=N1-LS*HS+1
ENDIF
GO TOP
SKIP N
EXIT
CASE YN=3
IF N=MAX
LOOP
ENDIF
SKIP
EXIT
CASE YN=13
IF LEN(HJ)=0
LOOP
ENDIF
T=.F.
EXIT
OTHER
DO WHILE .T.
@ 1,61 SAY CHR(YN)
YN1=INKEY(0)
IF YN1>47.AND.YN<58.OR.YN1=13.OR.YN1=127.OR.YN1=19.OR.YN1=27
EXIT
ENDIF
??CHR(7)
ENDDO
IF YN1=27
CLOS DATA
RETU TO MAST
ENDIF
IF YN1=127.OR.YN1=19
LOOP
ENDIF
IF YN1=13
YN1=' '
ELSE
YN1=CHR(YN1)
@ 1,62 SAY YN1
ENDIF
YN=CHR(YN)
IF &YN.&YN1.>MAX .OR. &YN.&YN1.<1
@ 1,63 SAY '&YN.&YN1.╨≥║┼│¼╖╢╬º!'
@ 1,3 SAY '╓╪╨┬'
LOOP
ENDIF
GO TOP
SKIP &YN.&YN1.-1
IF FIELD_LEN-FIELD_DEC-1>MAX1
MAX1=FIELD_LEN-FIELD_DEC-1
ENDIF
IF FIELD_DEC>MAX2
MAX2=FIELD_DEC
ENDIF
HHJ=HHJ+'+ '+TRIM(C_NAME)
IF HHJ='+'
HHJ=SUBS(HHJ,2)
ENDIF
HJ=HJ+'+'+TRIM(FIELD_NAME)
ENDCASE
ENDDO
ENDDO
MAX0=MAX1+1+MAX2
IF MAX0/2.0<>INT(MAX0/2)
MAX0=MAX0+1
ENDIF
LJ=0
@ 1,0
@ 1,0 SAY '╨Φ╥¬╨▐╕─▒φ┤∩╩╜┬≡?[0-▓╗╥¬/1-╨Φ╥¬]:' GET LJ PICT '9' RANG 0,1
READ
IF LEN(HJ)>100
@ HS-4,0 SAY '▒φ┤∩╩╜│¼│ñ!!!'
HJ=SUBS(HJ,2,101)
LJ=1
ELSE
HJ=SUBS(HJ,2)+SPACE(100-LEN(HJ)+1)
ENDIF
K=0
DO WHILE LJ=1
@ HS-3,0 SAY '╟δ╨▐╕─:' GET HJ
READ
IF K=0
I=1
DO WHILE M->I<=FNA(6)
J=STR(M->I,1)
SELE &J
FN=FNA((M->I-1)*3+8)
USE &FN
I=M->I+1
ENDDO
K=1
ENDIF
SELE 10
IF TYPE(HJ)='U'
@ HS-2,0 SAY '▒φ┤∩╩╜╙╨╙∩╖¿┤φ╬≤!'
LOOP
ENDIF
EXIT
ENDDO
CFD=SPACE(MAX0+10)
CLEAR
@ 3,10 SAY '╟δ╩Σ╚δ╕├║╧╝╞╧ε▒φ═╖─┌╚▌:' GET CFD
@ 3,COL()+1 SAY '┐φ╢╚:' GET MAX0 PICT '999' RANG MAX0,19
@ 3,COL()+1 SAY '╨í╩²╬╗╩²:' GET MAX2 PICT '999' RANG 0,MAX0-2
READ
LJ=0
@ 4,10 SAY '╕├╧ε╨Φ╥¬└█╝╞┬≡?[0-▓╗╥¬/1-╨Φ╥¬]:' GET LJ PICT '9' RANG 0,1
READ
APPE BLAN
IF LEN(TRIM(CFD))>MAX0
MAX0=LEN(TRIM(CFD))
ENDIF
IF MAX0/2<>INT(MAX0/2)
MAX0=MAX0+1
ENDIF
REPL C_NAME WITH CFD,FIELD_NAME WITH HJ,FIELD_LEN WITH MAX0,FIELD_DEC WITH MAX2,FIELD_TYPE WITH 'N',SUM WITH STR(LJ,1)
@ 5,10 SAY '╗╣╨Φ╥¬║╧╝╞┬≡?[0-▓╗╥¬/1-╨Φ╥¬]:' GET LJ PICT '9' RANG 0,1
READ
IF LJ=0
EXIT
ENDIF
ENDDO
SET FILT TO
GO TOP
RETU
** END OF RPTCR11.PRG **