home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASE.ARC / STATEZIP.PRG < prev   
Text File  |  1980-01-01  |  3KB  |  140 lines
  1. CLEAR
  2. SET talk OFF
  3. SET intensity OFF
  4. SET EJECT OFF
  5. STORE t TO fileloop
  6. DO WHILE fileloop
  7.   ERASE
  8.   STORE "          " TO filename
  9.   @ 02,10 SAY "=================[  STATE - ZIP  CHECKER  ]" +;
  10.   "=================" 
  11.   @ 05,12 SAY "This program checks your inputed file for a" +;
  12.   " valid state" 
  13.   @ 06,12 SAY "and also that the zip code is in that" +;
  14.   " states range." 
  15.   @ 10,12 SAY "What is the name of your file (return to" +;
  16.   " EXIT) " 
  17.   @ 10,61 GET filename
  18.   READ
  19.   IF filename= "          " 
  20.     ERASE
  21.     RETURN
  22.   ENDIF filename= "          " 
  23.   IF FILE( "&FILENAME" )
  24.     STORE f TO fileloop
  25.   ELSE
  26.     ?? chr(7)
  27.     @ 13,12 SAY "Sorry, that file cannot be found!!!" 
  28.     @ 14,12 SAY "<Press return to CONTINUE>" 
  29.     ?
  30.     WAIT
  31.   ENDIF FILE( "&FILENAME" )
  32. ENDDO WHILE fileloop
  33. RELEASE fileloop
  34. SELECT PRIMARY
  35. USE &filename
  36. GOTO 1
  37. SELECT secondary
  38. USE statezip INDEX statex
  39. STORE t TO getloop
  40. DO WHILE getloop
  41.   STORE "E" TO choice
  42.   ERASE
  43.   @ 05,05 SAY "      E>  To EDIT bad records now" 
  44.   @ 06,05 SAY "      P>  To PRINT bad rcords, and edit later" 
  45.   @ 07,05 SAY "      X>  To EXIT this program" 
  46.   @ 09,05 SAY "Please make your choice" 
  47.   @ 09,30 GET choice PICTURE "!" 
  48.   READ
  49.   IF choice= "X" 
  50.     ERASE
  51.     RETURN
  52.   ELSE
  53.     IF choice= "E" .OR. choice= "P" 
  54.       STORE f TO getloop
  55.     ELSE
  56.       ?? chr(7)
  57.     ENDIF choice= "E" .OR. choice= "P" 
  58.   ENDIF choice= "X" 
  59. ENDDO WHILE getloop
  60. RELEASE getloop
  61. IF choice= "P" 
  62.   @ 12,05 SAY "Make sure printer is on and press return" 
  63.   ?
  64.   WAIT
  65. ENDIF choice= "P" 
  66. SELECT PRIMARY
  67. GOTO 1
  68. ERASE
  69. DO WHILE .not. eof
  70.   IF *
  71.     SKIP
  72.     LOOP
  73.   ENDIF *
  74. *  @ 15,05 SAY "CURRENT RECORD  --->" 
  75. *  @ 15,30 SAY str(#,5)+ " " +zip+ " " +state
  76.   STORE zip TO mzip
  77.   STORE state TO mstate
  78.   SELECT secondary
  79.   FIND &mstate
  80.   IF #=0
  81.     SELECT PRIMARY
  82.     IF choice= "P" 
  83.       SET PRINT ON
  84.       SET console OFF
  85.       ? "INVALID STATE" ,#,state,zip
  86.       SET PRINT OFF
  87.       SET console ON
  88.       SKIP
  89.     ELSE
  90.       ERASE
  91.       STORE # TO save:rec
  92.       @ 03,05 SAY "RECORD NUMBER  --->  " +str(#,5)
  93.       @ 05,05 SAY "Bad state, press return to edit." 
  94.       @ 06,05 SAY "When finished with edit press (CTRL W)." 
  95.       ?? CHR(7)
  96.       WAIT
  97.       EDIT #
  98.       ERASE
  99.       GOTO save:rec
  100.     ENDIF choice= "P" 
  101.     LOOP
  102.   ENDIF #=0
  103.   STORE low:zip*100 TO low
  104.   STORE high:zip*100+99 TO high
  105.   IF val(mzip)<low .OR. val(mzip)>high
  106.     SELECT PRIMARY
  107.     IF choice= "P" 
  108.       SET PRINT ON
  109.       SET console OFF
  110.       ? "INVALID ZIP  " ,#,state,zip
  111.       SET PRINT OFF
  112.       SET console ON
  113.       SKIP
  114.     ELSE
  115.       ERASE
  116.       STORE # TO save:rec
  117.       @ 03,05 SAY "RECORD NUMBER  --->  " +str(#,5)
  118.       @ 05,05 SAY "Bad zip, press return to edit." 
  119.       @ 06,05 SAY "When finished with edit press (CTRL W)." 
  120.       ?? CHR(7)
  121.       WAIT
  122.       EDIT #
  123.       ERASE
  124.       GOTO save:rec
  125.     ENDIF choice= "P" 
  126.     LOOP
  127.   ENDIF val(mzip)<low .OR. val(mzip)>high
  128.   SELECT PRIMARY
  129.   SKIP
  130. ENDDO WHILE .not. eof 
  131. ERASE
  132. IF choice= "P" 
  133.   SET PRINT ON
  134.   EJECT
  135.   SET PRINT OFF
  136. ENDIF choice= "P" 
  137. @ 05,05 SAY "STATE - ZIP     checking complete..." 
  138. RELEASE ALL
  139. RETURN
  140.