********************************************************************************
*                                                                              *
*        Author - Nick Makris -  STARTECH SYSTEMS - San Francisco, CA          *
*        Date - March 1988                                                     *
*                                                                              *
*      ******************   DISPLAY ASCII CHARACTERS  ******************       *
*                                                                              *
*     ************  RELEASED TO THE PUBLIC DOMAIN - MAY 1991 ************      *
*                                                                              *
********************************************************************************
ON KEY LABEL SHIFT-F1 DO HLPINTFC WITH 'MINORCAT','ASCICHRS',''
WRITLN=13
SET COLOR TO &GETCOLOR
@12,7 CLEAR TO 12,70
@12,12 SAY 'MOVE TOKEN WITH CURSOR KEYS - PRESS <ESCAPE> TO EXIT!'
X=1
Z=255
DO WHILE X<255
  SET COLOR TO W+/W
  @11,6 TO WRITLN+1,71 DOUBLE
  SET COLOR TO N/W
  @WRITLN,7 CLEAR TO WRITLN,70
  Y=7
  W=71
  DO WHILE Y<W
   @WRITLN,Y SAY CHR(X)
   Y=Y+1
   X=X+1
   LOOP
  ENDDO
  Z=255-X+1
  WRITLN=WRITLN+1
ENDDO
@17,44 SAY ' ASCII CODES =        '
SVLINE=13
X=13
Y=7
Z=1
XI=0
HEXCHRS="0123456789ABCDEF"
DO WHILE XI # 27
  IF Z#7 && DON'T SAY BELL CHARACTER
   @X,Y SAY CHR(Z) COLOR &GETCOLOR
  ENDIF
  XN=Z
  HX=''
  IF Z<16
   HX=' '+substr(HEXCHRS,MOD(XN,16)+1,1)
  ELSE
   DO WHILE XN>0
    HX=substr(HEXCHRS,MOD(XN,16)+1,1)+HX
    XN=FLOOR(XN/16)
   ENDDO
  ENDIF
  IF Z#256
   @17,59 SAY STR(Z,3) COLOR &GETCOLOR
   @17,62 SAY '/'+HX COLOR &GETCOLOR
  ELSE
   @17,59 SAY '      ' COLOR &GETCOLOR
  ENDIF
  XI=0
  do while Xi=0
   Xi=inkey(1)
  enddo
  IF Z#7
   @X,Y SAY CHR(Z)
  ENDIF
  do case

       ** UP ARROW = 5
	  case XI = 5
		if x#13
		  x=x-1
		else
		  x=16
		endif

       ** DOWN ARROW = 24
	  case XI = 24
		if x#16
		  x=x+1
		else
		  x=13
		endif
       ** RIGHT ARROW = 4
	  case XI = 4
		if y#70
		  y=y+1
		else
		  y=7
		endif

       ** LEFT ARROW = 19
	  case XI = 19
		if y#7
		  y=y-1
		else
		  y=70
		endif

       ** PgUP = 18
	  case XI = 18
		X=13

       ** PgDN = 3
	  case XI = 3
		X=16

       ** HOME = 26
	  case XI = 26
		if y>38
		  y=38
		else
		if y>7
		  y=7
		else
		  y=70
		endif
		endif


       ** END = 2
	  case XI = 2
		if y<38
		  y=38
		else
		if y<70
		  y=70
		else
		  y=7
		endif
		endif
  endcase
  Z=((X-SVLINE+1)*64)-(65-(Y-6))+1
  loop
ENDDO
RETURN