home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac13disk / hbasic / example.bas next >
Encoding:
BASIC Source File  |  1999-02-13  |  1.3 KB  |  64 lines
  1.  
  2. REM $include D:\HBASIC\10\valid.bas 
  3.  
  4. WHILE dat$<>"exit"
  5.  
  6.     INPUT "DATE: ",dat$
  7.     INPUT "CID : ",cid$
  8.  
  9. ' first check the date
  10.  
  11.     ex$=""
  12.     IF valid_presence (dat$)=1 THEN
  13.         ex$=ex$+"Date exists. "
  14.         IF valid_count (dat$,10)=1 THEN
  15.             ex$=ex$+"Date correct length. "
  16.             IF valid_format (dat$,"NN/NN/NNNN")=1 THEN
  17.                 ex$=ex$+"Date correct format. "
  18.                 ex$=ex$+"Date needs to be date checked. "
  19.             ELSE
  20.                 ex$="Date not correct format. "
  21.             END IF
  22.         ELSE
  23.             ex$=ex$+"Date not correct length. "
  24.         END IF
  25.     ELSE
  26.         ex$=ex$+"Date does not exist. "
  27.     END IF
  28.  
  29.     PRINT dat$+" "+ex$
  30.  
  31.     ex$=""
  32.  
  33. ' check customer ID
  34.  
  35.     IF valid_presence (cid$)=1 THEN
  36.         ex$=ex$+"CID exists. "
  37.         IF valid_count (cid$,4)=1 THEN
  38.             ex$=ex$+"CID correct length. "
  39.             IF valid_format (cid$,"NNNL")=1 THEN
  40.                 ex$=ex$+"CID correct format. "
  41.                 v=VAL(MID$(cid$,1,3))
  42.                 IF valid_range (v,1,999)=1 THEN
  43.                     ex$=ex$+"CID in correct range. "
  44.                     IF CHR$(valid_digit (v,135,11)+65)=RIGHT$(cid$,1) THEN
  45.                         ex$=ex$+"CID check digit correct. "
  46.                     ELSE
  47.                         ex$=ex$+"CID check digit incorrect. "
  48.                     END IF
  49.                 ELSE
  50.                     ex$=ex$+"CID not in correct range. "
  51.                 END IF
  52.             ELSE
  53.                 ex$=ex$+"CID not in correct format. "
  54.             END IF
  55.         ELSE
  56.             ex$=ex$+"CID not correct length. "
  57.         END IF
  58.     ELSE
  59.         ex$=ex$+"CID does not exist. "
  60.     END IF
  61.  
  62.     PRINT cid$+" "+ex$
  63.     
  64. WEND