Category : Databases and related files
Archive   : CUSTOMR.ZIP
Filename : CUSTFIND.PRG

 
Output of file : CUSTFIND.PRG contained in archive : CUSTOMR.ZIP

* Program..: CUSTFIND.PRG
* Author...: JIMMY L. HOLDER
* Date.....: 04/26/88
* Notice...: Copyright (c) 1988, JIMMY L. HOLDER, All Rights Reserved
* Notes....:
* Reserved.: selectnum
*

PUBLIC CNUMFOUND
SET TALK OFF
SET ECHO OFF
SET COLOR TO W/B,N/W,N
USE CUSTOMER INDEX CUSTOMER

CLEAR
CNUMFOUND = .T.
?
?
?
ACCEPT "ENTER CUSTOMER NUMBER TO EDIT: " TO CNUM
* FIND CUSTOMER NUMBER
LOCATE FOR NUMBER = CNUM
IF EOF()
* NO SUCH NUMBER
CNUMFOUND = .F.
RETURN
ENDIF
RETURN


  3 Responses to “Category : Databases and related files
Archive   : CUSTOMR.ZIP
Filename : CUSTFIND.PRG
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/