home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / CK21.PRG < prev    next >
Encoding:
Text File  |  1988-12-02  |  1.1 KB  |  65 lines
  1. * CK21.PRG ╨▐╕─╩²╛▌
  2. SET EXACT ON
  3. DO WHILE .T.
  4. CLEAR
  5. @2,20 SAY "     ====================================="
  6. @3,20 SAY "          ╨▐ ╕─ ╫▄ ┐Γ ┤µ ╩² ╛▌ ▓╦ ╡Ñ"
  7. @4,20 SAY "                 1---╡Ñ╕÷▓·╞╖"
  8. @5,20 SAY "                 2---╚½▓┐▓·╞╖"
  9. @6,20 SAY "                 3---╖╡    ╗╪"
  10. @7,20 SAY "     ====================================="
  11. WAIT "      ╟δ╤í╘±║╧╩╩╡─╨≥║┼ú█ú▒ú¡ú│ú▌" TO STRING
  12. CLEAR
  13. SH='╫▄┐Γ┤µ'
  14. SH14='│÷│º'
  15. SH17='▒ú ╣▄ ╘▒'
  16. DO CASE
  17. CASE STRING="1"
  18. USE &P0:CK88
  19. ccc=.T.
  20. DO WHILE CCC
  21. CLEAR
  22. GO TOP
  23. STORE "       " TO DM1
  24. @2,20 SAY "╟δ╩Σ╚δ▓·╞╖╡─┤·┬δ,╗╪│╡╘≥╖╡╗╪__" GET DM1 PICT "XXXXXXXX"
  25. READ
  26. IF DM1="0".OR.DM1=""
  27. USE
  28. CCC=.F.
  29. LOOP
  30. ENDIF
  31. LOCA FOR C01=DM1
  32. IF EOF().OR.BOF()
  33. WAIT "┤╦▓·╞╖▓╗┤µ╘┌,░┤╚╬╥╗╝ⁿ╝╠╨° !"
  34. ELSE
  35. CLEAR GETS
  36. CLEAR
  37. DO SHE1
  38. READ
  39. REPL C08 WITH C07*C06
  40. ENDIF
  41. WAIT '╩╟╖±╝╠╨°╨▐╕─ú█ú┘ú»ú╬ú▌ ' TO ANS
  42. IF ANS='N' .OR. ANS='n'
  43. CCC=.F.
  44. USE
  45. ENDIF
  46. ENDDO
  47. CASE STRING="2"
  48. USE &P0:CK88
  49. GO TOP
  50. DO WHILE .NOT. EOF()
  51. CLEAR
  52. DO SHE1
  53. READ
  54. REPL C08 WITH C07*C06
  55. WAIT "░┤╚╬╥╗╝ⁿ╝╠╨° !"
  56. IF .NOT.EOF()
  57. SKIP
  58. ENDIF
  59. ENDDO
  60. CASE STRING="3"
  61. USE
  62. RETURN
  63. ENDCASE
  64. ENDDO
  65.