home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JFX3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  622 b   |  39 lines
  1. clear
  2. set talk off
  3. set device to screen 
  4. a='                  '
  5. b='      '
  6. c='     '
  7. @ 4,20 say "╖╜░╕" get a
  8. @ 5,20 say "═Γ▒╥" get b
  9. @ 6,20 say "▒╚╝█" get c pict '##.##'
  10. read
  11. d=c
  12. c=val(c)
  13. use jfx1
  14. do while .not. eof()
  15. clear
  16. l=4
  17. k2='          '
  18. k3='          '
  19. @ 2,20 say j0
  20. @ l,20 say "═Γ▒╥" get k2 pict '#######.##'
  21. l=l+1
  22. @ l,20 say "╚╦├±▒╥" get k3 pict '#######.##'
  23. read
  24. k2=val(k2)
  25. k3=val(k3)
  26. repl j1 with k2,j3 with k3
  27. skip
  28. enddo 
  29. clear
  30. @ 4,20 say "╒²╘┌╝╞╦π╙δ┤≥╙íú¼╟δ╔╘║≥úí"
  31. set cons off
  32. repl all j2 with j1*c              
  33. repl all j4 with j2+j3
  34. goto 1
  35. do jfx2
  36. set cons on
  37. retu
  38.  
  39.