home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XR.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.5 KB  |  121 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 1
  6. use bj 
  7. set index to bj1,bj2
  8. sele 2
  9. use bh
  10. sele 3
  11. use cr
  12. sele 4
  13. use gh 
  14. set index to gh1
  15. a='   '
  16. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a pict '999'
  17. read
  18. a=val(a)
  19. do while a<>0
  20. k1='         '
  21. k2='        '
  22. k3='        '
  23. k4='            '
  24. k5='        '
  25. k6='   '
  26. k9='            '
  27. k10='        '
  28. k11='        '
  29. k12='        '
  30. k13='        '
  31. k14='        '
  32. k15='        '
  33. k16='        '
  34. k17='        '
  35. k18='                '
  36. k19='                '
  37. a1=.t.
  38. do while a1
  39. clear
  40. @ 1,1 say "▒╕╝■▒α║┼" get k1
  41. @ 2,1 say "▒╕╝■├√│╞" get k18
  42. @ 3,1 say "╣µ    ╕±" get k19
  43. @ 4,1 say "╡Ñ    ╝█" get k2 pict '#####.##'
  44. @ 5,1 say "╩²    ┴┐" get k3 pict '#####.##'
  45. @ 6,1 say "╚δ┐Γ╚╒╞┌" get k5 pict '99.99.99'
  46. @ 7,1 say "║╧ ═¼ ║┼" get k4
  47. read
  48. a2=.t.
  49. do while a2
  50. @ 8,1 clear
  51. @ 8,1 say "╣⌐╗⌡╡Ñ╬╗▒α║┼" get k6
  52. read
  53. if k6='h'
  54. sele 4
  55. do hel11.prg
  56. loop
  57. endif
  58. exit 
  59. enddo a3
  60. @ 9,1 say "╚δ┐Γ╡Ñ║┼" get k9
  61. @ 1,50 say "╛¡ ╩╓ ╚╦" get k10
  62. @ 2,50 say "╫ε╕▀┐Γ┤µ" get k11 pict '#####.##'
  63. @ 3,50 say "╫ε╡═┐Γ┤µ" get k12 pict '#####.##'
  64. @ 4,50 say "╢⌐ ╗⌡ ╡π" get k13 pict '#####.##'
  65. @ 5,50 say "┤µ┤ó╬╗╓├" get k14
  66. @ 6,50 say "├┐┤╬╢⌐╗⌡╖╤" get k15 pict '#####.##'
  67. @ 7,50 say "╡Ñ╝■┤µ┤ó╖╤" get k16 pict '#####.##'
  68. @ 8,50 say "─Ω╨Φ╟≤┴┐" get k17 pict '#####.##'
  69. read
  70. @ 9,50 say "                 "
  71. wait '╟δ╤í╘±ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╫≈╖╧ú¼╖╡╗╪ú╥ú║' to w
  72. do case 
  73. case w='r'
  74. retu
  75. case w='x'
  76. loop
  77. case w='f'
  78. a=a+1
  79. exit
  80. case w='z'
  81. k2=val(k2)
  82. k3=val(k3)
  83. k11=val(k11)
  84. k12=val(k12)
  85. k13=val(k13)
  86. k15=val(k15)
  87. k16=val(k16)
  88. k17=val(k17)
  89. j1=substr(k5,4,2)
  90. j2=substr(k5,7,2)
  91. j3=substr(k5,1,2)
  92. k5=j1+'/'+j2+'/'+j3
  93. k5=ctod(k5)
  94. sele 1
  95. appe blank
  96. repl b1 with k1,b4 with k2,b5 with k3,b6 with k11,b7 with k12,b8 ì
  97. with k13,b9 with k14,b10 with k15,b11 with k16,b12 with k17,b2 ì
  98. with k18,b3 with k19
  99. reindex on b1 to bj1
  100. reindex on b9 to bj2
  101. sele 2
  102. loca for h1=k4 .and. h2=k1
  103. repl h10 with h10+k3
  104. if h10=h7 .and. .not. eof()
  105. e=recno()
  106. dele reco e
  107. pack
  108. endif
  109. sele 3
  110. appe blank
  111. repl l1 with k1,l2 with k5,l3 with k3,l4 with k2,l6 ì
  112. with k6,l8 with k9,l9 with k10,l10 with 'r'
  113. exit
  114. endcase 
  115. enddo 
  116. a=a-1
  117. enddo 
  118. retu
  119.  
  120.  
  121.