Adikt Studios First Program. Very simple/short conversation with the program

Adikt Studios First Dark basic Program. Have a short and simple conversation with the program. Very Basic. Boring and a little fun

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `----------------------------------------------------------`
`-----------------------Adikt-Studios----------------------`
`----------------------------------------------------------`
`-------------------Copyrighted-(c)-2004-------------------`
`----------------------------------------------------------`
`-Author:Aaron Christian And associaded with Adikt Studios-`
`----------------------------------------------------------`
`----------Adikt Studios Very First,Simple Program---------`
`----------------------------------------------------------`
`----------------------Project Daniel----------------------`
`----------------------------------------------------------` 



`other
cls

hide mouse
set cursor 0,210
set text to italic
set text opaque
set text to bold




`The first input

input "My name is Daniel, whats your name? ", name$

cls

`--input anwsers--

set cursor 0,210

	print "so you are " +name$
	wait 2000

		Cls

set cursor 0,210

			print "Hello " +name$, " i like your name"
			wait 3000

				Cls

set cursor 0,210

`The second input

input "Whats your age:", age$

cls

`--input anwsers--

set cursor 0,210

	print "so your " +age$
	wait 2000

		cls

set cursor 0,210		

			print "Your so young, in my opinon you can still follow your dreams"
			wait 7000

				Cls

set cursor 0,210

`The Third input

input "Whats your birthday:", bd$

cls

`--input anwsers--

set cursor 0,210

	print "Im only a program..."
	wait 2000

		Cls

set cursor 0,210		

			print "to bad im not human"
			wait 2000
				
				Cls

set cursor 0,210	

					print "i was born on the same day..." +bd$
					wait 10000

						Cls 

set cursor 0,210	

							print "We could have been a perfect couple, because you were born on " +bd$, " also"
							wait 10000

								Cls

set cursor 0,210
								
`The Forth input

input "Whats Your Gender:", gender$

cls

`--input anwsers--

set cursor 0,210

	print "well,well,well...your a " +gender$
	wait 3000

		cls

set cursor 0,210

			print "with all of the thing you have told me already you seem like a nice, intellegent " +gender$
			wait 10000

				cls

set cursor 0,210

`The fifth input

input "Whats your Hobbies:",hobbies$

cls

`--input anwsers--

set cursor 0,210

	print " i wish i had hobbies like yours such as " +hobbies$
	wait 5000

		cls

set cursor 0,210

			print "they sound comforting and nice things to do"
			wait 4000

				cls

set cursor 0,210

					print "all i have to do is talk to people when they talk to me, so its not as fun as your " +hobbies$, 
					print " hobbies"
						
						wait 9000
					
							cls

set cursor 0,210

`The sixth input

input "well i liked talking to you, did you like talking to me?Yes or No  ",yorn$ 

	cls

set cursor 0,210

`--Input anwsers--

	Print "well you picked " +yorn$, " ...Its your opinon. All i know is that i liked talking to you"
	wait 8000
		
		Cls

`Goodbye Message

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

print "Goodbye and Nice talking to you";
wait 500
cls
set cursor rnd(640), rnd(480)
wait 500

set cursor 220,210

`End of Program

print "Press anykey to end program"

	Suspend for key

		cls

set cursor 290,210

			print "Goodbye"
			wait 2000

				end