home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZ8.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.4 KB  |  81 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 4
  6. use ygz
  7. sele 3
  8. use ngz
  9. sele 2
  10. use sm
  11. sele 1
  12. use gz
  13. goto y
  14. k1=gz1         
  15. k2=gz2    
  16. k3=dtoc(gz3)       
  17. j1=substr(k3,7,2)
  18. j2=substr(k3,1,2)
  19. j3=substr(k3,4,2)
  20. k3=j1+'.'+j2+'.'+j3
  21. t1=substr(k3,1,5)
  22. k4=gz4           
  23. k5=gz5      
  24. k6=gz6       
  25. j6=k6
  26. k7=gz7     
  27. k8=gz8     
  28. k9=gz9        
  29. k10=gz10
  30. k11=gz11
  31. k12=gz12
  32. k13=gz13
  33. k14=gz14
  34. k15=gz15
  35. j15=k15
  36. p1=gz9+gz10+gz11+gz12+gz13 
  37. clear
  38. @ 1,1 say "╔Φ▒╕▒α║┼" get k1 
  39. @ 2,1 say "╣╩╒╧▓┐╬╗┬δ" get k2 
  40. @ 3,1 say "╡Ñ╬╗┤·┬δ" get k14
  41. @ 4,1 say "╣╩╒╧╖ó╔·╞┌" get k3 pict 'xx.xx.xx'
  42. @ 5,1 say "═ú╗·╦≡╩º" get k4 
  43. @ 6,1 say "╝╞╗«╣ñ╩▒" get k5
  44. @ 7,1 say "═ú╗·╩▒╝Σ" get k6                
  45. @ 8,1 say "╩╡╝╩╣ñ╩▒" get k7              
  46. @ 1,50 say "╞Σ╓╨═ú╣ñ┤²┴╧╩▒╝Σ" get k8                
  47. @ 2,50 say "╣ñ╩▒╖╤" get k9 
  48. @ 3,50 say "▒╕╝■╖╤" get k10 
  49. @ 4,50 say "▓─┴╧╖╤" get k11 
  50. @ 5,50 say "═Γ╬»╝╙╣ñ╖╤" get k12 
  51. @ 6,50 say "╞Σ╦ⁿ╖╤" get k13 
  52. @ 7,50 say "╣╩╒╧┤╬╩²" get k15 
  53. @ 9,0 clear
  54. wait '╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡(y/n) ' to w
  55. if w<>'y'
  56. close database
  57. retu 
  58. endif
  59. b=gz1
  60. c=substr(k3,1,2)
  61. dele reco y
  62. pack
  63. sele 2
  64. loca for sm1=b
  65. repl sm5 with sm5-p1
  66. sele 3
  67. loca for ngz1=c .and. ngz2=b
  68. if .not. eof()
  69. repl ngz3 with ngz3-k15,ngz4 with ngz4-k6,ngz6 with ngz6+k8
  70. endif
  71. sele 4
  72. loca for g1=t1
  73. repl g2 with g2-j15,g3 with g3-j6 
  74. close database
  75. retu
  76.  
  77.  
  78.  
  79.  
  80.  
  81.