10*FX6
20@%=6
30MODE7
40VDU23,1,0;0;0;0;
50PROCsc
60VDU23,1,1;0;0;0;
70CLS:INPUTTAB(5,8)"Name -
"NAME$
80CLS:PRINT" "CHR$157"
"NAME$" "CHR$
156
90VDU28,3,22,36,7
100M=27
110N=51
120M=M-1:N1=N:N=N-1
130DIMU(N),A(M),J$(M),B(M),C(M)
140CLS:VDU23,1,1;0;0;0;:FORI=0TOM
150READJ$(I):B(I)=-1:C(I)=-1
160NEXTI
170C1=0:S1=0
180FORJ=0TON
190READC$:C1$=C$
200PRINTC$;TAB(27);
210REPEAT
220A=GET-48
230UNTILA>=0ANDA<=9
240PRINT;A:SOUND0,-15,10,1
250U(J)=A
260C1=C1+U(J):S1=S1+U(J)*U(J)
270NEXTJ
280VDU23,1,0;0;0;0;:CLS:PRINTTAB(8,5)"
"CHR$157" PLEASE WAIT "CHR$156
290C1=C1/N1
300X=S1/N1-C1*C1
310IFABS(X)>1THEN350
320VDU23,1,0;0;0;0;:CLS:PRINTTAB(0,5)"
Please try again, but this time vary
your responses. "''SPC7"
"CHR$157" PRES
S SPACE "CHR$156:REPEATUNTILGET=32
330RESTORE
340GOTO140
350FORI=0TOM
360C2=0:S2=0:P2=0
370READD$
380FORJ=0TON
390D=VAL(MID$(D$,J+1,1))
400C2=C2+D
410S2=S2+D*D
420P2=P2+D*U(J)
430NEXTJ
440C2=C2/N1
450Y=SQR(S2/N1-C2*C2)
460Z=P2/N1-C1*C2
470A(I)=INT(1000*Z/X/Y+.5)
480A=LEN(STR$(A(I)))
490E=INT(A(I)*0.012+11):B=B(E)
500IFB=-1THENB(E)=I:GOTO550
510IFA(B)<A(I)THENB(E)=I:C(I)=B:GOTO55
0
520C=C(B):IFC=-1THENC(B)=I:GOTO550
530IFA(C)<A(I)THENC(B)=I:C(I)=C:GOTO55
0
540B=C:GOTO520
550NEXTI
560PROCHEADING
570J=0:VDU14
580FOR I=M TO 0 STEP-1
590B=B(I)
600IFB=-1THEN650
610A=LEN(STR$(A(B))):J=J+1
620IFJ<13THEN?&7DBA=135ELSE?&7DBA=133
630PRINTA(B);TAB(12);J$(B)
640B=C(B):GOTO600
650NEXTI
660PRINT'"Press
F0 to review the list.
"
670PRINT"Press
F1 to print out the lis
t."
680PRINT"Press
F2 to re-run the progra
m."
690REPEAT:A1=INKEY(-33):A2=INKEY(-114)
:A3=INKEY(-115)
700IFA1=-1CLS:GOTO570
710IFA2=-1PROCprint:GOTO670
720IFA3=-1RUN
730UNTIL0
740PRINT:VDU3:END
750DATA Accountant,Advertising,Airline
pilot,Architect,Armed forces
760DATA Banker,Civil servant,Clergy,Co
mputer Operator,Computer Programmer
770DATA Education(Teaching),Engineer
780DATA Entertainer,Estate manager,Far
mer,Industrial research
790DATA Managerial,Medical services,Mu
sician,Pharmacist,Police
800DATA Politician,Retailer,Social ser
vices,Solicitor,Surveyor
810DATA Systems Analyst
820DATA Biology,Chemistry,Computers,Ma
ths/Statistics,Physics/Engineering
830DATA Economics,Geography,History,Po
litics,Archeology,Greek
840DATA Latin,Art,Religious Education,
English Language,English literature
850DATA Music,French,German,Other lang
uages
860DATA Ambitious,Artistic
870DATA Cautious,Confident,Cooperative
,Critical,Dependable
880DATA Energetic,Extrovert,Impulsive,
Intellectual,Persuasive
890DATAPractical,Precise,Realistic,Soc
iable,Systematic
900DATA Unpredictable,Like meeting peo
ple,Want high wage/salary
910DATA Want indoor work,Want regular
hours,Like facts and figures
920DATA Want to work with machines,Lik
e to take risks,Quiet
930DATA Creative,Like organising,Like
sport,Get on with people
940DATA Want to exert authority
950DATA 045846444000005400002077789011
566964925678910847177:REMACCOUNTANT
960DATA 004545400300605404008846735677
429233097567627712187:REM ADVERTISING
970DATA 004544502304005405503088749730
735992813810678038769:REM AIRLINE PILOT
980DATA 002544500400805405007955664447
736986435757542737267:REM ARCHITECT
990DATA 200550500200005405008377869933
468877756411278168989:REM ARMED FORCES
1000DATA 005506444100005005002077789042
576975855688830725366:REM BANKER
1010DATA 004506506100005405009208070057
398233284578811818078:REM CIVIL SERVANT
1020DATA 000500554345066540004276948563
456678538165217628499:REM CLERGY
1030DATA 009212000000004000007068837142
644665742591570544166:REM COMP OPERATOR
1040DATA 009322000000106000008178896041
773982933897730888145:REM COMP PROGRAMME
R
1050DATA 440655550500546545004557897875
885866728286313417288:REM EDUCATION
1060DATA 054684400400005500003475758642
618972834756573686244:REM ENGINEER
1070DATA 000500500100505460008448554797
245337577681001612181:REM ENTERTAINER
1080DATA 650555750300005400003357767579
687466844442223961457:REM ESTATE MANAGER
1090DATA 750500600600005405002178645955
347766732310162753611:REM FARMER
1100DATA 565554544600005005005177767453
879875831788860070122:REM INDUS RESEARCH
1110DATA 000646455305005505008178878374
876667757876627419288:REM MANAGERIAL
1120DATA 664556000105605405003177858674
978967716780224006166:REM MEDICAL SERV
1130DATA 000000000000505574006957585876
333557643697001311260:REM MUSICIAN
1140DATA 560554000205005504002288659223
827964755598411275153:REM PHARMACIST
1150DATA 040440444200005305006087969973
687667717330117117788:REM POLICE
1160DATA 002648457705405606408066687172
682367268675313517717:REM POLITICIAN
1170DATA 000534002200405304005477858675
263388537488510017086:REM RETAILER
1180DATA 003444224300005404005278969783
584469619244212618199:REM SOCIAL SERVICE
S
1190DATA 003445058425005605402099776250
681885927587315617089:REM SOLICITOR
1200DATA 445656600404505300003465878473
563757843639962715044:REM SURVEYOR
1210DATA 009213000000104000007178955110
732797707886680388064:REM SYSTEMS ANALYS
T
1220END
1230DEFPROCHEADING
1240CLS:PRINT"Suitability Career
Pres
s
SHIFT"
1250PRINT" factor choice
to scrol
l."
1260PRINT"``````````` `````` ````````
```"
1270R%=&7DBA:REPEAT:?R%=133:R%=R%+40:UN
TILR%=&7F72+40
1280VDU28,3,22,36,11
1290ENDPROC
1300DEFPROCsc
1310PRINT"
pppppppppp"
1320FORR=0TO1:PRINTTAB(0,R+1)"
"CHR$157
CHR$141" "SPC8"CAREER ANALYSIS"SPC11CHR
$156:NEXT
1330PRINTTAB(0,3)" "CHR$157"
"SPC5"Modi
fied by Peter MacRae"TAB(39,3)CHR$156
1340PRINTTAB(0,4)"
£££££££££££££££££k"
1350FORR=5TO22:PRINTTAB(0,R)"
"TAB(37
,R)"
NEXT
1360PRINT"
pppppppppz"
1370VDU28,3,22,36,5
1380PRINTSPC12"
1390PRINTSPC12" CAREERS"
1400PRINTSPC12"
1410PRINT'"
This program will ask
you"
1420PRINT"
questions. Answer all quest
ions"
1430PRINT"
on a 0 - 9 scale where 9 is
the"
1440PRINT"
most favourable response."
1450PRINT''"
If the computer puts t
o you"
1460PRINT"
Biology. If you like Bio
logy"
1470PRINT"
give it a 9. If you can't s
tand"
1480PRINT"
Biology give it a 0."
1490PRINT''SPC7"
"CHR$157" PRESS SPACE
"CHR$156
1500REPEATUNTILGET=32
1510ENDPROC
1520DEFPROCprint
1530VDU2
1540PRINT"CAREER ANALYSIS FOR - "NAME$
1550PRINT'''"Suitability Career"
1560PRINT" factor choice to scrol
l."
1570PRINT"``````````` `````` ````````
```"
1580J=0
1590FORI=M TO 0 STEP-1
1600B=B(I)
1610IFB=-1THEN 1660
1620A=LEN(STR$(A(B))):J=J+1
1630IFJ<13THEN?&7DBA=135ELSE?&7DBA=133
1640PRINTA(B);TAB(12);J$(B)
1650B=C(B):GOTO1610
1660NEXTI
1670VDU3
1680ENDPROC