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

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

*─┌▓┐╫¬╒╩┤√╖╜▒φ╫╙│╠╨≥╓«╚²:NBZZDFB3.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 a21,a22,a23,a24,a25,a26,a27,a28,a29,a30
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(a21,11,2)
@ l+3,030 say '|'
@ l+3,031 say str(a22,11,2)
@ l+3,042 say '|'
@ l+3,043 say str(a23,11,2)
@ l+3,054 say '|'
@ l+3,055 say str(a24,11,2)
@ l+3,066 say '|'
@ l+3,067 say str(a25,11,2)
@ l+3,078 say '|'
@ l+3,079 say str(a26,11,2)
@ l+3,090 say '|'
@ l+3,091 say str(a27,11,2)
@ l+3,102 say '|'
@ l+3,103 say str(a28,11,2)
@ l+3,114 say '|'
@ l+3,115 say str(a29,11,2)
@ l+3,126 say '|'
@ l+3,127 say str(a30,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