! This program determines the zodiac sign when the user inputs his or her birthday (MM DD)
! Other special features have been added to make it fun
! The commands used for this program are: SET COLOR, PAUSE, DO-LOOP, INPUT Prompt, PRINT, LET, SELECT CASE-END SELECT,
! END, FOR-NEXT, CALL Read_image, IF-Then, ELSE, CLEAR, SOUND, FLOOD, PLOT TEXT, BOX CIRCLE,
LET X=.61
LET Y=.077
SET Color "Green"
CAll Read_image ("JPEG", image$, "zodiac.jpg")
BOX Show Image$ at X, Y
PRINT "WELCOME TO THE ZODIAC-DETERMINATION GAME!!"
PAUSE 1
SET COLOR "Blue" ! Sets the upcoming font to blue.
PRINT "~~~ THIS PROGRAM IS FOR YOU TO DISCOVER YOUR TRUE ZODIAC! ~~~" ! Prints the greeting
PRINT ! Adds an extra space between lines
PAUSE 2 ! Adds a short pause between outputs
SET COLOR "black"
DO ! Sets a loop in case an invalid input is made
INPUT prompt "Enter your first and last name: ": Name$ ! Allows user to enter their first and last name
LET Space = Pos(Name$, " ") ! Locates the input before the space to get first name
IF Space > 0 Then
PRINT
PRINT "Hello, "; Ucase$(Name$[1:1]); Name$[2:Space-1]; "! Before we start, let's see your name in different forms.." ! Sets the name to both uppercase and lowercase letters
ELSE
PRINT "PLEASE ENTER YOUR FIRST AND LAST NAME SEPARATED BY A SINGLE SPACE! "
END IF
LOOP until Space >0
!
PRINT Repeat$ ("~", 143)
PAUSE 1
SET COLOR "Red"
PRINT
PRINT " **** This is your name in UPPERCASE letters : "; Ucase$(Name$)
PAUSE 1
PRINT
PRINT " **** THIS IS YOUR NAME IN lowercase LETTERS : "; Lcase$(Name$)
PAUSE 1
PRINT
PRINT "Okay, now that we know your name, let's figure out your zodiac sign..."
!
PAUSE 1
SET COLOR "Green"
PRINT
DO ! Uses a user friendly loop to check if the birthdate input is correct
INPUT prompt "Enter your birth Month and Day (in the MM DD format) to see your zodiac sign: ": Bday$ ! Asks the user to input their birthdate
IF Len(Bday$) <> 5 Then ! Checks to make sure the input format is correct
PRINT "Invalid Format. Remember to type month (MM), then leave a single space and then type the day in DD format. "
ELSEIF Val(Bday$[4:5]) > 31 Then ! Checks to make sure the date is appropriate
PRINT "Sorry, A MONTH DOES NOT HAVE MORE THAN 31 DAYS, Please enter a valid date (1 to 31) "
ELSEIF Val(Bday$[1:2]) > 12 Then ! Checks to make sure the month is appropriate
PRINT "Sorry, there are only 12 months in a year. Please enter the correct date (1 to 12). "
END IF
LOOP while (Len(Bday$) <> 5) or (Val(Bday$[4:5]) > 31) or (Val(Bday$[1:2]) > 12)
!
PAUSE 1
SET COLOR "blue"
PRINT
PRINT "Take a look at these ZODIAC PICTURES while your birthdate is being calculated. Are they your zodiac? Let's find out.."
!
PAUSE 1
PRINT
PRINT
!
SOUND 400, 5 !Puts sound that will run until zodiac sign is revealed to the user.
!
PAUSE 1
PRINT " ARE YOU TAURUS??? "
PRINT
PRINT
PRINT " __ \\____//"
PRINT " /{_\_/ `'\____"
PRINT " \___ (o) (o }"
PRINT " _____________________________/ :--'"
PRINT " ,-,'`@@@@@@@@ @@@@@@ \_ `__\"
PRINT " ;:( @@@@@@@@@ @@@ \___(o'o)"
PRINT " :: ) @@@@ @@@@@@ ,'@@( `====' "
PRINT " :: : @@@@@: @@@@ `@@@:"
PRINT " :: \ @@@@@: @@@@@@@) ( '@@@'"
PRINT " ;; /\ /`, @@@@@@@@@\ :@@@@@) "
PRINT " ::/ ) {_----------------: :~`,~~;"
PRINT " ;;'`; : ) : / `; ;"
PRINT ";;;; : : ; : ; ; : "
PRINT "`'`' / : : : : : :"
PRINT " )_ \__; ";" :_ ; \_\ `,','"
PRINT " :__\ \ * `,'* \ \ : \ * 8`;'* *"
PRINT " `^' \ :/ `^' `-^-' \v/ : \/ "
PRINT
PRINT
PRINT " OR MAYBE A LEO!! "
PRINT " ,%%%%%%%,"
PRINT " ,%%/\%%%%/\%,"
PRINT " ,%%%\c "" J/%%,"
PRINT " %. %%%%/ d b \%%%"
PRINT " `%%. __ %%%% _ |%%%"
PRINT " `%% .-' `'~--'`%%%%(=_Y_=)%%'"
PRINT " // .' `. `%%%%`\7/%%%'____"
PRINT " (( / ; `%%%%%%%'____)))"
PRINT " `.`--' ,' _,`-._____`-,"
PRINT " `""'`._____ `--,` `)))"
PRINT " `~''')))"
SET COLOR "blue"
PRINT
PRINT
PRINT " PERHAPS A SCORPIO..... "
PRINT
PRINT " _{___{__}\ "
PRINT " {_} `\) "
PRINT " {_} ` _.-''''--.._"
PRINT " {_} //'.--. \___`."
PRINT " { }__,_.--~~~-~~~-~~-::.---. `-.\ `.)"
PRINT " `-.{_{_{_{_{_{_{_{_// -- 8;=- `"
PRINT " `-:,_.:,_:,_:,.`\\._ ..'=- , "
PRINT " // // // //`-.`\` .-'/"
PRINT " << << << << \ `--' /----)"
PRINT " ^ ^ ^ ^ `-.....--'''"
PRINT
PRINT
PRINT
PRINT "LET'S SEE..."
PAUSE 1
FOR I = 1 to 1000 ! Prints a series of stars on the screen in different colors
SET COLOR -I
PRINT " ^ What are you? ^ ";
NEXT I
!
PAUSE 1
SET COLOR "Blue"
PRINT
PRINT
PRINT
PRINT
PRINT "THE COMPUTER THINKS IT KNOWS YOUR SIGN! Press ENTER to see your zodiac sign: "
PRINT
PRINT
DO until Key Input ! Asks for a key input to continue
PAUSE 0.1
LOOP
!
SELECT CASE Bday$[1:2] ! Matches the original birthdate input with the appropriate zodiac sign
CASE "01"
IF Val(Bday$[3:4]) < 20 Then ! Uses the value of the date input with the month input
PRINT "Capricorn is your zodiac sign! - You are bound to have a nice day..."
END IF
CASE "01"
IF Val(Bday$[3:4]) > 19 Then
PRINT " ***** Aquarius is your zodiac sign! The stars says: take it easy, live LIFE *****"
END IF
CASE "02"
IF Val(Bday$[3:4]) < 19 Then
PRINT " ***** Aquarius is your zodiac sign! Star says: Take it easy, live LIFE *****"
END IF
CASE "02"
IF Val(Bday$[3:4]) > 18 Then
PRINT " ***** Pisces is your zodiac sign! Stars say: Stay fit and you'll live long *****"
END IF
CASE "03"
IF Val(Bday$[3:4]) < 21 Then
PRINT " ***** Pisces is your zodiac sign! Stars say: Stay fit and you'll live long *****"
END IF
CASE "03"
IF Val(Bday$[3:4]) > 20 Then
PRINT " ***** Aries is your zodiac sign! Stars say: You'll soon find your soul mate ******"
END IF
CASE "04"
IF Val(Bday$[3:4]) < 20 Then
PRINT " ***** Aries is your zodiac sign! Stars say: You'll soon find your soul mate *****"
END IF
CASE "04"
IF Val(Bday$[3:4]) > 19 Then
PRINT " ***** Taurus is your zodiac sign! Stars say: You're a genius, but dont tell anyone... *****"
END IF
CASE "05"
IF Val(Bday$[3:4]) < 21 Then
PRINT " ***** Taurus is your zodiac sign! Stars say: You're a genius, but dont tell anyone... *****"
END IF
CASE "05"
IF Val(Bday$[3:4]) > 20 Then
PRINT " ****** Gemini is your zodiac sign! Stars say: Laugh more and you'll live longer! *****"
END IF
CASE "06"
IF Val(Bday$[3:4]) < 22 Then
PRINT " ***** Gemini is your zodiac sign! Stars say : Laugh more and you'll live longer! *****"
END IF
CASE "06"
IF Val(Bday$[3:4]) > 21 Then
PRINT " ***** Cancer is your zodiac sign! Stars say: BREATH...you should consider taking YOGA classes.. *****"
END IF
CASE "07"
IF Val(Bday$[3:4]) < 23 Then
PRINT " ***** Cancer is your zodiac sign! Stars say: BREATH...you should consider taking YOGA classes.. *****"
END IF
CASE "07"
IF Val(Bday$[3:4]) > 22 Then
PRINT " ***** Leo is your zodiac sign! Stars say: If you open your heart...your bound to find true love! *****"
END IF
CASE "08"
IF Val(Bday$[3:4]) < 23 Then
PRINT " ***** Leo is your zodiac sign! Stars say: If you open your heart...your bound to find true love! *****"
END IF
CASE "08"
IF Val(Bday$[3:4]) > 22 Then
PRINT " ***** Virgo is your zodiac sign! Stars say: You should try and get more sleep, sleep is good for the soul... *****"
END IF
CASE "09"
IF Val(Bday$[3:4]) < 23 Then
PRINT " ***** Virgo is your zodiac sign! Stars say: You should try and get more sleep, sleep is good for the soul... *****"
END IF
CASE "09"
IF Val(Bday$[3:4]) > 22 Then
PRINT " ***** Libra is your zodiac sign! Stars say: Smile more... its good for the soul! *****"
END IF
CASE "10"
IF Val(Bday$[3:4]) < 24 Then
PRINT " ***** Libra is your zodiac sign! Stars say: Smile more... its good for your soul! *****"
END IF
CASE "10"
IF Val(Bday$[3:4]) > 23 Then
PRINT " ***** Scorpio is your zodiac sign! Stars say: Honor your parents! you'll become rich if you do it... *****"
END IF
CASE "11"
IF Val(Bday$[3:4]) < 22 Then
PRINT " ***** Scorpio is your zodiac sign! Stars say: Honor your parents! you'll become rich if you do it... *****"
END IF
CASE "11"
IF Val(Bday$[3:4]) > 21 Then
PRINT " ***** Sagittarius is your zodiac sign! Stars say: THINK BEFORE you do... so you won't learn the hard way *****"
END IF
CASE "12"
IF Val(Bday$[3:4]) < 22 Then
PRINT " ***** Sagittarius is your zodiac sign! Stars say: THINK BEFORE you do.... so you won't learn the hard way *****"
END IF
CASE "12"
IF Val(Bday$[3:4]) > 21 Then
PRINT " ***** Capricorn is your zodiac sign! Stars say: YOUR SEXY! you really are... (~ the stars aren't kidding ~) *****"
END IF
END SELECT
PRINT
PRINT
SET color "red"
PRINT "The angel says to wait a few seconds...a colorful & HAPPY screen is about to appear!"
PRINT
PRINT " /\ ,"
PRINT " {Oo\{o\ .=."
PRINT " {o: \:.\ / \"
PRINT " {O:' \:.-'_.-\_)____"
PRINT " {o:. /`~('-./-----.\"
PRINT " }o: // /| `/\"
PRINT " {O:'// /-' /\/\"
PRINT " }o-/( <___ \'/ /\/\/\"
PRINT " /o./ ;--._)====* -\/\/\/"
PRINT " `'`\ \ /.\ `''`"
PRINT " \ \"
PRINT " \ \"
PRINT " /`\ )"
PRINT " |/| |"
PRINT " _// \|"
PRINT " | / ||"
PRINT " |/ / |"
PAUSE 3
!
CLEAR ! Clears the screen to prepare for drawing
!
SET COLOR "red"
BOX CIRCLE .2, .8, .2, .8 ! Draws a circle
BOX CIRCLE .2, .8, .2, .1 ! Draws a circle
BOX CIRCLE .1, .2, .8, .2
FLOOD .6, .6 ! Fills in the circle with the set color
SET COLOR "green"
FLOOD .1, .1 ! Colors the background green
SET COLOR "Yellow"
PLOT TEXT, at .41, .528: "Smile...it's a wonderful day!"
PLOT TEXT, at .35, .5: "Thank you for playing the Zodiac-Determination Game!" ! Displays the text in the circle
PAUSE 2
END
