Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/BCBDEB2.PRG

Text File | 1990-12-16 | 3.8 KB | 98 lines

*░δ│╔╞╖╢¿╢ε╝╞╦π▒φ╫╙│╠╨≥:BCBDEB2.PRG
set talk off
clear
@ 10,20 say '╒²╘┌┤≥╙í░δ│╔╞╖╢¿╢ε╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use &qbl13
sum all ╣ñ╩▒,╝╙╣ñ╜≡╢ε,╕ú└√╜≡╢ε,CJ╛¡╖╤╜≡╢ε,╖╧╞╖╜≡╢ε,╣▄└φ╖╤╜≡╢ε,║╧╝╞╜≡╢ε to n8,n9,n10,n11,n12,n13,n14
set device to print
set print on
@ 002,050 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º░δ│╔╞╖╢¿╢ε╝╞╦π▒φ'
@ 003,025 say '=============================='
@ 005,002 say chr(27)+"I"+"A"+'▓┐├┼:'+w3
@ 005,020 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'+'          ╓╪┴┐╡Ñ╬╗:╣½╜∩       ╜≡╢ε╡Ñ╬╗:╘¬'+'       ╡┌ 2 ╥│ '
@ 06,000 say '----------------------------------------------------------------------------------------------------------------------------------------'
@ 07,000 say '|\     \  ╧ε |  |     |                |                |                |                |                |                |  ╜≡  ╢ε  |'
@ 08,000 say '|  \ ╢¿  \ ─┐|╡Ñ|     |   ╣ñ       ╩▒  |  ╝╙   ╣ñ   ╖╤  | ╕ú    └√    ╜≡ | │╡  ╝Σ  ╛¡  ╖╤ | ╖╧  ╞╖  ╦≡  ╩º |  ╣▄   └φ   ╖╤  |          |'
@ 09,000 say '|▓·  \  ╢ε \ |  |▓· ┴┐|                |                |                |                |                |                |  ║╧  ╝╞  |'
@ 10,000 say '|╞╖    \     |╬╗|     |----------------|----------------|----------------|----------------|----------------|----------------|----------|'
@ 11,000 say '|├√│╞    \   |  |     |╢¿  ╢ε| ╣ñ   ╩▒ |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |          |'
@ 12,000 say '|------------|--|-----|------|---------|------|---------|------|---------|------|---------|------|---------|------|---------|----------|'
set talk off
l=12
go top
do while .not. eof()
@ l+1,000 say '|'
@ l+1,001 say ▓·╞╖├√│╞
@ l+1,013 say '|'
@ l+1,014 say ╡Ñ╬╗
@ l+1,016 say '|'
@ l+1,017 say ▓·┴┐ picture '@z'
@ l+1,022 say '|'
@ l+1,023 say ╣ñ╩▒╢¿╢ε picture '@z'
@ l+1,029 say '|'
@ l+1,030 say ╣ñ╩▒ picture '@z'
@ l+1,039 say '|'
@ l+1,040 say ╝╙╣ñ╢¿╢ε picture '@z'
@ l+1,046 say '|'
@ l+1,047 say ╝╙╣ñ╜≡╢ε picture '@z'
@ l+1,056 say '|'
@ l+1,057 say ╕ú└√╢¿╢ε picture '@z'
@ l+1,063 say '|'
@ l+1,064 say ╕ú└√╜≡╢ε picture '@z'
@ l+1,073 say '|'
@ l+1,074 say CJ╛¡╖╤╢¿╢ε picture '@z'
@ l+1,080 say '|'
@ l+1,081 say CJ╛¡╖╤╜≡╢ε picture '@z'
@ l+1,090 say '|'
@ l+1,091 say ╖╧╞╖╢¿╢ε picture '@z'
@ l+1,097 say '|'
@ l+1,098 say ╖╧╞╖╜≡╢ε picture '@z'
@ l+1,107 say '|'
@ l+1,108 say ╣▄└φ╖╤╢¿╢ε picture '@z'
@ l+1,114 say '|'
@ l+1,115 say ╣▄└φ╖╤╜≡╢ε picture '@z'
@ l+1,124 say '|'
@ l+1,125 say ║╧╝╞╜≡╢ε picture '@z'
@ l+1,135 say '|'
@ l+2,000 say '|------------|--|-----|------|---------|------|---------|------|---------|------|---------|------|---------|------|---------|----------|'
l=l+2
skip
enddo
@ l+2,000 say '****************************************************************************************************************************************'
@ l+3,000 say '|------------|--|-----|------|---------|------|---------|------|---------|------|---------|------|---------|------|---------|----------|'
@ l+4,000 say '|'
@ l+4,003 say '║╧    ╝╞'
@ l+4,013 say '|'
@ l+4,016 say '|'
@ l+4,022 say '|'
@ l+4,029 say '|'
@ l+4,030 say str(n8,9,2)
@ l+4,039 say '|'
@ l+4,046 say '|'
@ l+4,047 say str(n9,9,2)
@ l+4,056 say '|'
@ l+4,063 say '|'
@ l+4,064 say str(n10,9,2)
@ l+4,073 say '|'
@ l+4,080 say '|'
@ l+4,081 say str(n11,9,2)
@ l+4,090 say '|'
@ l+4,097 say '|'
@ l+4,098 say str(n12,9,2)
@ l+4,107 say '|'
@ l+4,114 say '|'
@ l+4,115 say str(n13,9,2)
@ l+4,124 say '|'
@ l+4,125 say str(n14,10,2)
@ l+4,135 say '|'
@ l+5,000 say '|------------|--|-----|------|---------|------|---------|------|---------|------|---------|------|---------|------|---------|----------|'
@ l+6,000 say '           '
set device to screen
set print off
use
release all
return