home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JFX2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.3 KB  |  43 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. a=trim(a)
  5. set device to print 
  6. set print on
  7. ? chr(27)+"IJ"
  8. set print off
  9. @ prow()+1,1 say "╔Φ▒╕═╢╫╩╙Φ▓Γ▒φú¿╖╜░╕ú║"+a+"ú⌐"
  10. @ prow()+1,1 say "       "
  11. @ prow()+1,1 say "═Γ▒╥ú║"+b+"             ▒╚╝█ú║"+d         
  12. @ prow()+1,1 say ì
  13. "=================================================================ì
  14. ======"
  15. @ prow()+1,1 say "|                  |═Γ                 ╗π|          |  ì
  16.         |      |"
  17. @ prow()+1,1 say "|╧ε              ─┐|---------------------|╚╦├±▒╥    ì
  18. |║╧      ╝╞| ╒╝úÑ |"
  19. @ prow()+1,1 say "|                  |═Γ      ▒╥|╚╦├±▒╥    |      ì
  20.     |          |      |"
  21. @ prow()+1,1 say ì
  22. "|------------------|----------|----------|----------|----------|------|"
  23. sum j1,j2,j3,j4 to x1,x2,x3,x 
  24. goto 1
  25. do while .not. eof()
  26. @ prow()+1,1 say "|"+j0+"|"+str(j1,10,2)+"|"+str(j2,10, ì
  27. 2)+"|"+str(j3,10,2)+"|"+str(j3,10,2)+"|"+str(j4/x,6,2)+"|"
  28. @ prow()+1,1 say ì
  29. "|------------------|----------|----------|----------|----------|------|"
  30. skip
  31. enddo 
  32. @ prow()+1,1 say "|║╧              ì
  33. ╝╞|"+str(x1,10,2)+"|"+str(x2,10,2)+"|"+str(x3,10,2)+"|"+str(x,10,2ì
  34. )+"|"+"      |"
  35. @ prow()+1,1 say ì
  36. "=================================================================ì
  37. ======"
  38. set print on
  39. ? chr(13)
  40. set print  off
  41. set device to screen
  42. retu
  43.