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

Text File | 1990-01-22 | 3.7 KB | 98 lines

*─┌▓┐╫¬╒╩╜Φ╖╜▒φ╫╙│╠╨≥╓«╥╗:NBZZJFB1.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 a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12
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+1,139 say ╞≤╥╡╣▄└φ╖╤ picture '@z'
@ l+1,150 say '|'
@ l+1,151 say ┤²╠»╖╤╙├ picture '@z'
@ l+1,162 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(a1,11,2)
@ l+3,030 say '|'
@ l+3,031 say str(a2,11,2)
@ l+3,042 say '|'
@ l+3,043 say str(a3,11,2)
@ l+3,054 say '|'
@ l+3,055 say str(a4,11,2)
@ l+3,066 say '|'
@ l+3,067 say str(a5,11,2)
@ l+3,078 say '|'
@ l+3,079 say str(a6,11,2)
@ l+3,090 say '|'
@ l+3,091 say str(a7,11,2)
@ l+3,102 say '|'
@ l+3,103 say str(a8,11,2)
@ l+3,114 say '|'
@ l+3,115 say str(a9,11,2)
@ l+3,126 say '|'
@ l+3,127 say str(a10,11,2)
@ l+3,138 say '|'
@ l+3,139 say str(a11,11,2)
@ l+3,150 say '|'
@ l+3,151 say str(a12,11,2)
@ l+3,162 say '|'
@ l+4,000 say '|--------|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
@ l+5,001 say '          '
set device to screen
set print off
use
release all
return