sum all ╕ú└√╗∙╜≡,╜¿╔Φ╗∙╜≡,─┌▓┐═∙└┤,╣ñ╫╩╗∙╜≡,╫¿╧ε╙ª╕╢,╜╗╒█╛╔╗∙╜≡,╙ª┐█╦░╜≡,╫¿╙├╜Φ┐ε,┴≈╢»╗∙╜≡,╫¿╧ε╡≈╜┌╜≡,╜╠╙²╕╜╝╙ to a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41
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 '-------------------------------------------------------------------------------------------------------------------------------------------------------'
@ 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+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(a31,11,2)
@ l+3,030 say '|'
@ l+3,031 say str(a32,11,2)
@ l+3,042 say '|'
@ l+3,043 say str(a33,11,2)
@ l+3,054 say '|'
@ l+3,055 say str(a34,11,2)
@ l+3,066 say '|'
@ l+3,067 say str(a35,11,2)
@ l+3,078 say '|'
@ l+3,079 say str(a36,11,2)
@ l+3,090 say '|'
@ l+3,091 say str(a37,11,2)
@ l+3,102 say '|'
@ l+3,103 say str(a38,11,2)
@ l+3,114 say '|'
@ l+3,115 say str(a39,11,2)
@ l+3,126 say '|'
@ l+3,127 say str(a40,11,2)
@ l+3,138 say '|'
@ l+3,139 say str(a41,11,2)
@ l+3,150 say '|'
@ l+4,000 say '|--------|--------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|-----------|'
