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

Text File | 1990-05-26 | 1.4 KB | 90 lines

** ╧╘╩╛╓▒╖╜═╝  XZFT.PRG             **
** ╘╦╨╨╗╖╛│:FOXBASE+;DBASEIII-PLUS  **
** ╚δ┐┌: TITL..╓▒╖╜═╝▒Ω╠Γ           **
**       XSM...║ß╫∙▒Ω╦╡├≈           **
**       YSM...╫▌╫∙▒Ω╦╡├≈           **
**       NUM...╓╕▒Ω╕÷╩²             **
**       CSK.DBF...▓╬╩²┐Γ           **
PARA TITL,XSM,YSM
SET COLO TO 2/0
CLEAR
COUNT TO NUM
GO TOP
SET TALK OFF
TITL=(TRIM(TRIM(TITL)))
L=LEN(TITL)
IF L>80
TITL=SUBSTR(TITL,1,80)
L=80
ENDIF
COL=INT((80-L)/2)
@ 1,M->COL SAY TITL
@ 3,0 SAY 'íⁿ'
I=4
DO WHILE (I<23)
@ I,0 SAY '⌐ª'
I=I+1
ENDDO
@ 23,0 SAY '⌐╕'
@ 23,COL() SAY REPL('⌐ñ',33)
@ 23,COL() SAY 'í·'
YSM=TRIM(TRIM(YSM))
IF LEN(YSM)>70
YSM=SUBS(YSM,70)
ENDIF
@ 2,0 SAY YSM
@ 24,0 SAY 'ú╧'
XSM=TRIM(TRIM(XSM))
IF LEN(XSM)>10
XSM=SUBS(XSM,1,10)
ENDIF
@ 23,70 SAY XSM
MAX=0
DO WHILE .NOT.EOF()
MAX=MAX(YPARA,MAX)
SKIP
ENDDO
GO TOP
S=66/(NUM+1)
FACTOR=MAX/18
I=1
DO WHILE .NOT.EOF()
H=INT(YPARA/FACTOR)
ROW=23-H
COL=2+I*S
C=STR(I-INT(I/7)*7+1,1)
SET COLO TO &C./&C
*@ ROW,COL CLEAR TO 22,COL+2
J=ROW
DO WHILE J<23
@ J,COL SAY 'í÷'
J=J+1
ENDDO
SET COLO TO
X=TRIM(TRIM(XPARA))
IF LEN(X)>S
X=SUBS(X,1,S)
ENDIF
@ 23,COL SAY '⌐╨'
@ 24,COL SAY X
Y=TRIM(STR(YPARA,9,2))
IF VAL(SUBS(Y,8,2))=0
Y=SUBS(Y,1,6)
ENDIF
DO WHILE Y=' '
Y=SUBS(Y,2)
ENDDO
IF LEN(Y)>S
@ I+3,71 SAY Y
ELSE
@ ROW-1,COL SAY Y
ENDIF
I=I+1
SKIP
ENDDO
USE
@ 0,0 SAY ''
WAIT ''
RETU
** END OF ZFTX.PRG **