[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: My First Computer

Sam Gillett wrote:
> 
> Ross Simpson wrote ...
> 
> >I like this one:
> >
> >BEGIN
> > REPEAT
> >  WRITELN('Hello');
> >  DELAY(1);
> > UNTIL KEYPRESSED;
> >END.
> >
> >except the keypress requires a bit of pressing down.
> 
> Is this simple enough?  (In QuickBasic)
> 
> DO UNTIL INKEY$ <> ""
>     PRINT "Hello World!  ";
> LOOP
> 
> Or this?  (In Commodore Basic 7.0)
> 
> 10 do while a$ = ""
> 20 print "Hello World!  ";
> 30 get a$
> 40 loop

I built an extension standard procedure into PascalP.  Don't
remember the exact name I used, but the code could go:

PROGRAM run(input, output);
  BEGIN
  REPEAT writeln('Hello World!); UNTIL dataready(input);
  END.

-- 
Chuck F (cbfalconer@yahoo.com) (cbfalconer@worldnet.att.net)
   Available for consulting/temporary embedded and systems.
   <http://cbfalconer.home.att.net>  USE worldnet address!