home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / PH5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1011 b   |  65 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. p='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get p pict '999'
  7. read
  8. p=val(p)
  9. do while p<>0
  10. clear
  11. k1='         '
  12. k2='        '
  13. k3='                '
  14. k4='        '
  15. a2=.t.
  16. do while a2
  17. clear
  18. @ 2,1 say "▒╕╝■▒α║┼" get k1
  19. @ 3,1 say "▒¿╖╧╚Ñ╧≥" get k2
  20. @ 4,1 say "▒¿╖╧╘¡╥≥" get k3
  21. @ 5,1 say "▒¿╖╧╚╒╞┌" get k4 pict '99.99.99'
  22. read
  23. wait '╟δ╤í╘±ú║╓╪╨▐╕─ú╪ú¼╫≈╖╧ú╞ú¼╩²╛▌╒²╚╖ú┌ú¼╖╡╗╪ú╥ú║' to w
  24. do case 
  25. case w='r'
  26. retu
  27. case w='x'
  28. loop
  29. case w='f'
  30. p=p+1
  31. exit
  32. case w='z'
  33. use bj 
  34. set index to bj1,bj2
  35. seek k1
  36. j1=b1
  37. j2=b2
  38. j3=b3
  39. j4=b4
  40. j5=b5
  41. t1=substr(k4,4,2)
  42. t2=substr(k4,7,2)
  43. t3=substr(k4,1,2)
  44. tt=t1+'/'+t2+'/'+t3
  45. tt=ctod(tt)
  46. dele        
  47. pack
  48. use bh
  49. sum (h7-h10)*h6,(h7-h10) to x,y for h1=k1
  50. repl all h17 with 'y' for h2=k1
  51. use bf
  52. appe blank
  53. repl bf1 with j1,bf2 with j2,bf3 with j3,bf4 with j4,bf5 with ì
  54. j5,bf6 with k2,bf10 with k3,bf8 with y,bf9 with x,bf7 with tt
  55. endcase 
  56. p=p-1
  57. if p=0
  58. exit
  59. endif
  60. enddo
  61. enddo 
  62. retu
  63.  
  64.  
  65.