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

Text File | 1990-01-03 | 6.3 KB | 159 lines

*┤≥╙í╫╙│╠╨≥:┤≥╙í1.PRG
set talk off
clear
@ 10,20 say '╒²╘┌┤≥╙í'+w1+'▓┐├┼╡─╣ñ╫╩▒φ'
@ 11,26 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
set device to print
set print on
@ 1,100 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º╣ñ╫╩╗π╝╞▒φ'
@ 2,050 say '========================'
@ 5,010 say chr(27)+"I"+"A"+'│╡╝Σ(┐╞╩╥):'+w1+'        ░α╫Θ:'+w2+'              ╦∙╙╨╓╞:'+w3+'╣ñ'+'      '+mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'
@ 006,005 say '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
@ 007,005 say '|    |      |           |          |      |      |       |       |       |       |      |        |      |       |       |       |          |       |       |       |      |       |       |       |      |          |          |          |'
@ 008,005 say '|╘┬╖▌| ▒α║┼ | ╨╒     ├√ | ╗∙▒╛╣ñ╫╩ |┐█╩┬╝┘|┐█▓í╝┘| ┴╕ ▓ε | ╬∩ ╠∙ | ╥╣ ▓═ | ▓╣ ╖ó |▓╣│╡╖╤|╚²╓╓▓╣╠∙|▒ú╜í╖╤| ╟σ ╥√ | ╕í ╢» |       | ╙ª╖ó╜≡╢ε | ╥⌐ ╖╤ | ╖┐ ╫Γ | ═╨ ╖╤ |┐█│╡╖╤| ┤ó ╜≡ | ╡µ ┐ε | ╣· ┐Γ |▒ú╧╒╜≡| ┐█┐ε║╧╝╞ | ╩╡ ╖ó ╩² | Ω▓ ┐ε ╚╦ |'
@ 009,005 say '|====|======|===========|==========|======|======|=======|=======|=======|=======|======|========|======|=======|=======|=======|==========|=======|=======|=======|======|=======|=======|=======|======|==========|==========|==========|'
set talk off
i=8
go top
do while .not. eof()
if ▓┐├┼=w1.and.░α╫Θ=w2.and.╦∙╙╨╓╞=w3
@ i+1,006 say '|====|======|===========|==========|======|======|=======|=======|=======|=======|======|========|'
@ i+1,104 say '======|=======|=======|=======|==========|=======|=======|=======|======|=======|=======|=======|======|==========|==========|==========|'
@ i+2,005 say '|╘┬╖▌| ▒α║┼ | ╨╒     ├√ | ╗∙▒╛╣ñ╫╩ |┐█╩┬╝┘|┐█▓í╝┘| ┴╕ ▓ε | ╬∩ ╠∙ | ╥╣ ▓═ | ▓╣ ╖ó |▓╣│╡╖╤|╚²╓╓▓╣╠∙|'
@ i+2,103 say '▒ú╜í╖╤| ╟σ ╥√ | ╕í ╢» |       | ╙ª╖ó╜≡╢ε | ╥⌐ ╖╤ | ╖┐ ╫Γ | ═╨ ╖╤ |┐█│╡╖╤| ┤ó ╜≡ | ╡µ ┐ε | ╣· ┐Γ |▒ú╧╒╜≡| ┐█┐ε║╧╝╞ | ╩╡ ╖ó ╩² | Ω▓ ┐ε ╚╦ |'
@ i+3,005 say '|    |      |           |          |      |      |       |       |       |       |      |        |'
@ i+3,103 say '      |       |       |       |          |       |       |       |      |       |       |       |      |          |          |          |'
@ i+4,005 say '|'
@ i+4,007 say ╘┬╖▌
@ i+4,010 say '|'
@ i+4,012 say ▒α║┼
@ i+4,017 say '|'
@ i+4,019 say ╨╒├√
@ i+4,029 say '|'
@ i+4,032 say ╗∙▒╛╣ñ╫╩ picture '@z'
@ i+4,040 say '|'
@ i+4,041 say ╩┬╝┘ picture '@z'
@ i+4,047 say '|'
@ i+4,048 say ▓í╝┘ picture '@z'
@ i+4,054 say '|'
@ i+4,056 say ┴╕▓ε picture '@z'
@ i+4,062 say '|'
@ i+4,064 say ╬∩╠∙ picture '@z'
@ i+4,070 say '|'
@ i+4,072 say ╥╣▓═ picture '@z'
@ i+4,078 say '|'
@ i+4,079 say ▓╣╖ó picture '@z'
@ i+4,086 say '|'
@ i+4,087 say ▓╣│╡╖╤ picture '@z'
@ i+4,093 say '|'
@ i+4,095 say ╚²╠∙ picture '@z'
@ i+4,102 say '|'
@ i+4,103 say ▒ú╜í picture '@z'
@ i+4,109 say '|'
@ i+4,110 say ╟σ╥√ picture '@z'
@ i+4,117 say '|'
@ i+4,118 say ╕í╢» picture '@z'
@ i+4,125 say '|'
@ i+4,133 say '|'
@ i+4,136 say ╙ª╖ó╩² picture '@z'
@ i+4,144 say '|'
@ i+4,146 say ╥⌐╖╤ picture '@z'
@ i+4,152 say '|'
@ i+4,154 say ╖┐╫Γ picture '@z'
@ i+4,160 say '|'
@ i+4,162 say ═╨╖╤ picture '@z'
@ i+4,168 say '|'
@ i+4,170 say ┐█│╡╖╤ picture '@z'
@ i+4,175 say '|'
@ i+4,176 say ┤ó╜≡ picture '@z'
@ i+4,183 say '|'
@ i+4,185 say ╡µ┐ε picture '@z'
@ i+4,191 say '|'
@ i+4,192 say ╣·┐Γ picture '@z'
@ i+4,199 say '|'
@ i+4,200 say ▒ú╧╒ picture '@z'
@ i+4,206 say '|'
@ i+4,209 say ╫▄┐█┐ε picture '@z'
@ i+4,217 say '|'
@ i+4,220 say ╩╡╖ó╩²
@ i+4,228 say '|'
@ i+4,239 say '|'
@ i+5,005 say '|====|======|===========|==========|======|======|=======|=======|=======|=======|======|========|'
@ i+5,103 say '======|=======|=======|=======|==========|=======|=======|=======|======|=======|=======|=======|======|==========|==========|==========|'
if i>=16*4
   i=0
endif
i=i+4
endif
skip
enddo
@ i+2,005 say '**************************************************************************************************'
@ i+2,103 say '*****************************************************************************************************************************************'
@ i+3,005 say '|====|==================|==========|======|======|=======|=======|=======|=======|======|========|'
@ i+3,103 say '======|=======|=======|=======|==========|=======|=======|=======|======|=======|=======|=======|======|==========|==========|==========|'
@ i+4,005 say '|    |                  |          |      |      |       |       |       |       |      |        |'
@ i+4,103 say '      |       |       |       |          |       |       |       |      |       |       |       |      |          |          |          |'
@ i+5,005 say '|'
@ i+5,006 say '╨í╝╞'
@ i+5,010 say '|'
@ i+5,012 say '╚╦╩² ='
@ i+5,020 say str(rs,4,0)
@ i+5,029 say '|'
@ i+5,031 say str(h1,8,2)
@ i+5,040 say '|'
@ i+5,041 say str(h2,6,2)
@ i+5,047 say '|'
@ i+5,048 say str(h3,6,2)
@ i+5,054 say '|'
@ i+5,056 say str(h4,6,2)
@ i+5,062 say '|'
@ i+5,064 say str(h5,6,2)
@ i+5,070 say '|'
@ i+5,072 say str(h6,6,2)
@ i+5,078 say '|'
@ i+5,079 say str(h7,6,2)
@ i+5,086 say '|'
@ i+5,087 say str(h8,6,2)
@ i+5,093 say '|'
@ i+5,095 say str(h9,7,2)
@ i+5,102 say '|'
@ i+5,103 say str(h10,6,2)
@ i+5,109 say '|'
@ i+5,110 say str(h11,6,2)
@ i+5,117 say '|'
@ i+5,118 say str(h12,7,2)
@ i+5,125 say '|'
@ i+5,133 say '|'
@ i+5,135 say str(h13,7,2)
@ i+5,144 say '|'
@ i+5,146 say str(h14,6,2)
@ i+5,152 say '|'
@ i+5,154 say str(h15,6,2)
@ i+5,160 say '|'
@ i+5,162 say str(h16,6,2)
@ i+5,168 say '|'
@ i+5,169 say str(h17,6,2)
@ i+5,175 say '|'
@ i+5,176 say str(h18,7,2)
@ i+5,183 say '|'
@ i+5,184 say str(h19,6,2)
@ i+5,191 say '|'
@ i+5,192 say str(h20,7,2)
@ i+5,199 say '|'
@ i+5,200 say str(h21,6,2)
@ i+5,206 say '|'
@ i+5,208 say str(h22,7,2)
@ i+5,217 say '|'
@ i+5,219 say str(h23,7,2)
@ i+5,228 say '|'
@ i+5,239 say '|'
@ i+6,005 say '|====|==================|==========|======|======|=======|=======|=======|=======|======|========|'
@ i+6,103 say '======|=======|=======|=======|==========|=======|=======|=======|======|=======|=======|=======|======|==========|==========|==========|'
@ i+7,005 say '        '
set device to screen
set print off
release all
return