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$
\$\endgroup\$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.