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

Text File | 1989-01-13 | 3.5 KB | 102 lines

*┤≥╙í╫╙│╠╨≥:┤≥╙í4.PRG
set talk off
clear
@ 10,20 say '╒²╘┌┤≥╙í╕≈▓┐├┼╚╦├±▒╥╞▒╢ε╒┼╩²▒φ'
@ 11,28 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,23 say '(╫ó:░┤Puase╜í┐╔╘▌═ú┤≥╙í)'
use b:pes
sum all ╩░╘¬,╬Θ╘¬,╖í╘¬,╥╝╘¬,╬Θ╜╟,╖í╜╟,╥╝╜╟,╬Θ╖╓,╖í╖╓,╥╝╖╓,╩╡╖ó╩² to sy,wy,ey,yy,wj,ej,yj,wf,ef,yf,zsfs
set device to print
set print on
@ 002,078 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º╕≈▓┐├┼╚╦├±▒╥╞▒╢ε╒┼╩²▒φ'
@ 003,039 say '===================================='
@ 005,030 say chr(27)+"I"+"A"+'╡Ñ╬╗:(╒┼)'+'      '+mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'
@ 006,050 say '-----------------------------------------------------------------------------------------------------------------------------'
@ 007,050 say '|    |        |        |        |        |        |        |        |        |        |        |        |        |          |'
@ 008,050 say '|╘┬╖▌| ▓┐  ├┼ | ░α  ╫Θ | ╩░  ╘¬ | ╬Θ  ╘¬ | ╖í  ╘¬ | ╥╝  ╘¬ | ╬Θ  ╜╟ | ╖í  ╜╟ | ╥╝  ╜╟ | ╬Θ  ╖╓ | ╖í  ╖╓ | ╥╝  ╖╓ | ╫▄╩╡╖ó╩² |'
@ 009,050 say '|====|========|========|========|========|========|========|========|========|========|========|========|========|==========|'
set talk off
l=8
n=0
go top
do while .not. eof()
n=n+1
if n=1
@ l+1,116 say '|    |        |        |        |        |        |        |        |        |        |        |        |        |          |'
endif
if n>1
@ l+1,050 say '|    |        |        |        |        |        |        |        |        |        |        |        |        |          |'
endif
@ l+2,050 say '|'
@ l+2,052 say ╘┬╖▌
@ l+2,055 say '|'
@ l+2,056 say ▓┐├┼
@ l+2,064 say '|'
@ l+2,065 say ░α╫Θ
@ l+2,073 say '|'
@ l+2,075 say ʰԪ picture '@z'
@ l+2,082 say '|'
@ l+2,084 say ╬Θ╘¬ picture '@z'
@ l+2,091 say '|'
@ l+2,093 say ╖í╘¬ picture '@z'
@ l+2,100 say '|'
@ l+2,102 say ҼԪ picture '@z'
@ l+2,109 say '|'
@ l+2,111 say ╬Θ╜╟ picture '@z'
@ l+2,118 say '|'
@ l+2,120 say ╖í╜╟ picture '@z'
@ l+2,127 say '|'
@ l+2,129 say ╥╝╜╟ picture '@z'
@ l+2,136 say '|'
@ l+2,138 say ╬Θ╖╓ picture '@z'
@ l+2,145 say '|'
@ l+2,147 say ╖í╖╓ picture '@z'
@ l+2,154 say '|'
@ l+2,156 say ╥╝╖╓ picture '@z'
@ l+2,163 say '|'
@ l+2,165 say ╩╡╖ó╩² picture '@z'
@ l+2,174 say '|'
@ l+3,050 say '|====|========|========|========|========|========|========|========|========|========|========|========|========|==========|'
l=l+3
skip
enddo
@ l+2,050 say '*****************************************************************************************************************************'
@ l+3,050 say '|====|========|========|========|========|========|========|========|========|========|========|========|========|==========|'
@ l+4,050 say '|    |        |        |        |        |        |        |        |        |        |        |        |        |          |'
@ l+5,050 say '|'
@ l+5,051 say '╫▄╝╞'
@ l+5,055 say '|'
@ l+5,064 say '|'
@ l+5,073 say '|'
@ l+5,075 say str(sy,6,0)
@ l+5,082 say '|'
@ l+5,084 say str(wy,6,0)
@ l+5,091 say '|'
@ l+5,093 say str(ey,6,0)
@ l+5,100 say '|'
@ l+5,102 say str(yy,6,0)
@ l+5,109 say '|'
@ l+5,111 say str(wj,6,0)
@ l+5,118 say '|'
@ l+5,120 say str(ej,6,0)
@ l+5,127 say '|'
@ l+5,129 say str(yj,6,0)
@ l+5,136 say '|'
@ l+5,138 say str(wf,6,0)
@ l+5,145 say '|'
@ l+5,147 say str(ef,6,0)
@ l+5,154 say '|'
@ l+5,156 say str(yf,6,0)
@ l+5,163 say '|'
@ l+5,165 say str(zsfs,9,2)
@ l+5,174 say '|'
@ l+6,050 say '|====|========|========|========|========|========|========|========|========|========|========|========|========|==========|'
@ l+7,003 say '         '
set device to screen
set print off
use
release all
return