! //IB// SRC("&WINDOW.IBS","IBS") OBJ("&WINDOW", "OBJ")
!********************************************************************!
!     PROGRAM IDENTIFICATION
!     TEST EXTENDED WINDOW OPEN
!     SOURCE: &WINDOW          OBJECT: &WINDOW
!********************************************************************!
!
!     PROGRAM VARIABLES
!
     LENGTH   1   &   COMMON SEL$
     LENGTH   1   &   LOCAL  OPTION$
!
     LENGTH  3.0  &   LOCAL COUNT,SCRCOUNT
!
     LENGTH 3.0    &  LOCAL SCRSIZE
     LENGTH 3.0    &  LOCAL WCOL,WROW,WWDTH,WHGHT
     LENGTH   4    &  LOCAL WHANDL1$,WHANDL2$
     LENGTH 132    &  LOCAL WCAPTION$
!     
!     VARIABLES FOR SCREEN GRAPHICS
!
     LENGTH   1 &  LOCAL G00$,G10$,G11$,G12$,G13$,G14$
     LENGTH   1 &  LOCAL G15$,G16$,G17$,G18$,G19$,G1A$,G1B$
     LENGTH 130 &  LOCAL G10130$,G1B130$
     LENGTH 138 &  LOCAL G10138$,G1B138$
     LENGTH 158 &  LOCAL G10158$,G1B158$
!
!     SCREEN FORMATS
!
!       SCREEN FORMATS FOR SCREEN COLORS
!
SCRCOLOR: FORMAT (Change colors="@F0@","@80@","@FF@","@FF@","@1F@")
WINCOLOR: FORMAT (Change colors="@C0@","@80@","@CC@","@CC@","@1F@")
!
2700 FORMAT (CS)
2701 FORMAT (SCREEN=132,27)
2710 FORMAT @(50,3);(SB);'TEST COMET EXTENDED WINDOW';_
            @(50,4);'CONTINUE? (Y/N)';_
            (TP);(SF);' ';(TP);@(50)
2720 FORMAT @(50,5);(SB);'ENTER COUNT';(TP);(RJ);(SF);'',4;(TP);@(50)
2730 FORMAT @(50,6);(SB);COUNT;(TP);(SF);' ';(TP);(SB);'ENTER TO CONTINUE.';@(50)
2740 FORMAT @(50,22);COUNT
WINGR: FORMAT @(0,0);G16$;G10130$,32;G17$;__
             @(0,1);G11$;@(33);G11$;_
             @(0,2);G18$;G10130$,32;G19$;_
             @(0,12);G16$;G10130$,32;G17$;__
             @(0,13);G11$;@(33);G11$;_
             @(0,14);G11$;@(33);G11$;_
             @(0,15);G18$;G10130$,32;G19$;(SB);_
             @(1,1);'',32;(SF)
WIN01: FORMAT _
       @(5,1);(SB);'TEST COMET EXTENDED WINDOW'            
WIN02: FORMAT _
       @(15,5);COUNT

!
!     PROGRAM BEGINS
!
     CLEAR
     ERRORTO 9800
     ESCAPETO 9810
!     
!     SET SCREEN GRAPHIC VARIABLES TO HEX CODES
     G00$ = '@00@'
     G10$ = '@10@'
     G11$ = '@11@'
     G12$ = '@12@'
     G13$ = '@13@'
     G14$ = '@14@'
     G15$ = '@15@'
     G16$ = '@16@'
     G17$ = '@17@'
     G18$ = '@18@'
     G19$ = '@19@'
     G1A$ = '@1A@'
     G1B$ = '@1B@'
     G10130$ = STRING('@10@',130)
     G1B130$ = STRING('@1B@',130)
     G10138$ = STRING('@10@',138)
     G1B138$ = STRING('@1B@',138)   
!
     PRINT (0,2700)
     PRINT (0,2701)
3000 PRINT (0,2710)
     INPUT (0) OPTION$
     OPTION$ = UCASE(OPTION$)
     IF OPTION$ NE 'Y' GO 9990
3010 PRINT (0,2720)
     INPUT (0) SCRCOUNT
     IF SCRCOUNT = 0 GO 3000     	
!
     COUNT = 1     	         
WINDO:
     WCOL = 50
     WROW = 3
     WWDTH = 34
     WHGHT = 16
     WCAPTION$ = 'TEST COMET EXTENDED WINDOW'
     PRINT (CREATEWINDOWEX=WCOL,WROW,WWDTH,WHGHT,68,0,WCAPTION$)
     INPUT WHANDL1$
     PRINT (0,WINCOLOR)
     PRINT (0,WINGR)
     PRINT (0,WIN01)
     PRINT (0,WIN02)
     PAUSE 36
     PRINT (DELETEWINDOWEX=WHANDL1$)
     IF COUNT = SCRCOUNT GO 3000
     COUNT = COUNT + 1
     PAUSE 54	
     PRINT (0,2740)
     GO WINDO	
!
!     EXCEPTION PATHS
!
9800 ERRORTO 9800
     IF EXCP = 33 AGAIN
     ERROR
9810 POPALL
     PRINT (DELETEWINDOWEX=WHANDL1$)
     PRINT (0,2730)
     INPUT (0) OPTION$     
     GO 3000  	
!
9990 KILL PARTITION$
9999 END