RANDOMIZE TIMER
CLS
'MIND MAKER IS COPYRIGHTED COREY 2006 - 2007
'QBASIC VERSION
'MIND MAKER QBASIC VERIONS 1.0
'-----------------------------------------
'-----------------------------------------
i$ = INKEY$
colour: PRINT "Pick a color"
PRINT "(b)right red"
PRINT "(L)ime"
PRINT "(p)ink"
DO
i$ = INKEY$
LOOP UNTIL ((i$ = "b") OR (i$ = "l") OR (i$ = "p"))
IF i$ = "b" THEN GOTO red
IF i$ = "l" THEN GOTO lime
IF i$ = "p" THEN GOTO pink

red: COLOR 12: GOTO a
lime: COLOR 10: GOTO a
pink: COLOR 13: GOTO a

a: PRINT "MIND MAKER"
PRINT
PRINT "Press space to continue."
DO
LOOP UNTIL INKEY$ = " "
CLS
PRINT "This is one of unknown copys of MIND MAKER qbasic verion 1.0"
PRINT "No copy of this program can be made or placed on sites without permission."
PRINT "Thanks you"
PRINT
PRINT "Press space to continue."
DO
LOOP UNTIL INKEY$ = " "
beg: CLS
PRINT "Think of a YES or NO question and PRESS SPACE"
DO
LOOP UNTIL INKEY$ = " "
CLS
a = INT(RND * 12) + 1
SELECT CASE a
CASE 1
PRINT "Yes"
CASE 2
PRINT "No"
CASE 3
PRINT "Hell no"
CASE 4
PRINT "Of course"
CASE 5
PRINT "defintely"
CASE 6
PRINT "Always"
CASE 7
PRINT "Ask again"
CASE 8
PRINT "Never"
CASE 9
PRINT "Absolutely"
CASE 10
PRINT "Why not"
CASE 11
PRINT "Sorry did not hear your thought"
CASE 12
PRINT "Yep"
CASE 13
PRINT "If you think so"
END SELECT
PRINT
PRINT "Thank you for using Corey Y's program"
PRINT
PRINT "(t)ry again"
PRINT "(e)xit"
PRINT "(c)hange color"
DO
i$ = INKEY$
LOOP UNTIL ((i$ = "t") OR (i$ = "e") OR (i$ = "c"))
IF i$ = "t" THEN GOTO beg
IF i$ = "e" THEN END
IF i$ = "c" THEN GOTO colour