10  REM  RATE1, A SELF-EVALUATION TEST BY JUDY SOKOL, JAN 21, 1973
20  REM
30  DIM A$[72],B$[3]
31  IF TIM(1)>11 THEN 34
32  PRINT "GOOD MORNING, ";
33  GOTO 40
34  IF TIM(1)>15 THEN 37
35  PRINT "GOOD AFTERNOON, ";
36  GOTO 40
37  PRINT "GOOD EVENING, ";
40  PRINT "WHAT'S YOUR NAME";
50  INPUT A$
60  PRINT 
70  PRINT "HOW WELL DO YOU KNOW YOURSELF, "A$"?"
80  PRINT '10"HOW WOULD YOU RATE YOUR PERSONALITY?"
90  PRINT '10"HOW WOULD YOU RATE YOUR PERSONAL EFFECTIVENESS ON A JOB?"
100  PRINT '10"HERE'S HOW!!"'10
110  PRINT "EACH QUESTION CAN BE ANSWERED AS"
120  PRINT 
130  PRINT "     YES (Y), NO (N), OR UNDECIDED (U)"
140  PRINT 
150  PRINT "ANSWER EACH QUESTION TO THE BEST OF YOUR ABILITY."
160  PRINT 
170  A=B=J=K=0
180  B$="NUY"
190  IF TYP(0)=3 THEN 530
200  READ A$
210  IF A$[1,1]#"$" THEN 300
220  PRINT 
230  PRINT 
240  PRINT A$[2]
250  FOR I=2 TO LEN(A$)
260  PRINT "=";
270  NEXT I
280  PRINT 
290  GOTO 190
300  PRINT 
310  IF K THEN 350
320  J=J+1
330  PRINT  USING "#,DD.XX";J
340  K=1
350  FOR I=1 TO LEN(A$)
360  IF A$[I,I]#'10 THEN 380
370  NEXT I
380  PRINT A$[I];
390  L=LEN(A$)
400  IF A$[L,L]#"?" THEN 200
410  PRINT " ";
420  ENTER 255,R,A$
430  PRINT 
440  IF R<0 THEN 480
450  FOR I=1 TO 3
460  IF A$[1,1]=B$[I,I] THEN 500
470  NEXT I
480  PRINT "WHAT'S THAT, AGAIN? ";
490  GOTO 420
500  A=A+I-1
510  K=0
520  GOTO 190
530  PRINT 
540  PRINT "YOUR SCORE IS"A
550  PRINT 
560  PRINT "HOW DO YOU RATE?"
570  PRINT 
580  PRINT "120 - 128  WHAT'S YOUR SECRET?"
590  PRINT "108 - 119  YOU'RE DOING WELL!"
600  PRINT " 96 - 107  ARE YOU WILLING TO BE JUST AVERAGE?"
610  PRINT " BELOW 96  YOU'D BETTER START IMPROVING NOW!"
620  DATA "$YOUR WORK HABITS"
630  DATA '14"DO YOU LISTEN TO DIRECTIONS CAREFULLY SO THAT YOU DON'T HAVE"
640  DATA "TO ASK TOO MANY QUESTIONS?"
650  DATA '14"DO YOU PLAN AHEAD SO THAT YOU CAN KEEP MORE THAN ONE JOB"
660  DATA "MOVING?"
670  DATA '14"DO YOU DO A JOB IN THE BEST OR THE MOST SUITABLE WAY, SUCH"
680  DATA "AS STUDYING YOUR PROBLEM AND THEN ARRANGING THE PROCEDURE"
690  DATA "LOGICALLY?"
700  DATA '14"DO YOU DO YOUR BEST WHETHER YOU ENJOY WHAT YOU ARE DOING "
710  DATA "OR NOT?"
720  DATA '14"DO YOU USUALLY DO THINGS RIGHT THE FIRST TIME?"
730  DATA '14"DO YOU STICK TO A JOB UNTIL IT IS DONE?"
740  DATA "DO YOU GET YOUR ASSIGNMENTS DONE WELL, IN SPITE"
750  DATA "OF INTERRUPTIONS?"
760  DATA '14"DO YOU STUDY YOUR LESSONS CONSISTENTLY?"
770  DATA '14"DO YOU KEEP YOUR MATERIALS AND EQUIPMENT NEAT AND IN ORDER?"
780  DATA '14"DO YOU BRING NECESSARY SUPPLIES TO CLASS EACH DAY?"
790  DATA '14"ARE YOU PROUD OF THE WORK YOU DO?"
800  DATA '14"DO YOU WORK ACCURATELY AND QUICKLY?"
810  DATA '14"DO YOU PROOFREAD YOUR WORK WELL?"
820  DATA '14"WHEN CONFRONTED WITH A QUESTION, DO YOU TRY"
830  DATA "TO FIND AN ANSWER YOURSELF?"
840  DATA "$YOUR HONESTY AND DEPENDABILITY"
850  DATA '14'14"ARE YOU HONEST WHEN YOU HAVE A TEST?"
860  DATA '14"WHEN YOU ARE ASKED FOR YOUR HONEST OPINION, ARE YOU SINCERE?"
870  DATA '14"DO YOU MEET OBLIGATIONS ON TIME?"
880  DATA '14"ARE YOU THE TYPE OF PERSON WHO CAN BE RELIED UPON?"
890  DATA '14"DO YOU SUBMIT YOUR ASSIGNMENTS AT THE TIME THEY ARE DUE?"
900  DATA '14"CAN YOU FINISH A JOB WITHOUT BEING REMINDED SEVERAL TIMES?"
910  DATA '14"DO YOU ACTUALLY WORK ON YOUR STUDIES WHEN YOU ARE "
920  DATA "GIVEN THE TIME TO STUDY THEM?"
930  DATA '14"DO YOU GET TO CLASS ON TIME?"
940  DATA '14"ARE YOU PUNCTUAL?"
950  DATA '14"DO YOU ADMIT YOUR MISTAKES RATHER THAN MAKE EXCUSES FOR THEM?"
960  DATA '14"CAN YOU HANDLE A LITTLE EXTRA WORK?"
970  DATA "$YOUR PERSONALITY"
980  DATA '14'14"DO YOU DEVELOP AN INTEREST IN RELATED AREAS OF ACTIVITY?"
990  DATA '14"ARE YOU SINCERE IN YOUR SPEECH AND ACTIONS?"
1000  DATA '14"DO YOU HAVE CONFIDENCE IN YOURSELF TO HANDLE A JOB"
1010  DATA "A SITUATION WELL?"
1020  DATA '14"DO YOU GREET PEOPLE WITH A SMILE?"
1030  DATA '14"DO YOU HAVE A GOOD SENSE OF HUMOR?"
1040  DATA '14"IS THE TONE OF YOUR VOICE PLEASANT?"
1050  DATA '14"DO YOU SPEAK CLEARLY AND DISTINCTLY?"
1060  DATA '14"DO YOU PRACTICE GOOD MANNERS?"
1070  DATA '14"DO YOU EASILY ADAPT YOURSELF TO NEW SITUATIONS?"
1080  DATA "$YOUR POISE"
1090  DATA '14'14"DO YOU THINK OF WHAT YOU'RE GOING TO SAY BEFORE YOU SAY IT?"
1100  DATA '14"DO YOU DRESS APPROPRIATELY FOR SCHOOL?"
1110  DATA '14"ARE YOU WELL GROOMED?"
1120  DATA '14"DO YOU FEEL AT EASE WHEN TALKING WITH OTHERS?"
1130  DATA '14"DO YOU AVOID EMOTIONAL OUTBURSTS AND DISPLAYS OF TEMPER?"
1140  DATA '14"CAN YOU DISCUSS SOMETHING WITHOUT ARGUING?"
1150  DATA "$YOUR TOLERANCE"
1160  DATA '14'14"ARE YOU CAREFUL NOT TO SAY THINGS THAT MIGHT OFFEND OTHERS?"
1170  DATA '14"DO YOU CONSIDER THE FEELINGS OF OTHERS IN YOUR EVERYDAY"
1180  DATA "ACTIVITIES, SUCH AS RIDING THE BUS, WALKING DOWN THE"
1190  DATA "HALLS, OR SITTING IN CLASS?"
1200  DATA '14"DO YOU RESPECT THE IDEALS AND FEELINGS OF OTHERS?"
1210  DATA "ARE YOU COURTEOUS AND TACTFUL WHEN YOU COME INTO"
1220  DATA "CONTACT WITH COMEONE YOU DON'T PARTICULARLY CARE FOR?"
1230  DATA "$YOUR HEALTH"
1240  DATA '14'14"ARE YOU IN GOOD PHYSICAL AND EMOTIONAL HEALTH?"
1250  DATA '14"DO YOU SPEND ADEQUATE TIME ON YOUR PERSONAL CLEANLINESS?"
1260  DATA "$YOUR DESIRE TO IMPROVE"
1270  DATA '14'14"CAN YOU ACCEPT CONSTRUCTIVE CRITICISM WITHOUT RESENTMENT?"
1280  DATA '14"ARE YOU ABLE TO GIVE CONSTRUCTIVE CRITICISM WITHOUT"
1290  DATA "OFFENDING ANYONE?"
1300  DATA "DO YOU SHOW GENUINE APPRECIATION WHEN SOMEONE HELPS YOU?"
1310  DATA '14"ARE YOU GRATEFUL FOR THE OPPORTUNITY OF LEARNING?"
1320  DATA "DO YOU HAVE A DEFINITE GOAL THAT YOU ARE STRIVING TOWARD?"
1330  DATA '14"DO YOU REALLY TRY TO MAKE THE MOST OF YOUR TALENTS,"
1340  DATA "TRAINING, AND EXPERIENCE?"
1350  DATA "$YOUR RELATIONSHIP WITH OTHERS"
1360  DATA '14'14"ARE YOU ENTHUSIASTIC ABOUT THE CLUBS AND ACTIVITIES"
1370  DATA "TO WHICH YOU BELONG?"
1380  DATA '14"ARE YOU PLEASANT AND CO-OPERATIVE?"
1390  DATA '14"DO YOU TRY TO HELP SOMEONE ELSE IF AND WHEN YOU CAN?"
1400  DATA '14"DO YOU TREAT YOUR CLASSMATES WITH COURTESY AND RESPECT?"
1410  DATA '14"ARE YOU COURTEOUS AND RESPECTFUL TO YOUR TEACHERS?"
1420  DATA '14"DO YOU TRY TO GET ALONG WITH ALL TYPES OF PEOPLE?"
1430  DATA '14"ARE YOU A PERSON WHO CULTIVATES FRIENDHIPS?"
1440  DATA '14"ARE YOU LOYAL TO YOUR FRIENDS?"
1450  DATA '14"DO YOU KEEP CONFIDENCES?"
1460  DATA '14"ARE YOU COURTEOUS AND RESPECTFUL TO YOUR PARENTS?"
1470  END 
