*****************  印刷 *****************
*************  INJI.PRG **** T.Chino ****
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 GI
  @ 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 "  交信月日 ( 交信月日.PRG ) " TO MEN1
STOR "  周波数帯 ( 周波数帯.PRG ) " TO MEN2
STOR "  市郡番号 ( 市郡番号.PRG ) " TO MEN3
STOR "  格子位置 ( 格子位置.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 QSODATE
        CASE NUM=2
          DO FREQ
        CASE NUM=3
          DO JCG
        CASE NUM=4
          DO GLP
        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