REM PROGRAMMED BY: TRAVIS SCHULTZ
CLS
PRINT "HELLO! I'M DR. Q YOUR PERSONAL COMPUTER PSYCHOLOGIST."
PRINT "PLEASE TELL ME YOUR NAME, AND SOMETHING ABOUT YOURSELF."
PRINT "PLEASE, DON'T USE ANY FANCY STUFF LIKE COMMAS.  JUST KEEP IT SIMPLE."
INPUT A$
PRINT "I'M SORRY, I DIDN'T QUITE CATCH ALL THAT.  WHAT WAS YOUR NAME.";
INPUT NAME$
NAME$ = UCASE$(NAME$)
PRINT "THANK YOU, "; NAME$; "."
PRINT "HOW ARE YOU FEELING TODAY";
INPUT A$
PRINT "HMM..."
SLEEP 5
CLS
PRINT "I THINK YOU ARE MAKING A GREAT EFFORT TO SOLVE YOUR PROBLEMS,"
PRINT " AND I SEE NO NEED TO CONTINUE THIS SESSON ANY FURTHER."
PRINT NAME$; ", I WOULD LIKE YOU TO MAKE AN APPOINTMENT WITH ME"
PRINT " SOMETIME OVER THE NEXT FEW WEEKS.  WHAT DATE WOULD YOU PERFER";
INPUT A$
PRINT :  PRINT "THAT WILL BE FINE."
PRINT