home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBSUB1.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  729 b   |  35 lines
  1. <<* SSBSUB1.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. << procedure GenSBSUB1Body >>
  5. << begin >>
  6. PRIVATE Prc
  7. STORE "Prc"+Prc_M(I,2)+"(J,1)" TO Prc
  8. IF I <> II
  9.    SET COLOR TO W/B
  10.    @ 5,34 CLEAR TO Win_Bot,74
  11.    STORE Prc_M(I,3) TO M
  12.    STORE 1 TO J
  13.    ROW_R = 6
  14.    SET COLOR TO W+/R
  15.    @ 5,34 CLEAR TO 5,74
  16.    @ 5,34 SAY "  "+&PRC
  17.    J = J + 1
  18.    SET COLOR TO W/B
  19.    DO WHILE ROW_R <= Win_Bot .AND. J <= M
  20.       @ ROW_R,36  SAY &Prc 
  21.       ROW_R = ROW_R + 1
  22.       J = J + 1
  23.    ENDDO
  24.    SET COLOR TO N/BG
  25.    @ 5,77 CLEAR TO Win_Bot,77
  26.    SET COLOR TO N/+W
  27.    @ Win_Bot,77 SAY CHR(25)
  28.    STORE I TO II
  29. STORE 5 TO ROW_R
  30. STORE 1 TO J
  31. ENDIF
  32. << end >>
  33.  
  34. <<* EOF: SSBSUB1.INC *>>
  35.