Animation

!Rachna Bal
!Period 6
!May 4, 2009

!**********Level 0:**********
CALL Intro
CALL OceanScene
CALL Story
CALL Question
CALL Ending

!**********Level 1:**********
INTRO
CLEAR Screen
call BlankLines
CALL Para1
CALL AnyKey

OCEANSCENE
FOR x = 1 to 4
CALL Ocean1
CALL Ocean2
CALL Ocean3
NEXT x
CALL JessicaEnters1
CALL JessicaEnters2
CALL JessicaEnters3
FOR x = 1 to 3
CALL JessicaWaving1
CALL JessicaWaving2
CALL JessicaWaving3
CALL JessicaWaving2
NEXT x

STORY
CLEAR Screen
Call Blank Lines
Call Para2
CALL AnyKey

QUESTION
INPUT Prompt "Will Jessica see a dolphin?(Y/N) ":Answer$
LET Answer$ = Ucase$(Answer$)
DO
IF Answer$ <> "Y" or Answer$ <> "N" then
PRINT "Please type in a y or an n"
ELSE IF
LET Answer$ = "Y" Then
CALL ResultYay
ELSE IF
CALL ResultBoo

ResultYay
Call Dolphin1
Call Dolphin2
Call Dolphin3
Call Dolphin4
Call ParaHappy

ResultBoo
Call JessicaLeaving1
Call JessicaLeaving2
Call JessicaLeaving3
Call JessicaLeaving4

Call Dolphin1
Call Dolphin2
Call Dolphin3
Call Dolphin4
Call ParaSad

Ending
Print Blank Lines
Call Para3
Clear
Call Dolphin1
Call Dolphin2
Call Dolphin3
Call Dolphin4
Call TheEnd

!**********Level 2:**********

Blank Lines
Print
Print
Print
Print
Print
Print
Print
Print

Para1
Print