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

Text File | 1990-05-26 | 4.6 KB | 171 lines

** ╔·│╔║ß╧≥╓▒╖╜═╝  ZFTSC1.PRG **
FN=''
FNO=''
CFN=''
DO SELEF
IF LEN(FN)=0
   RETU
ENDIF
EXP=''
DO DBFEXP
CLEAR
SET DELI OFF
SELE 2
USE &FN
*/╔·│╔╓▒╖╜═╝╓╨╝Σ┐Γ/*
COPY TO FNS STRU EXTE
SELE 4
USE FNS
ZAP
APPE BLAN
REPL FIELD_NAME WITH 'XPARA',FIELD_TYPE WITH 'C',FIELD_LEN WITH 8,FIELD_DEC WITH 0
APPE BLAN
REPL FIELD_NAME WITH 'YPARA',FIELD_TYPE WITH 'N',FIELD_LEN WITH 9,FIELD_DEC WITH 2
APPE BLAN
REPL FIELD_NAME WITH 'FIELD_NAME',FIELD_TYPE WITH 'C',FIELD_LEN WITH 8,FIELD_DEC WITH 0
USE
CREA ZFTZJK FROM FNS
USE ZFTZJK
ERAS FNS.DBF
SELE 3
USE DBD INDE DBD
DO ZFTSC11
SELE 2
USE &FN
SET FILT TO &EXP
GO TOP
CLEAR
IF EOF()
   @ 5,10 SAY '&CFN.╬─╝■╓╨├╗╙╨┬·╫π╠⌡╝■╡─╝╟┬╝'
   @ 6,10 SAY '╟├╚╬╥Γ╝ⁿ╘≥╖╡╗╪......'
   WAIT ''
   CLOS DATA
   RETU
ENDIF
TITL=CFN+'╡─╓▒╖╜═╝'
XSM='O----í·X'
YSM='O----í·Y'
DO WHILE .T.
   SELE 2
  * USE &FN
  * SET FILT TO &EXP
  * GO TOP
   DO WHILE .T.
      DO &FN..FMT
      CLEAR GET
      @  0,0 SAY SPACE(80)
      CX=2
      DO WHILE .T.
         @  0,1 SAY '╟δ╤í╘±: 0--═ú╓╣▓Θ╤»; 1--╧≥╟░▓Θ╤»; 2--╧≥║≤▓Θ╤»;7.--╧╘╩╛╓▒╖╜═╝! ' GET CX PICT '9'
         READ
         IF CX>=0 .AND. CX<=2 .OR. CX=7
            EXIT
         ENDIF
      ENDDO
      DO CASE
         CASE CX=0
            CLOS DATA
            RETU
         CASE CX=1
            SKIP -1
            IF BOF()
               GO BOTT
            ENDIF
            LOOP
         CASE CX=2
            SKIP
            IF EOF()
               GO TOP
            ENDIF
            LOOP
         CASE CX=7
            SELE ZFTZJK
            GO TOP
            DO WHILE .NOT.EOF()
               FD=TRIM(FIELD_NAME)
               REPL YPARA WITH B->&FD.
               SKIP
            ENDDO
            COPY TO CSK FIELDS XPARA,YPARA
            USE CSK
            SET COLO TO 2/0
            CLEAR
            DO ZFTX1 WITH TITL,XSM,YSM
            DO WHILE .T.
*               CLOS DATA
               @ 0,0 SAY SPACE(80)
               @ 0,5 PROM '0.═╦│÷'
               @ 0,COL()+1 PROM '1.╨▐╕─'
               @ 0,COL()+1 PROM '2.▒ú┤µ'
               @ 0,COL()+1 PROM '3.┤≥╙í'
               @ 0,COL()+1 PROM '4.╓╪╧╘╩╛'
               @ 0,COL()+1 PROM '5.╧╘╩╛╝╟┬╝'
               @ 0,COL()+1 PROM '6.╓╪╤í╠⌡╝■'
               @ 0,COL()+1 PROM '7.╓╪╤í║ß╫°▒Ω'
               MENU TO YN
               YN=STR(YN-1,1)
               DO CASE
                  CASE YN='5'
                     EXIT
                  CASE YN='6'
                     SELE 3
                     USE
                     SELE 2
                     USE
                     DO DBFEXP
                     SELE 2
                     USE &FN
                     SET FILT TO &EXP
                     GO TOP
                     SELE 3
                     USE DBD INDE DBD
                     SELE 4
                     DO ZFTX1 WITH TITL,XSM,YSM
                  CASE YN='7'
                     DO ZFTSC11
                     EXIT
                  CASE YN='0'
                     CLOS DATA
                     RETU
                  CASE YN='1'
                     TITL=SPACE(10)+TRIM(LTRIM(TITL))+SPACE(10)
                     YSM=YSM+SPACE(10)
                     XSM=XSM+SPACE(10)
                     @ 1,(80-LEN(TITL))/2 GET TITL
                     @ 2, 0 GET YSM
                     @ 23,70 GET XSM
                     READ
                  CASE YN='2'
                     @ 0,0 SAY SPACE(80)
                     @ 0,0 SAY '  ┐¬╩╝▒ú┤µ╕├╓▒╖╜═╝......'
                     USE ZFT
                     LOCA FOR VAL(Z_NO)#RECNO()
                     INSE BEFO BLAN
                     DO WHILE M->TITL=' '
                        M->TITL=SUBS(M->TITL,2)
                     ENDDO
                     REPL Z_NO WITH STR(RECNO(),2),TITL WITH M->TITL,XSM WITH M->XSM,YSM WITH M->YSM
                     ZNO=Z_NO
                     USE ZFTK
                     APPE FROM CSK
                     REPL ALL FOR Z_NO='  ' Z_NO WITH ZNO
                     USE CSK
                     @ 0,0 SAY '  ▒ú┤µ═Ω▒╧!!! ░┤╚╬╥Γ╝ⁿ╖╡╗╪▓╦╡Ñ . . . '
                     WAIT ''
                  CASE YN='3'
                     @ 0,0 SAY SPACE(80)
                     @ 0,0 SAY '╟δ╤í╘±╓╪╧╘╩╛║≤┴ó╝┤╩╣╙├╞┴─╗╙▓┐╜▒┤╝ⁿ--<PRINT_SCREEN>!░┤╚╬╥Γ╝ⁿ╖╡╗╪▓╦╡Ñ......'
                     WAIT""
                  CASE YN='4'
                     DO ZFTX1 WITH TITL,XSM,YSM
               ENDCASE
            ENDDO
            SELE 4
            USE ZFTZJK
            CLEAR
            EXIT
      ENDCASE
   ENDDO
ENDDO
** END OF ZFTSC1.PRG **