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

Text File | 1990-03-02 | 3.3 KB | 82 lines

*┼Σ╠╫▓·╞╖│╔▒╛└α╫▄▒φ╫╙│╠╨≥:CBLZB.PRG
set talk off
clear
n=0
y=0
@ 10,20 say '╒²╘┌┤≥╙í┼Σ╠╫▓·╞╖│╔▒╛└α╫▄▒φ'
@ 11,26 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use a:sjcb11
set device to print
set print on
go top
y=y+1
@ 002,085 say chr(27)+"I"+"E"+'╣π╓▌╫╘╨╨│╡╢■│º┼Σ╠╫▓·╞╖│╔▒╛└α╫▄▒φ'
@ 003,043 say '================================'
@ 005,020 say chr(27)+"I"+"A"+'▓┐├┼:'+w3
@ 005,050 say mo11+'─Ω'+mo22+'╘┬'+mo33+'╚╒╓╞'+'    ╡┌'+str(y,2,0)+'╥│  (╣▓'+'1╥│)'
@ 06,3 say '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨'
@ 06,193 say '⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
@ 07,3 say '⌐ª                  ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª'
@ 07,193 say '          ⌐ª          ⌐ª          ⌐ª          ⌐ª'
@ 08,3 say '⌐ª   ╧ε        ─┐   ⌐ª ▓·    ┴┐ ⌐ª ╚╝    ┴╧ ⌐ª ║╕╣▄╜≡╢ε ⌐ª ╣ñ    ╫╩ ⌐ª ┤°╕╓╜≡╢ε ⌐ª ╞ß    ┴╧ ⌐ª ╕¿    ┴╧ ⌐ª ═Γ ╣║ ╝■ ⌐ª ╝╙ ╣ñ ╖╤ ⌐ª ▓─┴╧▓ε╥∞ ⌐ª ┤≥ ░ⁿ ╖╤ ⌐ª ╢»    ┴ª ⌐ª ╕ú    └√ ⌐ª │╡╝Σ╛¡╖╤ ⌐ª'
@ 08,193 say ' ╖╧╞╖╦≡╩º ⌐ª ╣▄ └φ ╖╤ ⌐ª ╖╤╙├▓ε╥∞ ⌐ª ╫▄ ║╧ ╝╞ ⌐ª'
@ 09,3 say '⌐ª                  ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª          ⌐ª'
@ 09,193 say '          ⌐ª          ⌐ª          ⌐ª          ⌐ª'
@ 10,3 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α'
@ 10,193 say '⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=10
do while .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 RL╜≡╢ε picture '@z'
@ l+1,047 say '⌐ª'
@ l+1,049 say HGSJCB╜≡╢ε picture '@z'
@ l+1,059 say '⌐ª'
@ l+1,061 say GZ╜≡╢ε picture '@z'
@ l+1,071 say '⌐ª'
@ l+1,073 say DGSJCB╜≡╢ε picture '@z'
@ l+1,083 say '⌐ª'
@ l+1,085 say QLSJCB╜≡╢ε picture '@z'
@ l+1,095 say '⌐ª'
@ l+1,097 say FLSJCB╜≡╢ε picture '@z'
@ l+1,107 say '⌐ª'
@ l+1,109 say WGSJCB╜≡╢ε picture '@z'
@ l+1,119 say '⌐ª'
@ l+1,121 say JGSJCB╜≡╢ε picture '@z'
@ l+1,131 say '⌐ª'
@ l+1,133 say CYSJCB╜≡╢ε picture '@z'
@ l+1,143 say '⌐ª'
@ l+1,145 say DBSJCB╜≡╢ε picture '@z'
@ l+1,155 say '⌐ª'
@ l+1,157 say DL╜≡╢ε picture '@z'
@ l+1,167 say '⌐ª'
@ l+1,169 say FL╜≡╢ε picture '@z'
@ l+1,179 say '⌐ª'
@ l+1,181 say JF╜≡╢ε picture '@z'
@ l+1,191 say '⌐ª'
@ l+1,193 say FP╜≡╢ε picture '@z'
@ l+1,203 say '⌐ª'
@ l+1,205 say GL╜≡╢ε picture '@z'
@ l+1,215 say '⌐ª'
@ l+1,217 say FYCY╜≡╢ε picture '@z'
@ l+1,227 say '⌐ª'
@ l+1,229 say ZJ╜≡╢ε picture '@z'
@ l+1,239 say '⌐ª'
@ l+2,3 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α'
@ L+2,193 say '⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=l+2
skip
enddo
@ l+3,003 say '          '
set device to screen
set print off
use
release all
return