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

Text File | 1990-02-28 | 4.7 KB | 118 lines

*▓·╞╖│╔▒╛╝╞╦π▒φ╫╙│╠╨≥╓«╢■:CBJSB-2.PRG
set talk off
clear
y=0
@ 10,20 say '╒²╘┌┤≥╙í▓·╞╖│╔▒╛╝╞╦π▒φ'
@ 11,24 say '╟δ▓╗╥¬░┤╞Σ╦√╜í'
@ 12,21 say '(╫ó:░┤Pause╜í┐╔╘▌═ú┤≥╙í)'
use &qbl3
go 2
sum next 1 ╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤ to n5,n6,n7,n8,n9
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,0 say '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
@ 07,0 say '|               |      |         ╞ß              ┴╧        |        ╕¿               ┴╧        |       ═Γ        ╣║        ╝■      |      ╝╙        ╣ñ          ╖╤     |  ┤≥   ░ⁿ    ╖╤  | ▓─  ┴╧  ▓ε  ╥∞  |                  |'
@ 08,0 say '|               |      |-----------------------------------|-----------------------------------|-----------------------------------|-----------------------------------|-----------------|-----------------|  ▓─  ┴╧  ╨í  ╝╞  |'
@ 09,0 say '|  ▓· ╞╖ ├√ │╞  |▓·  ┴┐|  ╢¿         ╢ε  |  ╩╡  ╝╩  │╔  ▒╛ |   ╢¿        ╢ε  |  ╩╡  ╝╩  │╔  ▒╛ |   ╢¿       ╢ε   |  ╩╡  ╝╩  │╔  ▒╛ |   ╢¿       ╢ε   |  ╩╡  ╝╩  │╔  ▒╛ |  ╩╡  ╝╩  │╔  ▒╛ |  ╩╡  ╝╩  │╔  ▒╛ |                  |'
@ 10,0 say '|               |      |-----------------|-----------------|-----------------|-----------------|-----------------|-----------------|-----------------|-----------------|-----------------|-----------------|------------------|'
@ 11,0 say '|               |      |╡Ñ  ╬╗| ├µ    ╗² |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε |╡Ñ  ╬╗| ╜≡    ╢ε | ╡Ñ ╬╗ | ╜≡    ╢ε |'
@ 12,0 say '|---------------|------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|-------|----------|'
l=12
do while (l<=70).and.(.not. eof())
@ l+1,000 say '|'
@ l+1,002 say ▓·╞╖├√│╞
@ l+1,016 say '|'
@ l+1,017 say ▓·┴┐ picture '@z'
@ l+1,023 say '|'
@ l+1,024 say QLMJDE╡Ñ╬╗ picture '@z'
@ l+1,030 say '|'
@ l+1,031 say QLMJDE┴┐ picture '@z'
@ l+1,041 say '|'
@ l+1,042 say QLSJCB╡Ñ╬╗ picture '@z'
@ l+1,048 say '|'
@ l+1,049 say QLSJCB╜≡╢ε picture '@z'
@ l+1,059 say '|'
@ l+1,060 say FLDE╡Ñ╬╗ picture '@z'
@ l+1,066 say '|'
@ l+1,067 say FLDE╜≡╢ε picture '@z'
@ l+1,077 say '|'
@ l+1,078 say FLSJCB╡Ñ╬╗ picture '@z'
@ l+1,084 say '|'
@ l+1,085 say FLSJCB╜≡╢ε picture '@z'
@ l+1,095 say '|'
@ l+1,096 say WGDE╡Ñ╬╗ picture '@z'
@ l+1,102 say '|'
@ l+1,103 say WGDE╜≡╢ε picture '@z'
@ l+1,113 say '|'
@ l+1,114 say WGSJCB╡Ñ╬╗ picture '@z'
@ l+1,120 say '|'
@ l+1,121 say WGSJCB╜≡╢ε picture '@z'
@ l+1,131 say '|'
@ l+1,132 say JGDE╡Ñ╬╗ picture '@z'
@ l+1,138 say '|'
@ l+1,139 say JGDE╜≡╢ε picture '@z'
@ l+1,149 say '|'
@ l+1,150 say JGSJCB╡Ñ╬╗ picture '@z'
@ l+1,156 say '|'
@ l+1,157 say JGSJCB╜≡╢ε picture '@z'
@ l+1,167 say '|'
@ l+1,168 say DBSJCB╡Ñ╬╗ picture '@z'
@ l+1,174 say '|'
@ l+1,175 say DBSJCB╜≡╢ε picture '@z'
@ l+1,185 say '|'
@ l+1,186 say CYSJCB╡Ñ╬╗ picture '@z'
@ l+1,192 say '|'
@ l+1,193 say CYSJCB╜≡╢ε picture '@z'
@ l+1,203 say '|'
@ l+1,204 say CL╨í╝╞╡Ñ╬╗ picture '@z'
@ l+1,211 say '|'
@ l+1,212 say CL╨í╝╞╜≡╢ε picture '@z'
@ l+1,222 say '|'
@ l+2,000 say '|---------------|------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|-------|----------|'
l=l+2
skip
enddo
enddo
@ l+1,000 say '|'
@ l+1,002 say '▒╛╘┬╖╓┼Σ┬╩'
@ l+1,016 say '|'
@ l+1,023 say '|'
@ l+1,030 say '|'
@ l+1,041 say '|'
@ l+1,043 say str(n5,14,12)
@ l+1,059 say '|'
@ l+1,066 say '|'
@ l+1,077 say '|'
@ l+1,080 say str(n6,14,12)
@ l+1,095 say '|'
@ l+1,102 say '|'
@ l+1,113 say '|'
@ l+1,116 say str(n7,14,12)
@ l+1,131 say '|'
@ l+1,138 say '|'
@ l+1,149 say '|'
@ l+1,152 say str(n8,14,12)
@ l+1,167 say '|'
@ l+1,170 say str(n9,14,12)
@ l+1,185 say '|'
@ l+1,203 say '|'
@ l+1,211 say '|'
@ l+1,222 say '|'
@ l+2,000 say '|---------------|------|------|----------|-----------------|------|----------|-----------------|------|----------|-----------------|------|----------|-----------------|-----------------|-----------------|-------|----------|'
@ l+3,000 say '          '
set device to screen
set print off
use
release all
return