[Redraw] 
filesort = "byname" set sortorder "By filename"
filesort = "bysize" set sortorder "By filesize"
filesort = "bydate" set sortorder "By date"

ansi = 1 view "/osbbs/screens/files.ansi"
ansi = 0 view "/osbbs/screens/files.ascii"

interrupt 1
select key " lcdubpns"
interrupt 0

key = " " jump Redraw

key = "l" echo "$grey$Wait a moment please, reading the index..."
key = "l" filelist
key = "l" exitcode = 1 echo "\nNo files.\n" 
key = "l" exitcode = 1 getkey tmp
key = "l" jump Redraw

key = "d" marked > 0 jump DownLoad
key = "b" menu /osbbs/menus/main
key = "c" clearmarks
key = "u" jump UpLoad
key = "n" jump NewFiles
key = "s" jump SortOrder
key = "p" menu /osbbs/menus/areas

jump Redraw

[DownLoad]
echo "\c$grey$Choose a protocol: \n\n"
echo "$white$[X]$yellow$ X-Modem (sucks)\n"
echo "$white$[Y]$yellow$ Y-Modem (sucks)\n"
echo "$white$[Z]$yellow$ Z-Modem (use this)\n"
echo "$white$[T]$yellow$ Telnet Z-Modem (telnet users use this)\n"
select key xyzt
echo "\nProtocol: $white$\n"
key = "x" set protocol xmodem echo "X-Modem"
key = "y" set protocol ymodem echo "Y-Modem"
key = "z" set protocol zmodem echo "Z-Modem"
key = "t" set protocol tzmodem echo "Telnet Z-Modem"

echo "\n\n$grey$Do you want me to disconnect after the download has finished (y/N)?"
noyes hup
hup = 1 echo "$white$ Y\n"
hup = 0 echo "$white$ N\n"

echo "$grey$Start your download program, or press ctrl-X to cancel.\n"
download

exitcode = 2 echo "$bred$This protocol cannot do downloads.\n" getkey tmp
exitcode = 2 jump Redraw

exitcode != 0 echo "$bred$An error occurred. Typical.\n"
exitcode != 0 log "download failed ($exitcode$)"

exitcode = 0 echo "$grey$Download successful.\n" log "download ok"
exitcode = 0 clearmarks hup = 1 logoff

getkey tmp
jump Redraw

[UpLoad]
echo "\c$grey$Choose a protocol: \n\n"
echo "$white$[X]$yellow$ X-Modem (sucks)\n"
echo "$white$[Y]$yellow$ Y-Modem (sucks)\n"
echo "$white$[Z]$yellow$ Z-Modem (use this)\n"
echo "$white$[T]$yellow$ Telnet Z-Modem (telnet users use this)\n"
select key xyzt
echo "\nProtocol: $white$"
key = "x" set protocol xmodem echo "X-Modem"
key = "y" set protocol ymodem echo "Y-Modem"
key = "z" set protocol zmodem echo "Z-Modem"
key = "t" set protocol tzmodem echo "Telnet Z-Modem"
echo "\n\n$grey$Start your upload program or press ctrl-X to cancel.\n"

log "upload"
upload

exitcode = 0 log "upload ok" jump Redraw

exitcode != 0 log "upload error ($exitcode$)"
exitcode = 1 echo "$bred$Error.\n"
exitcode = 2 echo "$bred$This protocol cannot do uploads.\n"
exitcode = 3 echo "$bred$We don't have enough disk space at the moment.\n"

getkey tmp
jump Redraw

[NewFiles]
echo "$grey$View new files since "
newuser = 0 makedate tmp lastcall echo "(Enter for default $tmp$): "
newuser = 1 echo "(Enter for all files): "
echo "$yellow$" getstring tmp 20 echo "\n"
tmp = "empty" newuser = 1 set filedate 0
tmp = "empty" newuser = 0 set filedate lastcall
tmp != "empty" getdate filedate tmp
tmp != "empty" exitcode = 1 echo "$bred$Invalid date.\n" jump NewFiles
newfilelist filedate # NOTE: filelist clobbers filedate, but right now we
                     # don't care.
exitcode = 1 echo "$grey$No files.\n" getkey tmp

jump Redraw

[SortOrder]
echo "$grey$Choose a sort order: "
echo "$white$[1]$yellow$ By filename $white$[2]$yellow$ By size "
echo "$white$[3]$yellow$ By date\n" 
select key "123"
key = "1" set filesort "byname"
key = "2" set filesort "bysize"
key = "3" set filesort "bydate"
jump Redraw
