home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZL2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  3.3 KB  |  120 lines
  1. clear
  2. set talk off
  3. set device to screen 
  4. if w='y'
  5. a='          '
  6. @ 4,20 say "╟δ╩Σ╚δ╣ñ╫≈┴ε║┼" get a pict '9999999999'
  7. read
  8. a=val(a)
  9. use gzl1 
  10. set index to gzl11
  11. seek a
  12. if eof()
  13. @ 4,0 clear
  14. wait '╬▐┤╦╣ñ╫≈┴εú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  15. use 
  16. retu
  17. endif
  18. endif
  19. @ 4,0 clear
  20. c=gzl11
  21. b=gzl12
  22. pp=gzl13
  23. qq=gzl14
  24. aa=gzl18
  25. uu=gzl10
  26. k1=dtoc(gzl16)
  27. k2=dtoc(gzl17)
  28. use sb
  29. set index to sb1
  30. seek b
  31. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  32. set cons off
  33. set device to print 
  34. set print on
  35. ? chr(27)+"II"
  36. @ prow()+1,30 say "╣ñ╫≈├ⁿ┴ε╡Ñ"
  37. @ prow()+1,1 say "         "
  38. @ prow()+1,1 say "ú╬ú╧ú║"+str(c,10)
  39. set print off
  40. @ prow()+1,1 say ì
  41. "==============================================================================="
  42. @ prow()+1,1 say "|╔Φ▒╕▒α║┼|"+sb1+"      ì
  43.  "+"|╔Φ▒╕├√│╞|"+sb3+"|╔Φ▒╕╨═║┼|"+sb4+"|"
  44. @ prow()+1,1 say ì
  45. "|--------|----------------|--------|----------------|--------|----ì
  46. ------------|"
  47. ww=sb29
  48. j1=substr(k1,7,2)
  49. j2=substr(k1,1,2)
  50. j3=substr(k1,4,2)
  51. k1=j1+'.'+j2+'.'+j3
  52. j1=substr(k2,7,2)
  53. j2=substr(k2,1,2)
  54. j3=substr(k2,4,2)
  55. k2=j1+'.'+j2+'.'+j3
  56. use wx            
  57. loca for wx1=aa
  58. aa=wx2
  59. use dm 
  60. loca for dm1='y' .and. dm2=pp
  61. pp=dm3
  62. loca for dm1='x' .and. dm2=qq
  63. qq=dm3
  64. @ prow()+1,1 say "|░▓╫░╡╪╡π|"+ww+"    |"+"╜⌠╝▒│╠╢╚|"+pp+"    ì
  65.   |"+"╣ñ╫≈└α╨═|"+qq+"      |"
  66. @ prow()+1,1 say ì
  67. "|--------|----------------|--------|----------------|--------|---ì
  68. -------------|"
  69. @ prow()+1,1 say "|│╨╨▐╡Ñ╬╗|"+aa+"        "+"|┐¬╣ñ╚╒╞┌|"+k1+"        ì
  70. "+"|═Ω╣ñ╚╒╞┌|"+k2+"        |"
  71. @ prow()+1,1 say ì
  72. "|--------|----------------|--------|----------------|--------|---ì
  73. -------------|"
  74. @ prow()+1,1 say "|╬¼╨▐╝≥╩÷ú║"+uu+"               ì
  75.                       |"
  76. @ prow()+1,1 say "|                                               ì
  77.                               |"
  78. @ prow()+1,1 say ì
  79. "|----------------------------------------------------------------ì
  80. -------------|"
  81. @ prow()+1,1 say "|┐¬╣ñ╚╒╞┌|        |═Ω╣ñ╚╒╞┌|        ì
  82. |═ú╣ñ┤²┴╧╩▒╝Σ|        |╩╡╝╩╬¼╨▐╩▒╝Σ|      |"
  83. @ prow()+1,1 say ì
  84. "|--------|--------|--------|--------|------------|-------ì
  85. -|------------|------|"
  86. @ prow()+1,1 say "|╣ñ╩▒╖╤  |        |▒╕╝■╖╤  |        ì
  87. |▓─┴╧╖╤      |        |═Γ╬»╝╙╣ñ╖╤  |      |"
  88. @ prow()+1,1 say ì
  89. "|--------|--------|--------|--------|------------|-------ì
  90. -|------------|------|"
  91. @ prow()+1,1 say "|╞Σ╦ⁿ╖╤  |        |╟»╣ñ╣ñ╩▒|        |   ì
  92.          |        |            |      |"
  93. @ prow()+1,1 say ì
  94. "|--------|--------|--------|--------|------------|-------ì
  95. -|------------|------|"
  96. @ prow()+1,1 say "|╦∙╗╗╡─▒╕╝■ú║                                    ì
  97.                              |"
  98. @ prow()+1,1 say "|                                               ì
  99.                               |"
  100. @ prow()+1,1 say "|                                               ì
  101.                               |"
  102. @ prow()+1,1 say ì
  103. "|----------------------------------------------------------------ì
  104. -------------|"
  105. @ prow()+1,1 say "|╢╘╥╘║≤╬¼╨▐╡─╜¿╥Θú║                             ì
  106.                               |"
  107. @ prow()+1,1 say "|                                               ì
  108.                               |"
  109. @ prow()+1,1 say "|                                               ì
  110.                               |"
  111. @ prow()+1,1 say ì
  112. "=================================================================ì
  113. =============="
  114. set print on
  115. ? chr(13)
  116. set print off
  117. set device to screen
  118. set cons on
  119. retu
  120.