Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!cs.utexas.edu!tut.cis.ohio-state.edu!pt.cs.cmu.edu!dsl.pitt.edu!pitt!willett!ForthNet
From: ForthNet@willett.pgh.pa.us (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: PUZZLES AND PROBLEMS
Message-ID: <1576.UUL1.3#5129@willett.pgh.pa.us>
Date: 23 Aug 90 03:05:53 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 28

Category 3,  Topic 35
Message 143       Tue Aug 21, 1990
D.RUFFER [Dennis]            at 23:23 EDT
 
Re: GORDON GANDERTON

 > The read out will be something like:
 > HAL: Type in 2 letters
 > DAVE: AG
 > HAL: There are 6 Characters that separate the letters A and G.

Well, if that is all there is to it, then it is simple:

: TEST   BEGIN  CR ." Type in 2 letters "
                KEY  KEY  SWAP 2DUP - ABS
                CR ." There are " .
                   ." characters that seperate the letters "
                EMIT  ."  and "  EMIT  AGAIN ;

However, I again didn't try it, so if it works it's a surprise to me.

<grin>   DaR

P.S. I don't know how F-PC handles the Break key, but in polyFORTH the ctrl-C
will abort at either of the KEY's.
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or dwp@willett.pgh.pa.us