# Sorry, this menu is a bit of mess.

default location "unknown"
default nick "NN"

[Redraw]
echo "\c$cyan$"

echo "Your name$70r.user$\n"
caller != "unknown" echo "Your number$68r.caller$\n"
host != "unknown" echo "Your IP address$64r.host$\n"
nick != "NN" echo "Handle...$70r.nick$\n"
baudrate > 0 echo "Baudrate.$70r.baudrate$\n"
location != "unknown" echo "$bcyan$L$cyan$ocation.$70r.location$\n"
echo "Number of calls$64r.calls$\n"
ansi 1 set tmp "Yes"
ansi 0 set tmp "No"
echo "$bcyan$A$cyan$nsi.....$70r.tmp$\n"
echo "$bcyan$C$cyan$olumns..$70r.rows$\n"
echo "L$bcyan$i$cyan$nes....$70r.lines$\n"

datefmt = "M d y" set tmp "Month/Day/Year"
datefmt = "d M y" set tmp "Day/Month/Year"
echo "$bcyan$D$cyan$ate format$68r.tmp$\n

echo "Timelimit$62r.timelimit$ minutes\n"
echo "Time left$62r.timeleft$ minutes\n"
online > 1 echo "Time online$60r.online$ minutes\n"
online = 1 echo "Time online$61r.online$ minute\n"

#echo "Device...$70r.device$\n\n"

echo "\n$bcyan$A$cyan$:Toggle Ansi $bcyan$L$cyan$:Change location"
echo " $bcyan$P$cyan$:Change password"
echo " $bcyan$C$cyan$:Change number of columns\n"

echo "$bcyan$I$cyan$:Change number of lines"
echo " $bcyan$B$cyan$:Back to main $bcyan$H$cyan$:Change handle "
echo "$bcyan$D$cyan$:Toggle date format\n"

[Begin]
interrupt 1
getkey key
interrupt 0

key "l" set oldlocation location
key "l" echo "\nSo, where have you moved to? " getstring location 20
key "l" location "empty" set location oldlocation
key "l" jump Redraw

key "a" echo "\nWould like you ANSI codes (Y/n)?$grey$" yesno ansi
key "a" jump Redraw

key "b" menu "/osbbs/menus/main"

key "p" menu /osbbs/menus/passwd

key "i" echo "\nEnter number of lines: " getnumber tmp
key "i" tmp > 9 tmp < 101 set lines tmp
key "i" jump Redraw

key "c" echo "\nEnter number of columns: " getnumber tmp
key "c" tmp > 39 tmp < 161 set rows tmp
key "c" jump Redraw

key "h" echo "\nEnter your new handle: " getstring tmp 16
key "h" tmp != "empty" set nick tmp
key "h" jump Redraw

key "d" datefmt = "M d y" set tmp "d M y"
key "d" datefmt = "d M y" set tmp "M d y"
key "d" set datefmt tmp save datefmt jump Redraw

key " " jump Redraw

jump [Begin]
