'===========================================================================
' Subject: Phone Number Entry                 Date: 07-01-01 (  :  )       
'  Author: Ken Sims                           Code: PB DOS 3.5             
'  Origin: mrken@megsinet.net               Packet: DISPLAY.ABC
'===========================================================================
'STANDARD PHONE ROUTINE AUTO ENTRY FOR PBDOS 3.5 from ken sims
'mrken@megsinet.net
'pbdos 3.5
CLS
COLOR 7, 1
DEFINT A-Z
$DYNAMIC
LOCATE 13, 1
PRINT "Enter Voice Phone Number.  Format: ###-###-#### "
LOCATE 13, 36
count = 0
DO
   Typein$ = INKEY$
   IF (Typein$ >= "0") THEN
     IF ( Typein$ <= "9"), THEN
       VOICE$ = VOICE$ + Typein$
       PRINT Typein$;
       count = count + 1
       Typein$ = " "
       IF (count = 3) THEN
       PRINT "-";
       VOICE$ = VOICE$ + "-"
       count = count + 1
       END IF
       IF (count = 7) THEN
       PRINT "-";
       VOICE$ = VOICE$ + "-"
       count = count + 1
       END IF
     END IF
   END IF
 DELAY .03
LOOP UNTIL count = 12