WordBasic

'	Bold		(C) under GPL at 1999, AtH//HPG@hMoscow
'
' Name this macro Bold, run by pressing [B]old button.

Sub MAIN
  If MsgBox("Insert ASCII Table?", "ASCII", 1) Then
    Hex$ = "0123456789abcdef"
    TableInsertTable .NumColumns = 17, .NumRows = 14
    For i = 1 To 16 : NextCell : Insert Mid$(Hex$, i, 1) : Next
    For i = 3 To 16 : NextCell : Insert Mid$(Hex$, i, 1) + "0"
      For j = - 16 To - 1 : NextCell : Insert Chr$(i * 16 + j) : Next
    Next : CharRight 2
  Else
    Bold
  EndIf
End Sub

: hscool@netclub.ru