home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBUPDA.INC < prev   
Encoding:
Text File  |  1992-04-01  |  712 b   |  34 lines
  1. <<* SSBUPDA.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<procedure GenSBUpdataBody>>
  5. <<integer count,ndxmax>>
  6. <<begin>>
  7.  
  8. SET COLOR TO &PromptAtr
  9. DO WHILE .T.
  10.    Opt_Chi = 1
  11.    @ 23,0 CLEAR
  12.    @ 23,30 SAY "╤í ╘± ╨▐ ╕─ ╖╜ ╩╜ : "
  13.    @ 24,0 clear
  14.    @ 24, 7 PROMPT '  1.╩Σ╚δ╖╜╩╜  '
  15.    @ 24,25 PROMPT '  2.╚½ ╞┴ ─╗  '
  16.    @ 24,43 PROMPT '  3.░┤ ╠⌡ ╝■  ' 
  17.    @ 24,61 PROMPT '  4.╖╡    ╗╪  '
  18.    MENU TO Opt_Chi
  19.    DO CASE
  20.      CASE Opt_Chi = 1
  21.         DO {fileprefix}B
  22.      CASE Opt_Chi = 2
  23.         DO DoBROW
  24.      CASE Opt_Chi = 3
  25.         DO {fileprefix}C
  26.      CASE Opt_Chi = 4
  27.         EXIT
  28.    ENDCASE
  29. ENDDO
  30.  
  31. <<end>> <<* GenSBUpdataBody *>>
  32.  
  33. <<*EOF:SSBUPDA.INC*>>
  34.