home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / business / kws39e.zip / KWDEMO.PRG < prev    next >
Text File  |  1991-06-16  |  2KB  |  51 lines
  1. * Program....: KWDEMO.PRG
  2. * Author.....: Simon M. Campden-Main
  3. * Date.......: April 24, 1991
  4. * Version....: dBASE IV ver. 1.1
  5. *              MEMORY VARIABLES: mquit, mrecno,
  6. *              DBF FILES OPENED: F:\DBASE\CRG\BCODE\KWDEMO
  7. *              PROGRAMS CALLED:  D:\DBASE\CRG\BCODE\KW
  8. STORE SPACE(3) TO mquit
  9. SET TALK OFF
  10. CLEAR
  11. !D:\DBASE\CRG\BCODE\KW /T
  12. DO WHILE .T.
  13.    @ 1, 2 TO  3,78 DOUBLE COLOR R/
  14.    @ 4, 2 TO 17,78 DOUBLE COLOR R/
  15.    SET COLOR TO BG/
  16.    @ 2, 3 SAY "************** K N O W - W E D G E  D E M O N S T R A;
  17.  T I O N *************"
  18.    @ 5, 3 CLEAR TO 16,76
  19.    USE F:\DBASE\CRG\BCODE\KWDEMO
  20.    GO BOTT
  21.    mrecno = RECNO()
  22.    DO WHILE .NOT. EOF()
  23.       SET COLOR TO BG/,B/W
  24.       @ 7, 5 SAY "QUANTITY:" 
  25.       @ 7,15 GET Quantity PICTURE "9999";
  26.       MESSAGE "Scan or enter quantity."
  27.       @ 9, 5 SAY "DESCRIPTION:  " 
  28.       @ 9,19 GET Desc PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX";
  29.       MESSAGE "Scan or enter description."
  30.       @11, 5 SAY "LOCATION:  " 
  31.       @11,16 GET Location PICTURE "XXXXXXXXXXXXXXXXXXXX" ;
  32.       MESSAGE "Scan or enter location."
  33.       @13, 5 SAY "DESTINATION:  " 
  34.       @13,19 GET Dest PICTURE "XXXXXXXXXXXXXXXXXXXX" ;
  35.       MESSAGE "Scan or enter destination."
  36.       @15, 5 SAY "RECORD NUMBER:"
  37.       @15,20 SAY mrecno
  38.       @15,40 SAY "QUIT? " GET mquit PICTURE "@M NO,YES";
  39.       MESSAGE "Press space bar to toggle."
  40.       READ
  41.       APPEND BLANK
  42.       mrecno = RECNO()
  43.       IF mquit = "NO"
  44.          LOOP
  45.       ELSE
  46.          !D:\DBASE\CRG\BCODE\KW /U /T
  47.          RETURN
  48.       ENDIF
  49.    ENDDO
  50. ENDDO
  51.