home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / ASCII.TPI < prev    next >
Text File  |  1994-10-04  |  1KB  |  53 lines
  1. # ASCII.TPI by Kent Peterson 9/29/94
  2.  
  3. define hex$ ( n --    )
  4.             (   -- h$ )
  5. # returns the hex equivalent of a number 0-15
  6.  "" begin
  7.      dup 16 mod
  8.      "0123456789ABCDEF" 1 + 1 mid$
  9.      swap$ +$
  10.      16 / dup not
  11.     until drop
  12. enddef
  13.  
  14. define asciiline ( c -- )
  15.                  (   -- )
  16. # displays c as a character, its hex code and its decimal code
  17.  " ║   ║    ║     ║ " print$
  18.  dup row 3 locate chr$ print$
  19.  dup row 7 locate hex$ print$
  20.      row 12 locate      print cr
  21. enddef
  22.  
  23. define asciichart ( n -- )
  24.  0 0 locate
  25.  |  ╔═══╦════╦═════╗
  26.  |  ║Chr║Hex ║ Dec ║
  27.  |  ╠═══╬════╬═════╣
  28.  10 do
  29.   dup 10 index - + 256 mod asciiline
  30.  loop
  31.  drop
  32.  |  ╚═══╩════╩═════╝
  33. enddef
  34.  
  35. define wait
  36.  begin key dup if dup endif until
  37. enddef
  38.  
  39. 0 0 locate
  40. 0 cursor
  41. 2560 dup asciichart
  42. begin
  43.  wait dup 14 2 locate "Keycode =    " print$
  44.  row column 3 - locate print
  45.  dup case 328 of drop 10 - dup asciichart endof
  46.                336 of drop 10 + dup asciichart endof
  47.                 27 of drop drop 1 cursor 0 bye endof
  48.           default swap drop 2560 + dup asciichart
  49.      endcase
  50.      0
  51. until
  52.  
  53.