*** ASCII.prg
*
* (c) CTS, MRI 1991
*
PRIVATE xWIND,mTALK,mESCA,mCURS,X,Y
xWIND='WN'+STR(RAND()*1000000,6)
mCURS=SET('CURS')='ON'
mESCA=SET('ESCA')='ON'
mTALK=SET('TALK')='ON'
SET ESCA OFF
SET TALK OFF
SET CURS OFF
DEFI WIND &xWIND FROM 1,1 TO 21,78 COLOR W+/B,,RG+/N
ACTI WIND &xWIND
CLEAR
X=0
y=1
@Y-1,2 say "XXX  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  XXX"
do while x<257
  if mod(x,16)=0
    @Y,2 SAY IIF((X-16)<0,"",STR(X-16,3)) COLOR G+/B
    @Y,70 SAY IIF((X-1)<0,"",STR(X-1,3))  COLOR G+/B
    y=y+1
  endif
  @ y,(mod(x,16)*4)+7 say chr(x) COLOR GR+/B
  x=x+1
enddo
?? SPACE(45)+"Press Esc when done!"
I=0
DO WHILE .T.
  IF I=27
    EXIT
  ENDIF
  I=INKEY()
ENDDO
RELE WIND &xWIND
IF mESCA
  SET ESCA ON
ENDIF
IF mTALK
  SET TALK ON
ENDIF
IF mCURS
  SET CURS ON
ENDIF
RETURN
*** End of ASCII.prg
*