Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/CBJSB-1.PRG

Text File | 1989-03-13 | 4.2 KB | 101 lines

*▓·╞╖│╔▒╛╝╞╦π▒φ╫╙│╠╨≥╓«╥╗:CBJSB-1.PRG
set talk off
clear
y=0
@ 10,20 say '╒²╘┌┤≥╙í▓·╞╖│╔▒╛╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use &qbl3
go 2
sum next 1 HG┴┐,HG│╔▒╛,DG┴┐,DG│╔▒╛ to n1,n2,n3,n4
use &qbl6
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 '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
@ 07,3 say '⌐ª                  ⌐ª      ⌐ª             ║╕                                   ╣▄            ⌐ª           ┤°                                     ╕╓            ⌐ª                                                                ⌐ª'
@ 08,3 say '⌐ª                  ⌐ª      ⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
@ 09,3 say '⌐ª ▓·  ╞╖  ├√  │╞   ⌐ª▓·  ┴┐⌐ª ╩╡   ╝╩   ╓╪   ┴┐  ⌐ª  ╢¿            ╢ε  ⌐ª ╩╡   ╝╩   │╔   ▒╛  ⌐ª ╩╡   ╝╩   ╓╪   ┴┐  ⌐ª  ╢¿            ╢ε  ⌐ª ╩╡   ╝╩   │╔   ▒╛  ⌐ª ╩╡   ╝╩   ╓╪   ┴┐  ⌐ª  ╢¿            ╢ε  ⌐ª ╩╡   ╝╩   │╔   ▒╛  ⌐ª'
@ 10,3 say '⌐ª                  ⌐ª      ⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
@ 11,3 say '⌐ª                  ⌐ª      ⌐ª ╡Ñ  ╬╗ ⌐ª ╓╪    ┴┐ ⌐ª ╡Ñ  ╬╗ ⌐ª ╢¿ ╢ε ┴┐ ⌐ª ╡Ñ  ╬╗ ⌐ª ╜≡    ╢ε ⌐ª ╡Ñ  ╬╗ ⌐ª ╓╪    ┴┐ ⌐ª ╡Ñ  ╬╗ ⌐ª ╢¿ ╢ε ┴┐ ⌐ª ╡Ñ  ╬╗ ⌐ª ╜≡    ╢ε ⌐ª ╡Ñ  ╬╗ ⌐ª ╓╪    ┴┐ ⌐ª ╡Ñ  ╬╗ ⌐ª ╢¿ ╢ε ┴┐ ⌐ª ╡Ñ  ╬╗ ⌐ª ╜≡    ╢ε ⌐ª'
@ 12,3 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=12
do while (l<=70).and.(.not. eof())
@ l+1,003 say '⌐ª'
@ l+1,005 say ▓·╞╖├√│╞
@ l+1,023 say '⌐ª'
@ l+1,025 say ▓·┴┐ picture '@z'
@ l+1,031 say '⌐ª'
@ l+1,033 say HGSJ┴┐╡Ñ╬╗ picture '@z'
@ l+1,041 say '⌐ª'
@ l+1,043 say HGSJ┴┐ picture '@z'
@ l+1,053 say '⌐ª'
@ l+1,055 say HGDE╡Ñ╬╗ picture '@z'
@ l+1,063 say '⌐ª'
@ l+1,065 say HGDE┴┐ picture '@z'
@ l+1,075 say '⌐ª'
@ l+1,077 say HGSJCB╡Ñ╬╗ picture '@z'
@ l+1,085 say '⌐ª'
@ l+1,087 say HGSJCB╜≡╢ε picture '@z'
@ l+1,097 say '⌐ª'
@ l+1,099 say DGSJ┴┐╡Ñ╬╗ picture '@z'
@ l+1,107 say '⌐ª'
@ l+1,109 say DGSJ┴┐ picture '@z'
@ l+1,119 say '⌐ª'
@ l+1,121 say DGDE╡Ñ╬╗ picture '@z'
@ l+1,129 say '⌐ª'
@ l+1,131 say DGDE┴┐ picture '@z'
@ l+1,141 say '⌐ª'
@ l+1,143 say DGSJCB╡Ñ╬╗ picture '@z'
@ l+1,151 say '⌐ª'
@ l+1,153 say DGSJCB╜≡╢ε picture '@z'
@ l+1,163 say '⌐ª'
@ l+1,173 say '⌐ª'
@ l+1,185 say '⌐ª'
@ l+1,195 say '⌐ª'
@ l+1,207 say '⌐ª'
@ l+1,217 say '⌐ª'
@ l+1,229 say '⌐ª'
@ l+2,003 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
l=l+2
skip
enddo
enddo
@ l+1,003 say '⌐ª'
@ l+1,005 say '▒╛╘┬╖╓┼Σ┬╩'
@ l+1,023 say '⌐ª'
@ l+1,031 say '⌐ª'
@ l+1,035 say str(n1,14,12)
@ l+1,053 say '⌐ª'
@ l+1,063 say '⌐ª'
@ l+1,075 say '⌐ª'
@ l+1,079 say str(n2,14,12)
@ l+1,097 say '⌐ª'
@ l+1,101 say str(n3,14,12)
@ l+1,119 say '⌐ª'
@ l+1,129 say '⌐ª'
@ l+1,141 say '⌐ª'
@ l+1,145 say str(n4,14,12)
@ l+1,163 say '⌐ª'
@ l+1,173 say '⌐ª'
@ l+1,185 say '⌐ª'
@ l+1,195 say '⌐ª'
@ l+1,207 say '⌐ª'
@ l+1,217 say '⌐ª'
@ l+1,229 say '⌐ª'
@ l+2,003 say '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'
@ l+3,003 say '          '
set device to screen
set print off
use
release all
return