*****************  検索修正 *****************
*****************  EDIT.PRG **** T.Chino ****
SET ORDER TO 1
DO WHILE .T.
CLEAR
SET COLOR TO BR
  @ 1,13   SAY "*************************************************"
  @ 2,13   SAY "*                                               *"
  @ 3,13   SAY "************************************* 修正.PRG **"
SET COLOR TO GR
  @ 2,16   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
SET COLOR TO BI
  @ 5,15   SAY "                                              "
  @ 6,15   SAY "                                              "
  @ 7,15   SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  @ 8,15   SAY "                                              "
  @ 9,15   SAY "                                              "
  @ 10,15  SAY "                                              "
  @ 11,15  SAY "                                              "
  @ 12,15  SAY "                                              "
  @ 13,15  SAY "　　　　　　　　　　　　　　　　　　　　　　　"
  @ 14,15  SAY "                                              "
  @ 15,15  SAY "                                              "
  @ 16,15  SAY "                                              "
  @ 17,15  SAY "                                              "
  @ 18,15  SAY "                                              "
  @ 19,15  SAY "                                              "

STOR 06 TO X1
STOR 08 TO X2
STOR 10 TO X3
STOR 12 TO X4
STOR 14 TO X5
STOR 16 TO X6
STOR 17 TO X7
STOR 18 TO X8
SET COLOR TO

STOR "  QSL 登録 ( EDITQSL.PRG ) " TO MEN1
STOR " 　　　　　(             ) " TO MEN2
STOR "  索引修正 ( RENDX  .PRG ) " TO MEN3
STOR "  全項修正 ( EDITALL.PRG ) " TO MEN4
STOR "  終　　了    "             TO MEN5
STOR "  ＲＥＤ　２　ＰＵＬＳ "     TO MEN6
STOR "  ＴＥＳＴ (Z.PRG) "         TO MEN7
STOR "  ＡＳＳＩＳＴ "             TO MEN8

STOR 1 TO NUM
DO WHILE NUM<=8
STOR STR(NUM,1) TO NO
@ X&NO,25 SAY MEN&NO
STOR NUM+1 TO NUM
ENDDO

SET COLOR TO ,,BR
@ 21,15 TO 23,60 DOUBLE
@ 22,20 SAY " ↑ , ↓ で選択･ＲＥＴＵＲＮで決定"

STOR 1 TO NUM
DO WHILE .T.
SET COLO TO GRI
STOR STR(NUM,1) TO NO
***************************
IF NO="6" .OR. NO="7" .OR. NO="8"
 SET COLO TO R,R*,BG
ENDIF
***************************
@ X&NO,25 SAY MEN&NO
SET COLO TO 

SET CURS OFF
STOR " " TO NUMBER
@ 0,0 GET NUMBER
READ
SET CURS ON

IF READKEY()=4
@ X&NO,25 SAY MEN&NO
ENDIF
IF READKEY()=5
@ X&NO,25 SAY MEN&NO
ENDIF
IF READKEY()=12
RETURN
ENDIF
 
************************************
DO CASE 
   CASE READKEY()=4 .AND. NUM=1
        STOR 8 TO NUM   
   CASE READKEY()=4
        STOR NUM-1 TO NUM   
   CASE READKEY()=5 .AND. NUM=8
        STOR 1 TO NUM   
   CASE READKEY()=5
        STOR NUM+1 TO NUM   
   CASE READKEY()=15
          
     DO CASE 
        CASE NUM=1
          DO EDITQSL
        CASE NUM=2
          DO HAM
        CASE NUM=3
          DO RENDX
        CASE NUM=4
          DO EDITALL
        CASE NUM=5
          RETURN
        CASE NUM=6
          RUN RED2
        CASE NUM=7
          DO Z
        CASE NUM=8
          ASSIST
       ENDCASE
      EXIT
    OTHERWISE
      LOOP
   ENDCASE
 ENDDO
ENDDO