Liren Large Software Subsidy 5/05.iso/a/a085/1.ddi/EXP6_5.PRG

Text File | 1994-01-10 | 11.5 KB | 409 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: EXP6_5.PRG                                           ⌐ª
*⌐ª     Function: ┐Γ╬¼╗ñ╡─╨▐╕─íó╔╛│²│╠╨≥                               ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
SET TALK OFF
SET DATE ANSI
SET SCOREBOARD OFF
SET STATUS OFF
SET SAFETY OFF

PUBLIC Ifover
PRIVATE Hotkey
STORE .F. TO Ifover
STORE  0  TO Hotkey

USE PERSONAL
INDEX ON A1 TO PERSIDX
DO Show
DO WHILE .NOT. Ifover
   DO Side_men WITH Hotkey
   * ╙├ DO CASE ╛÷╢¿│╠╨≥╫▀╧≥
   DO CASE
      CASE Hotkey=1
           DO Del_old
      CASE Hotkey=2
           DO Edi_old
      CASE Hotkey=3
           DO Skip WITH -1
      CASE Hotkey=4
           DO Skip WITH 1
      CASE Hotkey=5
           GO TOP
      CASE Hotkey=6
           GO BOTTOM
      CASE Hotkey=7
           DO Skip WITH 0
      CASE Hotkey=8
           DO Check_rec
      CASE Hotkey=9
           @6,0 CLEAR
           DISPLAY NOTE
           @23,0
           WAIT
      CASE Hotkey=10
           RETURN
           Ifover=.T.
   ENDCASE
   DO Show
ENDDO
RETURN

* ╩Σ╚δ╝╟┬╝╨≥║┼▓Θ╒╥╝╟┬╝╫╙│╠╨≥
PROCEDURE Check_rec
PRIVATE Rec_point
PRIVATE Ai
STORE RECNO() TO Rec_point
STORE 0 TO Ai
SET COLOR TO +w/r
@10,22 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
@11,22 SAY "⌐ª    ╩Σ╚δ╝╟┬╝╨≥║┼:             ⌐ª"
@12,22 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
@11,43 GET Ai PICT "99999999"
READ
SEEK Ai
IF EOF() .OR. BOF()
  GO Rec_point
  DO Dis_info WITH "        ╦∙▓Θ╝╟┬╝▓╗┤µ╘┌      ",40
ENDIF
RETURN

* ╔╛│²╝╟┬╝╫╙│╠╨≥
PROCEDURE Del_old
PRIVATE Agr
STORE SPACE(1) TO Agr
SET COLOR TO +W/R
@11,24 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
@12,24 SAY "⌐ª         ╩╟╖±╔╛│²▒╛╝╟┬╝ (Y/N)         ⌐ª"
@13,24 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
@12,56 GET Agr PICT "!"
READ
IF Agr="Y"
  DELETE
  PACK
  IF .NOT. EOF() .OR. .NOT. BOF()
    GO BOTTOM
  ENDIF
ENDIF
RETURN

* ╤╙╩▒╫╙│╠╨≥
PROCEDURE Delay
PARAMETERS long
PRIVATE I
STORE 0 TO I
DO WHILE I<long
  I=I+1
ENDDO
RETURN

* ╧╘╩╛╠ß╩╛╨┼╧ó╫╙│╠╨≥
PROCEDURE Dis_info
PARAMETERS info,delay
PRIVATE i
** ╙├ i ╓╡╡≈╒√╧╘╩╛ "info" ╦┘╢╚
i= -15500
SET COLOR TO N/W
@17,14 say "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
@18,14 say "⌐ª    "+info+"      ⌐ª"
@19,14 say "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
DO WHILE i<delay
   i=i+1
ENDDO
RETURN

* ╨▐╕─╝╟┬╝╫╙│╠╨≥
PROCEDURE Edi_old
PRIVATE Rec_point
PRIVATE Ai,Aj,A2i,A3i,A4i,A5i,A6i,A7i,A8i,A9i,A10i,A21i,A22i,A23i,A24i
PRIVATE A10i,A11i,A12i,A13i,A14i,A15i,A16i,A17i,A18i,A19i,A20i,NOTEi
PRIVATE Dup
PRIVATE Add_mem
PRIVATE Agr

STORE .T. TO Dup
STORE SPACE(1) TO Add_mem
STORE SPACE(1) TO Agr
STORE RECNO() TO Rec_point
STORE  A1 TO  Aj
STORE  A1 TO  Ai
STORE  A2 TO  A2i
STORE  A3 TO  A3i
STORE  A4 TO  A4i
STORE  A5 TO  A5i
STORE  A6 TO  A6i
STORE  A7 TO  A7i
STORE  A8 TO  A8i
STORE  A9 TO  A9i
STORE A10 TO A10i
STORE A11 TO A11i
STORE A12 TO A12i
STORE A13 TO A13i
STORE A14 TO A14i
STORE A15 TO A15i
STORE A16 TO A16i
STORE A17 TO A17i
STORE A18 TO A18i
STORE A19 TO A19i
STORE A20 TO A20i
STORE A21 TO A21i
STORE A22 TO A22i
STORE A23 TO A23i
STORE A24 TO A24i

SET COLOR TO +B/W
@ 3,2    SAY Ai   PICT "99999999"
@ 3,12   SAY A2i  PICT "XXXXXXXXXXXXXXXX"
@ 3,30   SAY A3i  PICT "XXXXXXXXXX"
@ 3,42   SAY A4i  PICT "XXXXXXXXXX"
@ 7,2    SAY A5i  PICT "XXXXXXXX"
@ 7,13   SAY A6i  PICT "XX"
@ 7,18   SAY A7i  PICT "XXXXXX"
@ 7,26   SAY A8i  PICT "XXXXXX"
@ 7,34   SAY A9i  PICT "@D"
@ 7,44   SAY A10i PICT "XXXXXXXX"
@ 11,2   SAY A11i PICT "@D"
@ 11,12  SAY A12i PICT "999.99"
@ 11,20  SAY A13i PICT "XXXXXXXXXX"
@ 11,32  SAY A14i PICT "XXXXXXXXXX"
@ 11,44  SAY A15i PICT "@D"
@ 15,2   SAY A16i PICT "XXXXXXXXXX"
@ 15,15  SAY A17i PICT "XXXXXX"
@ 15,24  SAY A18i PICT "@D"
@ 15,38  SAY A19i PICT "XXXXXXXXXX"
@ 19,2   SAY A20i PICT "XXXXXXXXXX"
@ 19,14  SAY A21i PICT "XXXXXXXXXX"
@ 19,26  SAY A22i PICT "XXXXXX"
@ 19,38  SAY A23i PICT "XXXXXXXXXX"
@ 23,7   SAY A24i PICT "L"

DO WHILE Dup
   @3,2 GET Ai PICT "99999999"
   READ
   SEEK Ai
   IF EOF().OR.BOF().OR.(Ai=Aj)
      Dup=.F.
   ELSE
      SET COLOR TO *W/R
      @15,30 SAY "╨≥║┼╓╪╕┤,╟δ╘┘╩Σ╚δ"
      DO Delay WITH 30
      SET COLOR TO +W/B
      @15,30 SAY "                 "
   ENDIF
ENDDO

SET COLOR TO +W/B
***IF Ai<>" "
IF Ai<>0
   GO Rec_point
   @ 3, 2   GET Ai   PICT "99999999"
   @ 3,12   GET A2i  PICT "XXXXXXXXXXXXXXXX"
   @ 3,30   GET A3i  PICT "XXXXXXXXXX"
   @ 3,42   GET A4i  PICT "XXXXXXXXXX"
   @ 7, 2   GET A5i  PICT "XXXXXXXX"
   @ 7,13   GET A6i  PICT "XX"
   @ 7,18   GET A7i  PICT "XXXXXX"
   @ 7,26   GET A8i  PICT "XXXXXX"
   @ 7,34   GET A9i  PICT "@D"
   @ 7,44   GET A10i PICT "XXXXXXXX"
   @11, 2   GET A11i PICT "@D"
   @11,12   GET A12i PICT "999.99"
   @11,20   GET A13i PICT "XXXXXXXXXX"
   @11,32   GET A14i PICT "XXXXXXXXXX"
   @11,44   GET A15i PICT "@D"
   @15, 2   GET A16i PICT "XXXXXXXXXX"
   @15,15   GET A17i PICT "XXXXXX"
   @15,24   GET A18i PICT "@D"
   @15,38   GET A19i PICT "XXXXXXXXXX"
   @19, 2   GET A20i PICT "XXXXXXXXXX"
   @19,14   GET A21i PICT "XXXXXXXXXX"
   @19,26   GET A22i PICT "XXXXXX"
   @19,38   GET A23i PICT "XXXXXXXXXX"
   @23, 7   GET A24i PICT "L"
   READ

   GO Rec_point
   REPLACE A1 WITH Ai
   SET COLOR TO +W/R
   @11,22 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
   @12,22 SAY "⌐ª        ╩╟╖±╨▐╕─╣ñ╫≈╛¡└·(Y/N)         ⌐ª"
   @13,22 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
   @12,54 GET Add_mem PICT "!"
   READ

   SET COLOR TO +W/B
   IF Add_mem="Y"
      CLEAR
      WAIT WINDOW  "═¼╩▒░┤╧┬ Ctrl ║═ PgDn ╝ⁿ,╜°╚δ╣ñ╫≈╛¡└·╩Σ╚δ"
      CHANGE FIELDS NOTE FOR RECNO()=Rec_point
   ENDIF
   SET COLOR TO +W/R
   @11,22 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
   @12,22 SAY "⌐ª        ╩²╛▌╩╟╖±┤µ┼╠(Y/N)             ⌐ª"
   @13,22 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
   @12,52 GET Agr PICT "!"
   READ
   SET COLOR TO +W/B
   IF Agr="Y"
      GO Rec_point
      REPLACE A1 WITH Ai
      REPLACE A2 WITH A2i
      REPLACE A3 WITH A3i
      REPLACE A4 WITH A4i
      REPLACE A5 WITH A5i
      REPLACE A6 WITH A6i
      REPLACE A7 WITH A7i
      REPLACE A8 WITH A8i
      REPLACE A9 WITH A9i
      REPLACE A10 WITH A10i
      REPLACE A11 WITH A11i
      REPLACE A12 WITH A12i
      REPLACE A13 WITH A13i
      REPLACE A14 WITH A14i
      REPLACE A15 WITH A15i
      REPLACE A16 WITH A16i
      REPLACE A17 WITH A17i
      REPLACE A18 WITH A18i
      REPLACE A19 WITH A19i
      REPLACE A20 WITH A20i
      REPLACE A21 WITH A21i
      REPLACE A22 WITH A22i
      REPLACE A23 WITH A23i
      REPLACE A24 WITH A24i
      IF Ai<>Aj
         INDEX ON A1 TO zyjg_idx
      ENDIF
   ENDIF
ENDIF
GO Rec_point
RETURN

* ╧╘╩╛▒φ±╦╫╙│╠╨≥
PROCEDURE P_shell
   SET COLOR TO W/N
   CLEAR
   SET COLOR TO W/B
   @ 0, 0  SAY '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
   @ 1, 0  SAY '⌐ª ▒α  ║┼ ⌐ª   ╡Ñ     ╬╗    ⌐ª  ▓┐  ├┼  ⌐ª  ┤ª  ╩╥  ⌐ª'
   @ 2, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 3, 0  SAY '⌐ª        ⌐ª                ⌐ª          ⌐ª          ⌐ª'
   @ 4, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 5, 0  SAY '⌐ª ╨╒  ├√ ⌐ª╨╘▒≡⌐ª ├±╫σ ⌐ª ╝«╣ß ⌐ª│÷╔·╚╒╞┌⌐ª╒■╓╬├µ├▓⌐ª'
   @ 6, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 7, 0  SAY '⌐ª        ⌐ª    ⌐ª      ⌐ª      ⌐ª        ⌐ª        ⌐ª'
   @ 8, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐╨⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 9, 0  SAY '⌐ª╣ñ╫≈╩▒╝Σ⌐ª╣ñ╫╩╝╢⌐ª ╨╨╒■╓░╬± ⌐ª ╫¿╥╡╓░╬± ⌐ª╞└╢¿╩▒╝Σ⌐ª'
   @ 10,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 11,0  SAY '⌐ª        ⌐ª      ⌐ª          ⌐ª          ⌐ª        ⌐ª'
   @ 12,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 13,0  SAY '⌐ª ╞└╢¿╡Ñ╬╗ ⌐ª╬─╗»│╠╢╚⌐ª▒╧╥╡╩▒╝Σ⌐ª   ▒╧ ╥╡ ╘║ ╨ú    ⌐ª'
   @ 14,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 15,0  SAY '⌐ª          ⌐ª        ⌐ª        ⌐ª                  ⌐ª'
   @ 16,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 17,0  SAY '⌐ª ╦∙╤º╫¿╥╡ ⌐ª ┤╙╩┬╣ñ╫≈ ⌐ª╦∙╤º═Γ╙∩⌐ª  ═Γ ╙∩ │╠ ╢╚   ⌐ª'
   @ 18,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 19,0  SAY '⌐ª          ⌐ª          ⌐ª        ⌐ª                ⌐ª'
   @ 20,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 21,0  SAY '⌐ª ╘°╖±│÷╣· ⌐ª            ▒╕     ╫ó                 ⌐ª'
   @ 22,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ 23,0  SAY '⌐ª          ⌐ª                                      ⌐ª'
   @ 24,0  SAY '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'
RETURN

* ╧╘╩╛╝╟┬╝╫╙│╠╨≥
PROCEDURE Show
PRIVATE Agr
SET COLOR TO +W/B,+B/W
STORE SPACE(1) TO Agr
IF .NOT. Ifover
   SET COLOR TO W/N  &&+w/b
   CLEAR
   DO P_shell
   SET COLOR TO +W/BGg
   @ 3,2    SAY A1  PICT "99999999"
   @ 3,12   SAY A2  PICT "XXXXXXXXXXXXXXXX"
   @ 3,30   SAY A3  PICT "XXXXXXXXXX"
   @ 3,42   SAY A4  PICT "XXXXXXXXXX"
   @ 7,2    SAY A5  PICT "XXXXXXXX"
   @ 7,13   SAY A6  PICT "XX"
   @ 7,18   SAY A7  PICT "XXXXXX"
   @ 7,26   SAY A8  PICT "XXXXXX"
   @ 7,34   SAY A9  PICT "@D"
   @ 7,44   SAY A10 PICT "XXXXXXXX"
   @ 11,2   SAY A11 PICT "@D"
   @ 11,12  SAY A12 PICT "999.99"
   @ 11,20  SAY A13 PICT "XXXXXXXXXX"
   @ 11,32  SAY A14 PICT "XXXXXXXXXX"
   @ 11,44  SAY A15 PICT "@D"
   @ 15,2   SAY A16 PICT "XXXXXXXXXX"
   @ 15,15  SAY A17 PICT "XXXXXX"
   @ 15,24  SAY A18 PICT "@D"
   @ 15,38  SAY A19 PICT "XXXXXXXXXX"
   @ 19,2   SAY A20 PICT "XXXXXXXXXX"
   @ 19,14  SAY A21 PICT "XXXXXXXXXX"
   @ 19,26  SAY A22 PICT "XXXXXX"
   @ 19,38  SAY A23 PICT "XXXXXXXXXX"
   @ 23,7   SAY A24 PICT "L"
ENDIF
SET COLOR TO +W/B
RETURN

* ▓╦╡Ñ╫╙│╠╨≥
PROCEDURE Side_men
PARAMETERS Hotkey
SET COLOR TO w/r
@ 6, 60 TO 13,77
@ 3, 60 TO 16,77
SET COLOR TO B/W,+W/BG
@ 4,61 PROMPT  "      ╔╛│²╝╟┬╝  "  MESSAGE SPACE (10)+"╔╛│²╡▒╟░╧╘╩╛╝╟┬╝"
@ 5,61 PROMPT  "      ╨▐╕─╝╟┬╝  "  MESSAGE SPACE (10)+"╨▐╕─╡▒╟░╧╘╩╛╝╟┬╝"
@ 7,61 PROMPT  "    ╔╧╥╗╕÷╝╟┬╝  "  MESSAGE SPACE (10)+"╧╘╩╛╡▒╟░╝╟┬╝╡─╔╧╥╗╕÷╝╟┬╝"
@ 8,61 PROMPT  "    ╧┬╥╗╕÷╝╟┬╝  "  MESSAGE SPACE (10)+"╧╘╩╛╡▒╟░╝╟┬╝╡─╧┬╥╗╕÷╝╟┬╝"
@ 9,61 PROMPT  "    ╡┌╥╗╕÷╝╟┬╝  "  MESSAGE SPACE (10)+"╧╘╩╛╩²╛▌┐Γ╓╨╡┌╥╗╕÷╝╟┬╝"
@10,61 PROMPT  "  ╫ε║≤╥╗╕÷╝╟┬╝  "  MESSAGE SPACE (10)+"╧╘╩╛╩²╛▌┐Γ╓╨╫ε║≤╥╗╕÷╝╟┬╝"
@11,61 PROMPT  "  ╠°╓┴─│╕÷╝╟┬╝  "  MESSAGE SPACE (10)+"╧╘╩╛╡▒╟░╝╟┬╝╟░,║≤╡──│╕÷╝╟┬╝"
@12,61 PROMPT  "  ╒╥╡╜─│╕÷╝╟┬╝  "  MESSAGE SPACE (10)+"░┤╧ε─┐▒α║┼╢╘╩²╛▌┐Γ╜°╨╨▓Θ╤»"
@14,61 PROMPT  "      ╘─╢┴╛¡└·  "  MESSAGE SPACE (10)+"╧╘╩╛╡▒╟░╝╟┬╝╡─▒╕╫ó╫╓╢╬"
@15,61 PROMPT  "    ╖╡╗╪╓≈▓╦╡Ñ  "  MESSAGE SPACE (10)+"╜ß╩°╡▒╟░▓┘╫≈,╖╡╗╪╔╧╥╗╝╢▓╦╡Ñ"
*display message
SET MESSAGE TO 24
*Set the menu to Choices
MENU TO Hotkey
RETURN

* ╝╟┬╝╠°╫¬╫╙│╠╨≥
PROCEDURE Skip
PARAMETERS Skipno
PRIVATE No
STORE 0 TO No
DO CASE
  CASE Skipno=1
    IF .NOT. EOF()
      SKIP
    ENDIF
  CASE Skipno=-1
    IF .NOT. BOF()
      SKIP -1
    ENDIF
  CASE Skipno=0
         SET COLOR TO +w/r
         @10,22 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
         @11,22 SAY "⌐ª     ╩Σ╚δ╠°╫¬╝╟┬╝╩²:          ⌐ª"
         @12,22 SAY "⌐ª         ╧≥╟░(-)              ⌐ª"
         @13,22 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
         @11,45 GET No PICT "999"
         READ
         IF .NOT.(BOF().AND.No<0).OR.(EOF().AND.No>0)
            SKIP No
         ENDIF
ENDCASE
DO CASE
  CASE EOF()
     GO BOTTOM
     DO Dis_info WITH "╡▒╟░╝╟┬╝╩╟╩²╛▌┐Γ╫ε║≤╥╗╕÷╝╟┬╝",30
  CASE BOF()
     GO TOP
     DO Dis_info WITH "  ╡▒╟░╝╟┬╝╩╟╩²╛▌┐Γ╡┌╥╗╕÷╝╟┬╝",30
ENDCASE
RETURN