RBBS in a Box Volume 1 #3.1/RBBSIABOX31.cdr/scrg/roldex1.prg

Text File | 1990-09-29 | 8.3 KB | 252 lines

* FILE ROLDEX.PRG - AN AUTOMATED TELEPHONE DIRECTORY
* 840422
* THIS DBASE II PROGRAM WILL ALLOW YOU TO CREATE, UPDATE AND SEARCH
* A ROLODEX-STYLE NAME, ADDRESS AND TELEPHONE DIRECTORY.
*
* CREATE A DATABASE WITH THE FOLLOWING SPECIFICATIONS:
*
*    STRUCTURE FOR FILE:  ROLDEX.DBF
*    NUMBER OF RECORDS:   00000
*    DATE OF LAST UPDATE: 00/00/00
*    PRIMARY USE DATABASE
*    FLD       NAME      TYPE WIDTH   DEC
*    001     NAME         C    040
*    002     OFFPHONE     C    010
*    003     HOMPHONE     C    010
*    004     COMPANY      C    030
*    005     ADDR1        C    030
*    006     ADDR2        C    030
*    007     CITY         C    015
*    008     STATE        C    002
*    009     ZIP          C    005
*    ** TOTAL **             001??
*
* YOU MUST ALSO CREATE AN INDEX FILE WITH THE COMMAND:
*
*       .INDEX ON NAME TO ROLDEX
*
SET BELL OFF
SET COLON OFF
SET TALK OFF
USE B:ROLDEX INDEX B:ROLDEX
STORE T TO RUN1
STORE F TO FLAG
DO WHILE RUN1
 COUNT TO STAT
 ERASE
 @  5,23 SAY "*** TELEPHONE DIRECTORY SYSTEM ***"
 @ 10,10 SAY "Press      In order to"
 @ 11,10 SAY "=====      ============================="
 @ 13,10 SAY "  S        SEARCH directory"
 @ 14,10 SAY "  A        ADD a new entry to directory"
 @ 15,10 SAY "  D        DELETE an existing entry"
 @ 16,10 SAY "  X        EXIT directory system"
 @ 18,10 SAY "           Enter your choice here: "
 @ 24,47 SAY STAT USING "####"
 @ 24,52 SAY "active entries in directory."
 STORE T TO RUN2
 DO WHILE RUN2
  STORE " " TO CHOICE1
  @ 18,45 GET CHOICE1 PICTURE "A"
  READ
IF !(CHOICE1)="S" .OR. !(CHOICE1)="A" .OR. (CHOICE1)="D" .OR. !(CHOICE1)="X"
   STORE F TO RUN2
  ENDIF
 ENDDO
 IF !(CHOICE1) = "S" .OR. !(CHOICE1) = "D"
  STORE T TO RUN3
  DO WHILE RUN3
   STORE "                                        " TO SNAME
   ERASE
   IF !(CHOICE1) = "S"
    @  1, 1 SAY "(SEARCH MODE)"
   ELSE
    @  1, 1 SAY "(DELETE MODE)"
   ENDIF
   @ 7,10 SAY "Enter name to be searched: "
   @ 9,10 GET SNAME PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
   READ
   STORE TRIM(SNAME) TO SNAME
   COUNT FOR SNAME $NAME .AND. .NOT. * TO HOLD
   IF HOLD = 0
    STORE " " TO CHOICE2
    @ 11,10 SAY "No matching entries in directory. Try again? (Y/N) "
    @ 11,61 GET CHOICE2 PICTURE "A"
    READ
    IF !(CHOICE2) = "N"
     STORE F TO RUN3
    ENDIF
   ELSE
    IF HOLD = 1
     LOCATE FOR SNAME $NAME .AND. .NOT. *
     ERASE
     IF !(CHOICE1) = "S"
      @  1, 1 SAY "(SEARCH MODE)"
     ELSE
      @  1, 1 SAY "(DELETE MODE)"
     ENDIF
     @  1,65 SAY "(Entry no. "
     @  1,75 SAY # USING "####"
     @  1,79 SAY ")"
     @  5,23 SAY "*** TELEPHONE DIRECTORY SYSTEM ***"
     @  8,15 SAY "Name: "
     @  8,21 SAY NAME USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
     @ 10,15 SAY "Office Telephone: (" + $(OFFPHONE,1,3) + ") ";
       + $(OFFPHONE,4,3) + " - " + $(OFFPHONE,7,4)
     @ 12,15 SAY "Home Telephone:  (" + $(HOMPHONE,1,3) + ") ";
       + $(HOMPHONE,4,3) + " - " + $(HOMPHONE,7,4)
     @ 14,15 SAY "Address: "
     @ 14,24 SAY COMPANY USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
     @ 15,24 SAY ADDR1 USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
     @ 16,24 SAY ADDR2 USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
     @ 18,15 SAY "City: "
     @ 18,21 SAY CITY USING "XXXXXXXXXXXXXXX"
     @ 18,37 SAY "State: "
     @ 18,47 SAY STATE USING "XX"
     @ 19,15 SAY "Zip Code:"
     @ 19,25 SAY ZIP USING "XXXXX"
     IF !(CHOICE1) = "D"
      STORE " " TO CHOICE6
      @ 21,10 SAY "Delete this entry? (Y/N) " GET CHOICE6 PICTURE "A"
      READ
      IF !(CHOICE6) = "Y"
       DELETE
       STORE T TO FLAG
      ENDIF
     ENDIF
     @ 22,10 SAY "Hit any key to return to main menu."
     SET CONSOLE OFF
     WAIT
     SET CONSOLE ON
     STORE F TO RUN3
    ELSE
     @ 12,10 SAY HOLD USING "#####"
     @ 12,16 SAY "entries match your search criteria."
     @ 14,10 SAY "Hit any key to continue."
     SET CONSOLE OFF
     WAIT
     SET CONSOLE ON
     ERASE
     GO TOP
     STORE 1 TO CIRCUIT
     LOCATE FOR SNAME $NAME .AND. .NOT. *
     DO WHILE .NOT. EOF
      IF !(CHOICE1) ="S"
       @  1, 1 SAY "(SEARCH MODE)"
      ELSE
       @  1, 1 SAY "(DELETE MODE)"
      ENDIF
      @  1,65 SAY "(Entry no. "
      @  1,75 SAY # USING "####"
      @  1,79 SAY ")"
      @  5,23 SAY "*** TELEPHONE DIRECTORY SYSTEM ***"
      @  8,15 SAY "Name: "
      @  8,21 SAY NAME USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @  10,15 SAY "Office telephone: (" + $(OFFPHONE,1,3) + ") ";
         + $(OFFPHONE,4,3) + "-" + $(OFFPHONE,7,4)
      @  12,15 SAY "Home Telephone:  (" + $(HOMPHONE,1,3) + ") ";
         + $(HOMPHONE,4,3) + "-" + $(HOMPHONE,7,4)
      @ 14,15 SAY "Address: "
      @ 14,24 SAY COMPANY USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 15,24 SAY ADDR1 USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 16,24 SAY ADDR2 USING "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
      @ 18,15 SAY "City: "
      @ 18,21 SAY CITY USING "XXXXXXXXXXXXXXX"
      @ 18,37 SAY "State: "
      @ 18,47 SAY STATE USING "XX"
      @ 19,15 SAY "Zip Code: "
      @ 19,25 SAY ZIP USING "XXXXX"
      IF !(CHOICE1) = "D"
       CLEAR GETS
       STORE " " TO CHOICE6
       @ 21,10 SAY "Delete this entry? (Y/N) " GET CHOICE6 PICTURE "A"
       READ
       IF !(CHOICE6) = "Y"
        DELETE
        STORE T TO FLAG
       ENDIF
      ENDIF
      IF CIRCUIT < HOLD
       @ 23,10 SAY "Hit any key to move to next entry."
       STORE CIRCUIT + 1 TO CIRCUIT
      ELSE
       @ 23,10 SAY "Hit any key to return to main menu."
      ENDIF
      SET CONSOLE OFF
      WAIT
      SET CONSOLE ON
      CONTINUE
     ENDDO
     STORE F TO RUN3
    ENDIF
   ENDIF
  ENDDO
 ELSE
  IF !(CHOICE1) = "A"
   STORE T TO RUN4
   DO WHILE RUN4
    ERASE
    STORE "                                        " TO TNAME
    STORE "   " TO TOACODE,TOPHPRE,THACODE,THPHPRE
    STORE "    " TO TOPHSUF,THPHSUF
    STORE "                              " TO TCOMPANY, TADDR1, TADDR2
    STORE "               " TO TCITY
    STORE "  " TO TSTATE
    STORE "     " TO TZIP
    @  1, 1 SAY "(ADD MODE)"
    @  5,23 SAY "*** TELEPHONE DIRECTORY SYSTEM ***"
    @ 10,15 SAY "Name: " GET TNAME PICTURE;
      "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
    @ 12,15 SAY "Office telephone: (" GET TOACODE PICTURE "###"
    @ 12,37 SAY ") " GET TOPHPRE PICTURE "###"
    @ 12,43 SAY "- " GET TOPHSUF PICTURE "####"
    @ 13,15 SAY "Home telephone:   (" GET THACODE PICTURE "###"
    @ 13,37 SAY ") "GET THPHPRE PICTURE "###"
    @ 13,43 SAY "- " GET THPHSUF PICTURE "####"
    @ 15,15 SAY "Address: " GET TCOMPANY PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
    @ 16,24 GET TADDR1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
    @ 17,24 GET TADDR2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
    @ 18,15 SAY "City: " GET TCITY PICTURE "XXXXXXXXXXXXXXX"
    @ 18,37 SAY "State: " GET TSTATE PICTURE "XX"
    @ 19,15 SAY "ZIP Code: " GET TZIP PICTURE "XXXXX"
    READ
    CLEAR GETS
    STORE " " TO CHOICE4
    @ 21,10 SAY "Is this information correct? (Y/N) " GET CHOICE4 PICTURE "A"
    READ
    IF !(CHOICE4) = "Y"
     APPEND BLANK
     REPLACE NAME WITH TNAME,OFFPHONE WITH TOACODE+TOPHPRE+TOPHSUF
     REPLACE HOMPHONE WITH THACODE+THPHPRE+THPHSUF,COMPANY WITH TCOMPANY
     REPLACE ADDR1 WITH TADDR1,ADDR2 WITH TADDR2,CITY WITH TCITY
     REPLACE STATE WITH STATE,ZIP WITH TZIP
    ENDIF
    CLEAR GETS
    STORE " " TO CHOICE5
    @ 23,10 SAY "Another entry? (Y/N) " GET CHOICE5 PICTURE "A"
    READ
    IF !(CHOICE5) <> "Y"
     STORE F TO RUN4
    ENDIF
   ENDDO
  ELSE
   IF !(CHOICE1) = "X"
    ERASE
    STORE " " TO CHOICE7
    @ 12,10 SAY "Do you REALLY want to quit? (Y/N) " GET CHOICE7 PICTURE "A"
    READ
    IF !(CHOICE7) = "Y"
     STORE F TO RUN1
    ENDIF
   ENDIF
  ENDIF
 ENDIF
ENDDO
IF FLAG
 ERASE
 @ 12,10 SAY "Please wait - directory index being updated."
 PACK
ENDIF
ERASE
QUIT