1000  DIM A$[72],A[5],N$[20],N[7]
1010  REM
1020  REM   "PEERS" (REV#2) WRITTEN 08/30/76 BY RODERIC L. HOM
1030  REM   HELPS FIND POSSIBLE DATA PROCESSING CAREER JOBS
1040  REM   PROGRAMMED AT THE EDP RESOURCE CENTER, SAN FRAN CA
1050  REM
1060  J=N=0
1070  T=TIM(1)
1080  IF T>11 THEN 1110
1090  PRINT "GOOD MORNING";
1100  GOTO 1160
1110  IF T>16 THEN 1140
1120  PRINT "GOOD AFTERNOON";
1130  GOTO 1160
1140  PRINT "GOOD EVENING";
1150  REM
1160  PRINT ", WHAT'S YOUR FIRST NAME";
1170  INPUT N$
1180  PRINT 
1190  PRINT "DO YOU ALREADY HAVE A PEERS QUESTIONAIRE";
1200  INPUT A$
1210  IF A$[1,1]="Y" THEN 2050
1220  PRINT 
1230  PRINT 
1240  PRINT "WELCOME TO A COMPUTER CAREER SEARCH, "N$"."
1250  PRINT "LETS FIND SOME COMPUTER OCCUPATIONS THAT MAY BE OF"
1260  PRINT "INTEREST TO YOU."
1270  PRINT 
1280  PRINT "I WILL ASK YOU SOME QUESTIONS DEALING WITH THE MANY"
1290  PRINT "CAREERS FOUND IN MODERN DATA PROCESSING OPERATIONS."
1300  PRINT "AFTER YOU HAVE ANSWERED THE QUESTINS, I WILL PRINT"
1310  PRINT "OUT THE CAREER AREAS THAT MIGHT BE WORTH YOUR INVESTIGATION."
1320  PRINT 
1330  PRINT 
1340  PRINT 
1350  PRINT "  #1  WHAT TYPE OF PHYSICAL ACTIVITY ON THE JOB DO YOU PREFER?"
1360  PRINT 
1370  PRINT "      1) VERY LITTLE (MOSTLY SITTING)"
1380  PRINT "      2) SOME (STANDING AND WALKING)"
1390  PRINT "      3) QUITE A LOT (STANDING, WALKING, AND LIFTING)"
1400  PRINT 
1410  PRINT "WHAT'S THE NUMBER (1-3) OF YOUR ANSWER, "N$;
1420  INPUT N[1]
1430  IF N[1]<1 OR N[1]>3 OR N[1] <> INT(N[1]) THEN 1410
1440  PRINT 
1450  PRINT "  #2  WHICH WORK EVIRONMENT DO YOU LIKE BEST?"
1460  PRINT 
1470  PRINT "      1) QUIET"
1480  PRINT "      2) SOME NOISE FROM OFFICE MACHINES"
1490  PRINT "      3) NOISY"
1500  PRINT 
1510  PRINT "WHAT ARE YOU GOING TO CHOOSE THIS TIME";
1520  INPUT N[2]
1530  IF N[2]<1 OR N[2]>3 OR N[2] <> INT(N[2]) THEN 1510
1540  PRINT 
1550  PRINT "  #3  HOW MUCH TIME DO YOU PLAN TO DEVOTE TO YOUR EDUCATION?"
1560  PRINT 
1570  PRINT "      1) COMPLETE HIGH SCHOOL"
1580  PRINT "      2) COMPLETE A TWO-YEAR COLLEGE PROGRAM OR TECHNICAL OR"
1590  PRINT "         SPECIAL TRAINING (INCLUDES MILITARY SERVICE)"
1600  PRINT "      3) COMPLETE A FOUR-YEAR COLLEGE PROGRAM"
1610  PRINT 
1620  PRINT "HOW ABOUT IT, "N$", WHAT IS YOUR ANSWER";
1630  INPUT N[3]
1640  IF N[3]<1 OR N[3]>3 OR N[3] <> INT(N[3]) THEN 1620
1650  PRINT 
1660  PRINT "  #4A WHICH DO YOU ENJOY MOST?"
1670  PRINT 
1680  PRINT "      1) BEING SUPERVISED BY OTHERS"
1690  PRINT "      2) SOME SUPERVISION"
1700  PRINT "      3) SUPERVISING OTHERS"
1710  PRINT 
1720  PRINT "WHICH ONE DID YOU PICK, "N$;
1730  INPUT N[4]
1740  IF N[4]<1 OR N[4]>3 OR N[4] <> INT(N[4]) THEN 1720
1750  PRINT 
1760  PRINT "  #4B WHICH TYPE OF WORK DO YOU PREFER"
1770  PRINT 
1780  PRINT "      1) SIMPLE, ROUTINE TASKS"
1790  PRINT "      2) MORE COMPLICATED JOBS WITH CLEAR GUIDELINES"
1800  PRINT "      3) CHALLENGING JOBS WITH PROBLEMS TO SOLVE"
1810  PRINT 
1820  PRINT "WHAT'S YOUR DECISION, "N$;
1830  INPUT N[5]
1840  IF N[5]<1 OR N[5]>3 OR N[5] <> INT(N[5]) THEN 1820
1850  PRINT 
1860  PRINT "  #5A WHERE DO YOU HOPE TO START ON THE SALARY SCALE? (BE REALISTIC)"
1870  PRINT 
1880  PRINT "      1) ENTRY LEVEL"
1890  PRINT "      2) MEDIUM RANGE"
1900  PRINT "      3) ADVANCED RANGE"
1910  PRINT 
1920  PRINT "WHAT'S YOUR ANSWER";
1930  INPUT N[6]
1940  IF N[6]<1 OR N[6]>3 OR N[6] <> INT(N[6]) THEN 1930
1950  PRINT 
1960  PRINT "  #5B WHERE DO YOU REALISTICALLY EXPECT TO BE ON THE SALARY"
1970  PRINT "      SCALE AFTER THREE YEARS ON THE JOB?  (CONSIDER HOW HARD"
1980  PRINT "      YOUR WANT TO WORK FOR THE SKILLS YOU WOULD ACQUIRE.)"
1990  PRINT 
2000  PRINT "WHAT'S YOUR NUMBER (1-3) OF YOUR ANSWER, "N$;
2010  INPUT N[7]
2020  IF N[7]<1 OR N[7]>3 OR N[7] <> INT(N[7]) THEN 2000
2030  PRINT 
2040  GOTO 2160
2050  REM     ===== FAST INPUT SECTION =====
2060  PRINT "OK, "N$", SIMPLY TYPE THE RESPONSE NUMBERS TO THE SEVEN"
2070  PRINT "QUESTIONS, SPERATED BY COMMAS (I.E. 2,3,1,3,2):"
2080  MAT  INPUT N
2090  FOR I=1 TO 7
2100  IF N[I]<1 OR N[I]>3 THEN 2130
2110  NEXT I
2120  GOTO 2160
2130  PRINT "PLEASE CHECK YOUR NUMBERS.  ONE OF THEM IS WRONG."
2140  PRINT "PLEASE TYPE THEM AGAIN:"
2150  GOTO 2080
2160  REM     ===== ECHO CHECK =====
2170  PRINT 
2180  PRINT "THANK YOU, "N$", YOU'VE TYPED THESE NUMBERS:"
2190  FOR I=1 TO 7
2200  PRINT N[I];
2210  NEXT I
2220  PRINT 
2230  REM  (M = MINIMUM NUMBER OF MATCHES)
2240  M=3
2250  READ A$,A[1],A[2],A[3],A[4],A[5]
2260  N=0
2270  IF A$="END" THEN 2440
2280  FOR I=1 TO 5
2290  IF A[I] <> N[I] THEN 2310
2300  GOTO 2330
2310  IF I<4 THEN 2340
2320  IF A[I] <> N[I+1] THEN 2340
2330  N=N+1
2340  NEXT I
2350  IF N<M THEN 2250
2360  IF J THEN 2400
2370  PRINT 
2380  PRINT "THESE COMPUTER CAREERS MAY BE RIGHT FOR YOU:"
2390  PRINT 
2400  J=1
2410  PRINT " ( ) "A$
2420  N=0
2430  GOTO 2250
2440  IF J THEN 2500
2450  PRINT '10'10"(I'M SORRY, BUT I DIDN'T FIND ANY CAREERS THAT"
2460  PRINT "MATCHES YOUR ANSWERS,  BUT HOWEVER, IF YOU CHANGE"
2470  PRINT "ONE OR TWO OF YOUR ANSWERS IN QUESTION #1 OR #3 AND"
2480  PRINT "RUN THIS PROGRAM AGAIN, I'LL SEE WHAT I CAN DO FOR YOU)"
2490  GOTO 2520
2500  PRINT '10"OF COURSE, "N$", THIS IS JUST THE BEGINNING."
2510  PRINT "THE REAL CHOICE IS UP TO YOU"'10
2520  PRINT '10"THANK YOU."
2530  STOP 
2540  DATA "MAIL CLERK",3,2,1,1,1
2550  DATA "CLERK/TYPIST",1,1,1,1,1
2560  DATA "ACCOUNTING CLERK",1,1,2,2,2
2570  DATA "INPUT/OUTPUT CLERK",1,1,1,2,2
2580  DATA "FILE CLERK",1,1,1,1,1
2590  DATA "MICROFILM OPERATOR",1,2,1,1,1
2600  DATA "ADRESSING MACHINE OPERATOR",2,2,1,1,1
2610  DATA "CALCULATING MACHINE OPERATOR",1,2,1,1,1
2620  DATA "WORK PROCESSING OPERATOR",1,2,1,1,2
2630  DATA "COPY MACHINE OPERATOR",2,2,1,1,1
2640  DATA "SYSTEMS PROGRAMMER",1,2,3,2,3
2650  DATA "SYSTEMS ANALYST",1,1,3,3,3
2660  DATA "SENIOR COMPUTER PROGRAMMER",1,2,3,3,3
2670  DATA "JUNIOR COMPUTER PROGRAMMER",1,2,2,2,2
2680  DATA "PROGRAMMING TRAINEE",1,2,1,1,1
2690  DATA "COMPUTER OPERATOR",2,3,2,2,2
2695  DATA "DATA CONTROL CLERK",2,2,2,3,1
2700  DATA "PERIPHERAL EQUIPMENT OPERATOR",2,3,1,1,1
2710  DATA "COMPUTER OPERATIONS TRAINEE",2,3,1,1,1
2720  DATA "CARD PUNCH OPERATOR",2,2,1,1,2
2730  DATA "KEY-TO STORAGE OPERATOR",2,2,1,1,2
2740  DATA "ON-LINE TERMINAL OPERATOR",1,2,1,1,2
2750  DATA "BURSTER/DECOLLATOR OPERATOR",3,3,1,1,1
2760  DATA "PUNCHED-CARD EQUIPMENT OPERATOR",2,3,2,1,2
2770  DATA "TABULATOR OPERATOR",2,3,2,1,2
2780  DATA "EQUIPMENT ANALYST",1,2,2,2,2
2790  DATA "EQUIPMENT TECHNICIANS",2,3,2,1,2
2800  DATA "TAPE LIBRRARIAN",2,2,1,1,1
2810  DATA "TAPE MAINTENANCE",2,2,1,1,1
2820  DATA "SCHEDULING COORDINATOR",1,1,2,2,2
2830  DATA "MANAGER",1,1,3,3,3
2840  DATA "END",0,0,0,0,0
2850  END 
