home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DQ5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  358 b   |  20 lines
  1. p1=j3+'.'+j1      
  2. k4=val(k4)
  3. k5=val(k5)
  4. k6=val(k6)
  5. k7=val(k7)
  6. k8=val(k8)
  7. use fyl
  8. loca for f1=p1
  9. if .not. eof()
  10. repl f3 with f3+k4+k5+k6+k7+k8,f4 with f4+k4,f5 with f5+k5,f6 ì
  11. with f6+k6,f7 with f7+k7,f8 with f8+k8
  12. else
  13. appe blank
  14. repl f1 with p1,f3 with k4+k5+k6+k7+k8,f4 with k4,f5 with k5,f6 ì
  15. with k6,f7 with k7,f8 with k8
  16. endif
  17. retu
  18.  
  19.  
  20.