Script that uses strings of text for introspective analysisOptimizing string replacement program that uses...

Why does the Sun have different day lengths, but not the gas giants?

Redundant comparison & "if" before assignment

The IT department bottlenecks progress. How should I handle this?

Fear of getting stuck on one programming language / technology that is not used in my country

What is this called? Old film camera viewer?

The probability of Bus A arriving before Bus B

Does Doodling or Improvising on the Piano Have Any Benefits?

How could a planet have erratic days?

Why is it that I can sometimes guess the next note?

How do you make your own symbol when Detexify fails?

Is there a RAID 0 Equivalent for RAM?

How much character growth crosses the line into breaking the character

The screen of my macbook suddenly broken down how can I do to recover

What should you do if you miss a job interview (deliberately)?

What is the evidence for the "tyranny of the majority problem" in a direct democracy context?

Does a 'pending' US visa application constitute a denial?

How to explain what's wrong with this application of the chain rule?

If infinitesimal transformations commute why dont the generators of the Lorentz group commute?

Why a symmetric relation is defined: ∀x∀y( xRy⟹yRx) and not ∀x∀y (xRy⟺yRx)?

Temporarily disable WLAN internet access for children, but allow it for adults

Basic combinatorial probability problem

What is Cash Advance APR?

How does the math work for Perception checks?

Lowest total scrabble score



Script that uses strings of text for introspective analysis


Optimizing string replacement program that uses recursionText Analysis web pageAlign Strings for OutputFunction that adds two integer stringsHash function for stringsComparison function for stringsFind group of strings that are anagramsTokenizing texts from Gutenberg archive for analysisGenerating abbreviations for stringsFunction for creating unique strings for urls













0












$begingroup$


PDR is an acronym for Personality Defect Removal. This script was written in BASIC v1.1. I use strings to save details of the psychological analysis of one's defects to improve their personality.




  • MIS=mistakes written

  • AS=correct and positive perspective to be written that is easy for the mind to grasp.

  • DEFE=Defects of the mistake to be jotted down for future therapy




1 PRINT"WELCOME TO PDR" 
2 PRINT"OPTIONS", "MIS", "AS", "DEFE"
3 PRINT"ENTER OPTION" :INPUT X$
4 IF X$=MIS THEN GOTO 20
5 IF X$=AS THEN GOTO 30
6 IF X$=DEFE THEN GOTO 40


Here I write the mistakes so that I can go back to them when I need too:



20 INPUT "ENTER YOUR MISTAKE:";M$
101 PRINT"OKAY WRITTEN DOWN", "WOULD YOU LIKE TO MENU?" :INPUT MEN$
102 IF MEN$=Y THEN GOTO 2
103 IF MEN$=N THEN PRINT"SHOWING MISTAKES", M$
104 PRINT"GIVING TIME TO READ. WOULD U LIKE TO WRITE DEFE?" :INPUT DEFEC$
105 IF DEFEC$=Y THEN GOTO 106
106 INPUT"ENTER DEFE ASSOCIATED WITH MISTAKE M:" A$, B$, C$
107 PRINT"OKAY, DEFECTS WRITTEN DOWN. NOW GOING TO DISPLAY MISTAKES AND DEFECTS TO HELP FORM AS"
108 PRINT"MISTAKE--", M$
109 PRINT"DEFECTS--", A$, B$, C$
110 PRINT"GIVING TIME TO INTROSPECT:" :INPUT INTRO$
111 IF INTRO$=Y THEN GOTO 40
112 IF INTRO$=N THEN GOTO 113
113 PRINT"SORRY, YOU MUST SELECT Y" GOTO 111


Here I make sure that there are no errors by asking if mistakes have been written:



40 INPUT "DID YOU ENTER MISTAKES YET?:";FORTY$
41 IF FORTY$=N THEN GOTO 44
42 IF FORTY$=Y THEN GOTO 43
43 PRINT"DISPLAYING DEFECTS:" A$, B$, C$ GOTO 45
44 GOTO 20
45 PRINT"GIVING TIME TO READ"
46 INPUT "WOOULD YOU LIKE TO GO BACK TO MENU?" :INPUT MEN$
47 IF MEN$=Y GOTO 2
48 IF MEN$=N GOTO 49
49 PRINT"SORY, YOU MUST GO BACK TO MENU." GOTO 2


Here I write the autosuggestion or correct perspective. Anytime I want to check the correct perspective I simply type PRINT AS$.



30 PRINT"OKAY YOU ARE NOW ENTERING THE AUTOSUGGESTION FOR THE MIND"
31 PRINT"DID YOU WRITE YOUR MISTAKES AND DEFECTS?:" MIND$
32 IF MIND$=Y THEN GOTO 34
33 IF MIND$=N THEN GOTO 20
34 PRINT"PREPARING MISTAKES AND DEFECTS. GIVING TIME."
35 PRINT M$, A$, B$, C$ :INPUT AS$
36 PRINT AS$









share|improve this question











$endgroup$

















    0












    $begingroup$


    PDR is an acronym for Personality Defect Removal. This script was written in BASIC v1.1. I use strings to save details of the psychological analysis of one's defects to improve their personality.




    • MIS=mistakes written

    • AS=correct and positive perspective to be written that is easy for the mind to grasp.

    • DEFE=Defects of the mistake to be jotted down for future therapy




    1 PRINT"WELCOME TO PDR" 
    2 PRINT"OPTIONS", "MIS", "AS", "DEFE"
    3 PRINT"ENTER OPTION" :INPUT X$
    4 IF X$=MIS THEN GOTO 20
    5 IF X$=AS THEN GOTO 30
    6 IF X$=DEFE THEN GOTO 40


    Here I write the mistakes so that I can go back to them when I need too:



    20 INPUT "ENTER YOUR MISTAKE:";M$
    101 PRINT"OKAY WRITTEN DOWN", "WOULD YOU LIKE TO MENU?" :INPUT MEN$
    102 IF MEN$=Y THEN GOTO 2
    103 IF MEN$=N THEN PRINT"SHOWING MISTAKES", M$
    104 PRINT"GIVING TIME TO READ. WOULD U LIKE TO WRITE DEFE?" :INPUT DEFEC$
    105 IF DEFEC$=Y THEN GOTO 106
    106 INPUT"ENTER DEFE ASSOCIATED WITH MISTAKE M:" A$, B$, C$
    107 PRINT"OKAY, DEFECTS WRITTEN DOWN. NOW GOING TO DISPLAY MISTAKES AND DEFECTS TO HELP FORM AS"
    108 PRINT"MISTAKE--", M$
    109 PRINT"DEFECTS--", A$, B$, C$
    110 PRINT"GIVING TIME TO INTROSPECT:" :INPUT INTRO$
    111 IF INTRO$=Y THEN GOTO 40
    112 IF INTRO$=N THEN GOTO 113
    113 PRINT"SORRY, YOU MUST SELECT Y" GOTO 111


    Here I make sure that there are no errors by asking if mistakes have been written:



    40 INPUT "DID YOU ENTER MISTAKES YET?:";FORTY$
    41 IF FORTY$=N THEN GOTO 44
    42 IF FORTY$=Y THEN GOTO 43
    43 PRINT"DISPLAYING DEFECTS:" A$, B$, C$ GOTO 45
    44 GOTO 20
    45 PRINT"GIVING TIME TO READ"
    46 INPUT "WOOULD YOU LIKE TO GO BACK TO MENU?" :INPUT MEN$
    47 IF MEN$=Y GOTO 2
    48 IF MEN$=N GOTO 49
    49 PRINT"SORY, YOU MUST GO BACK TO MENU." GOTO 2


    Here I write the autosuggestion or correct perspective. Anytime I want to check the correct perspective I simply type PRINT AS$.



    30 PRINT"OKAY YOU ARE NOW ENTERING THE AUTOSUGGESTION FOR THE MIND"
    31 PRINT"DID YOU WRITE YOUR MISTAKES AND DEFECTS?:" MIND$
    32 IF MIND$=Y THEN GOTO 34
    33 IF MIND$=N THEN GOTO 20
    34 PRINT"PREPARING MISTAKES AND DEFECTS. GIVING TIME."
    35 PRINT M$, A$, B$, C$ :INPUT AS$
    36 PRINT AS$









    share|improve this question











    $endgroup$















      0












      0








      0





      $begingroup$


      PDR is an acronym for Personality Defect Removal. This script was written in BASIC v1.1. I use strings to save details of the psychological analysis of one's defects to improve their personality.




      • MIS=mistakes written

      • AS=correct and positive perspective to be written that is easy for the mind to grasp.

      • DEFE=Defects of the mistake to be jotted down for future therapy




      1 PRINT"WELCOME TO PDR" 
      2 PRINT"OPTIONS", "MIS", "AS", "DEFE"
      3 PRINT"ENTER OPTION" :INPUT X$
      4 IF X$=MIS THEN GOTO 20
      5 IF X$=AS THEN GOTO 30
      6 IF X$=DEFE THEN GOTO 40


      Here I write the mistakes so that I can go back to them when I need too:



      20 INPUT "ENTER YOUR MISTAKE:";M$
      101 PRINT"OKAY WRITTEN DOWN", "WOULD YOU LIKE TO MENU?" :INPUT MEN$
      102 IF MEN$=Y THEN GOTO 2
      103 IF MEN$=N THEN PRINT"SHOWING MISTAKES", M$
      104 PRINT"GIVING TIME TO READ. WOULD U LIKE TO WRITE DEFE?" :INPUT DEFEC$
      105 IF DEFEC$=Y THEN GOTO 106
      106 INPUT"ENTER DEFE ASSOCIATED WITH MISTAKE M:" A$, B$, C$
      107 PRINT"OKAY, DEFECTS WRITTEN DOWN. NOW GOING TO DISPLAY MISTAKES AND DEFECTS TO HELP FORM AS"
      108 PRINT"MISTAKE--", M$
      109 PRINT"DEFECTS--", A$, B$, C$
      110 PRINT"GIVING TIME TO INTROSPECT:" :INPUT INTRO$
      111 IF INTRO$=Y THEN GOTO 40
      112 IF INTRO$=N THEN GOTO 113
      113 PRINT"SORRY, YOU MUST SELECT Y" GOTO 111


      Here I make sure that there are no errors by asking if mistakes have been written:



      40 INPUT "DID YOU ENTER MISTAKES YET?:";FORTY$
      41 IF FORTY$=N THEN GOTO 44
      42 IF FORTY$=Y THEN GOTO 43
      43 PRINT"DISPLAYING DEFECTS:" A$, B$, C$ GOTO 45
      44 GOTO 20
      45 PRINT"GIVING TIME TO READ"
      46 INPUT "WOOULD YOU LIKE TO GO BACK TO MENU?" :INPUT MEN$
      47 IF MEN$=Y GOTO 2
      48 IF MEN$=N GOTO 49
      49 PRINT"SORY, YOU MUST GO BACK TO MENU." GOTO 2


      Here I write the autosuggestion or correct perspective. Anytime I want to check the correct perspective I simply type PRINT AS$.



      30 PRINT"OKAY YOU ARE NOW ENTERING THE AUTOSUGGESTION FOR THE MIND"
      31 PRINT"DID YOU WRITE YOUR MISTAKES AND DEFECTS?:" MIND$
      32 IF MIND$=Y THEN GOTO 34
      33 IF MIND$=N THEN GOTO 20
      34 PRINT"PREPARING MISTAKES AND DEFECTS. GIVING TIME."
      35 PRINT M$, A$, B$, C$ :INPUT AS$
      36 PRINT AS$









      share|improve this question











      $endgroup$




      PDR is an acronym for Personality Defect Removal. This script was written in BASIC v1.1. I use strings to save details of the psychological analysis of one's defects to improve their personality.




      • MIS=mistakes written

      • AS=correct and positive perspective to be written that is easy for the mind to grasp.

      • DEFE=Defects of the mistake to be jotted down for future therapy




      1 PRINT"WELCOME TO PDR" 
      2 PRINT"OPTIONS", "MIS", "AS", "DEFE"
      3 PRINT"ENTER OPTION" :INPUT X$
      4 IF X$=MIS THEN GOTO 20
      5 IF X$=AS THEN GOTO 30
      6 IF X$=DEFE THEN GOTO 40


      Here I write the mistakes so that I can go back to them when I need too:



      20 INPUT "ENTER YOUR MISTAKE:";M$
      101 PRINT"OKAY WRITTEN DOWN", "WOULD YOU LIKE TO MENU?" :INPUT MEN$
      102 IF MEN$=Y THEN GOTO 2
      103 IF MEN$=N THEN PRINT"SHOWING MISTAKES", M$
      104 PRINT"GIVING TIME TO READ. WOULD U LIKE TO WRITE DEFE?" :INPUT DEFEC$
      105 IF DEFEC$=Y THEN GOTO 106
      106 INPUT"ENTER DEFE ASSOCIATED WITH MISTAKE M:" A$, B$, C$
      107 PRINT"OKAY, DEFECTS WRITTEN DOWN. NOW GOING TO DISPLAY MISTAKES AND DEFECTS TO HELP FORM AS"
      108 PRINT"MISTAKE--", M$
      109 PRINT"DEFECTS--", A$, B$, C$
      110 PRINT"GIVING TIME TO INTROSPECT:" :INPUT INTRO$
      111 IF INTRO$=Y THEN GOTO 40
      112 IF INTRO$=N THEN GOTO 113
      113 PRINT"SORRY, YOU MUST SELECT Y" GOTO 111


      Here I make sure that there are no errors by asking if mistakes have been written:



      40 INPUT "DID YOU ENTER MISTAKES YET?:";FORTY$
      41 IF FORTY$=N THEN GOTO 44
      42 IF FORTY$=Y THEN GOTO 43
      43 PRINT"DISPLAYING DEFECTS:" A$, B$, C$ GOTO 45
      44 GOTO 20
      45 PRINT"GIVING TIME TO READ"
      46 INPUT "WOOULD YOU LIKE TO GO BACK TO MENU?" :INPUT MEN$
      47 IF MEN$=Y GOTO 2
      48 IF MEN$=N GOTO 49
      49 PRINT"SORY, YOU MUST GO BACK TO MENU." GOTO 2


      Here I write the autosuggestion or correct perspective. Anytime I want to check the correct perspective I simply type PRINT AS$.



      30 PRINT"OKAY YOU ARE NOW ENTERING THE AUTOSUGGESTION FOR THE MIND"
      31 PRINT"DID YOU WRITE YOUR MISTAKES AND DEFECTS?:" MIND$
      32 IF MIND$=Y THEN GOTO 34
      33 IF MIND$=N THEN GOTO 20
      34 PRINT"PREPARING MISTAKES AND DEFECTS. GIVING TIME."
      35 PRINT M$, A$, B$, C$ :INPUT AS$
      36 PRINT AS$






      strings basic-lang






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Mar 16 at 2:07









      Jamal

      30.4k11121227




      30.4k11121227










      asked Mar 15 at 23:53









      Travis WellsTravis Wells

      113




      113






















          0






          active

          oldest

          votes











          Your Answer





          StackExchange.ifUsing("editor", function () {
          return StackExchange.using("mathjaxEditing", function () {
          StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
          StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
          });
          });
          }, "mathjax-editing");

          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "196"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f215536%2fscript-that-uses-strings-of-text-for-introspective-analysis%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          0






          active

          oldest

          votes








          0






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes
















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Code Review Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          Use MathJax to format equations. MathJax reference.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f215536%2fscript-that-uses-strings-of-text-for-introspective-analysis%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Fairchild Swearingen Metro Inhaltsverzeichnis Geschichte | Innenausstattung | Nutzung | Zwischenfälle...

          Pilgersdorf Inhaltsverzeichnis Geografie | Geschichte | Bevölkerungsentwicklung | Politik | Kultur...

          Marineschifffahrtleitung Inhaltsverzeichnis Geschichte | Heutige Organisation der NATO | Nationale und...