home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a001 / 1.ddi / Z.PGT < prev    next >
Encoding:
Text File  |  1993-03-24  |  2.6 KB  |  119 lines
  1. * ⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. * ⌐ª  ú╤ú⌡úΘúπúδ  ú╟úσúεúσú≥úßú⌠úσ  ú╘úßúΓú∞úσú┴ú⌡ú⌠ú∩  ú╓  ú▓ú«ú░  ⌐ª
  3. * ⌐ª             ┐∞  ╦┘  ┤≥  ╙í  ▒¿  ▒φ  ╔·  │╔  ╣ñ  ╛▀             ⌐ª
  4. * ⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET PROCEDURE TO Z.PGT
  6. SET TALK OFF
  7. SET SCOREBOARD OFF
  8. SET STATU OFF
  9. SELECT  A
  10. USE  C:\Q\ZB1.DBF
  11. Fname = 'Z.LST'+SPACE(15)
  12. @ 24,1 SAY '╟δ╩Σ╚δ╬─╝■├√:' GET Fname
  13. READ
  14. SET ALTE TO &Fname
  15. SET ALTE ON
  16. P_NO = 1
  17. GOTO TOP
  18. L1 = '⌐ñ⌐ñ'
  19. L2 = '⌐ñ⌐ñ⌐ñ'
  20. L3 = '⌐ñ⌐ñ'
  21. L4 = '⌐ñ⌐ñ'
  22. L5 = '⌐ñ⌐ñ'
  23. L6 = '⌐ñ⌐ñ'
  24. L7 = '⌐ñ⌐ñ⌐ñ'
  25. L = '⌐░'
  26. M = '⌐╨'
  27. R = '⌐┤'
  28. HEAD_LINE = L+L1+M+L2+M+L3+M+L4+M+L5+M+L6+M+L7+R
  29. V = '⌐ª'
  30. N1 ='╜╫╝╢▒'
  31. N2 ='ªZB001'
  32. N3 ='ªZB00'
  33. N4 ='⌐ªZB4'
  34. N5 =' ⌐ªZB'
  35. N6 ='2 ⌐ªZ'
  36. N7 ='03 ⌐ªz'
  37. HEAD_NAME = V+N1+V+N2+V+N3+V+N4+V+N5+V+N6+V+N7+V
  38. L = '⌐└'
  39. M = '⌐α'
  40. R = '⌐╚'
  41. BODY_LINE = L+L1+M+L2+M+L3+M+L4+M+L5+M+L6+M+L7+R
  42. L = '⌐╕'
  43. M = '⌐╪'
  44. R = '⌐╝'
  45. FOOD_LINE = L+L1+M+L2+M+L3+M+L4+M+L5+M+L6+M+L7+R
  46. PROW = 0
  47. DO T01
  48. DO WHILE .NOT.EOF()
  49.    F1 = ZB401ZB000  =zb404ZB000  =zb404ZB000  =ZB401ZB402ZB401ZB000  =ZB000ZB000  =
  50.    F1 = STR(F1,2,0)
  51.    F1 = LTRIM(F1)
  52.    F1 = TRIM(F1)
  53.    LL = (5 - LEN(F1)) / 2
  54.    RL = 5 - LL
  55.    F1 = SPACE(LL) + F1 + SPACE(RL)
  56.    F2 = A->ZB001
  57.    F2 = LTRIM(F2)
  58.    F2 = F2 + SPACE(6 - LEN(F2))
  59.    F3 = A->ZB002
  60.    F3 = LTRIM(F3)
  61.    F3 = F3 + SPACE(5 - LEN(F3))
  62.    F4 = A->ZB401
  63.    F4 = STR(F4,5,0)
  64.    F4 = TRIM(F4)
  65.    F4 = SPACE(5 - LEN(F4)) + F4
  66.    F5 = A->ZB402
  67.    F5 = STR(F5,3,0)
  68.    F5 = TRIM(F5)
  69.    F5 = SPACE(5 - LEN(F5)) + F5
  70.    F6 = A->ZB403
  71.    F6 = STR(F6,5,0)
  72.    F6 = TRIM(F6)
  73.    F6 = SPACE(5 - LEN(F6)) + F6
  74.    F7 = 0
  75.    F7 = STR(F7,6,4)
  76.    F7 = TRIM(F7)
  77.    F7 = SPACE(6 - LEN(F7)) + F7
  78.    BODY = V+F1+V+F2+V+F3+V+F4+V+F5+V+F6+V+F7+V
  79.    ? BODY_LINE
  80.    ? BODY
  81.    PROW = PROW + 2
  82.    SKIP
  83.    IF PROW+3 >= 60
  84.       ? FOOD_LINE
  85.       ?  ''+space(51)+'╓╞▒φ╚╦:'
  86.       ? space(26)+STR(P_NO,3)
  87.       P_NO=P_NO+1
  88.       ? SPACE(10)
  89.       IF P_NO=60 .0R. EOF()
  90.          SET ALTE OFF
  91.          SET ALTE TO
  92.          CLOSE ALTE
  93.          RETURN
  94.       ENDIF
  95.       PROW = 0
  96.       DO T01
  97.    ENDIF
  98. ENDDO
  99. ? FOOD_LINE
  100. ?  ''+space(51)+'╓╞▒φ╚╦:'
  101. ? space(29)+STR(P_NO,3)
  102. P_NO=P_NO+1
  103. ? SPACE(10)
  104. SET ALTE OFF
  105. SET ALTE TO
  106. CLOSE ALTE
  107. RETURN
  108. * ------------│╠╨≥-------T01.PRG -------------------
  109. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  110. *⌐ª T01.prg  ------  ┤≥╙í▒¿▒φ═╖│╠╨≥                  ⌐ª
  111. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  112. PROCEDURE T01.PRG
  113. ? SPACE(29)+''
  114. ? SPACE(29)+''
  115. ? ''+space(53)+'╡Ñ╬╗:'
  116. ? HEAD_LINE
  117. ? HEAD_NAME
  118. RETURN
  119.