Solved

suspend a output

Posted on 1997-05-21
3
213 Views
Last Modified: 2010-04-16
Is it possible to suspend a output to screen just using
following:

var ch : char;

begin
write('press any key to continue...');
read(ch);
end.

if not, what is the correct way? thx
0
Comment
Question by:ping072497
  • 2
3 Comments
 

Accepted Solution

by:
PFranz earned 50 total points
Comment Utility
I usually use

var ch:char;

Begin
 write('press any key');
 ch := readkey;
end.
0
 

Author Comment

by:ping072497
Comment Utility
I tried the above program. It seems doesn't work to me.
I couldn't compile it. I'm using Tubo Pascal 7.0. Is readkey
a function?


0
 

Expert Comment

by:PFranz
Comment Utility
It is a function from the CRT Unit.
You can use this function also to read a key like ESC (ch=CHR(27)) or one of the F-keys.
 
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Possible fixes for Windows 7 and Windows Server 2008 updating problem. Solutions mentioned are from Microsoft themselves. I started a case with them from our Microsoft Silver Partner option to open a case and get direct support from Microsoft. If s…
HOW TO: Upload an ISO image to a VMware datastore for use with VMware vSphere Hypervisor 6.5 (ESXi 6.5) using the vSphere Host Client, and checking its MD5 checksum signature is correct.  It's a good idea to compare checksums, because many installat…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now