' DIGITAL%(2.0) Check Char String for Digital Value 05/01/1997-03/27/2002 ' -------------------------------------------------------------------------- $INCLUDE "DIGITAL" DECLARE FUNCTION DIGITAL%(Strng$,Delim$) CLS PRINT "DIGITAL%(2.0) Check Character String for Digital Value ";DATE$; PRINT " ";LEFT$(TIME$,5) PRINT STRING$(74,"-") PRINT PRINT "DIGITAL%('' ,'D' )="; _ DIGITAL%("" ,"D" ) PRINT "DIGITAL%('' ,'.:/')="; _ DIGITAL%("" ,".:/") PRINT "DIGITAL%('0123456789','d' )="; _ DIGITAL%("0123456789","d" ) PRINT "DIGITAL%('0123456789','.:/')="; _ DIGITAL%("0123456789",".:/") PRINT "DIGITAL%('0.2.4.6.8' ,'' )="; _ DIGITAL%("0.2.4.6.8" ,"" ) PRINT "DIGITAL%('0.2.4.6.8' ,'.' )="; _ DIGITAL%("0.2.4.6.8" ,"." ) PRINT "DIGITAL%('0.2:4/6.8' ,'' )="; _ DIGITAL%("0.2:4/6.8" ,"" ) PRINT "DIGITAL%('0.2:4/6.8' ,'.:/')="; _ DIGITAL%("0.2:4/6.8" ,".:/") PRINT "DIGITAL%('23456789' ,'O' )="; _ DIGITAL%("23456789" ,"O" ) PRINT "DIGITAL%('01234567' ,'o' )="; _ DIGITAL%("01234567" ,"o" ) PRINT "DIGITAL%('AbCdEfGh' ,'H' )="; _ DIGITAL%("AbCdEfGh" ,"H" ) PRINT "DIGITAL%('89AbCdEf' ,'h' )="; _ DIGITAL%("89AbCdEf" ,"h" ) PRINT "DIGITAL%('IVX' ,'' )="; _ DIGITAL%("IVX" ,"" ) PRINT "DIGITAL%('IVX' ,'R' )="; _ DIGITAL%("IVX" ,"R" ) PRINT "DIGITAL%('I V X' ,'R' )="; _ DIGITAL%("I V X" ,"R" ) PRINT "DIGITAL%('i v x' ,'r ' )="; _ DIGITAL%("i v x" ,"r " ) PRINT "DIGITAL%('iivxiiii' ,'r' )="; _ DIGITAL%("iivxiiii" ,"r" ) PRINT "DIGITAL%(' IVX-12 ' ,'R- ')="; _ DIGITAL%(" IVX-12 " ,"R- ") PRINT PRINT "Execution completed - hit [Enter] to continue..."