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

Text File | 1994-01-18 | 5.5 KB | 135 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: EXP18_1.PRG                                          ⌐ª
*⌐ª     Function: ┤≥╙í▒¿▒φ╖╢└²╥╗                                       ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
SET HEADING OFF
SET SAFETY  OFF
SET TALK OFF
SET MEMOWIDTH TO 80
SET DATE ANSI
RELE ALL

CLEA
SET DEVICE TO SCREEN
@ 5,23 SAY  ' ╒² ╘┌ ┤≥ ╙í ╕╔ ▓┐ ╕÷ ╚╦ ╫┤ ┐÷ ▒φ '
SELECT 1
USE PERSONAL

STORE .T. TO L1
STORE  66 TO PL             && ├┐╥│╨╨╩²
STORE  24 TO NM             &&
STORE  1  TO PN             && ╥│║┼╝╞╩²╞≈
SET DEVICE TO PRINT
SET PRINT ON
DO WHIL L1
   @1 ,16 SAY  ' ┤≤ ╗¬ ├│ ╥╫ ╝» ═┼ ╣½ ╦╛ ╕÷ ╚╦ ╫┤ ┐÷ ▒φ '
   STOR 3 TO N1
   @N1,66  SAY YEAR(DATE())
   @N1,71  SAY '─Ω'
   @N1,73  SAY MONTH(DATE())
   @N1,76  SAY '╘┬'
   @N1,77  SAY DAY(DATE())
   @N1,80  SAY '╚╒'
   STOR DTOC(A9)  TO A9S
   STOR DTOC(A11) TO A11S
   STOR DTOC(A15) TO A15S
   STOR DTOC(A18) TO A18S
   STOR N1+1 TO N1
   IF A24 .NOT. .T.
      STORE "╩╟"  TO A24A
   ELSE
      STORE "╖±"  TO A24A
   ENDIF
   @N1,0   SAY ''
   STOR N1+1 TO N1

   * ┤≥╙í═╝╧≤
   * COPY MEMO PHOTO TO PHOTNAME.IMG
   * RUN PHOTO P F:PHOTNAME.IMG X:68, Y:2,/2

   @ N1  , 0  SAY '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'
   @ N1+1, 0  SAY '⌐ª ▒α  ║┼ ⌐ª   ╡Ñ     ╬╗    ⌐ª  ▓┐  ├┼  ⌐ª  ┤ª  ╩╥  ⌐ª ╨╒  ├√ ⌐ª╨╘▒≡⌐ª ├±╫σ ⌐ª                        ⌐ª'
   @ N1+2, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐╚                        ⌐ª'
   @ N1+3, 0  SAY '⌐ª'+STR(A1,8)+'⌐ª'+A2+'⌐ª'+A3+'⌐ª'+A4+'⌐ª'+A5+'⌐ª '+A6+' ⌐ª  '+A7+'⌐ª                        ⌐ª'
   @ N1+4, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐╨⌐╪⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐╪⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╚                        ⌐ª'
   @ N1+5, 0  SAY '⌐ª ╝«╣ß ⌐ª│÷╔·╚╒╞┌⌐ª╒■╓╬├µ├▓⌐ª╣ñ╫≈╩▒╝Σ⌐ª╣ñ╫╩╝╢▒≡⌐ª  ╡│╒■╓░╬±  ⌐ª  ╫¿╥╡╓░╬±  ⌐ª                        ⌐ª'
   @ N1+6, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚                        ⌐ª'
   @ N1+7, 0  SAY '⌐ª'+A8+'⌐ª'+A9S+'⌐ª' +A10+'⌐ª'+A11S+'⌐ª  '+STR(A12,4)+'  ⌐ª '+A13+' ⌐ª  '+A14+'⌐ª                        ⌐ª'
   @ N1+8, 0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚                        ⌐ª'
   @ N1+9, 0  SAY '⌐ª╞└╢¿╩▒╝Σ⌐ª ╞└╢¿╡Ñ╬╗ ⌐ª╬─╗»│╠╢╚⌐ª▒╧╥╡╩▒╝Σ⌐ª   ▒╧ ╥╡ ╘║ ╨ú    ⌐ª  ╦∙╤º╫¿╥╡  ⌐ª                        ⌐ª'
   @ N1+10,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚                        ⌐ª'
   @ N1+11,0  SAY '⌐ª'+A15S+'⌐ª'+A16+'⌐ª '+A17+' ⌐ª'+A18S+'⌐ª  '+A19+'      ⌐ª'+A20+'  ⌐ª                        ⌐ª'
   @ N1+12,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐╨⌐╪⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚                        ⌐ª'
   @ N1+13,0  SAY '⌐ª ┤╙╩┬╣ñ╫≈ ⌐ª╦∙╤º═Γ╙∩⌐ª  ═Γ ╙∩ │╠ ╢╚   ⌐ª╘°╖±│÷╣·⌐ª     ▒╕        ╫ó       ⌐ª                        ⌐ª'
   @ N1+14,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ N1+15,0  SAY '⌐ª'+A21+'⌐ª '+A22+' ⌐ª  '+A23+'    ⌐ª   '+A24A+'   ⌐ª                        ⌐ª                        ⌐ª'
   @ N1+16,0  SAY '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'
   @ N1+17,0  SAY '⌐ª  ╣ñ╫≈╛¡└·:                                                                                         ⌐ª'
   STORE N1+17 TO N1
   SET PRINT OFF
   SET DEVICE TO SCREEN

*  ╥╘╧┬╬¬┤≥╙í▒╕╫ó╫╓╢╬╡─┤ª└φ
*  ╜¿┴ó MO.TXT TEMP.DBF
   SET ALTERNATE TO MO.TXT
   SET ALTERNATE ON
   DISPLAY OFF NOTE
   SET ALTERNATE OFF
   SET ALTERNATE TO
   SELECT 2
   USE TEMP
   APPEND FROM MO.TXT SDF
   USE

*  ┤≥╙í▒╕╫ó╫╓╢╬
   SELECT 2
   USE TEMP
   GO 2
   SET DEVICE TO PRINT
   SET PRINT ON
   DO WHIL .NOT.EOF()
      IF AA1<>SPACE(80)
         IF N1 =51
            @ N1+1 ,0  SAY '⌐ª                                                                                                    ⌐ª'
            @ N1+2, 0  SAY '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'
            @ 66,0 SAY '  '
            N1=3
            @ N1  , 0  SAY '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'

            @ N1+2 ,0  SAY '⌐ª                                                                                                    ⌐ª'
            @ N1+3 ,0  SAY '⌐ª  ╣ñ╫≈╛¡└·:                                                                                         ⌐ª'
            @ N1+4, 0  SAY '⌐ª              '+AA1+'      ⌐ª'
         ELSE
            @ N1+1, 0 SAY  '⌐ª              '+AA1+'      ⌐ª'
         ENDIF
      ELSE
         @ N1+1,0  SAY '⌐ª                                                                                                    ⌐ª'
      ENDIF
      SKIP
      STORE N1+1 TO N1
   ENDDO
   ZAP
   ERASE MO.TXT
   USE

   SELECT 1
   DO WHIL N1< 52
      @ N1+1,0   SAY '⌐ª                                                                                                    ⌐ª'
      STORE N1+1 TO N1
   ENDDO
   @ N1+1,0  SAY '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'
   SKIP
   IF EOF()
      STORE .F. TO L1
   ENDIF
ENDDO
SET PRINT OFF
@66,0 SAY '   '
SET TALK ON
SET DEVI TO SCRE
SELECT 2
USE
SELECT 1
USE
RETU