home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJJS1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  361 b   |  19 lines
  1. clea
  2. set talk off
  3. set devi to screen
  4. wait '╩╟╖±╒µ╥¬╜°╨╨╒█╛╔╝╞╦πú¼░┤ú┘╜°╨╨ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪úí' to w
  5. if w<>'y'
  6. retu
  7. endif
  8. @ 4,20 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí" 
  9. set cons off
  10. clos data
  11. use sb 
  12. set index to sb1
  13. a=sb15*(1-sb26/100)/sb16
  14. repl all sb17 with sb17-sb15*sb19/100,sb18 with sb18+sb15*sb19/100,sb49 with ì
  15. sb15*sb19/100
  16. set cons on
  17. clos data
  18. retu
  19.