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

Text File | 1991-08-20 | 7.5 KB | 156 lines

*░δ│╔╞╖╢¿╢ε╝╞╦π▒φ╫╙│╠╨≥:BCBDEB1.PRG
set talk off
clear
@ 10,20 say '╒²╘┌┤≥╙í░δ│╔╞╖╢¿╢ε╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use &qbl13
sum all HG╓╪┴┐,HG╜≡╢ε,DG╓╪┴┐,DG╜≡╢ε,╕¿┴╧╜≡╢ε,╢»┴ª╜≡╢ε,╣ñ╫╩╜≡╢ε to n1,n2,n3,n4,n5,n6,n7
if w3='╨┬▓·╞╖'
sum all ╞ß┴╧╜≡╢ε,═Γ╣║╝■╜≡╢ε,CLCY╜≡╢ε,╚╝┴╧╜≡╢ε to n8,n9,n10,n11
endif
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+'╚╒╓╞'+'          ╓╪┴┐╡Ñ╬╗:╣½╜∩       ╜≡╢ε╡Ñ╬╗:╘¬'+'      ╡┌ 1 ╥│'
if w3='╨┬▓·╞╖'
   @ 06,000 say '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
   @ 07,000 say '|\     \  ╧ε |  |     |        ║╕              ╣▄         |        ┤°              ╕╓         |                |                |                |                |                |                 |                |'
   @ 08,000 say '|  \ ╢¿  \ ─┐|╡Ñ|     |-----------------------------------|-----------------------------------|   ╕¿       ┴╧  |   ╢»       ┴ª  |   ╣ñ       ╫╩  |   ╞ß       ┴╧  |   ═Γ  ╣║  ╝■   |  ▓─ ┴╧ ▓ε ╥∞    |   ╚╝      ┴╧   |'
   @ 09,000 say '|▓·  \  ╢ε \ |  |▓· ┴┐| ╢¿    ╢ε    ┴┐  |  ╢¿  ╢ε  │╔  ▒╛ | ╢¿    ╢ε    ┴┐  |  ╢¿  ╢ε  │╔  ▒╛ |                |                |                |                |                |                 |                |'
   @ 10,000 say '|╞╖    \     |╬╗|     |-----------------|-----------------|-----------------|-----------------|----------------|----------------|----------------|----------------|----------------|-----------------|----------------|'
   @ 11,000 say '|├√│╞    \   |  |     |╢¿  ╢ε| ╓╪    ┴┐ |╢¿  ╢ε| ╜≡    ╢ε |╢¿  ╢ε| ╓╪    ┴┐ |╢¿  ╢ε| ╜≡    ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿   ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |'
   @ 12,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|------|---------|------|---------|-------|---------|------|---------|'
   else
   @ 06,000 say '--------------------------------------------------------------------------------------------------------------------------------------------------'
   @ 07,000 say '|\     \  ╧ε |  |     |        ║╕              ╣▄         |        ┤°              ╕╓         |                |                |                |'
   @ 08,000 say '|  \ ╢¿  \ ─┐|╡Ñ|     |-----------------------------------|-----------------------------------|   ╕¿       ┴╧  |   ╢»       ┴ª  |   ╣ñ       ╫╩  |'
   @ 09,000 say '|▓·  \  ╢ε \ |  |▓· ┴┐| ╢¿    ╢ε    ┴┐  |  ╢¿  ╢ε  │╔  ▒╛ | ╢¿    ╢ε    ┴┐  |  ╢¿  ╢ε  │╔  ▒╛ |                |                |                |'
   @ 10,000 say '|╞╖    \     |╬╗|     |-----------------|-----------------|-----------------|-----------------|----------------|----------------|----------------|'
   @ 11,000 say '|├√│╞    \   |  |     |╢¿  ╢ε| ╓╪    ┴┐ |╢¿  ╢ε| ╜≡    ╢ε |╢¿  ╢ε| ╓╪    ┴┐ |╢¿  ╢ε| ╜≡    ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |╢¿  ╢ε| ╜≡   ╢ε |'
   @ 12,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|'
endif
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 HG┴┐╢¿╢ε picture '@z'
@ l+1,029 say '|'
@ l+1,030 say HG╓╪┴┐ picture '@z'
@ l+1,040 say '|'
@ l+1,041 say HG│╔▒╛╢¿╢ε picture '@z'
@ l+1,047 say '|'
@ l+1,048 say HG╜≡╢ε picture '@z'
@ l+1,058 say '|'
@ l+1,059 say DG┴┐╢¿╢ε picture '@z'
@ l+1,065 say '|'
@ l+1,066 say DG╓╪┴┐ picture '@z'
@ l+1,076 say '|'
@ l+1,077 say DG│╔▒╛╢¿╢ε picture '@z'
@ l+1,083 say '|'
@ l+1,084 say DG╜≡╢ε picture '@z'
@ l+1,094 say '|'
@ l+1,095 say ╕¿┴╧╢¿╢ε picture '@z'
@ l+1,101 say '|'
@ l+1,102 say ╕¿┴╧╜≡╢ε picture '@z'
@ l+1,111 say '|'
@ l+1,112 say ╢»┴ª╢¿╢ε picture '@z'
@ l+1,118 say '|'
@ l+1,119 say ╢»┴ª╜≡╢ε picture '@z'
@ l+1,128 say '|'
@ l+1,129 say ╣ñ╫╩╢¿╢ε picture '@z'
@ l+1,135 say '|'
@ l+1,136 say ╣ñ╫╩╜≡╢ε picture '@z'
@ l+1,145 say '|'
if w3='╨┬▓·╞╖'
   @ l+1,146 say ╞ß┴╧╢¿╢ε picture '@z'
   @ l+1,152 say '|'
   @ l+1,153 say ╞ß┴╧╜≡╢ε picture '@z'
   @ l+1,162 say '|'
   @ l+1,163 say ═Γ╣║╝■╢¿╢ε picture '@z'
   @ l+1,169 say '|'
   @ l+1,170 say ═Γ╣║╝■╜≡╢ε picture '@z'
   @ l+1,179 say '|'
   @ l+1,180 say CLCY╢¿╢ε picture '@z'
   @ l+1,187 say '|'
   @ l+1,188 say CLCY╜≡╢ε picture '@z'
   @ l+1,197 say '|'
   @ l+1,198 say ╚╝┴╧╢¿╢ε picture '@z'
   @ l+1,204 say '|'
   @ l+1,205 say ╚╝┴╧╜≡╢ε picture '@z'
   @ l+1,214 say '|'
   @ l+2,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|------|---------|------|---------|-------|---------|------|---------|'
   else
   @ l+2,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|'
endif
l=l+2
skip
enddo
if w3='╨┬▓·╞╖'
   @ l+2,000 say '***********************************************************************************************************************************************************************************************************************'
   @ l+3,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|------|---------|------|---------|-------|---------|------|---------|'
   else
   @ l+2,000 say '**************************************************************************************************************************************************'
   @ l+3,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|'
endif
@ 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(n1,10,2)
@ l+4,040 say '|'
@ l+4,047 say '|'
@ l+4,048 say str(n2,10,2)
@ l+4,058 say '|'
@ l+4,065 say '|'
@ l+4,066 say str(n3,10,2)
@ l+4,076 say '|'
@ l+4,083 say '|'
@ l+4,084 say str(n4,10,2)
@ l+4,094 say '|'
@ l+4,101 say '|'
@ l+4,102 say str(n5,9,2)
@ l+4,111 say '|'
@ l+4,118 say '|'
@ l+4,119 say str(n6,9,2)
@ l+4,128 say '|'
@ l+4,135 say '|'
@ l+4,136 say str(n7,9,2)
@ l+4,145 say '|'
if w3='╨┬▓·╞╖'
   @ l+4,152 say '|'
   @ l+4,153 say str(n8,9,2)
   @ l+4,162 say '|'
   @ l+4,169 say '|'
   @ l+4,170 say str(n9,9,2)
   @ l+4,179 say '|'
   @ l+4,187 say '|'
   @ l+4,188 say str(n10,9,2)
   @ l+4,197 say '|'
   @ l+4,204 say '|'
   @ l+4,205 say str(n11,9,2)
   @ l+4,214 say '|'
   @ l+5,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|------|---------|------|---------|-------|---------|------|---------|'
   else
   @ l+5,000 say '|------------|--|-----|------|----------|------|----------|------|----------|------|----------|------|---------|------|---------|------|---------|'
endif
@ l+6,000 say '           '
set device to screen
set print off
use
release all
return