Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/CJD.PRG

Text File | 1979-12-31 | 1.6 KB | 62 lines

clear
set talk off
set cons off
set device to print
p=1
do while p<=3
set print on
? chr(27)+"IL"
set print off
@ 1,16 say "╩²╛▌┐Γ╜ß╣╣▒φ"
@ prow(),65 say "╩²╛▌┐Γ╜ß╣╣▒φ"
set print on
? chr(27)+"IA"
set print off
@ prow()+1,1 say "             "
@ prow()+1,1 say "┐Γ├√ú║                   ┐Γ┤·║┼ú║"
@ prow(),100 say "┐Γ├√ú║                  ┐Γ┤·║┼ú║"
@ prow()+1,1 say ì
"==============================================================="
@ prow(),100 say ì
"==============================================================="
@ prow()+1,1 say "|╨≥║┼| ╫╓    ╢╬    ├√ |╫╓╢╬└α╨═|╫╓╢╬│ñ╢╚|╨í╩²╬╗|╫╓ ╢╬ ├√ ì
║¼ ╥σ|"
@ prow(),100 say "|╨≥║┼| ╫╓    ╢╬    ├√ |╫╓╢╬└α╨═|╫╓╢╬│ñ╢╚|╨í╩²╬╗|╫╓ ╢╬ ├√ ì
║¼ ╥σ|"
@ prow()+1,1 say ì
"|----|----------------|--------|--------|------|--------------|"
@ prow(),100 say ì
"|----|----------------|--------|--------|------|--------------|"
l=1
do while l<=22
@ prow()+1,1 say "|    |                |        |        |      |          ì
    |"
@ prow(),100 say "|    |                |        |        |      |          ì
    |"
if l=22
@ prow()+1,1 say ì
"==============================================================="
@ prow(),100 say ì
"==============================================================="
else
@ prow()+1,1 say ì
"|----|----------------|--------|--------|------|--------------|"
@ prow(),100 say ì
"|----|----------------|--------|--------|------|--------------|"
endif
l=l+1
enddo
p1=1
do while p1<=5
@ prow()+1,1 say "                   "
p1=p1+1
enddo
p=p+1
set print on
? chr(13)
set print off
set cons on
retu