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

Text File | 1990-01-22 | 3.3 KB | 90 lines

*─┌▓┐╫¬╒╩┤√╖╜▒φ╫╙│╠╨≥╓«╢■:NBZZDFB2.PRG
set talk off
clear
n=0
y=0
@ 10,20 say '╒²╘┌┤≥╙í─┌▓┐╫¬╒╩┤√╖╜▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
set device to print
set print on
use a:nbzzdf
sum all ╞≤╥╡╣▄└φ╖╤,┤²╠»╖╤╙├,▓·│╔╞╖,╙ª╩╒╧·┤√┐ε,╞Σ╦√╙ª╩╒┐ε,╫¿╧ε╣ñ│╠│÷,╫¿╧ε╬∩╫╩,╫¿╧ε╙ª╩╒┐ε,└√╚≤╖╓┼Σ,╣╠╢¿╗∙╜≡ to a11,a12,a13,a14,a15,a16,a17,a18,a19,a20
go top
do while .not. eof()
y=y+1
@ 002,065 say '╣π╓▌╫╘╨╨│╡╢■│º─┌▓┐╫¬╒╩┤√╖╜▒φ(╓«╢■)'
@ 003,065 say '=================================='
@ 005,010 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'+'    ╡┌'+str(y,2,0)+'╥│'
@ 006,000 say '-------------------------------------------------------------------------------------------------------------------------------------------'
@ 007,000 say '|        |        |           |           |           |           |           |  ╫¿╧ε╣ñ   |           |           |           |           |'
@ 008,000 say '| ╚╒  ╞┌ |╞╛╓ñ▒α║┼| ╞≤╥╡╣▄└φ╖╤| ┤²╠»╖╤╙├  |   ▓·│╔╞╖  | ╙ª╩╒╧·┤√┐ε| ╞Σ╦√╙ª╩╒┐ε|           |  ╫¿╧ε╬∩╫╩ | ╫¿╧ε╙ª╩╒┐ε|  └√╚≤╖╓┼Σ |  ╣╠╢¿╗∙╜≡ |'
@ 009,000 say '|        |        |           |           |           |           |           |  │╠╓º│÷   |           |           |           |           |'
@ 010,000 say '|--------|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
l=10
do while (l<=45).and.(.not. eof())
n=n+1
@ l+1,000 say '|'
@ l+1,001 say ╚╒╞┌
@ l+1,009 say '|'
@ l+1,010 say ▒α║┼
@ l+1,018 say '|'
@ l+1,019 say ╞≤╥╡╣▄└φ╖╤ picture '@z'
@ l+1,030 say '|'
@ l+1,031 say ┤²╠»╖╤╙├ picture '@z'
@ l+1,042 say '|'
@ l+1,043 say ▓·│╔╞╖ picture '@z'
@ l+1,054 say '|'
@ l+1,055 say ╙ª╩╒╧·┤√┐ε picture '@z'
@ l+1,066 say '|'
@ l+1,067 say ╞Σ╦√╙ª╩╒┐ε picture '@z'
@ l+1,078 say '|'
@ l+1,079 say ╫¿╧ε╣ñ│╠│÷ picture '@z'
@ l+1,090 say '|'
@ l+1,091 say ╫¿╧ε╬∩╫╩ picture '@z'
@ l+1,102 say '|'
@ l+1,103 say ╫¿╧ε╙ª╩╒┐ε picture '@z'
@ l+1,114 say '|'
@ l+1,115 say └√╚≤╖╓┼Σ picture '@z'
@ l+1,126 say '|'
@ l+1,127 say ╣╠╢¿╗∙╜≡ picture '@z'
@ l+1,138 say '|'
@ l+2,000 say '|--------|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
l=l+2
skip
enddo
@ l+1,000 say '*******************************************************************************************************************************************'
@ l+2,000 say '|--------|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
@ l+3,000 say '|'
@ l+3,009 say '|'
@ l+3,018 say '|'
@ l+3,019 say str(a11,11,2)
@ l+3,030 say '|'
@ l+3,031 say str(a12,11,2)
@ l+3,042 say '|'
@ l+3,043 say str(a13,11,2)
@ l+3,054 say '|'
@ l+3,055 say str(a14,11,2)
@ l+3,066 say '|'
@ l+3,067 say str(a15,11,2)
@ l+3,078 say '|'
@ l+3,079 say str(a16,11,2)
@ l+3,090 say '|'
@ l+3,091 say str(a17,11,2)
@ l+3,102 say '|'
@ l+3,103 say str(a18,11,2)
@ l+3,114 say '|'
@ l+3,115 say str(a19,11,2)
@ l+3,126 say '|'
@ l+3,127 say str(a20,11,2)
@ l+3,138 say '|'
@ l+4,000 say '|--------|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
@ l+5,001 say '          '
set device to screen
set print off
use
release all
return