home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / CK.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.8 KB  |  115 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a pict '999'
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. b='         '
  12. c='   '
  13. @ 4,10 say "╟δ╩Σ╚δ▒╕╝■▒α║┼" get b
  14. @ 5,10 say "╠ß╗⌡╩²┴┐" get c pict '999'
  15. read
  16. c=val(c)
  17. use bj 
  18. set index to bj1,bj2
  19. seek b        
  20. if eof()
  21. clear
  22. @ 4,0 clear
  23. wait '╬▐┤╦▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  24. clos data
  25. retu
  26. endif
  27. if b5<c
  28. clear
  29. @ 4,0 clear
  30. d=c-b5
  31. @ 4,10 say "┐Γ╓╨╩²▒╚╥¬╠ß╗⌡┴┐╔┘:"+str(d,4)
  32. @ 8,0 clear
  33. wait '╟δ╤í╘±ú║╓╪╨▐╕─╠ß╗⌡┴┐ú╪ú¼╖╡╗╪ú╥ú║' to w
  34. do case 
  35. case w='x'
  36. loop
  37. case w='r'
  38. retu
  39. otherwise 
  40. retu
  41. endcase 
  42. endif
  43. k1='         '
  44. k2='        '
  45. k3='        '
  46. k4='            '
  47. k5='        '
  48. k6='   '
  49. k7='         '
  50. k8='            '
  51. k9='            '
  52. k10='        '
  53. a1=.t.
  54. do while a1
  55. clear
  56. @ 1,1 say "▒╕╝■▒α║┼" get k1
  57. @ 2,1 say "╡Ñ╝█" get k2 pict '#####.##'
  58. @ 3,1 say "╩²┴┐" get k3 pict '#####.##'
  59. @ 4,1 say "│÷┐Γ╚╒╞┌" get k5 pict '99.99.99'
  60. read
  61. a2=.t.
  62. do while a2
  63. @ 6,1 clear
  64. @ 5,1 say "╠ß╗⌡╡Ñ╬╗▒α║┼" get k6
  65. read
  66. if k6='h'
  67. use dw
  68. do hel1.prg
  69. loop
  70. endif
  71. exit 
  72. enddo a3
  73. @ 6,1 say "╔Φ▒╕▒α║┼" get k7
  74. @ 7,1 say "╣ñ╫≈┴ε║┼" get k8 pict '############'
  75. @ 8,1 say "╠ß╗⌡╡Ñ║┼" get k9
  76. @ 1,50 say "╛¡╩╓╚╦" get k10
  77. read
  78. @ 9,0 clear
  79. wait '╟δ╤í╘±ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╫≈╖╧ú¼╖╡╗╪ú╥ú║' to w
  80. do case 
  81. case w='r'
  82. retu
  83. case w='x'
  84. loop
  85. case w='f'
  86. a=a+1
  87. exit
  88. case w='z'
  89. k2=val(k2)
  90. k3=val(k3)
  91. k8=val(k8)
  92. j1=substr(k5,4,2)
  93. j2=substr(k5,7,2)
  94. j3=substr(k5,1,2)
  95. k5=j1+'/'+j2+'/'+j3
  96. k5=ctod(k5)
  97. use bj index bj1,bj2
  98. seek k1          
  99. repl b5 with b5-k3
  100. use cr
  101. appe blank
  102. repl l1 with k1,l2 with k5,l3 with k3,l4 with k2,l6 ì
  103. with k6,l9 with k10,l5 with k7,l7 with k8,l10 with 'c'
  104. repl l8 with k9
  105. exit
  106. endcase 
  107. enddo 
  108. endif
  109. endif
  110. a=a-1
  111. enddo 
  112. retu
  113.  
  114.  
  115.