'                          Welcome to Fro-Ball
'                              Version 1.0
'                                  by
'                          Brian Q Programming

'                    Dreams Answered at the hit of enter!



'                           Fro-Ball is freeware
'     Pass it along to a friend, and keep it for personal enjoyment!



'                          Brian Q Programming
'            ....were more than just corny guessing games....






2 CLS
COLOR 11, 5
CLS
LOCATE 1, 1
PRINT "******************************************************************************"
LOCATE 23, 1
PRINT "********************************************************************************"
FOR i = 2 TO 23
LOCATE i, 1
PRINT "*"
LOCATE i, 80
PRINT "*"
NEXT i
LOCATE 8, 32
PRINT "WELCOME TO FROBALL"
LOCATE 9, 34
PRINT "Version 1.00"
LOCATE 13, 22
PRINT "Dreams answered at the hit of enter"
LOCATE 14, 26
PRINT "Your 24 Hour Psycic Friend"
LOCATE 22, 23
PRINT "Press any key to continue..."
15 key$ = INKEY$: IF key$ = "" THEN GOTO 15
5 CLS
RANDOMIZE TIMER
n% = INT(RND * 13 + 1)
PRINT "This is will tell the answer to your dreams!  Type your yes/no "
PRINT "question below!"
PRINT "Asking the same question twice is almost a definite bad luck!"
PRINT "Type exit to quit"
11 INPUT ""; word$
IF word$ = "exit" THEN GOTO 20
LOCATE 23, 15
PRINT "Thinking..."
SLEEP 3
PLAY "MFL18ABC5E50BCADGFEDACB"
LOCATE 12, 32
12 IF n% = 1 THEN PRINT "yes"
IF n% = 2 THEN PRINT "no"
IF n% = 3 THEN PRINT "Good chance"
IF n% = 4 THEN PRINT "I doubt it"
IF n% = 5 THEN PRINT "Most likely"
IF n% = 6 THEN PRINT "Very unlikely"
IF n% = 7 THEN PRINT "Certainly"
IF n% = 8 THEN PRINT "Only once in a blue moon"
IF n% = 9 THEN PRINT "Possibly"
IF n% = 10 THEN PRINT "Absolutely"
IF n% = 11 THEN PRINT "Hard to say"
IF n% = 12 THEN PRINT "Not sure"
IF n% = 13 THEN PRINT "yup"
IF n% = 14 THEN PRINT "nah"
17 LOCATE 23, 1
PRINT "                                                            "
LOCATE 23, 1
INPUT "Another? y/n:"; play$
IF play$ = "y" OR play$ = "n" GOTO 18 ELSE PRINT "Can't do that!": GOTO 17
18 IF play$ = "y" THEN GOTO 5
IF play$ = "n" THEN GOTO 20
20 CLS
LOCATE 12, 20
PRINT "This is freeware.  Pass it along to a friend!"
END