* NOTE: This example if for 8.4.1 and above.                                  
* OO5 does not exist under earlier versions.                                  
                                                                              
MAINLINE                                                                      
     DIM MSG$[2]                                                              
     DO READ-TEXT                                                             
     DO INPUT-TEXT                                                            
     DO WRITE-TEXT                                                            
                                                                              
READ-TEXT                                                                     
     LET MSG$[0] = "READ LINK UTCUST, " + ! Which Link                        
                   "0001," +              ! Key                               
                   "A"                    ! Text ID                           
                                                                              
     CONNECT METHOD "OO41"                                                    
*  returns each ros of text in string array entry                             
                                                                              
INPUT-TEXT                                                                    
     LET MSG$[0] = CHR(60) +           ! Max line lenght                      
                   CHR(8) +            ! number of lines                      
                   CHR(17) +           ! column                               
                   CHR(11) +           ! row                                  
                   "BSS"               ! Border, input string format,         
                                       !   output string format               
*  msg$[1] ...[n] contains each row of text                                   
                                                                              
     CONNECT METHOD "OO5"              ! Text Editor                          
                                                                              
WRITE-TEXT                                                                    
     LET MSG$[0] = "WRITE LINK UTCUST, "+ ! Link                              
                   "0001, " +             ! Key                               
                    "A"                   ! Text ID                           
     CONNECT METHOD "OO41"