Liren Large Software Subsidy 5/05.iso/a/a046/5.img/TEMPLATE/SSBMCRT.INC

Text File | 1992-04-01 | 1.9 KB | 77 lines

<<* SSBMCRT.INC *>>
<<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>

<<procedure GenSBMCRTBody>>
<<begin>>
SET COLOR TO N/W
@ 0,0 CLEAR TO 0,79
SET COLOR TO W/R
@ 0, 0 SAY " ╧╡═│├√│╞ "
@ 0,26 SAY " ╫╙╧╡═│├√│╞ "
@ 0,54 SAY " ┐¬╖ó╡Ñ╬╗ "
SET COLOR TO N/BG
@ 1,0 CLEAR
SET COLOR TO W+/GR
@ 1, 0 SAY "  ▓┐ ├┼ : "
SET COLOR TO N/W+
<<forall fields>>
   <<genln ('@',str(fldrow,2),',',str(fldcol,2),' SAY "',fldlab,'"')>>
<<endfor>>
SET COLOR TO W+/B
@  2, 0  CLEAR TO Win_Bot+1,79
@  2, 0 SAY '⌐░'+REPLICATE("⌐ñ",15)+'⌐╨'+REPLICATE('⌐ñ',22)+'⌐┤'
@  3, 0 SAY '⌐ª'
SET COLOR TO W+/R
@  3, 2 SAY '      ╥╡  ╬±  ├√  │╞         '
SET COLOR TO W+/B
@  3,32 SAY '⌐ª          ╛▀ ╠σ ╥╡ ╬± ┤ª └φ ─┌ ╚▌'
@  3,78 SAY '⌐ª'
@  4, 0 SAY '⌐└'+REPLICATE('⌐ñ',15)+'⌐α'+REPLICATE('⌐ñ',22)+'⌐╚'
STORE 5 TO ROW
DO WHILE ROW <= Win_Bot
   @ ROW, 0 SAY '⌐ª'
   @ ROW,32 SAY '⌐ª'
   @ ROW,78 SAY '⌐ª'
   ROW = ROW + 1
ENDDO
@ Win_Bot+1, 0 SAY '⌐╕'+REPLICATE('⌐ñ',15)+'⌐╪'+REPLICATE('⌐ñ',22)+'⌐╝'
STORE 1 TO I
ROWNUM = 5
SET COLOR TO W/B
DO WHILE ROWNUM <= Win_Bot .AND. I <= N
   @ ROWNUM,2   SAY TRIM(Prc_M(I,1))
   ROWNUM = ROWNUM + 1
   I = I + 1
ENDDO
SET COLOR TO W+/R
ROWNUM = 5
I = 1
@ ROWNUM, 2 CLEAR TO ROWNUM,28
@ ROWNUM, 2 SAY TRIM(Prc_M(I,1))
@ RowNum,34 CLEAR TO RowNum,74
@ RowNum,36 SAY Prc1(I,1)
SET COLOR TO N/BG
@ 5 ,31 CLEAR TO Win_Bot,31
SET COLOR TO N/W ,W/N
@ 22, 0 CLEAR TO 22,79
@ 22,25 SAY '  ╥╡  ╬±  ┤ª  └φ  ╣ª  ─▄  ▒φ  '
SET COLOR TO N/BG ,W/N
@ 23, 0 CLEAR TO 23,79
@ 23, 1 SAY '1.╩Σ  ╚δ '
@ 23,11 SAY '2.╨▐  ╕─ '
@ 23,21 SAY '3.▓Θ  ╤» '
@ 23,31 SAY '4.═│  ╝╞ '
@ 23,41 SAY '5.┤≥  ╙í '
@ 23,51 SAY '6.╫╘╢¿╥σ1'
@ 23,61 SAY '7.╫╘╢¿╥σ2'
@ 23,71 SAY '8.╫╘╢¿╥σ3'
SET COLOR TO N+/W+
@ 24, 0 CLEAR
@ 24, 1 SAY "╤í ╧ε :íⁿí² í√ í· <PgUp> <PgDn>"+;
            "   ╗╗┤░┐┌:<Tab>   ╤í╘±╣ª─▄:<Enter>   ═╦ │÷:<Esc>"
@ 5 ,31 SAY CHR(24)
@ Win_Bot,31 SAY CHR(25)
<< end >>

<<* EOF: SSBMCRT.INC *>>