home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBFIME.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  517 b   |  25 lines
  1. <<procedure SSBFindMenu>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3.  
  4. <<string line>>
  5. <<integer count,ndxmax>>
  6. <<begin>>
  7.  
  8. PRIVATE menuchioc,chioc
  9. SET COLOR TO N/W
  10. @ 20,20 CLEAR TO 22,39
  11. @ 21,21 PROMPT " 1. ▓Θ╤»╚½▓┐╩²╛▌  "
  12. @ 22,21 PROMPT " 2. ╤í╘±▓Θ╤»╩²╛▌  "
  13. MENU TO menuchioc
  14. chioc = SUBSTR( "AAB",menuchioc+1,1)
  15. DO CASE
  16.    CASE chioc = "A"
  17.         DO {fileprefix}Y
  18.    CASE chioc = "B"
  19.         DO FINDSUB00 WITH "F"
  20. ENDCASE  
  21.  
  22. <<end>> <<*SSBFindMenu*>>
  23.  
  24. <<* EOF: SSBFIME.INC *>>
  25.