Sorry your browser is not supported!

choice1:
input "Choose one: 1.Bob  2.Carol",a
if a=1 then goto choice1_1
if a=2 then goto choice1_2
goto choice1


choice1_1:
a=0
input "Choose one: 1.Jimmy  2.Fred",a
if a=1 then goto choice2_1
if a=2 then goto choice3_2
goto choice1_1

choice1_2:
a=0
input "Choose one: 1.Stan  2.Lee",a
if a=1 then goto choice2_3
if a=2 then goto choice2_4
goto choice1_2



choice2_1:
a=0
input "Choose one: 1.Larry  2.Curly",a
if a=1 then goto choice3_1
if a=2 then goto choice3_2
goto choice2_1

choice2_2:
a=0
input "Choose one: 1.Moe  2.Lisa",a
if a=1 then goto choice3_3
if a=2 then goto choice3_4
goto choice2_2

choice2_3:
a=0
input "Choose one: 1.George  2.Sam",a
if a=1 then goto choice3_5
if a=2 then goto choice3_6
goto choice2_1

choice2_4:
a=0
input "Choose one: 1.Heidi  2.Jane",a
if a=1 then goto choice3_7
if a=2 then goto choice3_8
goto choice2_4

dim choice$(10,2)

choice$(1,1)="Red"
choice$(1,2)="Blue"
choice$(2,1)="Dark Red"
choice$(2,2)="Light Red"
choice$(3,1)="Dark Blue"
choice$(3,2)="Light Blue"
choice$(4,1)="Very Dark Red"
choice$(4,2)="Slightly Dark Red"
choice$(5,1)="Very Light Red"
choice$(5,2)="Slightly Light Red"
choice$(6,1)="Very Dark Blue"
choice$(6,2)="Slightly Dark Blue"
choice$(7,1)="Very Light Blue"
choice$(7,2)="Slightly Light Blue"
current=1
do
   print choice$(current,1)
   print choice$(current,2)
   input myChoice
   if myChoice=1 then inc current,current
   if myChoice=2 then inc current,current+1



loop