home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / ck.img / S5 / CK33.PRG < prev    next >
Encoding:
Text File  |  1988-12-02  |  1.4 KB  |  54 lines
  1. * CK33.PRG
  2. DO WHILE .T.
  3. CLEAR
  4.         @1,25 SAY "==================================="
  5.         @2,25 SAY "      ╚δ  ┐Γ  ├≈  ╧╕  ╟Θ  ┐÷"
  6.         @3,25 SAY "        1.  ╡Ñ╕÷▓·╞╖▓Θ╤»"
  7.         @4,25 SAY "        2.  ╚½▓┐▓·╞╖▓Θ╤»"
  8.         @5,25 SAY "        3.  ▓╗   ▓Θ   ╤»"
  9.         @6,25 SAY "============================"
  10.         WAIT "              ╟δ╤í╘±ú█ú▒ú¡ú│ú▌ " TO CX
  11.         CLEAR
  12. SH14='│÷│º'
  13. SH17='▒ú ╣▄ ╘▒'
  14. DO CASE
  15.    CASE CX='1'
  16.         USE &P0:CK88
  17.           JS='Y'
  18.           DO WHILE JS='Y'.OR.JS='y'
  19.             CLEAR
  20.             DM1="        "
  21.          @2,12 SAY '╟δ╩Σ╚δ▒╗▓Θ╤»▓·╞╖┤·┬δ,╗╪│╡╘≥╖╡╗╪' GET DM1 PICT "XXXXXXXX"
  22.             READ
  23.             IF DM1=""
  24.             JS="N"
  25.             LOOP
  26.             ENDIF
  27.             LOCA FOR C01=DM1.AND.C01<>""
  28.             IF EOF().OR.BOF()
  29.              WAIT '      ┤╦▓·╞╖╗╣├╗╙╨╚δ┐Γ,░┤╚╬╥╗╝ⁿ╝╠╨° !'
  30.             ELSE
  31.              CLEAR
  32.              M=0
  33.              DO SHE2 
  34.              WAIT '            ╩╟╖±╝╠╨°▓Θ╤»ú█ú┘ú»ú╬ú▌ ' TO JS
  35.             ENDIF
  36.           ENDDO
  37.    CASE CX='2'
  38.         USE &P0:CK88
  39.           GO TOP
  40.           STORE 1 TO M
  41.           DO WHILE .NOT.EOF()
  42.             DO SHE2
  43.             WAIT '         ░┤╚╬╥╗╝ⁿ╝╠╨° !'
  44.             STORE M+1 TO M
  45.             IF .NOT.EOF()
  46.             SKIP
  47.             ENDIF
  48.           ENDDO
  49.    CASE CX='3'
  50.         USE
  51.         RETURN
  52. ENDCASE
  53. ENDDO  
  54.