home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GD2.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.2 KB  |  86 lines
  1. clear
  2. set talk off
  3. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  4. set device to print 
  5. close database
  6. use gd
  7. p=1
  8. a2=.t.
  9. do while a2
  10. set print on
  11. ? chr(27)+"IL"
  12. set print off
  13. @ prow()+1,15 say "                                                      ╣▄╡└╠¿╒╩"
  14. set print on
  15. ? chr(27)+"II"
  16. set print off
  17. @ prow()+1,1 say "           "
  18. @ prow()+1,140 say "╡┌"+str(p,2)+"╥│"
  19. @ prow()+1,1 say ì
  20. "=================================================================ì
  21. ==================================================================ì
  22. =========================================="
  23. @ prow()+1,1 say "|╣▄╡└▒α║┼ |╣▄╡└├√│╞    |╣µ╕±╨═║┼    |│ñ    ╢╚|═╢▓·╚╒╞┌|  ▓─╓╩   ì
  24.    |═╝╓╜║┼    |╣ñ╫≈╤╣┴ª|╣ñ╫≈╬┬╢╚|╣ñ╫≈╜Θ╓╩    |╖└╕»▓─┴╧    ì
  25. |▒ú╬┬▓─┴╧    |╤╒╔½|      ░▓╫░╡╪╡π      |╞╠╔Φ╨╬╩╜  |"
  26. @ prow()+1,1 say ì
  27. "|---------|------------|------------|--------|--------|------------|-------ì
  28. ---|--------|--------|------------|------------|------------|----ì
  29. |--------------------|----------|"
  30. l=6
  31. do while .not. eof()
  32. @ prow()+1,1 say "|"+gd1
  33. @ prow(),11 say "|"+gd2
  34. @ prow(),24 say "|"+gd3
  35. @ prow(),37 say "|"+str(gd14,8,2)
  36. a=dtoc(gd4)
  37. j1=substr(a,7,2)
  38. j2=substr(a,1,2)
  39. j3=substr(a,4,2)
  40. a=j1+'.'+j2+'.'+j3
  41. @ prow(),46 say "|"+a
  42. @ prow(),55 say "|"+gd5
  43. @ prow(),68 say "|"+gd6
  44. @ prow(),79 say "|"+str(gd7,3)
  45. @ prow(),88 say "|"+str(gd8,3)
  46. @ prow(),97 say "|"+gd9
  47. @ prow(),110 say "|"+gd10
  48. @ prow(),123 say "|"+gd12
  49. @ prow(),136 say "|"+gd13+"|"+gd19+"|"+gd16+"|"
  50. skip
  51. p1=prow()+1
  52. l=l+1
  53. if .not. eof()
  54. if l<=54
  55. @ prow()+1,1 say ì
  56. "|---------|------------|------------|--------|--------|------------|------ì
  57. ----|--------|--------|------------|------------|------------|----ì
  58. |--------------------|----------|"
  59. l=l+1
  60. else
  61. @ p1,1 say ì
  62. "=================================================================ì
  63. ==================================================================ì
  64. =========================================="
  65. ejec
  66. p=p+1
  67. exit
  68. endif
  69. else
  70. @ prow()+1,1 say ì
  71. "=================================================================ì
  72. ==================================================================ì
  73. =========================================="
  74. a2=.f.
  75. endif
  76. enddo
  77. enddo a2
  78. set print on
  79. ? chr(13)
  80. set print off
  81. set device to screen
  82. set cons on
  83. a1=.t.
  84. retu
  85.  
  86.