Mercurial > octave

comparison scripts/control/prompt.m @ 3236:98e15955107e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-03-05 07:17:10 by jwe]
author jwe
date Fri, 05 Mar 1999 07:19:35 +0000
parents 28aba52a2368
children 6dd06d525de6
comparison
equal deleted inserted replaced
3235:41602f25d19f 3236:98e15955107e
21 # Prompt user to continue 21 # Prompt user to continue
22 # str: input string. Default value: "\n ---- Press a key to continue ---" 22 # str: input string. Default value: "\n ---- Press a key to continue ---"
23 # Written by David Clem August 15, 1994 23 # Written by David Clem August 15, 1994
24 # Modified A. S. Hodel June 1995 24 # Modified A. S. Hodel June 1995
25 25
26 # $Revision: 2.0.0.2 $
27 26
28 if(nargin > 1) 27 if(nargin > 1)
29 usage("prompt([str])"); 28 usage("prompt([str])");
30 elseif(nargin == 0) 29 elseif(nargin == 0)
31 str = "\n ---- Press a key to continue ---"; 30 str = "\n ---- Press a key to continue ---";