set again 0
set oldemail email

[AskHandle]
echo "$grey$What is your handle (nick name)?$yellow$ "
getstring nick 40
nick = "empty" set nick user
save nick
echo "\n"
again = 1 jump End

[AskLocation]
echo "$grey$Where are you calling from?$yellow$ "
getstring location 40 echo "\n"
location = "empty" set location "Nowhere"
save location
again = 1 jump End

[AskComputer]
echo "$grey$What kind of computer do you have?\n"
echo "$white$[1]$yellow$ PC $white$[2]$yellow$ Amiga $white$[3]$yellow$ Mac "
echo "$white$[4]$yellow$ Atari $white$[5]$yellow$ Other\n"
select key "12345"
key = "1" set computer "PC"
key = "2" set computer "Amiga"
key = "3" set computer "Mac"
key = "4" set computer "Atari"
key = "5" echo "$grey$Enter computer type:$yellow$ " 
key = "5" getstring computer 20 echo "\n"
save computer

echo "$grey$What type of CPU makes your $computer$ tick?\n"
echo "$white$[1]$yellow$ 8086/8088 $white$[2]$yellow$ 80186 "
echo "$white$[3]$yellow$ 80286 $white$[4]$yellow$ 80386 "
echo "$white$[5]$yellow$ i486 $white$[6]$yellow$ Pentium\n"

# Er... There's no M68050, right?
echo "$white$[7]$yellow$ 68000 $white$[8]$yellow$ 68020 "
echo "$white$[9]$yellow$ 68030 $white$[A]$yellow$ 68040 "
echo "$white$[B]$yellow$ 68060 $white$[C]$yellow$ Other\n"

select key "123456789abc"
key = "1" set cpu "8086/88"
key = "2" set cpu "80186"
key = "3" set cpu "80286"
key = "4" set cpu "80386"
key = "5" set cpu "i486"
key = "6" set cpu "Pentium"
key = "7" set cpu "68000"
key = "8" set cpu "68020"
key = "9" set cpu "68030"
key = "a" set cpu "68040"
key = "b" set cpu "68060"
key = "c" echo "$grey$Enter CPU type:$yellow$ " getstring cpu 20 echo "\n"
save cpu
again = 1 jump End

[AskProtocol]
echo "$grey$Choose a file transfer protocol\n"
echo "$white$[X]$yellow$ X-Modem $white$[Y]$yellow$ Y-Modem "
echo "$white$[Z]$yellow$ Z-Modem\n"
select key "xyz"
key = "x" set protocol "xmodem"
key = "y" set protocol "ymodem"
key = "z" set protocol "zmodem"
again = 1 jump End

[AskFortune]
echo "$grey$Would you like to receive a $quote$fortune cookie$quote$ each time "
echo "you log in ($white$Y/n$grey$)?$yellow$ "
yesno fortune
save fortune
fortune = 1 echo "Yes.\n"
fortune = 0 echo "No.\n"
again = 1 jump End

[AskAddress]
echo "$grey$Enter your email address, or press Enter if you have none.\n"
echo "$yellow$" getstring email 70
email != "empty" jump End
set email oldemail
echo "You can receive your mail here if it is sent to: \n"
echo "$yellow$$email$\n"

[End]
echo "\n\n"
echo "$white$H$grey$ Handle       : $yellow$$nick$\n"
echo "$white$L$grey$ Location     : $yellow$$location$\n"
echo "$white$C$grey$ Computer type: $yellow$$computer$ ($cpu$)\n"
echo "$white$P$grey$ Protocol     : $yellow$"
protocol = "zmodem" echo "Z-Modem\n"
protocol = "ymodem" echo "Y-Modem\n"
protocol = "xmodem" echo "X-Modem\n"
echo "$white$F$grey$ Fortune      : $yellow$"
fortune = 1 echo "Yes\n"
fortune = 0 echo "No\n"
echo "$white$E$grey$ Email        : $yellow$$email$\n"
echo "\n"

set again 1

echo "$grey$Press $white$H$grey$, $white$L$grey$, $white$C$grey$, "
echo "$white$P$grey$, $white$E$grey$ or $white$F$grey$ to change "
echo "or any other key to continue.\n" 

getkey key
key = "h" jump AskHandle
key = "l" jump AskLocation
key = "c" jump AskComputer
key = "p" jump AskProtocol
key = "f" jump AskFortune
key = "e" jump AskAddress

more "/osbbs/screens/newusers"

menu /osbbs/menus/main
