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

Text File | 1990-02-28 | 3.6 KB | 90 lines

*│╔▒╛╫¬│÷╝╞╦π▒φ╫╙│╠╨≥:CBZCB.PRG
set talk off
clear
n=0
y=0
@ 10,20 say '╒²╘┌┤≥╙í│╔▒╛╫¬│÷╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use &qbl5
set device to print
set print on
go top
do while .not. eof()
y=y+1
@ 002,100 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º│╔▒╛╫¬│÷╝╞╦π▒φ'
@ 003,050 say '============================'
@ 005,020 say chr(27)+"I"+"A"+'▓┐├┼:'+w3
@ 005,050 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'+'    ╡┌'+str(y,2,0)+'╥│  (╣▓'+ys+'╥│)'
@ 06,3 say '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
@ 06,203 say '⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
@ 07,3 say '⌐ª                  ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          '
@ 07,203 say '⌐ª          ⌐ª          ⌐ª          ⌐ª'
@ 08,3 say '⌐ª   ╧ε        ─┐   ⌐ª ▓·    ┴┐ ⌐ª ║╕    ╣▄ ⌐ª ┤°    ╕╓ ⌐ª ╞ß    ┴╧ ⌐ª ╕¿    ┴╧ ⌐ª ═Γ ╣║ ╝■ ⌐ª ╝╙ ╣ñ ╖╤ ⌐ª ▓─┴╧▓ε╥∞ ⌐ª ┤≥ ░ⁿ ╖╤ ⌐ª ╚╝    ┴╧ ⌐ª ╢»    ┴ª ⌐ª ╣ñ    ╫╩ ⌐ª ╕ú └√ ╜≡ ⌐ª │╡╝Σ╛¡╖╤ ⌐ª ╖╧╞╖╦≡╩º '
@ 08,203 say '⌐ª ╣▄ └φ ╖╤ ⌐ª ╖╤╙├▓ε╥∞ ⌐ª ╫▄ ║╧ ╝╞ ⌐ª'
@ 09,3 say '⌐ª                  ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          '
@ 09,203 say '⌐ª          ⌐ª          ⌐ª          ⌐ª'
@ 10,3 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
@ 10,203 say '⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=10
do while (l<=76+bcbl).and.(.not. eof())
n=n+1
@ l+1,003 say '⌐ª'
@ l+1,005 say ╧ε─┐
@ l+1,023 say '⌐ª'
@ l+1,025 say ▓·┴┐ picture '@z'
@ l+1,035 say '⌐ª'
@ l+1,037 say HG╜≡╢ε picture '@z'
@ l+1,047 say '⌐ª'
@ l+1,049 say DG╜≡╢ε picture '@z'
@ l+1,059 say '⌐ª'
@ l+1,061 say ╞ß┴╧ picture '@z'
@ l+1,071 say '⌐ª'
@ l+1,073 say ╕¿┴╧ picture '@z'
@ l+1,083 say '⌐ª'
@ l+1,085 say ═Γ╣║╝■ picture '@z'
@ l+1,095 say '⌐ª'
@ l+1,097 say ╝╙╣ñ╖╤ picture '@z'
@ l+1,107 say '⌐ª'
@ l+1,109 say ▓─┴╧▓ε╥∞ picture '@z'
@ l+1,119 say '⌐ª'
@ l+1,121 say ┤≥░ⁿ╖╤ picture '@z'
@ l+1,131 say '⌐ª'
@ l+1,133 say ╚╝┴╧ picture '@z'
@ l+1,143 say '⌐ª'
@ l+1,145 say ╢»┴ª picture '@z'
@ l+1,155 say '⌐ª'
@ l+1,157 say ╣ñ╫╩ picture '@z'
@ l+1,167 say '⌐ª'
@ l+1,169 say ╕ú└√╖╤ picture '@z'
@ l+1,179 say '⌐ª'
@ l+1,181 say │╡╝Σ╛¡╖╤ picture '@z'
@ l+1,191 say '⌐ª'
@ l+1,193 say ╖╧╞╖ picture '@z'
@ l+1,203 say '⌐ª'
@ l+1,205 say ╣▄└φ╖╤ picture '@z'
@ l+1,215 say '⌐ª'
@ l+1,217 say ╖╤╙├▓ε╥∞ picture '@z'
@ l+1,227 say '⌐ª'
@ l+1,229 say ║╧╝╞ picture '@z'
@ l+1,239 say '⌐ª'
if n<128-qbl1
@ l+2,3 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
@ l+2,203 say '⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
endif
if n=128-qbl1
@ l+2,3 say '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ'
@ l+2,203 say '⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'
@ l+3,3 say '          '
endif
l=l+2
skip
enddo
enddo
set device to screen
set print off
use
release all
return