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

Text File | 1989-03-30 | 4.0 KB | 107 lines

*┤≥╙í╫╙│╠╨≥:┤≥╙í5.PRG
set talk off
clear
@ 10,20 say '╒²╘┌┤≥╙í═╦╨▌╚╦╘▒╣ñ╫╩▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:Puase┐╔╘▌═ú┤≥╙í)'
set device to print
set print on
@ 1,050 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º╣ñ╫╩╗π╝╞▒φ'
@ 2,025 say '========================'
@ 5,005 say chr(27)+"I"+"A"+'│╡╝Σ(┐╞╩╥):'+w1+'              ╦∙╙╨╓╞:'+w3+'╣ñ'+'      '+mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'
@ 006,001 say '--------------------------------------------------------------------------------------------------------------------------------------------'
@ 007,001 say '|    |      |           |          |        |        |        |        |          |       |       |       |          |          |          |'
@ 008,001 say '|╘┬╖▌| ▒α║┼ | ╨╒     ├√ | ╗∙▒╛╣ñ╫╩ | ┴╕  ▓ε | ╬∩  ╠∙ | ▓╣  ╖ó |╔·╗ε▓╣╠∙| ╙ª╖ó╜≡╢ε | ╥⌐ ╖╤ | ╖┐ ╫Γ | ╡µ ┐ε | ┐█┐ε║╧╝╞ | ╩╡ ╖ó ╩² | Ω▓ ┐ε ╚╦ |'
@ 009,001 say '|====|======|===========|==========|========|========|========|========|==========|=======|=======|=======|==========|==========|==========|'
set talk off
i=8
go top
do while .not. eof()
if ▓┐├┼=w1.and.╦∙╙╨╓╞=w3
if i<>4
@ i+1,101 say '|====|======|===========|==========|========|========|========|========|==========|=======|=======|=======|==========|==========|==========|'
endif
if i=4
@ i+1,001 say '|====|======|===========|==========|========|========|========|========|==========|=======|=======|=======|==========|==========|==========|'
endif
@ i+2,001 say '|╘┬╖▌| ▒α║┼ | ╨╒     ├√ | ╗∙▒╛╣ñ╫╩ | ┴╕  ▓ε | ╬∩  ╠∙ | ▓╣  ╖ó |╔·╗ε▓╣╠∙| ╙ª╖ó╜≡╢ε | ╥⌐ ╖╤ | ╖┐ ╫Γ | ╡µ ┐ε | ┐█┐ε║╧╝╞ | ╩╡ ╖ó ╩² | Ω▓ ┐ε ╚╦ |'
@ i+3,001 say '|    |      |           |          |        |        |        |        |          |       |       |       |          |          |          |'
@ i+4,001 say '|'
@ i+4,003 say ╘┬╖▌
@ i+4,006 say '|'
@ i+4,008 say ▒α║┼
@ i+4,013 say '|'
@ i+4,015 say ╨╒├√
@ i+4,025 say '|'
@ i+4,028 say ╗∙▒╛╣ñ╫╩ picture '@z'
@ i+4,036 say '|'
@ i+4,039 say ┴╕▓ε picture '@z'
@ i+4,045 say '|'
@ i+4,048 say ╬∩╠∙ picture '@z'
@ i+4,054 say '|'
@ i+4,057 say ▓╣╖ó picture '@z'
@ i+4,063 say '|'
@ i+4,066 say ╚²╠∙ picture '@z'
@ i+4,072 say '|'
@ i+4,075 say ╙ª╖ó╩² picture '@z'
@ i+4,083 say '|'
@ i+4,085 say ╥⌐╖╤ picture '@z'
@ i+4,091 say '|'
@ i+4,093 say ╖┐╫Γ picture '@z'
@ i+4,099 say '|'
@ i+4,101 say ╡µ┐ε picture '@z'
@ i+4,107 say '|'
@ i+4,110 say ╫▄┐█┐ε picture '@z'
@ i+4,118 say '|'
@ i+4,121 say ╩╡╖ó╩²
@ i+4,129 say '|'
@ i+4,140 say '|'
@ i+5,001 say '|====|======|===========|==========|========|========|========|========|==========|=======|=======|=======|==========|==========|==========|'
if i>=16*4
   i=0
endif
i=i+4
endif
skip
enddo
@ i+2,001 say '********************************************************************************************************************************************'
@ i+3,001 say '|====|==================|==========|========|========|========|========|==========|=======|=======|=======|==========|==========|==========|'
@ i+4,001 say '|    |                  |          |        |        |        |        |          |       |       |       |          |          |          |'
@ i+5,001 say '|'
@ i+5,002 say '╨í╝╞'
@ i+5,006 say '|'
@ i+5,008 say '╚╦╩² ='
@ i+5,016 say str(rs,4,0)
@ i+5,025 say '|'
@ i+5,027 say str(h1,8,2)
@ i+5,036 say '|'
@ i+5,037 say str(h4,7,2)
@ i+5,045 say '|'
@ i+5,046 say str(h5,7,2)
@ i+5,054 say '|'
@ i+5,055 say str(h7,8,2)
@ i+5,063 say '|'
@ i+5,065 say str(h9,7,2)
@ i+5,072 say '|'
@ i+5,074 say str(h12,8,2)
@ i+5,083 say '|'
@ i+5,085 say str(h13,6,2)
@ i+5,091 say '|'
@ i+5,093 say str(h14,6,2)
@ i+5,099 say '|'
@ i+5,100 say str(h18,7,2)
@ i+5,107 say '|'
@ i+5,109 say str(h21,8,2)
@ i+5,118 say '|'
@ i+5,120 say str(h22,8,2)
@ i+5,129 say '|'
@ i+5,140 say '|'
@ i+6,001 say '|====|==================|==========|========|========|========|========|==========|=======|=======|=======|==========|==========|==========|'
@ i+7,001 say '        '
set device to screen
set print off
release all
return