home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SG6.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.4 KB  |  75 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 4
  6. use ysg index ysg1
  7. sele 3
  8. use sm
  9. sele 1
  10. use sg
  11. goto y
  12. a1=.t.
  13. do while a1
  14. sele 1
  15. k1=sg1         
  16. k2=sg3         
  17. k3=dtoc(sg2)      
  18. j1=substr(k3,7,2)
  19. j2=substr(k3,1,2)
  20. j3=substr(k3,4,2)
  21. k3=j1+'.'+j2+'.'+j3
  22. p1=substr(k3,1,5)
  23. k4=sg4
  24. k5=sg5        
  25. k6=sg6      
  26. k7=sg7      
  27. k8=sg8                                                 
  28. k9=sg9 
  29. k10=sg10
  30. k11=sg11
  31. k12=sg12                                                  
  32. k13=sg13                                                
  33. k14=dtoc(sg14)
  34. j1=substr(k14,7,2)
  35. j2=substr(k14,1,2)
  36. j3=substr(k14,4,2)
  37. k14=j1+'.'+j2+'.'+j3
  38. clear
  39. @ 1,1 say "╔Φ▒╕▒α║┼"get k1
  40. @ 1,31 say "╩┬╣╩╘¡╥≥┬δ" get k2
  41. @ 2,1 say "╩┬╣╩╖ó╔·╩▒╝Σ" get k3 pict 'xx.xx.xx' 
  42. @ 2,31 say "╩┬╣╩└α▒≡┬δú¿╠╪┤≤ú▒ú⌐,ú¿╓╪┤≤ú▓ú⌐,ú¿╥╗░πú│ú⌐" get k4
  43. @ 3,1 say "╩┬╣╩╘≡╚╬╒▀" get k5
  44. @ 3,31 say "╫▄═ú╗·╩▒╝Σ"get k6
  45. @ 4,1 say "╞Σ╓╨╙░╧∞╔·▓·╩▒╝Σ" get k7
  46. @ 4,31 say "╓▒╜╙╦≡╩º" get k9
  47. @ 5,1 say "╝Σ╜╙╦≡╩º" get k10
  48. @ 5,31 say "╨▐└φ╖╤" get k11 
  49. @ 6,1 say "╨▐╕┤╩▒╝Σ" get k14
  50. @ 7,1 say "╩┬╣╩╖ó╔·╛¡╣²╝≥╩÷" get k8
  51. @ 8,1 say "┤ª└φ╛÷╢¿" get k12
  52. @ 9,1 say "╜±║≤╖└╖╢┤δ╩⌐" get k13
  53. wait '╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡(Y/N) ' to w
  54. if w<>'y'
  55. close database
  56. retu
  57. endif
  58. sele 1
  59. a=recno()
  60. dele reco a
  61. pack
  62. sele 3
  63. loca for sm1=k1
  64. repl sm7 with sm7-k11
  65. sele 4
  66. loca for y1=p1
  67. repl y2 with y2-1,y3 with y3-k6,y4 with y4-k9,y5 with y5-k10,y6 ì
  68. with y6-k11
  69. exit
  70. enddo a1
  71. close database
  72. retu
  73.  
  74.  
  75.