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

Text File | 1990-01-22 | 3.8 KB | 99 lines

*─┌▓┐╫¬╒╩╜Φ╖╜▒φ╫╙│╠╨≥╓«╢■:NBZZJFB2.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:nbzzjf
sum all ▓·│╔╞╖,╙ª╩╒╧·┤√┐ε,╞Σ╦√╙ª╩╒┐ε,╫¿╧ε╣ñ│╠│÷,╫¿╧ε╬∩╫╩,╫¿╧ε╙ª╩╒┐ε,└√╚≤╖╓┼Σ,╣╠╢¿╗∙╜≡,╒█╛╔,╙ª╕╢╣║┤√┐ε,╙ª╕╢╣ñ╫╩,╞Σ╦√╙ª╕╢┐ε,╘ñ╠ß╖╤╙├ to a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25
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 ▓·│╔╞╖ picture '@z'
@ l+1,021 say '|'
@ l+1,022 say ╙ª╩╒╧·┤√┐ε picture '@z'
@ l+1,033 say '|'
@ l+1,034 say ╞Σ╦√╙ª╩╒┐ε picture '@z'
@ l+1,045 say '|'
@ l+1,046 say ╫¿╧ε╣ñ│╠│÷ picture '@z'
@ l+1,057 say '|'
@ l+1,058 say ╫¿╧ε╬∩╫╩ picture '@z'
@ l+1,069 say '|'
@ l+1,070 say ╫¿╧ε╙ª╩╒┐ε picture '@z'
@ l+1,081 say '|'
@ l+1,082 say └√╚≤╖╓┼Σ picture '@z'
@ l+1,093 say '|'
@ l+1,094 say ╣╠╢¿╗∙╜≡ picture '@z'
@ l+1,105 say '|'
@ l+1,106 say ╒█╛╔ picture '@z'
@ l+1,117 say '|'
@ l+1,118 say ╙ª╕╢╣║┤√┐ε picture '@z'
@ l+1,129 say '|'
@ l+1,130 say ╙ª╕╢╣ñ╫╩ picture '@z'
@ l+1,141 say '|'
@ l+1,142 say ╞Σ╦√╙ª╕╢┐ε picture '@z'
@ l+1,153 say '|'
@ l+1,154 say ╘ñ╠ß╖╤╙├ picture '@z'
@ l+1,165 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,010 say str(a13,11,2)
@ l+3,021 say '|'
@ l+3,022 say str(a14,11,2)
@ l+3,033 say '|'
@ l+3,034 say str(a15,11,2)
@ l+3,045 say '|'
@ l+3,046 say str(a16,11,2)
@ l+3,057 say '|'
@ l+3,058 say str(a17,11,2)
@ l+3,069 say '|'
@ l+3,070 say str(a18,11,2)
@ l+3,081 say '|'
@ l+3,082 say str(a19,11,2)
@ l+3,093 say '|'
@ l+3,094 say str(a20,11,2)
@ l+3,105 say '|'
@ l+3,106 say str(a21,11,2)
@ l+3,117 say '|'
@ l+3,118 say str(a22,11,2)
@ l+3,129 say '|'
@ l+3,130 say str(a23,11,2)
@ l+3,141 say '|'
@ l+3,142 say str(a24,11,2)
@ l+3,153 say '|'
@ l+3,154 say str(a25,11,2)
@ l+3,165 say '|'
@ l+4,000 say '|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
@ l+5,001 say '          '
set device to screen
set print off
use
release all
return