! CHANGES FROM DATE TYPE 6 TO A NUMBER                                        
                                                                              
LN   BTLDATE6                                                                 
MAINLINE                                                                      
     OPEN LINK BTLDATE6                                                       
     READ BTLDATE6 USING KEY "11111"  !read link using pre-defined key        
     LET A$ = DATE                    !let A$ equal the type 6 date           
                                      !which is stored as...                  
                                      !CHR(CC) + CHR(YY) + MMDD               
     LET B$=STR(ASC(A$(1,1)))         !let B$ equal string of CHR(CC)         
     LET C$=STR(ASC(A$(2,1)))         !let C$ equal string of CHR(YY)         
     LET D$=A$(3,4)                   !let D$ equal string of MMDD            
                                                                              
     IF LEN(C$)=1                     !test to see if C$ is a one digit       
                                      !number.                                
     THEN                                                                     
        LET E$=B$+"0"+C$+D$           !if C$ is one digit, place the          
                                      !zero before it and add the string      
                                      !of each number                         
     ELSE                                                                     
        LET E$=B$+C$+D$               !if C$ is not one digit, add the        
                                      !string of each number                  
     ENDIF                                                                    
                                                                              
     LET N = DTN(E$,"YYYYMMDD")       !gets the number from the string        
                                      !using the mask                         
                                                                              
     LET N$ = NTD(N,"YYYYMMDD")       !gets the date from the number          
                                      !using the mask                         
     PRINT N, N$                                                              
     INPUT *