.HOFF                                                                         
!     Example of how use CONNECT SCREEN from Basic                            
00010 REM &REM&                                                               
00100 CALL "IDPUB4",]6$,]7$,]8$,]9$    ! Set Idol-IV System Variables         
00110 CALL "8ZPSYS",]SYSV$             !                                      
00120 DIM MENU$[3]                     ! Dimension MENU$ for call             
00130 LET MENU$[1] = "IAMCUST"         ! Menu Name                            
00140 CALL "OO1Z",MENU$[ALL]            ! Call CONNECT MENU                   
00200 END