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

Text File | 1994-01-11 | 5.3 KB | 156 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: DISPLAY.PRG                                          ⌐ª
*⌐ª     Function: ╧╘╩╛╝╟┬╝╫╙│╠╨≥╖╢└²                                   ⌐ª
*⌐ª        Proce: UNIT_FND.PRG    AGE_FND.PRG     PART_FND.PRG         ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
* ╢¿╥σ╧╘╩╛╝╟┬╝─┌╚▌╡─┤░┐┌ pers
DEFINE WINDOW pers FROM 0,0 TO 24,51 ;
       FLOAT SHADOW COLOR SCHEME 5
* ╢¿╥σ▓╦╡Ñ┤░┐┌ pane12
DEFINE WINDOW panel2 FROM 1, 60 TO 17,76 ;
       FLOAT SHADOW COLOR SCHEME 9

* ╢¿╥σ╧╘╩╛╠ß╩╛╨┼╧ó┤░┐┌ info
DEFINE WINDOW info  FROM 10,20 TO 14,60 ;
       FLOAT SHADOW COLOR SCHEME 7

* ╢¿╥σ╧╘╩╛▒╕╫ó╫╓╢╬┤░┐┌ memf
DEFINE WINDOW memf  FROM 2,10,20 TO 24,70 ;
       FLOAT SHADOW COLOR SCHEME 8

ACTIVATE WINDOW panel2

USE PERSONAL INDEX PERSTEMP
m.saverecno = RECNO()
GO TOP
m.toprec = RECNO()
GO BOTTOM
m.bottomrec = RECNO()
GO m.saverecno

* ╢¿╥σ╥╗╕÷ Push Buttons
@ 1,2 GET act PICTURE "@*VN \<1.╡┌╥╗╧ε;\<2.╟░╥╗╧ε;"+;
              "\<3.╧┬╥╗╧ε;\<4.╫ε║≤╧ε;\<5.╝≥  └·;\?\<6.═╦  │÷";
              SIZE 1,11,1 DEFAULT 0 VALID actvalid()
ACTIVATE WINDOW pers

N = 0
DO BOX
SET CURSOR ON
@ N+3 ,  0 SAY A1   PICTURE "99999999"
@ N+3 , 10 SAY A2   PICTURE "XXXXXXXXXXXXXXXX"
READ CYCLE SHOW refresh()
RELEASE WINDOWS pers,panel2

* ╫╘╢¿╥σ║»╩², ╛÷╢¿ Push Buttons ╡─╤í╘±
FUNCTION actvalid
DO CASE
   CASE act = 1
        GO TOP
        SHOW GET act, 1 DISABLE
        SHOW GET act, 2 DISABLE
        SHOW GET act, 3 ENABLE
        SHOW GET act, 4 ENABLE
   CASE act = 2
        SHOW GETS ENABLE
        SKIP -1
        IF RECNO() = m.toprec
           SHOW GET act, 1 DISABLE
           SHOW GET act, 2 DISABLE
           SHOW GET act, 3 ENABLE
           SHOW GET act, 4 ENABLE
           GO TOP
        ENDIF
   CASE act = 3
        SHOW GETS ENABLE
        SKIP 1
        IF RECNO() = m.bottomrec
           SHOW GET act, 1 ENABLE
           SHOW GET act, 2 ENABLE
           SHOW GET act, 3 DISABLE
           SHOW GET act, 4 DISABLE
           GO BOTTOM
        ENDIF
   CASE act = 4
        GO BOTTOM
        SHOW GET act, 1 ENABLE
        SHOW GET act, 2 ENABLE
        SHOW GET act, 3 DISABLE
        SHOW GET act, 4 DISABLE
   CASE act = 5
        ACTIVATE WINDOW memf
        CLEAR
        DISPLAY NOTE
        WAIT " "
        DEACTIVATE WINDOW memf
   CASE act = 6
        CLEAR READ
ENDCASE
SHOW GETS
RETURN 0

* ╧╘╩╛╝╟┬╝║┼╫╙│╠╨≥
FUNCTION refresh
STORE WOUTPUT() TO currwind
IF SYS(2016) = "pers" OR SYS(2016) = "*"
    SET COLOR TO +W/B,W/R
    ACTIVATE WINDOW pers SAME
    @22,20 SAY "╝╟┬╝║┼ #:"+ STR(RECNO())
    @ N+3 ,  0 SAY A1   PICTURE "99999999"
    @ N+3 , 10 SAY A2   PICTURE "XXXXXXXXXXXXXXXX"
    @ N+3 , 28 SAY A3   PICTURE "XXXXXXXXXX"
    @ N+3 , 40 SAY A4   PICTURE "XXXXXXXXXX"
    @ N+7 ,  0 SAY A5   PICTURE "XXXXXXXX"
    @ N+7 , 11 SAY A6   PICTURE "XX"
    @ N+7 , 16 SAY A7   PICTURE "XXXXXX"
    @ N+7 , 24 SAY A8   PICTURE "XXXXXX"
    @ N+7 , 32 SAY A9   PICTURE "@D"
    @ N+7 , 42 SAY A10  PICTURE "XXXXXXXX"
    @ N+11,  0 SAY A11  PICTURE "@D"
    @ N+11, 10 SAY A12  PICTURE "999.99"
    @ N+11, 18 SAY A13  PICTURE "XXXXXXXXXX"
    @ N+11, 30 SAY A14  PICTURE "XXXXXXXXXX"
    @ N+11, 42 SAY A15  PICTURE "@D"
    @ N+15,  0 SAY A16  PICTURE "XXXXXXXXXX"
    @ N+15, 13 SAY A17  PICTURE "XXXXXX"
    @ N+15, 22 SAY A18  PICTURE "@D"
    @ N+15, 36 SAY A19  PICTURE "XXXXXXXXXX"
    @ N+19,  0 SAY A20  PICTURE "XXXXXXXXXX"
    @ N+19, 12 SAY A21  PICTURE "XXXXXXXXXX"
    @ N+19, 24 SAY A22  PICTURE "XXXXXX"
    @ N+19, 36 SAY A23  PICTURE "XXXXXXXXXX"
    @ N+23,  5 SAY A24  PICTURE "L"
ENDIF
IF NOT EMPTY(currwind)
   ACTIVATE WINDOW (currwind) SAME
ENDIF
RETURN .T.

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