home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBPART.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  5.7 KB  |  210 lines
  1. <<* Program : SSBPART.INC  *>> 
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<procedure SSBMISMainBody>>
  5. <<begin>>
  6. * ---SET environment.
  7. SET TALK OFF
  8. SET STATUS OFF
  9. SET HELP OFF
  10. SET BELL OFF
  11. SET SAFETY OFF
  12. SET ESCAPE OFF
  13. SET SCOREBOARD OFF
  14.  
  15. * ---SET CURSOR OFF
  16. ?? SYS(2002)
  17. *
  18. * ---Declare status variables.
  19. PUBLIC  UseStatus
  20. STORE .F. TO  UseStatus
  21. PRIVATE  RunStatus
  22. STORE .T. TO  RunStatus
  23. PRIVATE;
  24.     I,J,N,M,II,Px1,L_Key,;
  25.     ROW_L,ROW_R,Win_Bot
  26. STORE 0 TO;
  27.     I,J,N,M,II,Px1,L_Key,;
  28.     ROW_L,ROW_R,Win_Bot
  29. PRIVATE;
  30.     PrcS2,MFile,FileName
  31. STORE " " TO;
  32.     PrcS2,MFile,FileName
  33. STORE 19 TO Win_Bot
  34. STORE {"}{fileprefix}000.MEM{"} TO MFile  
  35. STORE {"}{fileprefix}000.sdb{"} TO TFile  && 04/10/92 Upda
  36. IF FILE(TFile)
  37.    CLEAR
  38.    ?  "  ╟δ ╡╚ ┤² ╥╗ ╗ß ......"
  39.    DO {fileprefix}001
  40. ENDIF
  41.  
  42. * ----- Runing Main Program --------
  43. DO WHILE RunStatus
  44.    RESTORE FROM &MFile ADDITIVE
  45.    SET COLOR TO
  46.    CLEAR
  47.    STORE Px1 TO N
  48.    II = 0
  49.    L_Key = 0
  50.    DO {fileprefix}002
  51.    ROW_L = 5
  52.    DO WHILE .T.
  53.       IF L_Key = 27
  54.          EXIT
  55.       ENDIF
  56.       IF I = 1
  57.          SET COLOR TO W/BG
  58.          @ 5,31 SAY " "
  59.       ENDIF
  60.       IF I = N
  61.          SET COLOR TO W/GB
  62.          @ Win_Bot,31 SAY " "
  63.       ENDIF
  64.       IF I <> 1 .AND. I <> N
  65.          SET COLOR TO N/W+
  66.          @ 5 ,31 SAY CHR(24)
  67.          @ Win_Bot,31 SAY CHR(25)
  68.       ENDIF
  69.       STORE INKEY() TO L_Key
  70.       IF L_Key = 0
  71.          DO {fileprefix}003
  72.       ENDIF
  73.       DO CASE
  74.          CASE L_Key = 27
  75.             RunStatus = .F.
  76.          CASE L_Key = 24 
  77.             DO CASE
  78.                CASE ROW_L > Win_Bot-1 .AND. I < N
  79.                   SET COLOR TO W/B
  80.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  81.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  82.                   SCROLL 5,2,Win_Bot,28,1
  83.                   I = I+1
  84.                   SET COLOR TO W+/R
  85.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  86.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  87.                CASE ROW_L <= Win_Bot-1 .AND. I < N
  88.                   SET COLOR TO W/B
  89.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  90.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  91.                   ROW_L = ROW_L+1
  92.                   I = I+1
  93.                   SET COLOR TO W+/R
  94.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  95.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  96.                OTHERWISE 
  97.                   ?? CHR(7)
  98.             ENDCASE
  99.          CASE L_Key = 5
  100.             DO CASE
  101.                CASE ROW_L < 6 .AND. I > 1
  102.                   SET COLOR TO W/B
  103.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  104.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  105.                   SCROLL 5,2,Win_Bot,28,-1 
  106.                   I = I - 1
  107.                   SET COLOR TO W+/R
  108.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  109.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  110.                CASE ROW_L >= 6 .AND. I > 1
  111.                   SET COLOR TO W/B
  112.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  113.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  114.                   ROW_L = ROW_L-1
  115.                   I = I - 1
  116.                   SET COLOR TO W+/R
  117.                   @ ROW_L, 2 CLEAR TO ROW_L,28
  118.                   @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  119.                OTHERWISE
  120.                   ?? CHR(7)
  121.             ENDCASE
  122.          CASE L_Key = 3 
  123.             IF I + 5 <= N
  124.                STEP_L = 5
  125.             ELSE
  126.                STEP_L = N-I+1
  127.             ENDIF
  128.             SET COLOR TO W/B
  129.             @ ROW_L, 2 CLEAR TO ROW_L,28
  130.             @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  131.             DO WHILE STEP_L > 0
  132.                DO CASE
  133.                   CASE ROW_L > Win_Bot-1 .AND. I < N
  134.                      @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  135.                      SCROLL 5,2,Win_Bot,28,1
  136.                      I = I+1
  137.                   CASE ROW_L <= Win_Bot-1 .AND. I < N
  138.                      ROW_L = ROW_L+1
  139.                      I = I+1
  140.                   OTHERWISE 
  141.                      ?? CHR(7)
  142.                ENDCASE
  143.                STEP_L = STEP_L-1
  144.             ENDDO
  145.             SET COLOR TO W+/R
  146.             @ ROW_L, 2 CLEAR TO ROW_L,28
  147.             @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  148.          CASE L_Key = 18
  149.             IF I - 5 >= 1
  150.                STEP_L = 5
  151.             ELSE
  152.                STEP_L = I
  153.             ENDIF
  154.             SET COLOR TO W/B
  155.             @ ROW_L, 2 CLEAR TO ROW_L,28
  156.             @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  157.             DO WHILE STEP_L > 0
  158.                DO CASE
  159.                   CASE ROW_L < 6 .AND. I > 1
  160.                      @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  161.                      SCROLL 5,2,Win_Bot,28,-1
  162.                      I = I-1
  163.                   CASE ROW_L >= 6 .AND. I > 1
  164.                      ROW_L = ROW_L-1
  165.                      I = I-1
  166.                   OTHERWISE 
  167.                      ?? CHR(7)
  168.                ENDCASE
  169.                STEP_L = STEP_L-1
  170.             ENDDO
  171.             SET COLOR TO W+/R
  172.             @ ROW_L, 2 CLEAR TO ROW_L,28
  173.             @ ROW_L, 2 SAY TRIM(Prc_M(I,1))
  174.          CASE L_Key = 13
  175. *     ----- Ceart the filename of procdured file ---- 
  176. *           PrcS2 = "Prc" + Prc_M(I,2) + "(J,2)"
  177. *           FileName = &PrcS2
  178. *           FileName = FileName + "5"
  179. *           RELEASE ALL LIKE Prc*
  180. *           DO &FileName
  181. *           L_Key = 27
  182.             ?? CHR(7)
  183.          CASE L_Key = 9
  184. *     ----- Choice will procdured table ---- 
  185.             DO {fileprefix}004
  186.       ENDCASE
  187.    ENDDO
  188. ENDDO
  189. SET COLOR TO
  190.  
  191. * ---Closing operations.
  192. CLEAR
  193. CLEAR MEMO
  194. CLOSE DATABASE
  195. CLOSE INDEX
  196. CLOSE PROCEDURE
  197. SET SCOREBOARD ON
  198. SET ESCAPE ON
  199. SET SAFETY ON
  200. ?? SYS(2002,1)
  201. SET MENUS ON
  202. SET BELL ON
  203. SET HELP ON
  204. SET STATUS ON
  205. SET TALK ON
  206.  
  207. * --- Runing End ---
  208. <<END>>
  209. <<* EOF: SSBMIS.GEN *>>
  210.