Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!uakari.primate.wisc.edu!umriscc!mcs213f.cs.umr.edu!mcastle
From: mcastle@mcs213f.cs.umr.edu (Mike Castle (Nexus))
Newsgroups: comp.lang.pascal
Subject: Re: IMPLEMENT GOTO ACROSS MODULES IN TURBO PASCAL??
Message-ID: <1910@umriscc.isc.umr.edu>
Date: 9 Jan 91 23:46:18 GMT
References: <7147@tekgen.BV.TEK.COM> <11661@j.cc.purdue.edu> <6622@vice.ICO.TEK.COM>
Sender: news@umriscc.isc.umr.edu
Organization: University of Missouri - Rolla
Lines: 47

In article <6622@vice.ICO.TEK.COM> bobb@vice.ICO.TEK.COM (Bob Beauchaine) writes:
>In article <11661@j.cc.purdue.edu> zhou@brazil.psych.purdue.edu (Albert Zhou) writes:
>>I use:
>>		repeat
>>		  s1;
>>		  s2;
>>		  s3;	
>>		until c;
>>
>>[stuff deleted]
>		repeat
>		  s1;
>		  s2;
>		  if not c then s3;	
>		until c;

My favorite is:

Procedure DoSomeThing(var parms:etc);

Var 
  Ch := Char;   
  
  Begin
    While True do Begin
       :
      Input data;
       :
      echo data and verify with y/n/q options
      if ch='q' then Exit;   (* jump from procedure.  *)                  
      if ch='y' then Begin
                      :
                    process data
                      :
         process more data? (y/n);
         if ch='n' then Exit;
       End;
     End;
   End;            (* DoSomeThing *)

I assume this is really bad practice, but I like it.  :->

-- 
Mike Castle (Nexus) S087891@UMRVMA.UMR.EDU (preferred)       | ERROR:  Invalid
                mcastle@mcs213k.cs.umr.edu (unix mail-YEACH!)| command 'HELP'
Life is like a clock:  You can work constantly, and be right | try 'HELP'
all the time, or not work at all, and be right twice a day.  |