Just a simple notepad script i wrote, then changed into a decoder/encoder

alias encode {
  dialog -md Encode Encode
  echo -a 03Now Opening Pauls Encoder / Decoder
}
dialog Encode {
  title "Pauls Encoder / Decoder"
  size -1 -1 253 192
  option dbu
  edit "", 14, 2 3 249 187, multi return autohs autovs
  menu "File", 1
  item "New", 2, 1
  item "Open", 3, 1
  item "Save", 4, 1
  item "Exit", 5, 1, cancel
  menu "Encode/Decode", 6
  item "Encode", 7, 6
  item "Decode", 8, 6
  menu "Help", 9
  item "Website", 10, 9
  item "Email", 11, 9
  item "MSN", 12, 9
  item "Yahoo", 13, 9
}
on *:DIALOG:Encode:*:*: {
  if ( $devent == menu ) {
    if ($did == 2) { did -r Encode 14 }
    else if ($did == 3) { set %filename $sfile(C:\*.penc,Select the File you wish to Encode/Decode) }
    else if ($did == 4) { write $??="Filename to Save To" $+ .penc $encode($did(14),m) }
    else if ($did == 7) { set %encode $did(14) | did -ra Encode 14 $encode(%encode) }
    else if ($did == 8) { set %encode $did(14) | did -ra Encode 14 $decode(%encode) }
    else if ($did == 10) { dialog -md contact contact }
    else if ($did == 11) { dialog -md contact contact }
    else if ($did == 12) { dialog -md contact contact }
    else if ($did == 13) { dialog -md contact contact }
  }
  else if ( $devent == init ) {
    did -a Encode 14 Welcome to my Encoder/Decoder. This is only for fun but still worth that
  }
}
dialog contact {
  title "Contact Info"
  size -1 -1 105 68
  option dbu
  box "Contact Me", 1, 3 3 99 63
  text "IRC: irc2.snm.co.nz", 2, 8 12 90 8
  text "E-Mail: paul@irc4.snm.co.nz", 3, 8 23 90 8
  text "MSN: paul@irc4.snm.co.nz", 4, 8 34 90 8
  text "Yahoo: paulgartner", 5, 8 44 91 8
  link "Website: X-Static Codes", 6, 8 54 92 8
}

on *:DIALOG:contact:sclick:6: run http://xstatic.webtastix.co.nz