home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / S.PRG < prev    next >
Encoding:
Text File  |  1988-12-03  |  1.8 KB  |  80 lines
  1. * SK.PRG
  2. SET SAFETY OFF
  3. SET TALK OFF
  4. SET EXACT ON
  5. SSSS=.T.
  6. DO WHILE SSSS
  7. USE SJ0.DBF
  8. GO 1
  9. CLEAR
  10. @4,20 SAY " ╡Ñ ╬╗ ├√ ╩╟  "+NAM 
  11. WAIT "                       ╩╟╖±╨Φ╥¬╨▐╕─ú█ú┘ú»ú╬ú▌ " TO XG
  12. IF XG="Y".OR.XG="y"
  13. CLEAR
  14. @4,12 SAY "╟δ╩Σ╚δ╒²╚╖╡─╡Ñ╬╗├√│╞" GET NAM 
  15. READ
  16. ENDIF
  17. USE
  18. publ P0
  19. CLEAR
  20. WAIT '╩²╛▌┤µ╙┌║╬┼╠:ú█ú┴ú»ú┬ú»ú├ú▌  ' TO P0
  21. IF AT(P0,'AaBCbc')<>0
  22. IF .NOT. FILE("&P0:CK88.DBF")
  23. clear
  24. @ 6,1 SAY ' '
  25. WAIT "              ╩²╛▌┼╠║┼▓╗╢╘,╟δ▓σ╚δ╒²╚╖╡─╩²╛▌┼╠,░┤╚╬╥╗╝ⁿ╝╠╨° !"
  26. ELSE
  27. SSSS=.F.
  28. ENDIF
  29. ENDIF
  30. ENDDO
  31. DO WHILE .T.
  32. CLEAR 
  33. ? '         {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}'
  34. ? '                  ═¿ ╙├ ▓╓ ┐Γ ╣▄ └φ ╧╡ ═│ ╫▄ ▓╦ ╡Ñ '
  35. ? '               1 ----- ╩Σ╚δ╩²╛▌       2 ----- ╨▐╕─╩²╛▌ '
  36. ? '               3 ----- ▓Θ╤»╩²╛▌       4 ----- ╝╞╗«▒¿▒φ'
  37. ? '               5 ----- ▒╕╖▌╩²╛▌       6 ----- ╒√└φ╩²╛▌┐Γ'
  38. ? '               0 ----- ═╦  │÷'     
  39. ? '         {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}'
  40. WAIT '╟δ╤í╘± [0-8] ' TO TEST
  41. clear
  42. do case
  43.    CASE TEST='1'
  44.    do CK1
  45.    case TEST='2'
  46.    do CK2
  47.    case TEST='3'
  48.    do CK3
  49.    case TEST='4'
  50.    do CK4
  51.    case test='5'
  52.         SAVE TO OO1
  53.       QUIT
  54.    CASE TEST='6'
  55. ? CHR(7)+"                          ╒√  └φ  ╩²  ╛▌  ┐Γ  ╨δ  ╓¬"
  56. ? " "
  57. ? "           ╒√└φ╩²╛▌┐Γ╩╟╓╕: ╜½┐Γ┤µ┴┐╬¬ú░╡─▓·╞╖╔╛│²ú¼╢╘╚δ┴╧╡Ñíó┴∞┴╧╡Ñ┤≥╙í│÷"
  58. ? " "
  59. ? "       └┤╓«║≤▓┼╜°╨╨╡─íú╒√└φ╓«║≤ú¼╡▒╚╒┴∞┴╧╡Ñíó╚δ┐Γ╡Ñ╘┌╝╞╦π╗·─┌╧√╩ºú¼╦∙╥╘╥╗"
  60. ? " "
  61. ? "       ╢¿╥¬╘┌┤≥╙í╓«║≤╘┘╜°╨╨┤╦╧ε╣ñ╫≈ú¼╬±▒╪╨í╨─ ! "
  62. ? " "
  63. WAIT '       ╩╟╖±╛÷╢¿╜°╨╨╒√└φú¿ú┘ú»ú╬ú⌐' TO SF
  64.         DO WHILE SF='Y'.OR.SF='y'
  65.             USE &P0:CK88
  66.             DELE ALL FOR C06=0
  67.             USE
  68.             USE &P0:CKO
  69.             ZAP
  70.             USE
  71.             USE &P0:CKI
  72.             ZAP
  73.             USE
  74.             SF='N' 
  75.         ENDDO
  76.    case test='0'
  77. QUIT
  78.  endcase
  79. enddo
  80.