Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/SCFPB.PRG

Text File | 1990-02-28 | 4.5 KB | 129 lines

*╗∙▒╛╔·▓·╖╓┼Σ▒φ╫╙│╠╨≥:SCFPB.PRG
set talk off
clear
@ 10,20 say '╒²╘┌┤≥╙í╗∙▒╛╔·▓·╖╓┼Σ▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use &qbl3
go 1
sum next 1 HG┴┐,HG│╔▒╛,DG┴┐,DG│╔▒╛,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤ to n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16
go 2
store ╣ñ╩▒ to gs
use &qbl4
set device to print
set print on
@ 002,100 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º╗∙▒╛╔·▓·╖╓┼Σ▒φ'
@ 003,050 say '============================'
@ 005,020 say chr(27)+"I"+"A"+'▓┐├┼:'+w3
@ 005,050 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'
@ 06,3 say '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
@ 07,3 say '|                |    ║╕          ╣▄   |    ┤°          ╕╓   |          |          |          |          |          |          |          |          |          |          |          |          |          |          |          |'
@ 08,3 say '|  ╧ε        ─┐  |---------------------|---------------------| ╞ß    ┴╧ | ╕¿    ┴╧ | ═Γ ╣║ ╝■ | ╝╙ ╣ñ ╖╤ | ┤≥ ░ⁿ ╖╤ | ▓─┴╧▓ε╥∞ | ╚╝    ┴╧ | ╢»    ┴ª | ╣ñ    ╫╩ | ╕ú └√ ╖╤ | │╡╝Σ╛¡╖╤ | ╖╧╞╖╦≡╩º | ╣▄ └φ ╖╤ | ╖╤╙├▓ε╥∞ | ║╧    ╝╞ |'
@ 09,3 say '|                | ╓╪    ┴┐ | ╜≡    ╢ε | ╓╪    ┴┐ | ╜≡    ╢ε |          |          |          |          |          |          |          |          |          |          |          |          |          |          |          |'
@ 10,3 say '|----------------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|'
set talk off
l=10
n=0
go top
do while .not. eof()
n=n+1
@ l+1,003 say '|'
if n<>9.and.n<>10
@ l+1,005 say ╧ε─┐
endif
if n=9
@ l+1,004 say '╣ñ╩▒'+str(gs,6,0)+'╖╓╛╗╓╡'
endif
if n=10
@ l+1,004 say '            ▓╨╓╡'
endif
@ l+1,020 say '|'
@ l+1,021 say HG╓╪┴┐ picture '@z'
@ l+1,031 say '|'
@ l+1,032 say HG╜≡╢ε picture '@z'
@ l+1,042 say '|'
@ l+1,043 say DG╓╪┴┐ picture '@z'
@ l+1,053 say '|'
@ l+1,054 say DG╜≡╢ε picture '@z'
@ l+1,064 say '|'
@ l+1,065 say ╞ß┴╧ picture '@z'
@ l+1,075 say '|'
@ l+1,076 say ╕¿┴╧ picture '@z'
@ l+1,086 say '|'
@ l+1,087 say ═Γ╣║╝■ picture '@z'
@ l+1,097 say '|'
@ l+1,098 say ╝╙╣ñ╖╤ picture '@z'
@ l+1,108 say '|'
@ l+1,109 say ┤≥░ⁿ╖╤ picture '@z'
@ l+1,119 say '|'
@ l+1,120 say ▓─┴╧▓ε╥∞ picture '@z'
@ l+1,130 say '|'
@ l+1,131 say ╚╝┴╧ picture '@z'
@ l+1,141 say '|'
@ l+1,142 say ╢»┴ª picture '@z'
@ l+1,152 say '|'
@ l+1,153 say ╣ñ╫╩ picture '@z'
@ l+1,163 say '|'
@ l+1,164 say ╕ú└√╖╤ picture '@z'
@ l+1,174 say '|'
@ l+1,175 say │╡╝Σ╛¡╖╤ picture '@z'
@ l+1,185 say '|'
@ l+1,186 say ╖╧╞╖ picture '@z'
@ l+1,196 say '|'
@ l+1,197 say ╣▄└φ╖╤ picture '@z'
@ l+1,207 say '|'
@ l+1,208 say ╖╤╙├▓ε╥∞ picture '@z'
@ l+1,218 say '|'
@ l+1,219 say ║╧╝╞ picture '@Z'
@ l+1,229 say '|'
@ l+2,003 say '|----------------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|'
l=l+2
skip
enddo
@ l+1,003 say '|'
@ l+1,005 say '╔╧╘┬╖╓┼Σ┬╩'
@ l+1,020 say '|'
@ l+1,021 say str(n1,10,8)
@ l+1,031 say '|'
@ l+1,032 say str(n2,10,8)
@ l+1,042 say '|'
@ l+1,043 say str(n3,10,8)
@ l+1,053 say '|'
@ l+1,054 say str(n4,10,8)
@ l+1,064 say '|'
@ l+1,065 say str(n5,10,8)
@ l+1,075 say '|'
@ l+1,076 say str(n6,10,8)
@ l+1,086 say '|'
@ l+1,087 say str(n7,10,8)
@ l+1,097 say '|'
@ l+1,098 say str(n8,10,8)
@ l+1,108 say '|'
@ l+1,109 say str(n9,10,8)
@ l+1,119 say '|'
@ l+1,130 say '|'
@ l+1,131 say str(n10,10,8)
@ l+1,141 say '|'
@ l+1,142 say str(n11,10,8)
@ l+1,152 say '|'
@ l+1,153 say str(n12,10,8)
@ l+1,163 say '|'
@ l+1,164 say str(n13,10,8)
@ l+1,174 say '|'
@ l+1,175 say str(n14,10,8)
@ l+1,185 say '|'
@ l+1,186 say str(n15,10,8)
@ l+1,196 say '|'
@ l+1,197 say str(n16,10,8)
@ l+1,207 say '|'
@ l+1,218 say '|'
@ l+1,229 say '|'
@ l+2,003 say '|----------------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|----------|'
@ l+3,003 say '          '
set device to screen
set print off
use
release all
return