forums.silverfrost.com

[eric_carwardine]

G'day, folks

Is there a way of intercepting control characters, such as Control-Z, entered from the keyboard so that the "end=" option in a READ statement is effective?

Eric Carwardine, in Perth, Western Australia

[DanRRight]

Plz clarify what do you specifically need. To interrupt loading of some large files ?

[eric_carwardine]

To make effective the 'end=' option in a READ statement, such as:

[DanRRight]

There a a lot of options to get keyboard input for controlling the code flow but your respond demonstrating your goals puzzled me even more. Can anyone here ask the right question (sorry i have to leave for a week for business trip and will be here just sporadically)?

General ways to get keyboard input is via
1) get_key@(key) in DOS-like style programming
2) %ac accelerators in Clearwin+ in Windows-like style
3) There also exist one more complex case using Clearwin+ %mg

All have great examples of usage in Search of this forum and in the Help for FTN95

[LitusSaxonicum]

Eric,

Ctrl-Z works as you want, provided that you follow it with the Enter key. Ctrl-C doesn't need the Enter key but aborts the whole program.

Dan is correct that there are numerous ways of skinning this particular cat, but using simply Fortran input/output you could ask the user to type something to denote the end of input - 'END' or 'QUIT' being my suggestions. As the user might use upper or lower or mixed case, then the FTN77 functions UCASE@ and LCASE@ simplify getting the response all in the same case before doing a test.

I disliked the question and answer format for interacting with a program when it was all there was, and I'm much happier with a Windows interface via Clearwin+.

Eddie

[IanLambley]

In the olden (Halcyon) days on Digital computers and others, Ctrl-Z ended an input to a file such as:

copy tt: myfile.dat

Then you typed the data and closed the file with a CTRL-Z


If you open a command prompt for DOS commands on a PC and type

copy con: myfile.txt

it works almost identically except that a <return> is needed to action the line containing CTRL-Z... Try it

In Fortran, you can open TT: or CON: for read and loop for input statements using
do
READ(5,1000,end=999)LineOfData
1000 format(a)
enddo

999 continue

CTRL-Z will exit the loop.

So what are you actually trying to achieve. You could equally well put the data into a file via Notepad and then open the file and read with an END=

Regards
Ian
Note on VAXes etc. "TT:" is the current terminal and refers to both the keyboard for input and screen (or roll of paper in my day!) for output. just like "CON:" in DOS

[eric_carwardine]