Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/┤≥╙I2.PRG

Text File | 1989-01-31 | 6.5 KB | 185 lines

*┤≥╙í╫╙│╠╨≥:┤≥╙í2.PRG
set talk off
clear
use b:zgz
store '╚½├±' to qm
store '╝»╠σ' to jt
store '║╧═¼' to ht
store '▓┐├┼' to bm
store '░α╫Θ' to bz
store '╦∙╙╨╓╞' to syz
mm=0
@ 10,20 say '╒²╘┌┤≥╙í╣ñ╫╩╫▄╗π╝╞▒φ'
@ 11,23 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,19 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
do while mm<=3
mm=mm+1
if mm=1
   store qm to w3
   &abc1 &abc3
   sum all ╚╦╩² to rs for ╦∙╙╨╓╞=w3
endif
if mm=2
   store jt to w3
   &abc1 &abc3
   sum all ╚╦╩² to rs for ╦∙╙╨╓╞=w3
endif
if mm=3
   store ht to w3
   &abc1 &abc3
   sum all ╚╦╩² to rs for ╦∙╙╨╓╞=w3
endif
if mm=4
   store '╚½,║╧' to w3
   &abc1 &abc3
   sum all ╚╦╩² to rs for ╦∙╙╨╓╞=w3
endif
set device to print
set print on
@ 002,100 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º╣ñ╫╩╫▄╗π╝╞▒φ'
@ 003,050 say '=========================='
@ 005,020 say chr(27)+"I"+"A"+'╦∙╙╨╓╞:'
@ 005,030 say w3
@ 005,050 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'
@ 006,003 say '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
@ 007,003 say '|    |            |          |        |        |        |        |        |        |        |        |        |       |       |     |          |        |        |       |        |        |        |        |        |          |          |'
@ 008,003 say '|╘┬╖▌| ▓┐├┼╝░╚╦╩² | ╗∙▒╛╣ñ╫╩ | ┐█╩┬╝┘ | ┐█▓í╝┘ | ┴╕  ▓ε | ╬∩  ╠∙ | ╥╣  ▓═ | ▓╣  ╖ó | ▓╣│╡╖╤ |╚²╓╓▓╣╠∙| ▒ú╜í╖╤ | ╟σ ╥√ | ╕í ╢» |     | ╙ª╖ó╜≡╢ε | ╥⌐  ╖╤ | ╖┐  ╫Γ | ═╨ ╖╤ | ┐█│╡╖╤ | ┤ó  ╜≡ | ╡µ  ┐ε | ╣·  ┐Γ | ▒ú╧╒╜≡ | ┐█┐ε║╧╝╞ | ╩╡ ╖ó ╩² |'
@ 009,003 say '|====|============|==========|========|========|========|========|========|========|========|========|========|=======|=======|=====|==========|========|========|=======|========|========|========|========|========|==========|==========|'
set talk off
l=8
go top
do while .not. eof()
if ╦∙╙╨╓╞=w3
@ l+1,003 say '|====|============|==========|========|========|========|========|========|========|========|========|'
@ l+1,105 say '========|=======|=======|=====|==========|========|========|=======|========|========|========|========|========|==========|==========|'
@ l+2,003 say '|    |            |          |        |        |        |        |        |        |        |        |'
@ l+2,105 say '        |       |       |     |          |        |        |       |        |        |        |        |        |          |          |'
@ l+3,003 say '|'
@ l+3,005 say ╘┬╖▌
@ l+3,008 say '|'
@ l+3,009 say ▓┐├┼
@ l+3,017 say ╚╦╩²
@ l+3,021 say '|'
@ l+3,022 say ╗∙▒╛╣ñ╫╩ picture '@z'
@ l+3,032 say '|'
@ l+3,033 say ╩┬╝┘ picture '@z'
@ l+3,041 say '|'
@ l+3,042 say ▓í╝┘ picture '@z'
@ l+3,050 say '|'
@ l+3,051 say ┴╕▓ε picture '@z'
@ l+3,059 say '|'
@ l+3,060 say ╬∩╠∙ picture '@z'
@ l+3,068 say '|'
@ l+3,069 say ╥╣▓═ picture '@z'
@ l+3,077 say '|'
@ l+3,078 say ▓╣╖ó picture '@z'
@ l+3,086 say '|'
@ l+3,087 say ▓╣│╡╖╤ picture '@z'
@ l+3,095 say '|'
@ l+3,096 say ╚²╠∙ picture '@z'
@ l+3,104 say '|'
@ l+3,105 say ▒ú╜í picture '@z'
@ l+3,113 say '|'
@ l+3,114 say ╟σ╥√ picture '@z'
@ l+3,121 say '|'
@ l+3,122 say ╕í╢» picture '@z'
@ l+3,129 say '|'
@ l+3,135 say '|'
@ l+3,136 say ╙ª╖ó╩² picture '@z'
@ l+3,146 say '|'
@ l+3,147 say ╥⌐╖╤ picture '@z'
@ l+3,155 say '|'
@ l+3,156 say ╖┐╫Γ picture '@z'
@ l+3,164 say '|'
@ l+3,165 say ═╨╖╤ picture '@z'
@ l+3,172 say '|'
@ l+3,173 say ┐█│╡╖╤ picture '@z'
@ l+3,181 say '|'
@ l+3,182 say ┤ó╜≡ picture '@z'
@ l+3,190 say '|'
@ l+3,191 say ╡µ┐ε picture '@z'
@ l+3,199 say '|'
@ l+3,200 say ╣·┐Γ picture '@z'
@ l+3,208 say '|'
@ l+3,209 say ▒ú╧╒ picture '@z'
@ l+3,217 say '|'
@ l+3,218 say ╫▄┐█┐ε picture '@z'
@ l+3,228 say '|'
@ l+3,229 say ╩╡╖ó╩² picture '@z'
@ l+3,239 say '|'
@ l+4,003 say '|====|============|==========|========|========|========|========|========|========|========|========|'
@ l+4,105 say '========|=======|=======|=====|==========|========|========|=======|========|========|========|========|========|==========|==========|'
l=l+4
endif
skip
enddo
@ l+2,003 say '******************************************************************************************************'
@ l+2,105 say '***************************************************************************************************************************************'
@ l+3,003 say '|====|============|==========|========|========|========|========|========|========|========|========|'
@ l+3,105 say '========|=======|=======|=====|==========|========|========|=======|========|========|========|========|========|==========|==========|'
@ l+4,003 say '|    |            |          |        |        |        |        |        |        |        |        |'
@ l+4,105 say '        |       |       |     |          |        |        |       |        |        |        |        |        |          |          |'
@ l+5,003 say '|'
@ l+5,004 say '╫▄╝╞'
@ l+5,008 say '|'
@ l+5,010 say str(rs,4,0)
@ l+5,015 say '(╚╦)'
@ l+5,021 say '|'
@ l+5,022 say str(h1,9,2)
@ l+5,032 say '|'
@ l+5,033 say str(h2,8,2)
@ l+5,041 say '|'
@ l+5,042 say str(h3,8,2)
@ l+5,050 say '|'
@ l+5,051 say str(h4,8,2)
@ l+5,059 say '|'
@ l+5,060 say str(h5,8,2)
@ l+5,068 say '|'
@ l+5,069 say str(h6,8,2)
@ l+5,077 say '|'
@ l+5,078 say str(h7,8,2)
@ l+5,086 say '|'
@ l+5,087 say str(h8,8,2)
@ l+5,095 say '|'
@ l+5,096 say str(h9,8,2)
@ l+5,104 say '|'
@ l+5,105 say str(h10,8,2)
@ l+5,113 say '|'
@ l+5,114 say str(h11,7,2)
@ l+5,121 say '|'
@ l+5,122 say str(h12,7,2)
@ l+5,129 say '|'
@ l+5,135 say '|'
@ l+5,136 say str(h13,9,2)
@ l+5,146 say '|'
@ l+5,147 say str(h14,8,2)
@ l+5,155 say '|'
@ l+5,156 say str(h15,8,2)
@ l+5,164 say '|'
@ l+5,165 say str(h16,7,2)
@ l+5,172 say '|'
@ l+5,173 say str(h17,8,2)
@ l+5,181 say '|'
@ l+5,182 say str(h18,8,2)
@ l+5,190 say '|'
@ l+5,191 say str(h19,8,2)
@ l+5,199 say '|'
@ l+5,200 say str(h20,8,2)
@ l+5,208 say '|'
@ l+5,209 say str(h21,8,2)
@ l+5,217 say '|'
@ l+5,219 say str(h22,9,2)
@ l+5,228 say '|'
@ l+5,229 say str(h23,9,2)
@ l+5,239 say '|'
@ l+6,003 say '|====|============|==========|========|========|========|========|========|========|========|========|'
@ l+6,105 say '========|=======|=======|=====|==========|========|========|=======|========|========|========|========|========|==========|==========|'
enddo
@ l+7,003 say '           '
set device to screen
set print off
use
release all
return