home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ11.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.1 KB  |  57 lines
  1. STORE 'Y' TO C
  2. STORE '     ' TO D
  3. STORE '         ' TO F
  4. E='    '
  5. USE SB index sb1
  6. DO WHILE .NOT. C='N'
  7. CLEAR
  8. @ 3,20 SAY '╟δ╩Σ╚δ:─Ω    ╘┬' GET D PICTU '99.99'
  9. @ 4,20 SAY '       ╔Φ▒╕▒α║┼' GET F 
  10. @ 5,20 SAY '       ╘╦╫¬╠¿╩▒' GET E PICT '####'
  11. READ
  12. CLEAR
  13. @ 4,30 SAY "╔╘      ║≥"
  14. E=VAL(E)
  15. seek F
  16. REPL SB30 WITH SB30+E
  17. USE YY
  18. APPE BLANK
  19. REPL YY1 WITH F,YY2 WITH D, YY3 WITH E
  20. USE YGZ
  21. LOCAT FOR G1=D 
  22. IF EOF()
  23. APPE BLANK
  24. REPL G1 WITH D,G6 WITH E,g5 with 1
  25. ELSE
  26. REPL G6 WITH G6+E,g5 with g5+1
  27. ENDIF
  28. USE BJH
  29. LOCATE FOR BJH1=F
  30. IF BJH1=F
  31. REPLACE BJH7 WITH BJH7+E
  32. REPLACE BJH9 WITH BJH9+E
  33. REPLACE BJH11 WITH BJH11+E
  34. REPLACE BJH13 WITH BJH13+E
  35. ENDIF
  36. USE NGZ
  37. dd=substr(d,1,2)
  38. LOCATE FOR NGZ2=F .and. ngz1=dd
  39. IF eof() 
  40. appe blank
  41. repl ngz1 with substr(d,1,2),ngz2 with f,ngz5 with e
  42. else
  43. REPLACE NGZ5 WITH NGZ5+E
  44. ENDIF
  45. USE YHF
  46. REPLACE ALL YHF5 WITH YHF5+E FOR YHF1=F
  47. CLEAR
  48. @ 4,30
  49. ACCE "                            ╝╠╨°╩Σ╚δ┬≡ ? (Y/N) " TO C
  50. STORE UPPE(C) TO C
  51. STOR '     ' TO D
  52. STOR "         " TO F
  53. E='    '
  54. USE SB index sb1
  55. ENDDO
  56. RETURN
  57.