Basic written script that uses text strings for introspective analysis

PDR is an abbreviation for the elimination of personality errors. This script was written in basic v1.1. I use strings to store details of the psychological analysis of defects to improve their personality.

MIS = error written

AS = correct and positive perspective that the mind can easily grasp.

DEFE = error recorded for future therapy.

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

Here I write the mistakes, so that I can come back to it if necessary.

20 INPUT "ENTER YOUR MISTAKE:"; M $
101 PRINT "OK WRITTEN DOWN", "DO YOU WANT THE MENU?" : INPUT MEN $
102 IF MEN $ = Y THEN GET 2
103 IF MEN $ = N THEN PRINT "TROUBLESHOOTING", M $
104 PRINT "READ TIME". DO YOU WANT TO WRITE DEFE? : INPUT DEFEC $
105 IF DEFEC $ = Y THEN RECEIVES 106
106 "ENTER INPUT DEFE WITH TROUBLESHOOTING M": "A $, B $, C $
107 PRINTING "OK, DEFECTIVE WRONG REPORTED, NOW TROUBLESHOOTING IS OFFERED AND ERRORS FORM FOR HOW"
108 PRINT "ERROR -", M $
109 PRINTING "ERROR--", A $, B $, C $
110 PRINT "TIME FOR INTROSPECT:": INPUT INTRO $
111 IF INTRO $ = Y THEN GOTO 40
112 IF INTRO $ = N THEN GOTO 113
113 PRINT "SORRY, YOU MUST CHOOSE J" GOTO 111

Here I make sure that there are no mistakes by asking if mistakes have been made.

40 INPUT "DO YOU HAVE AN ERROR ?:"; FORTY $
41 IF FORTY $ = N THEN GOTO 44
42 IF FORTY $ = Y THEN GO 43
43 PRINT "DISPLAY ERRORS:" A $, B $, C $ GOTO 45
44 GOTO 20
45 PRINT "READ TIME"
46 INPUT "DO YOU WANT TO RETURN TO MENU?" : INPUT MEN $
47 IF MEN $ = Y GOTO 2
48 IF MEN $ = N GOTO 49
49 PRINTING "SORY, YOU NEED TO RETURN TO MENU". GOTO 2

Here I write the autosuggestion. Or right perspective. Every time I want to check the right perspective, I just type in print AS $

30 PRINT "OK THAT YOU ARE NOW ENTERING THE AUTOSUGGESTION FOR MIND"
31 PRINT "Did you write your mistakes and mistakes?": MIND $
32 IF MIND $ = Y THEN GOTO 34
33 IF MIND $ = N THEN GOTO 20
34 PRINTING "PREPARING TROUBLESHOOTING AND TROUBLESHOOTING TIME GIVING."
35 PRINT M $, A $, B $, C $: INPUT AS $
36 PRINT AS $