.HOFF                                                                         
!     Example of how use CONNECT SCREEN from Basic                            
!     This example uses the sample data that is sent out with Idol-IV         
!     This sample libaray is UT.                                              
!                                                                             
00010 REM &REM&                                                               
00100 CALL "IDPUB4",]6$,]7$,]8$,]9$    ! Set Idol-IV System Variables         
00110 CALL "8ZPSYS",]SYSV$             !                                      
00120 DIM SCREEN$[17]                  ! Dimension SCREEN$ for call           
00130 LET SCREEN$[1] = "IASCUST",      ! Screen Name                          
          SCREEN$[8] = "IAVCUST"       ! View Name                            
00140 CALL "OO2A",SCREEN$[ALL]         ! Call CONNECT SCREEN                  
00200 END