10  REM ** WORK ** A. PURSHOTTAM ** *74/01/23.13.30.35. **
15  REM: WORKING ATTITUDES QUESTIONAIRE
20  REM: REVISED BY P.BARNES AND R.WONG
80  DIM A$[72],M$[72],P[15],S[20],W[45]
140  PRINT LIN(-1);"DO YOU NEED INSTRUCTIONS (YES/NO) ";
150  INPUT A$
155  PRINT 
160  IF A$[1,1]="N" THEN 270
180  PRINT "THE STATEMENTS BELOW REPRESENT VALUES WHICH PEOPLE CONSIDER"
190  PRINT "IMPORTANT IN THEIR WORK.  THESE ARE SATISFACTIONS WHICH PEOPLE"
200  PRINT "OFTEN SEEK IN THEIR JOBS.  THEY ARE NOT ALL CONSIDERED EQUALLY"
210  PRINT "IMPORTANT; SOME ARE VERY IMPORTANT TO SOME PEOPLE BUT OF LITTLE"
220  PRINT "IMPORTANCE TO OTHERS.  READ EACH STATEMENT CAREFULLY AND TYPE"
230  PRINT "IN THE NUMBER OF THE IMPORTANCE OF THIS VALUE TO YOU."
240  PRINT "HIT THE CR BUTTON OR THE RETURN BUTTON AFTER THE NUMBER."
250  T=15
260  ENTER T,T,A$
270  READ I0,I3
280  DATA 1,1000
290  P0=10
300  MAT S=ZER
310  MAT  READ W
320  FOR I=1 TO 45
330  READ A$
340  IF I#I0 AND I#I3 THEN 420
350  PRINT 
360  PRINT "5 = VERY IMPORTANT"
370  PRINT "4 = IMPORTANT"
380  PRINT "3 = MODERATELY IMPORTANT"
390  PRINT "2 = OF LITTLE IMPORTANCE"
400  PRINT "1 = UNIMPORTANT"
410  PRINT 
420  PRINT "    ";A$;LIN(0);
430  INPUT J
440  IF J=INT(ABS(J)) AND J AND J<6 THEN 480
450  PRINT "    ";
460  PRINT "PLEASE TYPE A 1,2,3,4, OR 5"
470  GOTO 420
480  S[W[I]]=S[W[I]]+J
490  NEXT I
500  PRINT 
510  PRINT "THE FOLLOWING IS A LIST OF WORK VALUES AND THEIR APPARENT"
520  PRINT "IMPORTANCE TO YOU."
530  PRINT 
540  MAT  READ P
550  FOR I=1 TO 15
560  READ A$
570  PRINT S[I];A$;" IS ";
580  GOTO P[S[I]] OF 590,610,630,650,670
590  PRINT "VERY IMPORTANT"
600  GOTO 680
610  PRINT "IMPORTANT"
620  GOTO 680
630  PRINT "MODERATELY IMPORTANT"
640  GOTO 680
650  PRINT "OF LITTLE IMPORTANCE"
660  GOTO 680
670  PRINT "UNIMPORTANT"
680  NEXT I
690  REM  ** DATA **
700  DATA 15,14,13,12,11,10,9,8,7,6,5,4,3,2,1
710  DATA 1,3,5,7,9,11,13,15
720  DATA 2,4,6,8,10,12,14
730  DATA 14
740  DATA 12,10,8,6,4,2
750  DATA 15,13,11,9,7,5,3,1
760  DATA "HAVE TO KEEP SOLVING NEW PROBLEMS"
770  DATA "HELP OTHERS"
780  DATA "CAN GET A RAISE"
790  DATA "LOOK FORWARD TO CHANGES IN YOUR JOB"
800  DATA "HAVE FREEDOM IN YOUR OWN AREA"
810  DATA "GAIN PRESTIGE IN YOUR OWN FIELD"
820  DATA "NEED TO HAVE ARTISTIC ABILITY"
830  DATA "ARE ONE OF THE GANG"
840  DATA "KNOW YOUR JOB WILL LAST"
850  DATA "CAN BE THE KIND OF PERSON THAT YOU WOULD LIKE TO BE"
860  DATA "HAVE A BOSS THAT GIVES YOU A SQUARE DEAL"
870  DATA "LIKE THE SETTING IN WHICH YOUR JOB IS DONE"
880  DATA "GET THE FEELING OF HAVING DONE A GOOD DAYS WORK"
890  DATA "HAVE AUTHORITY OVER OTHERS"
900  DATA "TRY OUT NEW IDEAS AND SUGGESTIONS"
910  DATA "CREATE SOMETHING NEW"
920  DATA "KNOW BY THE RESULTS WHEN YOU'VE DONE A GOOD JOB"
930  DATA "HAVE A BOSS THAT IS REASONABLE"
940  DATA "ARE SURE OF ALWAYS HAVING A JOB"
950  DATA "ADD BEAUTY TO THE WORLD"
960  DATA "MAKE YOUR OWN DECISIONS"
970  DATA "HAVE PAY INCREASES THAT KEEP UP WITH THE COST OF LIVING"
980  DATA "ARE MENTALLY CHALLENGED"
990  DATA "USE LEADERSHIP ABILITIES"
1000  DATA "FORM FRIENDSHIPS WITH FELLOW EMPLOYEES"
1010  DATA "HAVE A WAY OF LIFE, WHILE NOT ON THE JOB THAT YOU LIKE"
1020  DATA "HAVE GOOD RELATIONSHIP WITH FELLOW EMPLOYEES"
1030  DATA "KNOW THAT OTHERS CONSIDER YOUR WORK IMPORTANT"
1040  DATA "DO NOT DO THE SAME THING ALL THE TIME"
1050  DATA "FEEL THAT YOU HAVE HELPED ANOTHER PERSON"
1060  DATA "ADD TO THE WELL-BEING OF OTHER PEOPLE"
1070  DATA "DO MANY DIFFERENT THINGS"
1080  DATA "ARE LOOKED UP TO BY  OTHERS"
1090  DATA "HAVE GOOD CONTACTS WITH FELLOW WORKERS"
1100  DATA "LEAD THE KIND OF LIFE THAT YOU MOST ENJOY"
1110  DATA "HAVE A GOOD PLACE TO WORK"
1120  DATA "PLAN AND ORGANIZE THE WORK OF OTHERS"
1130  DATA "NEED TO BE MENTALLY ALERT"
1140  DATA "ARE PAID ENOUGH TO LIVE RIGHT"
1150  DATA "ARE YOUR OWN BOSS"
1160  DATA "MAKE ATTRACTIVE PRODUCTS"
1170  DATA "ARE SURE OF ANOTHER JOB IN COMPANY IF PRESENT TERMINATES"
1180  DATA "HAVE A SUPERVISOR THAT IS CONSIDERATE"
1190  DATA "SEE THE RESULTS OF YOUR EFFORTS"
1200  DATA "CONTRIBUTE NEW IDEAS"
9000  DATA 5,5,5,4,4,4,3,3,3,2,2,2,1,1,1
9010  DATA "CREATIVITY","MANAGEMENT","ACHIEVMENT","SURROUNDINGS"
9020  DATA "SUPERVISORY RELATIONS","WAY OF LIFE","SECURITY"
9030  DATA "ASSOCIATES","ESTHETICS","PRESTIGE","INDEPENDENCE"
9040  DATA "VARIETY","ECONOMIC RETURN","ALTRUISM","INTELLECTUAL STIMULATION"
9050  END 
