A simple tcl/expect script that gives DELETE key support to jzip (z-machine emulator) so that I can sanely play zork on my laptop. (my laptop's BACKSPACE key does not work)

actually_playable_zork

#!/bin/sh --
# \
exec tclsh -encoding ascii "$0" "$@"

# usage: actually_playable_zork [zork_command] [save_file]

package require Expect

if {$::argc >= 1} {
    set zork [lindex $::argv 0]
} else {
    set zork zork1
}

spawn $zork

if {$::argc >= 2} {
    set save_file [lindex $::argv 1]
    send "restore\n${save_file}\n"
}

set KEY_ARROW_RIGHT "\033OC"
set KEY_BACKSPACE "\x7f"
set KEY_DELETE "\033\[3~"

interact {
    $KEY_DELETE {
        send "${KEY_ARROW_RIGHT}${KEY_BACKSPACE}"
    }
}