#!/usr/local/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/tony/d4/cp/" #ifndef "D4LIB_PATH"
$HOME<-#cd
XRESIZE
0 r #cmd"setterm -blank 0"
#cd"/home/tony/d4/cp"
0 r #copy"dsh.afn"
STARTUP
|Keyboard kludge .. US-International  -> '"
|$KB<-#av i256
|$KB[180 168]<-#av 39 34
D4.P<-"$ "
Z<-ADD_ALIAS LOCAL.LST
0 r #cd $HOME

"LOCAL.LST"
myhost|#cmd"<echo $HOSTNAME"
myhome|#cmd"<echo $HOME"
vnet|#cmd"mozilla-firefox ", ARGS, " &"

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





