Category : Miscellaneous Language Source Code
Archive   : HF0258.ZIP
Filename : BMAIN.FOR

C************ The main program (B) ***************
C This program reads a character, if any, from the keyboard and
C prints the character if a character was entered. If an "x" was
C entered the program terminates, otherwise the program continues
C in the loop.

program test
character*1 char1, Getch

write(*,*) 'Press any key'
write(*,*) 'Press x to terminate'
write(*,*)

do 10 i=1,500000
char1=Getch()
if(char1.ne.char(0)) then
write(*,*) 'Character entered: ',char1,
+ ' at loop number ',i
if (char1.eq.'x') goto 30
write(*,*) 'Press x to terminate'
write(*,*)
endif
10 continue
write(*,*) 'Loop terminated, no character was
+ entered'
stop
30 write(*,*) 'Loop terminated at loop number ',i

end

C***************************************************