#!/home/user/bin/d4x
# d4 script for running in user's directories

LOCAL;DSH;REPEAT MAIN_MNU;QUIT

Z<-LOCAL
|Add user specific stuff here
D4LIB_PATH<-"/home/user/d4/cp/" #ifndef "D4LIB_PATH"
$HOME<-#cd
XRESIZE
0 r #cmd"setterm -blank 0"
#cd"/home/user/d4/cp"
0 r #copy"dsh.afn"
STARTUP
|Keyboard kludge .. US-International  -> '"
|$KB<-#av i256
|$KB[180 168]<-#av 39 34
|Acer. Duplicate DEL as CTRL-X
$KB<-#av i256
$KB[24]<-#av 127
D4.P<-"$ "
Z<-ADD_ALIAS LOCAL.LST
0 r #cd $HOME

"LOCAL.LST"
add|WW.ED"/home/user/data/acer.lst Z"
myhost|#cmd"<echo $HOSTNAME"
myhome|#cmd"<echo $HOME"
vnet|#cmd"firefox ", ARGS, " &"
xcc|#cmd"xterm +sb -fn alef -e dsh N=2197 ", ARGS, " &"
gokgs|#cmd "javaws http://files.gokgs.com/javaBin/cgoban.jnlp &"
google|#cmd "firefox http://google.com/search?q=", ARGS, " &"
mail|#cmd "firefox http://mail.yahoo.com?intl.=us &"
phone|DO "< grep ",(UPALPHA [#av ARGS])," -h /home/user/data/*"
yc|#cmd"Terminal --hide-toolbars -x dsh v=2 x=script &"

Z<-XRESIZE;SANE;K
|Resize screen according to perceived dimensions.
SANE<-24 80 & Z<-#sstomat #cmd"< stty -a" & Z<-#sstomat ";",Z[0]
IF 1 <= rK<-(c/y "rows"    #find Z)/:Z; SANE[0]<-#fi (K e "0123456789")/K
IF 1 <= rK<-(c/y "columns" #find Z)/:Z; SANE[1]<-#fi (K e "0123456789")/K
Z<- #screen SANE






