home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / CK22.PRG < prev    next >
Encoding:
Text File  |  1988-12-02  |  1.1 KB  |  66 lines
  1. * CK22.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:CKI
  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:CKI
  49. GO TOP
  50. DO WHILE .NOT. EOF()
  51. CLEAR GETS
  52. CLEAR
  53. DO SHE1
  54. READ
  55. REPL C08 WITH C07*C06
  56. WAIT "░┤╚╬╥╗╝ⁿ╝╠╨° !"
  57. IF .NOT.EOF()
  58. SKIP
  59. ENDIF
  60. ENDDO
  61. CASE STRING="3"
  62. USE
  63. RETURN
  64. ENDCASE
  65. ENDDO
  66.