1000  DATA "HI THERE THIS IS JOB-O SPEAKING"
1010  DATA " "
1020  DATA "I'M HERE TO HELP YOU IN SELECTING A CAREER THAT FITS YOU"
1030  DATA " "
1040  DATA "THE DIRECTIONS ARE SIMPLE..."
1050  DATA "   JUST READ THE QUESTIONS I ASK YOU AND TYPE IN YOUR ANSWER"
1060  DATA "   WAIT FOR ME TO GIVE YOU LIST OF CAREERS"
1070  DATA "   FROM THE LIST OF CAREERS PICK YOUR FAVORITE(S) AND FIND OUT"
1080  DATA "   MORE ABOUT THEM FROM READING, FRIENDS OR JOB COUNSELORS."
1090  DATA " "
1100  DATA "OK, YOU KNOW MY NAME... WHAT'S YOURS","<$"
1120  DATA "ALL RIGHT, ","$<",", LET'S GET GOING..."
1150  DATA " "
1160  DATA " "
1170  DATA "HOW LONG DO YOU WANT TO STAY IN SCHOOL, ","$<"," ?"
1200  DATA "DO YOU WANT TO..."
1210  DATA " "
1220  DATA "1) COMPLETE HIGH SCHOOL"
1230  DATA "2) COMPLETE APPRENTICESHIP, TECHNICAL OR SPECIAL TRAINING"
1240  DATA "3) COMPLETE A TWO YEAR COLLEGE PROGRAM"
1250  DATA "4) COMPLETE A FOUR YEAR COLLEGE PROGRAM"
1260  DATA "5) COMPLETE FIVE OR MORE YEARS OF COLLEGE"
1270  DATA " "
1280  DATA "(PICK THE NUMBER OF THE ONE THAT FITS YOU)"
1290  DATA "#"
1300  DATA "WHAT WOULD YOU LIKE TO DO, ","$<"," ?"
1330  DATA " "
1340  DATA "1)ARTISTIC - LITERARY (ART, DRAMA, MUSIC, DESIGNING, PHOTOGRAPHY,"
1350  DATA "  TV, RADIO, NEWS REPORTING, LAW, WRITING, LIBRARY WORK,"
1360  DATA "  DRAFTING, ETC.)"
1370  DATA " "
1380  DATA "2)BUSINESS, CLERICAL, SALES (DATA PROCESSING, ACCOUNTING,"
1390  DATA "  TYPING, OFFICE WORK, SELLING, MANAGEMENT, ETC.)"
1400  DATA " "
1410  DATA "3)SOCIAL - PERSONAL SERVICE (SOCIAL WORK, TEACHING, NURSING,POLICE,"
1420  DATA "  PROBATION, RECREATION, COSMETOLOGY, STEWARDESS, CHEF, ETC.)"
1430  DATA " "
1440  DATA "4)AGRICULTURE - CONSERVATION (WILDLIFE, FORESTRY, FARMING-"
1450  DATA "  RANCHING, ECOLOGY, MINING, LOGGING, ETC.)"
1460  DATA " "
1470  DATA "5)MECHANICAL (CONSTUCTION, REPAIRING, OPERATING EQUIPMENT,"
1480  DATA "  AVIATION, TRANSPORTATION, ASSEMBLING, ETC.)"
1490  DATA " "
1500  DATA "6)SCIENTIFIC (MEDICINE, ENGINEERING, MATHEMATICS, ELECTRONICS,"
1510  DATA "  ETC.)"
1520  DATA " "
1530  DATA "(TYPE IN THE NUMBER OF THE GROUP OF ACTIVITES WHICH YOU"
1540  DATA "WOULD REALLY ENJOY DOING AND WOULD MAKE YOU HAPPY)"
1550  DATA "#"
1560  DATA "HOW DO YOU SEE YOURSELF, ","$<"," ?"
1590  DATA " "
1600  DATA "THE CHOICES FOR THE NEXT SEVEN QUESTIONS ARE GIVEN AS FOLLOWS:"
1610  DATA " "
1620  DATA "     1) USUALLY          3) SOMETIMES        5) RARELY"
1630  DATA "     2) OFTEN            4) OCCASIONALLY     6) NEVER"
1640  DATA " "
1650  DATA "PICK THE ONE THAT FITS YOU BEST IN THE FOLLOWING STATEMENTS"
1660  DATA "(BE HONEST WITH YOURSELF)"
1670  DATA " "
1680  DATA "3) I WOULD LIKE A JOB IN WHICH I WORK WITH PEOPLE"
1690  DATA "#"
1700  DATA "4) I WOULD LIKE A JOB IN WHICH I TELL PEOPLE WHAT TO DO"
1710  DATA "#"
1720  DATA "5) I WOULD LIKE A JOB IN WHICH I WOULD BE CLOSE AND FRIENDLY"
1730  DATA "   WITH PEOPLE"
1740  DATA "#"
1750  DATA "6) I WOULD LIKE A JOB IN WHICH I WOULD BE PHYSICALLY ACTIVE"
1760  DATA "#"
1770  DATA "7) I WOULD LIKE A JOB IN WHICH I WORK WITH MY HANDS"
1780  DATA "#"
1790  DATA "8) I WOULD LIKE A JOB IN WHICH I WORK WITH FACTS AND FIGURES AND "
1800  DATA "   INFORMATION AND APPLY THEM TO MY JOB"
1810  DATA "#"
1820  DATA "9) I WOULD LIKE A JOB IN WHICH I COULD BE CREATIVE AND WORK"
1830  DATA "   WITH IDEAS"
1840  DATA "#"
1850  DATA " "
1860  DATA "OK, I'LL CHECK YOUR RESPONSES AGAINST WHAT I HAVE IN MY FILES."
1870  DATA "THE MORE RESPONSE MATCHES YOU HAVE, THE BETTER THE JOB LOOKS."
1880  DATA "I'LL SEE WHAT I CAN DIG UP FOR YOU."
1890  DATA "STICK AROUND, ","$<",", THIS WILL TAKE A FEW MINUTES"
1920  DATA " "
1930  DATA " "
1940  DATA " "
1950  DATA "STOP"
3000  DATA "232.45565656561245ACCOUNTING CLERK"
3010  DATA "3.2.12121234562312ADVERTISING SALESMAN"
3020  DATA "341.12232312342312ACTOR - ENTERTAINER"
3030  DATA "2.5.45565612122334AIRCRAFT MECHANIC"
3040  DATA "2.5.56565623122323APPLIANCE REPAIRMAN"
3050  DATA "233.12232323563424AIRLINE STEWARDESS - STEWARD"
3060  DATA "1.4.56342323344556ANIMAL KEEPER"
3070  DATA "1.5.34343423341223AUTO PARTS MAN"
3080  DATA "2.5.56565623122334AUTO MECHANIC"
3090  DATA "236.34124556561234AIR TRAFFIC CONTROLLER"
3100  DATA "4.2.34233456561223ACCOUNTANT"
3110  DATA "346.34123434341234AIRLINE PILOT"
3120  DATA "1.5.56454523344545AMBULANCE DRIVER"
3130  DATA "5.1623123434121212ARCHITECT"
3140  DATA "2.3.34343423233434BAKER"
3150  DATA "2.3.23562323124545BARBER"
3160  DATA "233.23562323124545BEAUTY OPERATOR"
3170  DATA "2.5.56565623235656BINDERY WORKER"
3180  DATA "2.2.34563456561256BOOKEEPER"
3190  DATA "2.5.56565612124534BODY AND FENDER MAN"
3200  DATA "1.5.34343423343456BUS DRIVER"
3210  DATA "2.5.56565623122323BUSINESS MACHINE SERVICEMAN"
3220  DATA "4.2.12123434122323BUSINESS ADMINISTRATOR"
3230  DATA "2.5.56565634122323CERAMIC TECHNICIAN"
3240  DATA "5.3.12121234562323CLERGYMAN"
3250  DATA "1.2.34453434562356CLERK"
3260  DATA "1.2.45565656234556CLERK/TYPIST"
3270  DATA "341.34343445123412COMMERCIAL ARTIST"
3280  DATA "232.56565656341245COMPUTER OPERATOR"
3290  DATA "342656344556561212COMPUTER PROGRAMMER"
3300  DATA "2.3.34343423233434COOK"
3310  DATA "2.5.56565612122323CRAFTSMAN (BUILDING)"
3320  DATA "1.3.34565645233434DARK ROOM TECHNICIAN"
3330  DATA "235.56565634122323DATAPRO EQUIPMENT TECHNICIAN"
3340  DATA "233.34563434344556DENTAL ASSISTANT"
3350  DATA "346.23343434122334DENTAL HYGENIST"
3360  DATA "235.56565634123434DENTAL TECHNICIAN"
3370  DATA "5.6.12121223121212DENTIST"
3380  DATA "231.56565656122334DRAFTSMAN"
3390  DATA "1.5.34563434125656ELECTRONICS ASSEMBLER"
3400  DATA "2.5.56565623232334ELECTROPLATOR"
3410  DATA "456.34123434341212ENGINEER"
3420  DATA "4.4.34233423341212ENVIRONMENTAL SCIENTIST"
3430  DATA "1.4.45343412343434FARMER - RANCHER"
3440  DATA "231.12123434121212FASHION DESIGNER"
3450  DATA "1.5.34343412343456FIREMAN"
3460  DATA "4.4.34343412451234FORESTER"
3470  DATA "134.34563412453456FORESTER AIDE"
3480  DATA "344.34123412452334GAME WARDEN"
3490  DATA "1.4.56565612345634GARDENER"
3500  DATA "5.3.12341256561212GUIDANCE COUNSELOR"
3510  DATA "2.5.56565612345656HEAVY EQUIPMENT OPERATOR"
3520  DATA "4.3.12123445561212HOSPITAL ADMINISTRATOR"
3530  DATA "1.2.34563456563456HOTEL CLERK"
3540  DATA "341.34123434341212INTERIOR DECORATOR"
3550  DATA "2.5.56565612124534IRON WORKER"
3560  DATA "2.5.34343456121234JEWLER"
3570  DATA "2.2.56565645125656KEY PUNCH OPERATOR"
3580  DATA "4.6.34563434121234LABORATORY TECHNICIAN"
3590  DATA "5.1.12123456561212LAWYER"
3600  DATA "5.1.12343456561212LIBRARIAN"
3610  DATA "233.12341223343434LICENSED VOCATIONAL NURSE"
3620  DATA "5.6.34233434231212LIFE SCIENTIST"
3630  DATA "125.34565612124556LINEMAN"
3640  DATA "4.1.34343456561212LITERARY WRITER"
3650  DATA "2.1.56565623122323LITHOGRAPHER"
3660  DATA "1.4.56565612121256LOGGER"
3670  DATA "2.5.56565623122323MACHINISTS"
3680  DATA "1.3.34563412563456MAIL CARRIER"
3690  DATA "5.6.56345656561212MATHEMATICIAN"
3700  DATA "2.5.34564512124556MEAT CUTTER"
3710  DATA "4.5.34563456121234MEDICAL TECHNOLOGIST"
3720  DATA "2.1.34562323565634MODEL "
3730  DATA "2.3612123445341234MORTICIAN"
3740  DATA "121.12561234123412NEWSPAPER REPORTER"
3750  DATA "343612231223341212NURSE RN"
3760  DATA "1.3.3456342345566.NURSE ASSISTANT"
3770  DATA "4.3.12121234121212OCCUPATIONAL THERAPIST"
3780  DATA "2.5.23343434122334OPTICIAN"
3790  DATA "5.6.12123434122334OPTOMETRIST"
3800  DATA "4.3.12121245561234PERSONNEL WORKER"
3810  DATA "5.6.34343434231212PHARMACIST"
3820  DATA "2.1.34343434123412PHOTOGRAPHER"
3830  DATA "4.3.12121223121223PHYSICAL THERAPIST"
3840  DATA "5.6.45234545451212PHYSICAL SCIENTISTS"
3850  DATA "1.3.12121212562345POLICEMAN - POLICEWOMAN"
3860  DATA "4.3.12121256561234PROBATION OFFICER"
3870  DATA "233.12341234563445PSYCHIATRIC TECHNICIAN"
3880  DATA "5.3612121256561212PSYCHOLOGIST"
3890  DATA "4.2.12121256561212PUBLIC RELATIONS MAN"
3900  DATA "4.2.23233456561234PURCHASING AGENT"
3910  DATA "341.12121256563423RADIO AND TV ANNOUNCER"
3920  DATA "4.1.34123456561212RADIO AND TV FILM WRITER"
3930  DATA "2.5.56565634121223RADIO AND TV SERVICEPERSON"
3940  DATA "133.23342345453445RECEPTIONIST"
3950  DATA "4.3.12121212342323RECREATIONAL LEADER DIRECTOR "
3960  DATA "235.56565612121223REFRIGERATION MECHANIC"
3970  DATA "1.2.34343434563445SALES CLERK"
3980  DATA "122.12121234561223SALES MAN"
3990  DATA "232.23342356342334SECRETARY"
4000  DATA "1.5.34563423345645SERVICE STATION ATTENDANT"
4010  DATA "5.3.12121234561212SOCIAL WORKER"
4020  DATA "4.2.12121256561212STOCK BROKER"
4030  DATA "346.34343423231234SURVEYOR"
4040  DATA "4.6.34123456561212SYSTEMS ANALYST"
4050  DATA "5.3.12121256561212TEACHER"
4060  DATA "3.1.34343456121212TECHNICAL ILLUSTRATOR"
4070  DATA "4.1634343456561212TECHNICAL WRITER"
4080  DATA "2.5.56565612123445TELEPHONE INSTALLER"
4090  DATA "2.2.34563456342356TELEPHONE OPERATOR"
4100  DATA "1.5.56565623343456TRUCK DRIVER"
4110  DATA "5.3.12123434561212URBAN PLANNER"
4120  DATA "5.4634123423121212VETERNARIAN"
4130  DATA "1.2.56565612343456WAREHOUSE MAN"
4140  DATA "235.56565612123423WELDER"
4150  DATA "236.45344534341234X-RAY TECHNOLOGIST"
4160  DATA "STOP"
9000  DIM A$[18],B$[72],D$[36],G$[10]
9005  IF  ERROR  THEN 9800
9010  G$="123456789"
9020  I=0
9030  RESTORE 
9040  I=I+1
9050  REM
9060  READ B$
9070  IF B$="<$" THEN 9120
9080  IF B$ <> "$<" THEN 9140
9090  PRINT D$;
9100  READ B$
9110  GOTO 9180
9120  INPUT D$
9121  FOR J=1 TO LEN(D$)
9122  IF D$[J,J] <> " " THEN 9125
9123  D$=D$[1,J-1]
9124  GOTO 9130
9125  NEXT J
9130  GOTO 9050
9140  IF B$="#" THEN 9200
9150  IF B$="STOP" THEN 9310
9170  PRINT 
9180  PRINT B$;
9190  GOTO 9050
9200  PRINT 
9210  PRINT 
9220  GOSUB 1+INT(4*RND(0)) OF 9570,9590,9610,9630,9650
9230  PRINT ", "D$" ";
9240  INPUT A
9250  PRINT 
9260  IF (0<A) AND (A<7) AND (INT(A)=A) THEN 9290
9270  PRINT "SORRY I DIDN'T UNDERSTAND THAT"
9280  GOTO 9220
9290  A$[2*I-1]=G$[A,A]
9295  A$[2*I]=G$[A,A]
9300  GOTO 9040
9310  READ B$
9320  IF B$="STOP" THEN 9680
9330  J=0
9335  L=-5
9340  FOR I=1 TO 17 STEP 2
9350  IF A$[I,I]=B$[I,I] THEN 9400
9360  IF A$[I,I]=B$[I+1,I+1] THEN 9400
9370  L=L+1
9380  IF L THEN 9410
9390  GOTO 9310
9400  J=J+1
9410  NEXT I
9420  PRINT B$[19]" HAS "G$[J,J]" MATCHES"
9430  FOR I=1 TO 17 STEP 2
9431  IF A$[I,I]=B$[I,I] THEN 9434
9432  PRINT "  "A$[I,I];
9433  GOTO 9435
9434  PRINT " *"A$[I,I];
9435  IF A$[I,I]=B$[I+1,I+1] THEN 9438
9436  PRINT "  ";
9437  GOTO 9450
9438  PRINT "* ";
9450  NEXT I
9460  PRINT 
9470  FOR I=1 TO 17 STEP 2
9480  PRINT " "B$[I,I]" "B$[I+1,I+1]" ";
9490  NEXT I
9500  PRINT 
9510  PRINT 
9520  GOTO 9310
9560  END 
9570  PRINT "WHAT DO YOU SAY";
9580  RETURN 
9590  PRINT "WHAT'S YOUR DECISION";
9600  RETURN 
9610  PRINT "WHICH ONE DID YOU PICK";
9620  RETURN 
9630  PRINT "WHICH CHOICE FITS YOU";
9640  RETURN 
9650  PRINT "WHAT IS YOUR SELECTION";
9660  RETURN 
9670  END 
9680  PRINT '10'10"TAKE THE LIST I'VE SUPPLIED AND DISCUSS THE RESULTS WITH A"
9690  PRINT "MEMBER OF THE CAREER CENTER STAFF."
9695  PRINT '10"AFTER YOUR CONFERENCE CONSIDER THE RECOMENDATIONS IN TERMS OF:"
9696  PRINT 
9700  PRINT "   EMPLOYMENT OUTLOOK"
9705  PRINT "   PROBABLE EARNINGS, FRINGE BENEFITS, ETC."
9710  PRINT "   CHANCES FOR ADVANCEMENT"
9715  PRINT "   CHANCES FOR SUCCESS"
9720  PRINT "   WORKING CONDITIONS"
9725  PRINT "   CHANCES FOR PRESTIGE AND RECOGNITION"
9730  PRINT '10'10'10"FOR ADDITIONAL INFORMATION CONSULT THE CAREER RESOURCE CENTER,"
9740  PRINT "YOUR FRIENDS, LIBRARY, TEACHERS AND COUNSELORS."
9750  PRINT "REMEMBER 'CAREER DAY' IS EVERYDAY...NOT JUST ONCE A SEMESTER"
9790  PRINT '10'10'10'10'10"GOODBYE, "D$'10'10'10'10'10'10'10'10'10"====="'10'10'10'10'10'10
9800  CHAIN R,"*HELP"
9810  SYSTEM X,"BYE"
9999  END 
