SUBROUTINE QUIT  
![ykchoi 10.04.26 for linux version
!      INTERFACE TO FUNCTION GETCH  
!     &    [C,ALIAS:'__getch']  
!     &    ()  
!      CHARACTER GETCH*1  
!      END  
!      CHARACTER KEY*1  
!      WRITE(*,'(''TAP SPACEBAR TO EXIT''\)')  
!      KEY=GETCH()  
!      RETURN  
!ykchoi]
      END