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

Text File | 1990-05-30 | 2.0 KB | 132 lines

****** ═¿╙├╩²╛▌┐Γ╝╟┬╝╔╛│² DBD.PRG ******
****** DO DBD ( FN )              ******
****** ╞Σ╓╨: FN:╬─╝■├√.(╚δ┐┌)     ******
****** PARA FN
IF TYPE('FN')='U'
FN=''
CNF=''
FNO=''
DO SELEF
IF LEN(FN)=0
RETU
ENDIF
ENDIF
SELE 1
USE FILE INDE FILE
SEEK FN
FNO=F_NO
WHN=TRIM(C_FNAME)
NDX=''
IF IDX_NUM<>0
USE IDX INDE IDX
SET FILTER TO F_NO=FNO
GO TOP
DO WHILE .NOT.EOF()
NDX=NDX+IDX_NAME+','
SKIP
ENDDO
NDX=SUBS(NDX,1,LEN(NDX)-1)
ENDIF
USE &FN
SET INDE TO &NDX
EXP=''
EXP1=''
DO WHILE .T.
CLEAR
DO CO1
@ 0, 0  SAY '╡▒╟░▓┘╫≈╬─╝■╬¬ [ '+WHN+']'
@ 1, 0  SAY '╡▒╟░╔╛│²╠⌡╝■╬¬ [ '+EXP1+']'
@ 3, 20 SAY '            ═¿╙├╔╛│²─ú┐Θ               '
DO CO
@ 4 ,10 PROM '1 ú«ú«ú«╔·│╔╔╛│²╠⌡╝■'
@ 5 ,10 PROM '2 ú«ú«ú«╔╛│²╦∙╙╨┬·╫π╠⌡╝■╡─╝╟┬╝'
@ 6 ,10 PROM '3 ú«ú«ú«╓≡╠⌡╤»╬╩╩╜╔╛│²'
@ 7 ,10 PROM '4 ú«ú«ú«╔╛│²╡┌╥╗╕÷┬·╫π╠⌡╝■╡─╝╟┬╝'
@ 4 ,45 PROM '5 ú«ú«ú«╧╘╩╛╜½╥¬▒╗╔╛│²╡─╝╟┬╝'
@ 5 ,45 PROM '6 ú«ú«ú«╗╓╕┤╕╒▒╗╔╛│²╡─╝╟┬╝'
@ 6 ,45 PROM '7 ú«ú«ú«╗╓╕┤╦∙╙╨▒╗╔╛│²╡─╝╟┬╝'
@ 7 ,45 PROM '0 ú«ú«ú«═╦│÷'
MENU TO GN
DO CASE
CASE GN=1
EXP=''
EXP1=''
DO DBFEXP
SELE 1
USE &FN
SET INDE TO &NDX
LOOP
CASE GN=2
IF LEN(EXP)=0
LOOP
ENDIF
DELE ALL FOR &EXP
? '╦∙╙╨┬·╫π╠⌡╝■:[&EXP1.]╡─╝╟┬╝╥╤▒╗╔╛│²!!!'
WAIT '░┤╚╬╥Γ╝ⁿ╝╠╨°......'
LOOP
CASE GN=3
CLEAR
SET FILT TO &EXP
GO TOP
DO WHILE .NOT.EOF()
DO &FN..FMT
CLEAR GET
? '       ╕├╝╟┬╝╔╛│²┬≡ ?[Y/N]'
YN=' '
DO WHILE .NOT.YN$'YN'
@ ROW(),COL() GET YN PICT '!'
READ
ENDDO
IF YN='Y'
DELE
ENDIF
SKIP
ENDDO
LOOP
CASE GN=4
IF LEN(EXP)=0
LOOP
ENDIF
LOCA FOR &EXP
CLEAR
DO &FN..FMT
CLEAR GET
DELE
WAIT '╕├╝╟┬╝╥╤▒╗╔╛│²! ░┤╚╬╥Γ╝ⁿ╘≥╝╠╨°......'
LOOP
CASE GN=5
CLEAR
SET FILT TO &EXP
GO TOP
DO WHILE .NOT.EOF()
DO &FN..FMT
CLEAR GET
WAIT '░┤╚╬╥Γ╝ⁿ╝╠╨°......'
SKIP
ENDDO
CASE GN=6
IF LEN(EXP)=0
LOOP
ENDIF
LOCA FOR &EXP
CASE GN=7
RECA ALL
CASE GN=8
EXIT
ENDCASE
ENDDO
YN=' '
@ 9,20 SAY '┤╦┤╬╔╛│²╙╨╨º┬≡?['
@ 9,COL()+1 PROM 'Y:╙╨╨º'
@ 9,COL()+1 PROM 'N:╬▐╨º'
@ 9,COL()+1 SAY ']:'
MENU TO YN
IF YN=1
PACK
ELSE
RECALL ALL
ENDIF
USE
RETU
** END OF DBD.PRG **