aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/examples/ascii.frt
blob: ab09ad6c321a213a023411210d5174e51e9bd344 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
\ print a ascii table
: .ascii
base @
$7f $20 do
    i emit
    decimal  ." , dec: " i .
    hex      ." , hex: " i .
    8 base ! ." , oct: " i .
    2 base ! ." , bin: " i .
    cr
loop
base !
;