!     Example of using CONNECT VIEW from a Basic program                      
!     This example uses the sample data that is sent out with Idol-IV         
!     This sample data is in library UT                                       
!                                                                             
00010 REM &REM&                                                               
00100 CALL "IDPUB4",]6$,]7$,]8$,]9$    ! Set Idol-IV System Variables         
00110 CALL "8ZPSYS",]SYSV$             !                                      
00120 DIM VIEW$[17]                    ! Dimension SCREEN$ for call           
00130 LET VIEW$[1] = "IAVCUST",        ! Screen Name                          
          VIEW$[3] = "3",              ! Sort Number                          
          VIEW$[8] = "IAVCUST",        ! View Name                            
          VIEW$[9] = "E",              ! Cursor Mode - Entire Field           
          VIEW$[10] = "F",             ! Carriage Return - Field Edit         
          VIEW$[13] = "Y" +            ! Switchs - Change Key                 
                      "Y" +            !           Change Data                
                      "Y" +            !           Change View                
                      "N" +            !           Leave View Displayed       
                      "Y"              !           Change Sort                
00140 CALL "OO3A",VIEW$[ALL]           ! Call CONNECT SCREEN                  
00200 END