PROGRAM WNDTST c c Testprogramm fuer die TSXLIB Window - processing routinen c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ c c Dr. Klaus P. Schneider May 1988 c c This Program tests the TSXLIB Routines: ICRWND = create a window c ISLWND = select a window c IDLWND = delete a window c IRSWND = resume window proc. c ISPWND = suspend window proc. c c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ c LOGICAL*1 STRING(80),Nummer c..... Create and select 5 windows DO 1000 ID = 1 , 5 ! 5 windows CALL ICRWND (ID,0,80,1,0,0,IERR) ! create window #ID => OK IF (IERR. GE. 0) STOP IF(IERR .EQ. 0) STOP ' No window support' IF(IERR .EQ. 1) PAUSE ' Maximum allowed number of windows in use' IF(IERR .EQ. 2) PAUSE ' Unable to create the window' CALL ISLWND (ID,IERR) ! select a window # ID => OK WRITE(5,520) ID CALL ISLEEP (0,0,1,0) 1000 Continue 520 Format ( /,1X,' This is Window # ',I3) c..... suspend window processing for PAUSE message CALL ISPWND ! suspend window processing => OK PAUSE ' all windows created, type RETURN to select window 1 - 5' c..... select and display window 1 to 5 DO 3000 ID = 1 , 5 CALL ISLWND (ID,IERR) ! select a window # 1 => OK IF( IERR .EQ. 0 ) STOP ' No window support' IF( IERR .EQ. 3 ) Type *,' Cannot find window # ',ID CALL ISLEEP (0,0,1,0) 3000 CONTINUE Pause ' delete window 2 and try to select it, type RETURN' c..... delete window # 2 ID = 2 CALL IDLWND (ID,IERR) ! delete a window # 2 => OK IF( IERR .EQ. 0 ) STOP ' No window support' IF( IERR .EQ. 3 ) Type *,' Cannot find window # ',ID CALL ISLEEP (0,0,1,0) c..... select deleted window and get error message CALL ISLWND (ID,IERR) ! select a window # 1 => OK IF( IERR .EQ. 3 ) Type *,' Cannot find window # ',ID CALL ISLEEP (0,0,1,0) C CALL IPRWND (ID,IERR) ! print a window => OK c..... resume window processing and select window # for EXIT CALL IRSWND ! resume window processing => OK CALL ISLWND (1,IERR) ! select a window # 1 => OK STOP END