Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!uc!noc.MR.NET!gacvx2.gac.edu!hhdist
From: robert@longs.LANCE.ColoState.Edu (Robert D. Thompson)
Newsgroups: comp.sys.handhelds
Subject: RE: Faster Tetris (again)
Message-ID: <9012040454.AA17981@longs.LANCE.ColoState.Edu>
Date: 4 Dec 90 04:53:46 GMT
Lines: 43
To: handhelds@gac.edu
Return-path: <robert@longs.LANCE.ColoState.Edu>
In-reply-to: Your message of Thu, 29 Nov 90 22:33:00 -0600.<52C1B73860002620@gacvx2.gac.edu>
To: handhelds@gac.edu

*> Relay-Version: VMS News - V6.0 13/10/90 VAX/VMS ......

*> Newsgroups: comp.sys.handhelds
*> Subject: Re: Faster Tetris (again)
*> Message-ID: <30428@boulder.Colorado.EDU>
*> From: frechett@boulder.Colorado.EDU (-=Runaway Daemon=-)
*> Date: 30 Nov 90 00:12:01 GMT
*> Reply-To: frechett@snoopy.Colorado.EDU (-=Runaway Daemon=-)
*> Sender: news@boulder.Colorado.EDU
*> References: <LLs3s1w163w@ireta.wimsey.bc.ca>
*> Organization: University of Colorado, Boulder
*> Nntp-Posting-Host: snoopy.colorado.edu
*> Lines: 15
*> 

Ok here is an even better way to pause:

	in RK2 add the following lines

		<< 2 ->LIST 
			'lstk' STO 
			HALT 
			lstk LIST-> 
			DROP
			{ #0 #0 } PVIEW
		>>

	after:

	
		... DUP 
    			THEN { .....

Also add, at the beginning of the key list, add the key-code for the pause key.
	
This will halt the program and leave the stack as it was when you started.

Sorry about the non-downloadable code but it is short.

-Robert

P.S.  With the default settings, I got 16900. (not to gloat or 	       
    anything)