REM ========================================================================
REM MY-BEST VERSION 1.0 BY ATOMIC_BIOS
REM ========================================================================
SCREEN 0
MAIN:
CLS
COLOR 6,0
PRINT "-----------------------------------------------------------------"
COLOR 7,0
PRINT "THE BEST ADVICE OF ATOMIC_BIOS VERSION 1.0"
COLOR 6,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Select the option that most applies to you..."
PRINT "There are a total of 12 questions..."
PRINT "Press enter on a blank line to retake question..."
PRINT "Type 'exit' to leave...."
M1:
COLOR 14,0
PRINT "-----------------------------------------------------------[01]--"
COLOR 10,0
PRINT "1) YOU ARE NOT TOTALLY WHERE YOU WANT TO BE"
PRINT "2) YOU DONT HAVE CAUSES AND YOUR NOT A LEGEND"
PRINT "3) YOU WANT SUPER POWERS AND CAN'T FIND THEM"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q1$;
PRINT ""
IF Q1$ = "exit" THEN
END
ENDIF
IF Q1$ = "" THEN
GOTO MAIN:
ENDIF
M2:
COLOR 14,0
PRINT "-----------------------------------------------------------[02]--"
COLOR 10,0
PRINT "1) YOU ARE OKAY BUT THERE IS A PIECE MISSING"
PRINT "2) THINGS DONT GO YOUR WAY WHEN IT COMES TO EVIL"
PRINT "3) WHEN YOU DO MATH YOUR HEAD IS BLOCKED"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q2$;
PRINT ""
IF Q2$ = "exit" THEN
END
ENDIF
IF Q2$ = "" THEN
GOTO M1:
ENDIF
M3:
COLOR 14,0
PRINT "-----------------------------------------------------------[03]--"
COLOR 10,0
PRINT "1) YOU DONT HAVE THE POWER YOU WANT"
PRINT "2) EVERYTHING FEELS BAD"
PRINT "3) YOU ARE ON SOMETHING AND MUST FINISH"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q3$;
PRINT ""
IF Q3$ = "exit" THEN
END
ENDIF
IF Q3$ = "" THEN
GOTO M2:
ENDIF
M4:
COLOR 14,0
PRINT "-----------------------------------------------------------[04]--"
COLOR 10,0
PRINT "1) YOU HAVE SUFFERED GREAT LOSS"
PRINT "2) YOU MAKE BIG MISTAKES IN THE WRONG PLACES"
PRINT "3) YOU GOT HURT AND NEED A CURE"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q4$;
PRINT ""
IF Q4$ = "exit" THEN
END
ENDIF
IF Q4$ = "" THEN
GOTO M3:
ENDIF
M5:
COLOR 14,0
PRINT "-----------------------------------------------------------[05]--"
COLOR 10,0
PRINT "1) YOU HURT OTHERS BY SAYING THE WRONG THINGS"
PRINT "2) YOU CANT AFFORD TO BUY STUFF FOR YOUR FAMILY"
PRINT "3) YOU DONT KNOW THE RIGHT ADVICE TO GIVE"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q5$;
PRINT ""
IF Q5$ = "exit" THEN
END
ENDIF
IF Q5$ = "" THEN
GOTO M4:
ENDIF
M6:
COLOR 14,0
PRINT "-----------------------------------------------------------[06]--"
COLOR 10,0
PRINT "1) EVERYTHING IS A FOG AND YOU WANT TO CAUSE HURT"
PRINT "2) YOU DONT KNOW WHERE YOU ARE GOING"
PRINT "3) YOU CANT CONTROL THE STUFF YOU DO"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q6$;
PRINT ""
IF Q6$ = "exit" THEN
END
ENDIF
IF Q6$ = "" THEN
GOTO M5:
ENDIF
M7:
COLOR 14,0
PRINT "-----------------------------------------------------------[07]--"
COLOR 10,0
PRINT "1) YOU WANT TO BE SMART AND HAVE A SECRET FORMULA"
PRINT "2) YOU SEE EVIL AND HELL AND WANT TO FEEL SAFE AND HAPPY"
PRINT "3) YOU HAVE BEEN IN SITUATIONS AND DONT WANT PROBLEMS"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q7$;
PRINT ""
IF Q7$ = "exit" THEN
END
ENDIF
IF Q7$ = "" THEN
GOTO M6:
ENDIF
M8:
COLOR 14,0
PRINT "-----------------------------------------------------------[08]--"
COLOR 10,0
PRINT "1) YOUR STUCK ON A PROBLEM AND WANT YOUR ANSWER TO BE BIG"
PRINT "2) YOU HAVE WHO YOU WANT TO BE AND YOUR TRYING YOUR BEST"
PRINT "3) YOU WANT TO CREATE YOUR DREAMS INTO REAL OBJECTS"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q8$;
PRINT ""
IF Q8$ = "exit" THEN
END
ENDIF
IF Q8$ = "" THEN
GOTO M7:
ENDIF
M9:
COLOR 14,0
PRINT "-----------------------------------------------------------[09]--"
COLOR 10,0
PRINT "1) YOU ARE STRONG AND PROUD AND WANT TO BE SOMEONE SPECIAL"
PRINT "2) YOU ARE FILLED WITH RAGE AND MUST COMPLETE THE TASK"
PRINT "3) YOU HAVE A BIG PLAN THAT MUST MOVE FOWARD"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Q9$;
PRINT ""
IF Q9$ = "exit" THEN
END
ENDIF
IF Q9$ = "" THEN
GOTO M8:
ENDIF
Ma:
COLOR 14,0
PRINT "-----------------------------------------------------------[10]--"
COLOR 10,0
PRINT "1) YOU HAVE TO MAKE AND CREATE STUFF THAT IS AMAZING"
PRINT "2) YOU ARE A BEGINNER AND NEED EVERYTHING NOW"
PRINT "3) YOU WANT THE SEED TO ALL FORMULAS"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Qa$;
PRINT ""
IF Qa$ = "exit" THEN
END
ENDIF
IF Qa$ = "" THEN
GOTO M9:
ENDIF
Mb:
COLOR 14,0
PRINT "-----------------------------------------------------------[11]--"
COLOR 10,0
PRINT "1) YOU THINK YOU HAVE AN ANSWER BUT IT NEEDS WORK"
PRINT "2) YOU WANT IT ALL AND WANT TO WORK FOR IT"
PRINT "3) YOU WANT TO FEEL HIGH ON A NATURAL DRUG"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Qb$;
PRINT ""
IF Qb$ = "exit" THEN
END
ENDIF
IF Qb$ = "" THEN
GOTO Ma:
ENDIF
Mc:
COLOR 14,0
PRINT "-----------------------------------------------------------[12]--"
COLOR 10,0
PRINT "1) YOU HAVE A LOT TO DO AND TOO MUCH STUFF NOT DONE"
PRINT "2) YOU WERE BURNED TOO MANY DEALS WANT YOU THE ONE BIG DEAL"
PRINT "3) YOU WANT TO COMBINE EVERYTHING INTO ONE THING"
PRINT "4) NONE OF THESE OPTIONS APPLY"
COLOR 14,0
PRINT "-----------------------------------------------------------------"
COLOR 3,0
PRINT "Choose?";
INPUT Qc$;
PRINT ""
IF Qc$ = "exit" THEN
END
ENDIF
IF Qc$ = "" THEN
GOTO Mb:
ENDIF
COLOR 7,0
PRINT "-----------------------------------------------------------------"
COLOR 6,0
PRINT "HERE ARE YOUR RESULTS..."
COLOR 7,0
PRINT "-----------------------------------------------------------------"
COLOR 12,0
IF Q1$ = "1" THEN
PRINT "LIFE IS A PUSHER DO NOT BLAME YOURSELF TRY TO SAVE THE WORLD. ";
ENDIF
IF Q1$ = "2" THEN
PRINT "BECAUSE YOU FORGOT WHO YOU ARE YOU MUST KNOW YOUR OWN STYLE. ";
ENDIF
IF Q1$ = "3" THEN
PRINT "AMPLIFY YOUR IMAGINATION BELIEVE IN YOURSELF HAVE DOUBTLESS FAITH. ";
ENDIF

IF Q2$ = "1" THEN
PRINT "CREATE YOUR DREAMS INTO NEW REAL OBJECTS. ";
ENDIF
IF Q2$ = "2" THEN
PRINT "WHOEVER HAS THE MOST KINDNESS WINS IN THIS. ";
ENDIF
IF Q2$ = "3" THEN
PRINT "YOUR IN TRIAL AND ERROR IF AT FIRST YOU DONT SUCCEED TRY TRY AGAIN. ";
ENDIF

IF Q3$ = "1" THEN
PRINT "DREAM OF A WORMHOLE VORTEX AND USE IT AS THE FINISH LINE. ";
ENDIF
IF Q3$ = "2" THEN
PRINT "BECAUSE SATAN HAS YOU DO NOT LET HIM HAVE THE ADVANTAGE. ";
ENDIF
IF Q3$ = "3" THEN
PRINT "KEEP UP THE GOOD WORK ON THE PUZZLE YOU WILL GET IT. ";
ENDIF

IF Q4$ = "1" THEN
PRINT "MASTER ALL THE FACTS SEE THROUGH EVERY VIEW PORT AND THEN DECIDE. ";
ENDIF
IF Q4$ = "2" THEN
PRINT "TRY TO MAKE LIFE BETTER FOR EVERYONE WITH TRUTH. ";
ENDIF
IF Q4$ = "3" THEN
PRINT "WE RESPECT AND HONOR YOU FOR WHAT YOU GO THROUGH WE LOVE YOU. ";
ENDIF

IF Q5$ = "1" THEN
PRINT "APOLOGIZE AND HOPE FOR FORGIVENESS. TRY TO SAY THE RIGHT THING. ";
ENDIF
IF Q5$ = "2" THEN
PRINT "MONEY CANT BUY HAPPINESS WE WANT LOVE LAUGHTER. ";
ENDIF
IF Q5$ = "3" THEN
PRINT "THE GREATEST ADVICE OFFERS KINDNESS AND PEACE. ";
ENDIF

IF Q6$ = "1" THEN
PRINT "KNOW SATAN IS TRYING TO CAUSE HURT THROUGH YOU DONT LET HIM WIN. ";
ENDIF
IF Q6$ = "2" THEN
PRINT "BE A GOOD PERSON KNOW THE FACTS TRY YOUR BEST YOU WILL SEE. ";
ENDIF
IF Q6$ = "3" THEN
PRINT "TRY TO GET A GRIP GET YOUR ACT TOGETHER WAKE UP DO THE RIGHT THING. ";
ENDIF


IF Q7$ = "1" THEN
PRINT "LEARN WHAT YOU SAY YOU WANT TO BECOME EVEN BEYOND THE FUTURE. ";
ENDIF
IF Q7$ = "2" THEN
PRINT "DO NOT LET THE DEVIL HAVE THE ADVANTAGE, EXPECT WHATS RIGHT. ";
ENDIF
IF Q7$ = "3" THEN
PRINT "SPEAK ONLY BRIGHT PURE TRUTH, USE YOUR BRAIN, MAKE AMAZING SUPRISES. ";
ENDIF

IF Q8$ = "1" THEN
PRINT "BE MOTIVATED TO FILL DOZENS OF NOTEBOOKS FOR THE ULTIMATE CAUSE. ";
ENDIF
IF Q8$ = "2" THEN
PRINT "KNOW YOUR UNBEATABLE AND SATISFIED IF YOU RIGHTFULLY NEED. ";
ENDIF
IF Q8$ = "3" THEN
PRINT "MASTER THE ART OF DESCRIPTIONS, THE ART OF DESCRIBING MODELS. ";
ENDIF

IF Q9$ = "1" THEN
PRINT "IMAGINE THE FINAL ANSWER ENVISION THE FUTURE BEYOND ABOVE. ";
ENDIF
IF Q9$ = "2" THEN
PRINT "PLAN FOR THE BEST EXPECT THE BEST AND TRAVEL BEYOND ABOVE. ";
ENDIF
IF Q9$ = "3" THEN
PRINT "MAKE AN INCREDIBLE NEW PLAN BE DETERMINED TO FINISH. ";
ENDIF

IF Qa$ = "1" THEN
PRINT "KNOW IMAGINATION CAN CREATE EXACTLY WHAT IT IS. ";
ENDIF
IF Qa$ = "2" THEN
PRINT "EXPECT THE BEST AND DREAM BEYOND YOUR GOALS AND MAKE IT BEST. ";
ENDIF
IF Qa$ = "3" THEN
PRINT "CREATE A INAGINARY SEED AND DECIDE WHAT YOU WANT IT TO GROW. ";
ENDIF

IF Qb$ = "1" THEN
PRINT "MAKE YOUR PROJECT FOR UPWARD COMPATABILITY. PERFECT IT. ";
ENDIF
IF Qb$ = "2" THEN
PRINT "TRY HARD PRACTICE WORK HARD GAIN INTREST STUDY AND THINK AHEAD. ";
ENDIF
IF Qb$ = "3" THEN
PRINT "EVERY DAY IS THE BEST DAY OF YOUR LIFE EVERY DAY IS THE BEST EVER. ";
ENDIF

IF Qc$ = "1" THEN
PRINT "WORK FAST, BE READY ON TIME, COUNT ON ACHIEVEMENT, FOR THE BEST EVER. ";
ENDIF
IF Qc$ = "2" THEN
PRINT "USE THE PHONE BOOK, FINISH YOUR PROJECT, EXPECT THE BEST, BUILD UP. ";
ENDIF
IF Qc$ = "3" THEN
PRINT "COMBINE ALL YOUR ABILITIES, SKILLS, TALENTS, INTO INFINITE FINALITY. ";
ENDIF
COLOR 7,0
print ""
PRINT "-----------------------------------------------------------------"
REM ========================================================================
PRINT "Press a key...";
KEY$ = ""
WHILE KEY$ = ""
KEY$ = INKEY$
WEND
print ""
PRINT "Hit the ENTER key to retake test...";
INPUT A$;
GOTO MAIN:
REM ========================================================================