Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/HFX2.PRG

Text File | 1980-01-01 | 2.9 KB | 72 lines

clear
set talk off
set device to screen
a='  '
@ 4,20 say "╥¬╝╕╖▌ú┐" get a
read
a=val(a)
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
do while a<>0
@ prow()+1,1 say "╕≈╧ε╨╘─▄╞└╖╓▒φú¿├┐╧ε╫ε╢α╬¬ú▒ú░╖╓ú⌐"
@ prow()+1,1 say "      "
@ prow()+1,1 say ì
"==============================================="
@ prow()+1,1 say "|╨≥║┼|╨╘ ─▄ ╧ε ─┐|╞└  ╖╓  ┐╝ ┬╟  ╥≥  ╦╪|╞└  ╖╓|"
@ prow()+1,1 say ì
"|----|-----------|---------------------|------|"
@ prow()+1,1 say "|    |           |═╢╫╩╗╪╩╒╞┌           |      |"
@ prow()+1,1 say "| ú▒ |╛¡╝├╨╘     |╫╘│∩╫╩╜≡│╨╩▄─▄┴ª     |      |"
@ prow()+1,1 say "|    |           |▓·╞╖╧·╩█│╔▒╛└√╚≤┬╩   |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "|    |           |▓·╞╖╖╧╞╖┬╩           |      |"
@ prow()+1,1 say "| ú▓ |┐╔┐┐╨╘     |╘╦╨╨╣╩╒╧╞╡┬╩         |      |"
@ prow()+1,1 say "|    |           |╣╩╒╧═ú╗·╦≡╩º│╠╢╚     |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "|    |           |╣╩╒╧┼╨╢╧╥╫─╤╢╚       |      |"
@ prow()+1,1 say "| ú│ |╥╫╨▐╨╘     |┼┼│²╣╩╒╧╦┘╢╚         |      |"
@ prow()+1,1 say "|    |           |╨▐└φ▓≡╨╢╥╫─╤╢╚       |      |"
@ prow()+1,1 say "|    |           |┤≤╨▐└φ╣ñ╞┌│ñ╢╠       |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "|    |           |╡Ñ╘¬║─╡τ┴┐           |      |"
@ prow()+1,1 say "| ú┤ |╜┌─▄╨╘     |╡Ñ╘¬║─╚╝┴╧┴┐         |      |"
@ prow()+1,1 say "|    |           |╡Ñ╘¬║─╦«┴┐           |      |"
@ prow()+1,1 say "|    |           |─▄╘┤╖╤╒╝│╔▒╛╡─▒╚└²   |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "|    |           |┼┼╦«.╞°.╘ⁿ╬█╚╛│╠╢╚   |      |"
@ prow()+1,1 say "| ú╡ |╗╖▒ú░▓╚½╨╘ |╘δ╥⌠╬█╚╛│╠╢╚         |      |"
@ prow()+1,1 say "|    |           |░▓╚½╔Φ╩⌐╞δ╚½╢╚       |      |"
@ prow()+1,1 say "|    |           |╖└▒¼.╖└╚╝│╠╢╚        |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "| ú╢ |╗·╨══¿╙├╨╘ |▒╛│º▒╕╝■═¿╙├│╠╢╚     |      |"
@ prow()+1,1 say "|    |           |╣║┬≥▒╕╝■╥╫─╤╢╚       |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "|    |           |▓┘╫≈╔Φ▒╕╥╫─╤╢╚       |      |"
@ prow()+1,1 say "| ú╖ |╚╦╗·╩╩╙├╨╘ |╙├╣ñ╚╦╩²╢α╔┘         |      |"
@ prow()+1,1 say "|    |           |▓┘╫≈╒▀╩µ╩╩╨╘         |      |"
@ prow()+1,1 say "|----|-----------|---------------------|------|"
@ prow()+1,1 say "| ú╕ |═Γ╣█╨╘     |╠σ╗².╓╪┴┐╙δ│º╖┐┼Σ╠╫╨╘|      ì
|"
@ prow()+1,1 say "|    |           |═Γ╨╬├└╣█│╠╢╚         |      ì
|"
@ prow()+1,1 say ì
"==============================================="
@ prow()+1,35 say "╞└╖╓╚╦ú║"
a=a-1
@ prow()+1,1 say "        "
@ prow()+1,1 say "          "
@ prow()+1,1 say "       "
enddo
set print on
? chr(13)
set print off
set device to screen
set cons on
retu