ignorecase on
tabstop 3
resettoggle 20
resettoggle 21
resettoggle 24
resettoggle 25

map `f1' (resize 77 23)
map `c-f1' (resettoggle 20 if c=32 (settoggle 20) if r (settoggle 20))
map `cs-f1' (resettoggle 20 if c=32 (settoggle 20))
map `f2' (resize 77 11 openwindow +0+100+640+100 escimm (newfile ))
map `s-f2' (unblock block block bsource down first)
map `f4' (tlate 10)
map `s-f4' (tlate 12)
map `f3' (iconify)
map `f5' (quit)
map `f6' (escimm `findr ')
map `s-f6' (nextr)
map `c-f6' (right wleft resettoggle 20 while !20 (if cu (tlate +32) right c-f1) wright)
map `cs-f6' (rigth wleft resettoggle 20 while !20 (if cl (tlate -32) right c-f1) wright)
map `f7' (repeat -1 nextr)
map `f8' (insertmode on)
map `s-f8' (insertmode off)
map `f9' `escimm `insfile ''
map `s-f9' `escimm `newfile ''
map `c-f9' (ifelse 21 (goto start while cb (c-f6 if r (return)) unblock) (c-f6))
map `cs-f9' (ifelse 21 (block goto start while cb (cs-f6 if r (return)) unblock) (cs-f6))
map `f10' `saveold quit'
map `s-f10' `escimm `saveas ''


map `nk(' (ifelse 25 (resettoggle 25) (settoggle 25))
map `nk)' (resettoggle 25 newwindow newfile s:adam.keys)
map `nk/' (ifelse 25 (resettoggle 25 next) (escimm (find )))
map `nk*' (ifelse 25 (resettoggle 25 escimm (execute ) iconify) (escimm ()))
map `nk0' (resettoggle 25 wright)
map `nk1' (resettoggle 25 ifelse r (join) (del))
map `nk2' (resettoggle 25 ifelse r (join) (c-f1 while !20 (del c-f1) cs-f1 while 20 (del cs-f1))
map `nk3' (ifelse 25 (remeol resettoggle 25) (deline first))
map `nk4' (ifelse 25 (ping 1 resettoggle 25) (ifelse 21 (unblock resettoggle 21) (block settoggle 21)))
map `nk5' (ifelse 25 (if 21 (block ping 2 pong 1 bmove pong 2 resettoggle 21) resettoggle 25) (if 21 (block bsave t:paste bdelete settoggle 24 resettoggle 21)))
map `nk6' (ifelse 25 (c-nk6) (cs-nk6))
map `c-nk6' (if 21 (block ping 2 pong 1 bcopy pong 2 unblock) resettoggle 25 resettoggle 21)
map `cs-nk6' (if 21 (block bsave t:paste1 execute (rename t:paste t:paste0) execute (join t:paste0 t:paste1 as t:paste) bdelete resettoggle 21)))
map `nk7' (ifelse 25 (top first resettoggle 25) (repeat 11 (up) if r last))
map `nk8' (ifelse 25 (bottom first resettoggle 25) (repeat 11 (down) if r last))
map `nk9' (ifelse 25 (c-f9 resettoggle 25) (cs-f9))
map `nk.' (resettoggle 25 ifelse r (down last) last)
map `nk-' (resettoggle 25 undeline down)
map `nk+' (ifelse 25 (pong 1 resettoggle 25) (if 24 (insfile t:paste)))
map `enter' (ifelse 25 (reformat resettoggle 25) (split first downadd))

map ` ' `ifelse x<77 (( )) (enter)'
map `return' `enter'
map `c-return' `( ) left tlate 10 right'
map `c-tab' `( ) left tlate 9 right'
map `bs' `ifelse l `up last join if !l `del'' bs'
map `down' `down if r last'
map `up' `up if r last'
map `del' `first'
map `c-a' `insertmode toggle'
map `c-b' `recall'
map `c-l' `( ) left tlate 12 right'
map `c-u' `while !l bs'
map `c-v' `escimm (tlate )'
map `c-z' `f10'
map `help' `iconify'
map `s-esc' `tlate 27'

menuadd File Quit quit
menuadd File Get-File s-f9
menuadd File Include-File f9
menuadd File Save f10
menuadd File Save-As s-f10