--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/cmds/prompt.asm	Sat Jun 28 18:41:05 2003 +0000
@@ -0,0 +1,61 @@
+********************************************************************
+* Prompt - Echo text and wait for a key
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*   1    Created                                        BGP 03/06/28
+
+         nam   Prompt
+         ttl   Echo text and wait for a key
+
+         ifp1
+         use   defsfile
+         endc
+
+tylg     set   Prgrm+Objct   
+atrv     set   ReEnt+rev
+rev      set   $00
+edition  set   1
+
+         mod   eom,name,tylg,atrv,start,size
+
+         org   0
+devopts  rmb   32
+         rmb   450
+size     equ   .
+
+name     fcs   /Prompt/
+         fcb   edition
+
+cr       fcb   C$CR
+
+start    decb			subtract CR from param length
+         beq   readkey		if zero, don't print anything
+         clra			clear upper 8 bits
+         tfr   d,y		transfer length to Y
+         lda   #$01		stdout
+         os9   I$Write
+         bcs   exit
+readkey  ldd   #$02*256		stderr
+*         ldb   #SS.Opt		get options
+         leax  devopts,u
+         os9   I$GetStt		get 'em
+         bcs   exit
+         clr   (PD.EKO-PD.OPT),x
+         os9   I$SetStt		set 'em
+         ldy   #$0001		one character
+         os9   I$Read		read one char from stderr
+         clrb  
+         inc   (PD.EKO-PD.OPT),x	turn on echo
+         os9   I$SetStt		set 'em
+         leax  cr,pcr
+         lda   #$01		to stdout
+         os9   I$WritLn		write it out
+exit     os9   F$Exit   
+
+         emod
+eom      equ   *
+         end
+