'===========================================================================
' Subject: ASCII TABLE WITH DEC/HEX/BIN      Date: 01-05-99 (13:52)       
' Author:  Dieter Folger                     Code: PB                     
' Origin:  folger@bamberg.baynet.de        Packet: PB.ABC
'===========================================================================
'---------------------------------------------------------------------------
' ASCI.BAS for Power Basic 
' Shows ASCII table in a box with
' character and values in dec, hex & bin
' in upper left corner of screen
' Use these keys: Cursor up, down,
' PgUp, PgDn, Home, End
' Freeware (c) 1998 by Dieter Folger
'---------------------------------------------------------------------------
 SaveScreen Scrn$
 'Make box for table:
 VIEW TEXT (10,2)-(31,14)
 COLOR 15,1
 PRINT "É";STRING$(20,"Í");"»";
 LOCATE CSRLIN,1
 FOR i = 1 TO 11
      PRINT "º";SPACE$(20);"º";
 NEXT
 PRINT "È";STRING$(20,"Í");"¼";
 LOCATE 1,5: PRINT "  Ascii Table "
 LOCATE 2, 2
 PRINT " Chr  Dec  Hx  Bin"
 COLOR 14,1

 DO   ' Main loop starts here
    b = Start
    FOR a = 1 TO 10
        d$ = RIGHT$("000" + LTRIM$(STR$(b)),3)
        h$ = RIGHT$("00" + Hex$(b),2)
        b$ = RIGHT$("0000" + BIN$(b),4)
        AscStr$ =  " " + CHR$(b) + "   " + d$ + "  "+ h$ + "  " + b$
        LOCATE a + 2, 3, 0
        PRINT AscStr$
        INCR b
    NEXT
    DO : Kb$ = INKEY$ : LOOP UNTIL LEN(Kb$)
    IF LEN(Kb$) = 2 THEN Kb$ = MID$(KB$,2)
    SELECT CASE Kb$          ' Keyboard functions
	   CASE CHR$(&H50)   ' Cursor down
		IF Start < 246 THEN INCR Start
	   CASE CHR$(&H48)   ' Cursor up
		  IF Start > 0 THEN DECR Start
	   CASE CHR$(&H47)   ' Home
		  Start = 0
	   CASE CHR$(&H51)   ' PgDn
		  IF Start > 235 THEN Start = 246 ELSE INCR Start, 10
	   CASE CHR$(&H49)   ' PgUp
		  IF Start < 10 THEN Start = 0 ELSE DECR Start, 10
	   CASE Chr$(&H4F)   ' End
		  Start = 246
           CASE Chr$(27)     ' Esc
                  EXIT LOOP
    END SELECT
 LOOP
 VIEW TEXT (1,1) - (80,24)
 RestoreScreen Scrn$
 END
'----------------------------------------------------------------------------
SUB SaveScreen (Scrn$)
'----------------------------------------------------------------------------
  SHARED py,px
  py = CSRLIN: px = POS(0)
  IF (PbvScrnCard AND 1) = 0 THEN 
        Address = &HB800  
  ELSE
	Address = &HB000  
  END IF
  DEF SEG = Address 
      Scrn$ = PEEK$(0,4000)
  DEF SEG
END SUB
'----------------------------------------------------------------------------
SUB RestoreScreen (Scrn$)
'----------------------------------------------------------------------------
  SHARED py, px
  IF (PbvScrnCard AND 1) = 0 THEN
	Address = &HB800 
  ELSE
	Address = &HB000 
  END IF
  DEF SEG = Address
      POKE$ 0, Scrn$
  DEF SEG
  LOCATE py, px, 1
END SUB
'=== eof ====================================================================