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

Text File | 1994-01-11 | 1.1 KB | 51 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: EXP11_7.PRG                                          ⌐ª
*⌐ª     Function: ON ESCAPE ├ⁿ┴ε╙ª╙├╡─╖╢└².                            ⌐ª
*⌐ª   DBF & File: CUSTOMER.DBF                                         ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
SET TALK OFF
SET ESCAPE ON
CLEAR

USE CUSTOMER
ON ESCAPE DO STAY
line=5
@ 3, 0 SAY "▒α ║┼"
@ 3,10 SAY "╣½ ╦╛ ├√ │╞"
@ 3,32 SAY "┴¬ ┬τ ╚╦"
@ 3,50 SAY "ס    ַ"
@ 4, 0 SAY REPLICATE("═",76)
SCAN
   @ line, 0 SAY cno
   @ line, 8 SAY company
   @ line,32 SAY contact
   @ line,50 SAY address
   line=line+1
   IF line>20 .OR. EOF()
      @ line+1,0 SAY REPLICATE("═",76)
      WAIT "╟δ░┤╚╬╥╗╝ⁿ╝╠╨°" WINDOW
      k=5
      DO WHILE k<22
         @ k,0 SAY SPACE(79)
         k=k+1
      ENDDO
      line=5
   ENDIF
ENDSCAN
CLOSE ALL

PROCEDURE STAY
sele=" "
@ 23,20 SAY "─π╚╖╢¿╥¬═ú╓╣╧╘╩╛╫╩┴╧┬≡?" GET sele PICTURE "!" ;
   VALID SELE $ "YN"
READ
IF sele="N"
   @ 23,0 CLEAR
   RETRY
ELSE
   CLOSE ALL
   CLEAR
   CANCEL
ENDIF
RETURN