home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBSUB2.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  4.3 KB  |  152 lines
  1. <<* SSBSUB2.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. << procedure GenSBSUB2Body >>
  5. << begin >>
  6.  
  7. PRIVATE N,R_Key
  8. STORE Prc_M(I,3) TO M
  9. STORE "Prc"+Prc_M(I,2)+"(J,1)" TO Prc_S
  10. SET COLOR TO W/B
  11. @  3, 2 SAY '      ╥╡  ╬±  ├√  │╞          '
  12. SET COLOR TO W+/R
  13. @  3,34 SAY '          ╛▀ ╠σ ╥╡ ╬± ┤ª └φ ─┌ ╚▌          '
  14. DO WHILE .T.
  15.       IF J = 1
  16.          SET COLOR TO W/GB
  17.          @ 5,77 SAY " "
  18.       ENDIF
  19.       IF J = M
  20.          SET COLOR TO W/GB
  21.          @ Win_Bot,77 SAY " "
  22.       ENDIF
  23.       IF J <>1 .AND. J <> M
  24.          SET COLOR TO N/W+
  25.          @ 5,77 SAY CHR(24)
  26.          @ Win_Bot,77 SAY CHR(25)
  27.       ENDIF
  28.    STORE INKEY() TO R_Key
  29.    DO CASE
  30.      CASE R_Key = 24 
  31.         DO CASE
  32.           CASE Row_R > Win_Bot-1 .AND. J < M
  33.              SET COLOR TO W/B
  34.              @ Row_R, 34 CLEAR TO Row_R,74
  35.              @ Row_R, 36 SAY &Prc_S
  36.              SCROLL 5,34,Win_Bot,74,1
  37.              J = J+1
  38.              SET COLOR TO W+/R
  39.              @ Row_R, 34 CLEAR TO Row_R,74
  40.              @ Row_R, 36 SAY &Prc_S
  41.           CASE Row_R <= Win_Bot-1 .AND. J < M
  42.              SET COLOR TO W/B
  43.              @ Row_R, 34 CLEAR TO Row_R,74
  44.              @ Row_R, 36 SAY &Prc_S
  45.              Row_R = Row_R+1
  46.              J = J+1
  47.              SET COLOR TO W+/R
  48.              @ Row_R, 34 CLEAR TO Row_R,74
  49.              @ Row_R, 36 SAY &Prc_S
  50.           OTHERWISE 
  51.              ?? CHR(7)
  52.         ENDCASE
  53.      CASE R_Key = 5
  54.         DO CASE
  55.           CASE Row_R < 6 .AND. J > 1
  56.              SET COLOR TO W/B
  57.              @ Row_R, 34 CLEAR TO Row_R,74
  58.              @ Row_R, 36 SAY &Prc_S
  59.              SCROLL 5,34,Win_Bot,74,-1 
  60.              J = J - 1
  61.              SET COLOR TO W+/R
  62.              @ Row_R, 34 CLEAR TO Row_R,74
  63.              @ Row_R, 36 SAY &Prc_S
  64.           CASE Row_R >= 6 .AND. J > 1
  65.              SET COLOR TO W/B
  66.              @ Row_R, 34 CLEAR TO Row_R,74
  67.              @ Row_R, 36 SAY &Prc_S
  68.              Row_R = Row_R-1
  69.              J = J - 1
  70.              SET COLOR TO W+/R
  71.              @ Row_R, 34 CLEAR TO Row_R,74
  72.              @ Row_R, 36 SAY &Prc_S
  73.           OTHERWISE
  74.              ?? CHR(7)
  75.         ENDCASE
  76.      CASE R_Key = 3 .OR. R_KEY = 4
  77.         IF J + (Win_Bot-5) <= M
  78.            STEP_L = Win_Bot-5
  79.         ELSE 
  80.            STEP_L = M-J+1
  81.         ENDIF
  82.          SET COLOR TO W/B
  83.          @ Row_R, 34 CLEAR TO Row_R,74
  84.          @ Row_R, 36 SAY &Prc_S
  85.         DO WHILE STEP_L > 0
  86.            DO CASE
  87.              CASE Row_R > Win_Bot-1 .AND. J < M
  88.                 @ Row_R, 36 SAY &Prc_S
  89.                 SCROLL 5,34,Win_Bot,74,1
  90.                 J = J+1
  91.              CASE Row_R <= Win_Bot-1 .AND. J < M
  92.                 Row_R = Row_R+1
  93.                 J = J+1
  94.              OTHERWISE 
  95.                 ?? CHR(7)
  96.            ENDCASE
  97.            STEP_L = STEP_L - 1        
  98.         ENDDO
  99.          SET COLOR TO W+/R
  100.          @ Row_R, 34 CLEAR TO Row_R,74
  101.          @ Row_R, 36 SAY &Prc_S
  102.      CASE R_Key = 18 .OR. R_Key = 19
  103.         IF J - (Win_Bot-5) >= 1
  104.            STEP_L = Win_Bot-5
  105.         ELSE 
  106.            STEP_L = J
  107.         ENDIF
  108.          SET COLOR TO W/B
  109.          @ Row_R, 34 CLEAR TO Row_R,74
  110.          @ Row_R, 36 SAY &Prc_S
  111.         DO WHILE STEP_L > 0
  112.           DO CASE
  113.             CASE Row_R < 6 .AND. J > 1
  114.                @ Row_R, 36 SAY &Prc_S
  115.                SCROLL 5,34,Win_Bot,74,-1
  116.                J = J-1
  117.             CASE Row_R >= 6 .AND. J > 1
  118.                Row_R = Row_R-1
  119.                J = J-1
  120.             OTHERWISE 
  121.                ?? CHR(7)
  122.           ENDCASE
  123.           STEP_L = STEP_L - 1        
  124.         ENDDO
  125.          SET COLOR TO W+/R
  126.          @ Row_R, 34 CLEAR TO Row_R,74
  127.          @ Row_R, 36 SAY &Prc_S
  128.       CASE R_Key = 13
  129. *  ----- Ceart the name of procdured file ---- 
  130.          PrcS2 = "Prc" + Prc_M(I,2) + "(J,2)"
  131.          FileName = &PrcS2
  132.          FileName = FileName + "0"
  133.          RELEASE ALL LIKE Prc*
  134.          DO &FileName
  135.          L_Key = 27
  136.          EXIT
  137.       CASE R_Key = 9 .OR. R_Key = 27
  138.          IF R_Key = 27
  139.             L_Key = 27
  140.             RunStatus = .F.
  141.          ENDIF
  142.          SET COLOR TO W+/R
  143.          @  3, 2 SAY '      ╥╡  ╬±  ├√  │╞          '
  144.          SET COLOR TO W/B
  145.          @  3,34 SAY '          ╛▀ ╠σ ╥╡ ╬± ┤ª └φ ─┌ ╚▌          '
  146.          EXIT
  147.    ENDCASE
  148. ENDDO
  149. << end >>
  150.  
  151. <<* EOF: SSBSUB2.INC *>>
  152.