home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JFX1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  4.1 KB  |  117 lines
  1. clear
  2. set talk off
  3. set device to print 
  4. set print on
  5. ? chr(27)+"IJ"
  6. set print off
  7. @ prow()+1,1 say "╔Φ▒╕═╢╫╩╙Φ▓Γ▒φú¿╖╜░╕ú║                  ú⌐"
  8. @ prow()+1,1 say "       "
  9. @ prow()+1,1 say "═Γ▒╥ú║                  ▒╚╝█ú║"  
  10. @ prow()+1,1 say ì
  11. "=================================================================ì
  12. ======"
  13. @ prow()+1,1 say "|                  |═Γ                 ╗π|          |  ì
  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. ú¬  |"
  24. @ prow()+1,1 say ì
  25. "|------------------|----------|----------|----------|----------|------|"
  26. @ prow()+1,1 say "|╔Φ▒╕░▓╫░╣ñ│╠      |          |    ú¬    |       ì
  27.    |    ì
  28. ú¬    |  ú¬  |"
  29. @ prow()+1,1 say ì
  30. "|------------------|----------|----------|----------|----------|------|"
  31. @ prow()+1,1 say "|╜°┐┌╔Φ▒╕║╧═¼╝█    |          |    ú¬    |   ú¬ì
  32.      |    ì
  33. ú¬    |  ú¬  |"
  34. @ prow()+1,1 say ì
  35. "|------------------|----------|----------|----------|----------|------|"
  36. @ prow()+1,1 say "|╜°┐┌╔Φ▒╕╘╦╩Σ╖╤    |          |    ú¬    |    ú¬ ì
  37.    |    ì
  38. ú¬    |  ú¬  |"
  39. @ prow()+1,1 say ì
  40. "|------------------|----------|----------|----------|----------|------|"
  41. @ prow()+1,1 say "|╜°┐┌╔Φ▒╕▒ú╧╒╖╤    |          |    ú¬    |    ú¬ ì
  42.    |    ì
  43. ú¬    |  ú¬  |"
  44. @ prow()+1,1 say ì
  45. "|------------------|----------|----------|----------|----------|------|"
  46. @ prow()+1,1 say "|╜°┐┌╔Φ▒╕║ú╘╦╖╤    |          |    ú¬    |    ú¬ ì
  47.    |    ì
  48. ú¬    |  ú¬  |"
  49. @ prow()+1,1 say ì
  50. "|------------------|----------|----------|----------|----------|------|"
  51. @ prow()+1,1 say "|╜°┐┌╔Φ▒╕╣╪╦░      |          |    ú¬    |       ì
  52.    |   ì
  53.  ú¬    |  ú¬  |"
  54. @ prow()+1,1 say ì
  55. "|------------------|----------|----------|----------|----------|------|"
  56. @ prow()+1,1 say "|╜°┐┌╔Φ▒╕╣·─┌╘╦╖╤  |    ú¬    |    ú¬    |       ì
  57.    |   ì
  58.  ú¬    |  ú¬  |"
  59. @ prow()+1,1 say ì
  60. "|------------------|----------|----------|----------|----------|------|"
  61. @ prow()+1,1 say "|│÷╣·┴¬┬τ╖╤        |          |    ú¬    |       ì
  62.    |   ì
  63.  ú¬    |  ú¬  |"
  64. @ prow()+1,1 say ì
  65. "|------------------|----------|----------|----------|----------|------|"
  66. @ prow()+1,1 say "|╣·─┌╔Φ▒╕║╧═¼╝█    |    ú¬    |    ú¬    |       ì
  67.    |   ì
  68.  ú¬    |  ú¬  |"
  69. @ prow()+1,1 say ì
  70. "|------------------|----------|----------|----------|----------|------|"
  71. @ prow()+1,1 say "|╣·─┌╔Φ▒╕╘╦╖╤      |    ú¬    |    ú¬    |       ì
  72.    |    ú¬    |  ú¬  |"
  73. @ prow()+1,1 say ì
  74. "|------------------|----------|----------|----------|----------|-ì
  75. -----|"
  76. @ prow()+1,1 say "|╩╘│╡╖╤            |    ú¬    |    ú¬    |      ì
  77.     |    ú¬    |  ú¬  |"
  78. @ prow()+1,1 say ì
  79. "|------------------|----------|----------|----------|----------|-ì
  80. -----|"
  81. @ prow()+1,1 say "|╣·═Γ╫¿╝╥╖╤        |          |    ú¬    |      ì
  82.     |    ú¬    |  ú¬  |"
  83. @ prow()+1,1 say ì
  84. "|------------------|----------|----------|----------|----------|-ì
  85. -----|"
  86. @ prow()+1,1 say "|╣·─┌╫¿╝╥╖╤        |    ú¬    |    ú¬    |      ì
  87.     |    ú¬    |  ú¬  |"
  88. @ prow()+1,1 say ì
  89. "|------------------|----------|----------|----------|----------|-ì
  90. -----|"
  91. @ prow()+1,1 say "|╝╝╩⌡╫╩┴╧╖╤        |          |    ú¬    |      ì
  92.     |    ú¬    |  ú¬  |"
  93. @ prow()+1,1 say ì
  94. "|------------------|----------|----------|----------|----------|-ì
  95. -----|"
  96. @ prow()+1,1 say "|╓░╣ñ┼α╤╡╖╤        |          |    ú¬    |      ì
  97.     |    ú¬    |  ú¬  |"
  98. @ prow()+1,1 say ì
  99. "|------------------|----------|----------|----------|----------|-ì
  100. -----|"
  101. @ prow()+1,1 say "|▓╗┐╔╙Φ╝√╖╤        |          |    ú¬    |     ì
  102.      |    ú¬    |  ú¬  |"
  103. @ prow()+1,1 say ì
  104. "|------------------|----------|----------|----------|----------|-ì
  105. -----|"
  106. @ prow()+1,1 say "|║╧              ╝╞|    ú¬    |    ú¬    |    ì
  107. ú¬    |    ú¬    |  ú¬  |"
  108. @ prow()+1,1 say ì
  109. "=================================================================ì
  110. ======" 
  111. @ prow()+1,1 say "╙╨ú¬╒▀▓╗╠ε╨┤"
  112. set print on
  113. ? chr(13)
  114. set print off
  115. set device to screen 
  116. retu
  117.