Script Library: ascii-info.r

Script Library: 1247 scripts

ascii-info.r

REBOL [
    Title: "ASCII Info"
    Date: 12-Oct-2001/16:07:26-7:00
    Version: 1.0.0
    File: %ascii-info.r
    Author: "Ryan S. Cole"
    Purpose: "Basically an ASCII chart."
    Email: %ryan--practicalproductivity--com
    library: [
        level: 'beginner 
        Platform: 'all
        type: [Demo Tool] 
        domain: 'GUI
        tested-under: [core 1.3.2.3.1 "windows 98"]
        support: none
        license: 'public-domain
    ]
]

ascii-meanings: [
    0 "Null"
    1 "Start of heading"
    2 "Start of text"
    3 "End of text"
    4 "End of transmission"
    5 "Enquiry"
    6 "Acknowledge"
    7 "Bell"
    8 "Backspace"
    9 "Horizontal tab"
    10 "Line feed"
    11 "Vertical tab"
    12 "Form feed"
    13 "Carriage return"
    14 "Shift out"
    15 "Shift in"
    16 "Data link escape"
    17 "Device control 1"
    18 "Device control 2"
    19 "Device control 3"
    20 "Device control 4"
    21 "Negative acknowledge"
    22 "Synchronous idle"
    23 "End of transmission block"
    24 "Cancel"
    25 "End of medium"
    26 "Substitute"
    27 "Escape"
    28 "File seperator"
    29 "Group seperator"
    30 "Record seperator"
    31 "Unit seperator"
    32 "Space"
]

to-2-hex: func [num] [
    return skip to-string to-hex num 6
]

to-3-num: function [num] [tmp] [
    tmp: to-string num
    while [3 > length? tmp][insert tmp #"0"]
    return tmp
]

to-asc: function [num] [tmp] [
    tmp: head remove back tail copy skip mold to-char num 2
    while [2 > length? tmp][insert tmp #" "]
    return tmp
]

to-description: function [num] [tmp] [
    tmp: select ascii-meanings num
    if none? tmp [tmp: copy ""]
    return tmp
]

asc: copy [""] ; solves a bug with the list box

for i 0 255 1 [
    append asc rejoin [
        to-2-hex i  "   "
        to-3-num i  "   "
        to-asc i "   "
        to-description i
    ]
]

view layout [
  Title "ASCII Chart"
  label "hex, decimal, character, description"
  text-list 300x200 data (asc) with [font: [size: 14]]
]

Notes

email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(ryan:practicalproductivity:com)