home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / ZFTSC2.PRG < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.7 KB  |  112 lines
  1. ** ╔·│╔╫▌╧≥╓▒╖╜═╝  ZFTSC2.PRG **
  2. FN=''
  3. FNO=''
  4. CFN=''
  5. DO SELEF
  6. IF LEN(FN)=0
  7. RETU
  8. ENDIF
  9. CLEAR
  10. HS=24
  11. LS=5
  12. ZH='║ß'
  13. SM=''
  14. FXY=''
  15. DO ZFTZB
  16. XSM=SM
  17. FX=FXY
  18. ZH='╫▌'
  19. DO ZFTZB
  20. YSM=SM
  21. FY=FXY
  22. CLOS DATA
  23. EXP=''
  24. DO DBFEXP
  25. TITL=CFN+'╓▒╖╜═╝'
  26. DO WHILE .T.
  27. SELE 1
  28. USE &FN
  29. COPY TO CSK FIELDS &FX,&FY FOR &EXP
  30. USE
  31. SET COLO TO 2/0
  32. CLEAR
  33. DO ZFTX1 WITH M->TITL,M->XSM,M->YSM
  34. DO WHILE .T.
  35. CLOS DATA
  36. @ 0,0
  37. @ 0,5 PROM '0.═╦│÷'
  38. @ 0,COL()+1 PROM '1.╨▐╕─'
  39. @ 0,COL()+1 PROM '2.▒ú┤µ'
  40. @ 0,COL()+1 PROM '3.┤≥╙í'
  41. @ 0,COL()+1 PROM '4.╓╪╧╘╩╛'
  42. @ 0,COL()+1 PROM '5.╓╪╤í╠⌡╝■'
  43. @ 0,COL()+1 PROM '6.╓╪╤í║ß╫°▒Ω'
  44. @ 0,COL()+1 PROM '7.╓╪╤í╫▌╫°▒Ω'
  45. MENU TO M->YN
  46. YN=STR(YN-1,1)
  47. DO CASE
  48. CASE YN='5'
  49. DO DBFEXP
  50. EXIT
  51. CASE YN='6'
  52. ZH='║ß'
  53. DO ZFTZB
  54. XSM=SM
  55. FX=FXY
  56. EXIT
  57. CASE YN='7'
  58. ZH='╫▌'
  59. DO ZFTZB
  60. YSM=SM
  61. FY=FXY
  62. EXIT
  63. CASE YN='0'
  64. CLOS DATA
  65. RETU
  66. CASE YN='1'
  67. TITL=SPACE(10)+TRIM(LTRIM(TITL))+SPACE(10)
  68. YSM=YSM+SPACE(10)
  69. XSM=XSM+SPACE(10)
  70. @ 1,(80-LEN(TITL))/2 GET TITL
  71. @ 2, 0 GET YSM
  72. @ 23,70 GET XSM
  73. READ
  74. CASE YN='2'
  75. @ 0,0
  76. @ 0,0 SAY '┐¬╩╝▒ú┤µ . . . '
  77. DO WHILE TITL=' '
  78. TITL=SUBS(TITL,2)
  79. ENDDO
  80. USE ZFT
  81. LOCA FOR VAL(Z_NO)#RECNO()
  82. INSE BEFO BLAN
  83. REPL Z_NO WITH STR(RECNO(),2),TITL WITH M->TITL,XSM WITH M->XSM,YSM WITH M->YSM
  84. ZNO=Z_NO
  85. USE CSK
  86. SELE 9
  87. USE ZFTK
  88. SELE CSK
  89. DO WHILE .NOT.EOF()
  90. SELE 9
  91. APPE BLAN
  92. REPL Z_NO WITH M->ZNO,XPARA WITH CSK->&FX,YPARA WITH CSK->&FY
  93. SELE CSK
  94. SKIP
  95. ENDDO
  96. @ 0,0 
  97. @ 0,0 SAY '▒ú┤µ═Ω▒╧!!! ░┤╚╬╥Γ╝ⁿ╖╡╗╪▓╦╡Ñ . . . '
  98. A=INKEY(0)
  99. GO TOP
  100. CASE M->YN='3'
  101. @ 0,0
  102. @ 0,0 SAY '╟δ╤í╘±╓╪╧╘╩╛║≤┴ó╝┤╩╣╙├╞┴─╗╙▓┐╜▒┤╝ⁿ--<PRINT_SCREEN>! ░┤╚╬╥Γ╝ⁿ╖╡╗╪▓╦╡Ñ!'
  103. WAIT""
  104. LOOP
  105. CASE M->YN='4'
  106. DO ZFTX1 WITH M->TITL,M->XSM,M->YSM
  107. ENDCASE
  108. ENDDO
  109. ENDDO
  110. ** END OF ZFTSC2.PRG **
  111.  
  112.