an evil wicked notepad created by me - with help from ZModem`
type /notepad to start

dialog NOTEPAD {
  title "Fiend's mIRC Notepad"
  size -1 -1 332 269
  option dbu
  edit "", 1, 0 0 332 269, autohs autovs multi return hsbar vsbar RICH
  menu "File", 2
  item "Open", 3, 2
  item "Save", 4, 2
  item "Save As...",6, 2
  item "Print",7, 2
  item "Close", 5, 2
}
on *:dialog:notepad:menu:3: {
  set %file $shortfn($sfile(C:\,Open a file,Open))
  if ( %file == $null ) halt
  set %lines $did(notepad,1).lines
  while %lines >= 0 {
    dec %lines
    did -r notepad 1 %lines
  }
  loadbuf -o notepad 1 %file
  dialog -t notepad Fiend's mIRC Notepad - Reading %file
}
on *:dialog:notepad:menu:6: {
  if ( %file == $null ) set %file $sfile(C:\,Save as...,Save)
  write -c %file
  set %file $shortfn(%file)
  set %lines $did(notepad,1).lines
  set %written 0
  while %written != %lines {
    inc %written
    write -l $+ %written %file $did(notepad,1, %written )
  }
}
on *:dialog:notepad:menu:7: {
  set %file C:\print.txt
  set %lines $did(notepad,1).lines
  set %written 0
  while %written != %lines {
    inc %written
    write -l $+ %written %file $did(notepad,1, %written )
  }
  run notepad.exe /p C:\print.txt
}
on *:dialog:notepad:menu:4: {
  set %file $sfile(C:\,Save as...,Save)
  if ( %file == $null ) halt
  write -c %file
  set %file $shortfn(%file)
  set %lines $did(notepad,1).lines
  set %written 0
  while %written != %lines {
    inc %written
    write -l $+ %written %file $did(notepad,1, %written )
  }
}
on *:dialog:notepad:menu:5: {
  dialog -x notepad notepad
  unset %file
}
on *:dialog:notepad:close:0: {
  unset %file
}
alias notepad dialog -mdv notepad notepad
menu channel {
  Notepad: notepad
}