'===========================================================================
' Subject: VIRTUAL PAL (CHAT SESSIONS)       Date: 12-07-99 (20:21)       
' Author:  Richard McQuiston                 Code: QB, QBasic, PDS        
' Origin:  rippermcq@aol.com               Packet: MISC.ABC
'===========================================================================
main: CLS
SCREEN 0
COLOR 2, 0
PRINT "                     MAIN MENU"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "1) CHAT SESSION 1"
PRINT "2) CHAT SESSION 2"
PRINT "3) CHAT SESSION 3"
PRINT "4) CHAT SESSION 4"
PRINT "5) CHAT SESSION 5"
PRINT "6) EXIT"
PRINT ""
PRINT ""
INPUT "WELL "; var1%
IF var1% = 1 THEN GOTO chat1
IF var1% = 2 THEN GOTO chat2
IF var1% = 3 THEN GOTO chat3
IF var1% = 4 THEN GOTO chat4
IF var1% = 5 THEN GOTO chat5
IF var1% = 6 THEN GOTO exitscreen
END
chat1: CLS  ' STARTED 12/07/99
SCREEN 12
PRINT "                     VIRTUAL PAL"
PRINT ""
PRINT ""
PRINT "HELLO, MY NAME IS ????? THE COMPUTER."
INPUT "WHAT IS YOUR NAME "; name$
PRINT "HELLO "; name$; ", NICE TO MEET YOU."
INPUT "HOW OLD ARE YOU "; age%
PRINT "I AM "; age%; " YEARS OLD TOO!"
PRINT "THAT 'S AMAZING...."
INPUT "WHERE ARE YOU FROM "; st$
PRINT "COOL, "; st$; " IS A NICE PLACE TO VISIT."
PRINT "I LIVE IN AUSTIN, TX."
PRINT "IT 'S VERY HOT IN TX."
PRINT "ANYWAY...."
INPUT ""; x$
PRINT "WE HAVE SO MUCH IN COMMMON, THAT IS SO AMAZING!"
PRINT "WELL, I HAVE TO GO"
PRINT "TO CONTINUE THIS CONVERSATION GOTO CHAT 2"
PRINT ""
PRINT ""
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""
GOTO main
END
chat2: CLS
SCREEN 12
PRINT "   WELCOME TO CHAT SESSION 2, NICE TO SEE YOU AGAIN."
INPUT "WHAT IS YOUR FAVORITE SPORT "; sport$
PRINT "I LIKE "; sport$; ", BUT MY FAVORITE SPORT IS WRESTLING"
INPUT "WHAT DO YOU DO FOR FUN "; fun$
PRINT "THAT 'S COOL, BUT I LIKE TO GO ONLINE AND WRITE QBASIC"
PRINT "PROGRAMS. I ALSO LIKE TO CHAT ON AOL. I LOVE TO PLAY"
PRINT "VIDEO GAMES IN MY SPARE TIME LIKE WRESTLEMANIA 2000"
PRINT "FOR THE N64."
INPUT "WHAT GRADE ARE YOU IN "; gr%
PRINT "I AM IN THE 9TH GRADE...AND YOU'RE IN THE "; gr%; "TH GRADE"
PRINT "BUT, THAT 'S OK..."
INPUT "WHAT IS YOUR FAVORITE TV SHOW "; tvshow$
PRINT ""; tvshow$; " IS COOL, BUT I LIKE RAW IS WAR AND SMACKDOWN BETTER"
INPUT "WHAT IS YOUR FAVORITE MOVIE "; movie$
PRINT ""; movie$; " IS A GOOD MOVIE, BUT I LIKE BIG DADDY ON DVD BETTER"
PRINT "HMMM..."
INPUT "WHAT KIND OF COMPUTER DO YOU HAVE "; comp$
PRINT ""; comp$; " IS A GOOD BRAND, BUT I HAVE A COMPAQ AND"
PRINT "THEY 'RE VERY GOOD COMPUTERS! "
PRINT ""
PRINT "GOTO CHAT SESSION 3 TO CONTINUE THIS CONVERSATION"
PRINT ""
PRINT ""
PRINT ""
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""
GOTO main
END
exitscreen: CLS
COLOR 14, 0
PRINT "   THANKS FOR USING VIRTUAL PAL"
PRINT "VIRTUAL PAL IS (c)1999 RICHARD MCQUISTON"
PRINT "EMAIL ME ANY QUESTIONS OR COMMENTS AT..."
PRINT "         RIPPERMCQ@AOL.COM"
PRINT "SECTIONS OF SOURCE CODE IS AVAILABLE FOR"
PRINT "BEGINNERS TO LEARN FROM, HOWEVER IT MAY"
PRINT "NOT BE USED TO CREATE ANY TYPE OF SIMILAR"
PRINT "PROGRAM, EMAIL ME FOR MORE DETAILS. IF YOU"
PRINT "DO CHANGE IT EMAIL A COPY OF THE NEW PROGRAM..."
PRINT "        ASK BEFORE DOING THOUGH!"
PRINT ""
PRINT ""
PRINT ""
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""
GOTO main
END
chat3: CLS
COLOR 13, 0
PRINT "PROGRAM NOT AVAILABLE IN THIS VERSION, EMAIL..."
PRINT "RIPPERMCQ@AOL.COM FOR MORE INFORMATION ON ANY"
PRINT "NEW VIRTUAL PAL PROGRAMS AVAILABLE."
PRINT ""
PRINT ""
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""
GOTO main
END
chat4: CLS
COLOR 13, 0
PRINT "PROGRAM NOT AVAILABLE IN THIS VERSION, EMAIL..."
PRINT "RIPPERMCQ@AOL.COM FOR MORE INFORMATION ON ANY"
PRINT "NEW VIRTUAL PAL PROGRAMS AVAILABLE."
PRINT ""
PRINT ""
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""
GOTO main
END
chat5: CLS
COLOR 13, 0
PRINT "PROGRAM NOT AVAILABLE IN THIS VERSION, EMAIL..."
PRINT "RIPPERMCQ@AOL.COM FOR MORE INFORMATION ON ANY"
PRINT "NEW VIRTUAL PAL PROGRAMS AVAILABLE."
PRINT ""
PRINT ""
PRINT "Press any key to continue..."
DO
LOOP WHILE INKEY$ = ""
GOTO main
END