;'Oisvo, Volume II'

BOOK_TITLE="History of Oisvo, Volume 2"
PAGES=5
TITLE_1="0"
TITLE_2="0"
TITLE_3="0"
TITLE_4="0"
TITLE_5="0"
TITLE_6="0"
TITLE_7="0"
TITLE_8="0"
TITLE_9="0"

Page=Lower(GetUserMessage(#USERID))

If Page>PAGES
	If Page<"a"
		SendMessageToUser(#USERID,"No such page. Read page '0' to see the Table of Contents.",#MSG_SAY)
		GoTo END
	EndIf
EndIf

If Page=1
	SendMessageToUser(#USERID,"Page One: "+TITLE_1,#MSG_SAY)
ElseIf Page=2
	SendMessageToUser(#USERID,"Page Two: "+TITLE_2,#MSG_SAY)
ElseIf Page=3
	SendMessageToUser(#USERID,"Page Three: "+TITLE_3,#MSG_SAY)
ElseIf Page=4
	SendMessageToUser(#USERID,"Page Four: "+TITLE_4,#MSG_SAY)
ElseIf Page=5
	SendMessageToUser(#USERID,"Page Five: "+TITLE_5,#MSG_SAY)
ElseIf Page=6
	SendMessageToUser(#USERID,"Page Six: "+TITLE_6,#MSG_SAY)
ElseIf Page=7
	SendMessageToUser(#USERID,"Page Seven: "+TITLE_7,#MSG_SAY)
ElseIf Page=8
	SendMessageToUser(#USERID,"Page Eight: "+TITLE_8,#MSG_SAY)
ElseIf Page=9
	SendMessageToUser(#USERID,"Page Nine: "+TITLE_9,#MSG_SAY)
ElseIf Page=0
	SendMessageToUser(#USERID,"Table of Contents:",#MSG_SAY)
	SendMessageToUser(#USERID,"[Page]    [Summary]",#MSG_SAY)
	
	If TITLE_1<>"0"
		SendMessageToUser(#USERID,"[1]    ["+TITLE_1+"]",#MSG_SAY)
	EndIf
	If TITLE_2<>"0"
		SendMessageToUser(#USERID,"[2]    ["+TITLE_2+"]",#MSG_SAY)
	EndIf
	If TITLE_3<>"0"
		SendMessageToUser(#USERID,"[3]    ["+TITLE_3+"]",#MSG_SAY)
	EndIf
	If TITLE_4<>"0"
		SendMessageToUser(#USERID,"[4]    ["+TITLE_4+"]",#MSG_SAY)
	EndIf
	If TITLE_5<>"0"
		SendMessageToUser(#USERID,"[5]    ["+TITLE_5+"]",#MSG_SAY)
	EndIf
	If TITLE_6<>"0"
		SendMessageToUser(#USERID,"[6]    ["+TITLE_6+"]",#MSG_SAY)
	EndIf
	If TITLE_7<>"0"
		SendMessageToUser(#USERID,"[7]    ["+TITLE_7+"]",#MSG_SAY)
	EndIf
	If TITLE_8<>"0"
		SendMessageToUser(#USERID,"[8]    ["+TITLE_8+"]",#MSG_SAY)
	EndIf
	If TITLE_9<>"0"
		SendMessageToUser(#USERID,"[9]    ["+TITLE_9+"]",#MSG_SAY)
	EndIf
Else
	SendMessageToUser(#USERID,"'"+BOOK_TITLE+"', What page would you like to read?",#MSG_SAY)
EndIf

Label END

Continue = 1