home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CJTO.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.6 KB  |  71 lines
  1.         ***** │╔╝¿═│╝╞(CJTO)*****
  2. CLEAR
  3. @ 2,18 SAY "*****│╔╝¿═│╝╞▓╦╡Ñ*****"
  4. @ 4,24 SAY "0. ═╦│÷"
  5. @ 5,24 SAY "1. ░┤╕°╢¿┐╬│╠├√═│╝╞"
  6. @ 6,24 SAY "2. ╥╗░π═│╝╞"
  7. STORE " " TO LLO
  8. @ 8,24 SAY "╟δ╤í╘±╥╘╔╧╣ª─▄╝ⁿ(0--2) " GET LLO
  9. READ
  10.   DO CASE
  11.      CASE="0"
  12.      RETURN
  13.      CASE="1"
  14.      STORE .T. TO CJT
  15.      DO WHILE CJT
  16.      CLEAR
  17.      DO XZC
  18.      STORE "  " TO X
  19.      CLEAR
  20.      @ 2,10 SAY "╟δ╕°│÷═│╝╞╡──Ω╝╢" GET X
  21.      READ
  22.      SELECT B
  23.      USE B:AC6&Z
  24.      STORE "  " TO MKH
  25.      STORE "                    " TO MKM
  26.      @ 3,10 SAY "╟δ╕°│÷╦∙═│╝╞┐╬│╠▒α║┼" GET MKH
  27.      @ 4,10 SAY "╗≥╕°│÷┐╬│╠├√" GET MKM
  28.      READ
  29.      SELECT A
  30.      USE B:KM6&Z&X
  31.      LOCATE FOR KH=MKH .OR. KM=MKM
  32.      MKH=KH
  33.      MKM=KM
  34.      MXQ=XQ
  35.      MKF=KF
  36.      SELECT B
  37.      DO SBU-1
  38.   STORE " " TO  YES
  39.   @ 9,10 SAY "╝╠╨°═│╝╞┬≡ (Y/N) ?" GET YES
  40.   READ
  41.     IF UPPER(YES)="Y"
  42.        LOOP
  43.     ENDIF
  44.   STORE .F. TO CJT
  45.   ENDDO
  46.     CASE LLO="2"
  47.          CLEAR
  48.          DO XZC
  49.          STORE "  " TO
  50.          CLEAR
  51.          @ 2,10 SAY "╟δ╕°│÷╦∙═│╝╞─Ω╝╢ (84,85,86...)"GET X
  52.          READ
  53.          SELECT B
  54.          USE B:AC6&Z
  55.          SELECT A
  56.          USE B:KM6&Z&X
  57.            DO WHILE .NOT. EOF()
  58.               MKM=KM
  59.               MKH=KH     
  60.               MXQ=XQ
  61.               MKF=KF
  62.               DO SBU-1
  63.               SKIP+1
  64.             SELECT C
  65.             USE B:CJZT
  66.             REPL CBIN WITH &X&ZMKH,SHU WITH I,CJ5 WITH MGB5,CJ4 ì
  67. WITH MGB4,CJ3 WITH MGB3,CJ2 WITH MGB2,CJ1 WITH MGB1
  68.             SKIP+1
  69.             ENDDO
  70.          ENDCASE
  71. RETURN