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

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

*▓·╞╖│╔▒╛╝╞╦π▒φ╫╙│╠╨≥╓«╚²:CBJSB-3.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 n10,n11,n12,n13,n14,n15,n16
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 '|------------------|------|------|--------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|--------|----------|--------|----------|'
l=11
do while (l<=69).and.(.not. eof())
@ l+1,003 say '|'
@ l+1,004 say ▓·╞╖├√│╞
@ l+1,022 say '|'
@ l+1,023 say ▓·┴┐ picture '@z'
@ l+1,029 say '|'
@ l+1,030 say ╣ñ╩▒╢¿╢ε picture '@z'
@ l+1,036 say '|'
@ l+1,037 say ╣ñ╩▒ picture '@z'
@ l+1,045 say '|'
@ l+1,046 say RL╞╜╛∙│╔▒╛ picture '@z'
@ l+1,052 say '|'
@ l+1,053 say RL╜≡╢ε picture '@z'
@ l+1,063 say '|'
@ l+1,064 say DL╞╜╛∙│╔▒╛ picture '@z'
@ l+1,070 say '|'
@ l+1,071 say DL╜≡╢ε picture '@z'
@ l+1,081 say '|'
@ l+1,082 say GZ╞╜╛∙│╔▒╛ picture '@z'
@ l+1,088 say '|'
@ l+1,089 say GZ╜≡╢ε picture '@z'
@ l+1,099 say '|'
@ l+1,100 say FL╞╜╛∙│╔▒╛ picture '@z'
@ l+1,106 say '|'
@ l+1,107 say FL╜≡╢ε picture '@z'
@ l+1,117 say '|'
@ l+1,118 say JF╞╜╛∙│╔▒╛ picture '@z'
@ l+1,124 say '|'
@ l+1,125 say JF╜≡╢ε picture '@z'
@ l+1,135 say '|'
@ l+1,136 say FP╞╜╛∙│╔▒╛ picture '@z'
@ l+1,142 say '|'
@ l+1,143 say FP╜≡╢ε picture '@z'
@ l+1,153 say '|'
@ l+1,154 say GL╞╜╛∙│╔▒╛ picture '@z'
@ l+1,160 say '|'
@ l+1,161 say GL╜≡╢ε picture '@z'
@ l+1,171 say '|'
@ l+1,172 say FYCY╡Ñ╬╗ picture '@z'
@ l+1,178 say '|'
@ l+1,179 say FYCY╜≡╢ε picture '@z'
@ l+1,189 say '|'
@ l+1,190 say XJ╞╜╛∙│╔▒╛ picture '@z'
@ l+1,198 say '|'
@ l+1,199 say XJ╜≡╢ε picture '@z'
@ l+1,209 say '|'
@ l+1,210 say ZJ╞╜╛∙│╔▒╛ picture '@z'
@ l+1,218 say '|'
@ l+1,219 say ZJ╜≡╢ε picture '@z'
@ l+1,229 say '|'
@ l+2,003 say '|------------------|------|------|--------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|------|----------|--------|----------|--------|----------|'
l=l+2
skip
enddo
enddo
@ l+1,003 say '|'
@ l+1,004 say '▒╛╘┬╖╓┼Σ┬╩'
@ l+1,022 say '|'
@ l+1,029 say '|'
@ l+1,036 say '|'
@ l+1,045 say '|'
@ l+1,047 say str(n10,14,12)
@ l+1,063 say '|'
@ l+1,065 say str(n11,14,12)
@ l+1,081 say '|'
@ l+1,083 say str(n12,14,12)
@ l+1,099 say '|'
@ l+1,101 say str(n13,14,12)
@ l+1,117 say '|'
@ l+1,119 say str(n14,14,12)
@ l+1,135 say '|'
@ l+1,137 say str(n15,14,12)
@ l+1,153 say '|'
@ l+1,155 say str(n16,14,12)
@ l+1,171 say '|'
@ l+1,178 say '|'
@ l+1,189 say '|'
@ l+1,198 say '|'
@ l+1,209 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