100  REM ELECT, HP 36798A, 6/74, 3 PROGS: ELECT1,ELECT2,ELECT3
110  REM  *****  VERSION 2  *****  6/30/73  *****
120  REM  HISTORICAL ELECTIONS:  20TH CENTURY
130  DIM A$[10],B$[9],I[3],M[63],P[14],S[3],Y[7],Z$[3]
140  MAT  READ Y,M,P
150  PRINT TAB(30)"ELECT2"LIN(-1)
160  PRINT TAB(16)"HISTORICAL ELECTIONS - 20TH CENTURY"LIN(-1)
170  PRINT "NEED INSTRUCTIONS";
180  GOSUB 810
190  IF I THEN 230
200  PRINT "WANT A LIST OF YEARS";
210  GOSUB 810
220  GOTO I+1 OF 350,340
230  PRINT LIN(-2)"YOUR GOAL WILL BE TO CHOOSE THE OPTIMUM STRATEGY FOR"
240  PRINT "CANDIDATES IN AN HISTORICAL ELECTION.  EACH CANDIDATE'S"
250  PRINT "STRATEGY VECTOR CONSISTS OF 3 NUMBERS.  THE FIRST REPRESENTS"
260  PRINT "THE AMOUNT OF EMPHASIS TO BE PLACED ON THE CANDIDATE'S"
270  PRINT "IMAGE, THE SECOND REPRESENTS THE AMOUNT OF EMPHASIS ON PARTY"
280  PRINT "AFFILIATION, AND THE THIRD IS THE AMOUNT OF EMPHASIS ON"
290  PRINT "CAMPAIGN ISSUES.  EACH OF THESE NUMBERS IS BETWEEN 10 AND 80,"
300  PRINT "WITH A HIGHER NUMBER REPRESENTING MORE EMPHASIS.  THE TOTAL"
310  PRINT "OF EACH STRATEGY VECTOR MUST EQUAL 100!"
320  PRINT LIN(-1)"THE COMPUTER WILL FIRST ASK 'ELECTION YEAR?'"
330  PRINT "CHOOSE THE YEAR FROM THE FOLLOWING LIST:"
340  MAT  PRINT  USING "7(6D)";Y
350  PRINT LIN(-1)"ELECTION YEAR";
360  INPUT I
370  FOR E=1 TO 7
380  IF Y[E]=I THEN 410
390  NEXT E
400  GOTO 330
410  X=E*9-9
420  PRINT LIN(-1);TAB(14)"ELECTION OF"Y[E];LIN(-1)
430  PRINT "CANDIDATE       PARTY"
440  RESTORE 950
450  FOR I=1 TO E
460  READ A$,B$
470  NEXT I
480  GOTO E OF 490,490,510,510,490,510
490  PRINT A$;TAB(14)"REPUBLICAN"LIN(1);B$;TAB(14)"DEMOCRAT"
500  GOTO 520
510  PRINT A$;TAB(14)"DEMOCRAT"LIN(1);B$;TAB(14)"REPUBLICAN"
520  PRINT LIN(-1);A$;
530  GOSUB 700
540  MAT S=I
550  PRINT B$;
560  GOSUB 700
570  A1=0
580  FOR J=1 TO 3
590  A1=A1+I[J]*(S[1]*M[X+J]+S[2]*M[X+J+3]+S[3]*M[X+J+6])
600  NEXT J
610  A1=(A1/100-100)/4
620  PRINT LIN(-2)"THE RESULT OF YOUR STRATEGY IS:"LIN(1);A$;TAB(14);
630  PRINT A1" %"LIN(1);B$;TAB(14);100-A1" %"LIN(2)"THE VOTE FOR THE";
640  PRINT " TWO MAJOR CANDIDATES IN THE ACTUAL ELECTION WAS:"
650  PRINT A$;TAB(14);P[2*E-1]" %"LIN(1);B$;TAB(14);P[2*E]" %"LIN(-2)
660  PRINT "ANOTHER RUN";
670  GOSUB 810
680  IF I THEN 350
690  STOP 
700  PRINT " - STRATEGY (3 NUMBERS, 10 <= I <= 80, TOTAL = 100)";
710  INPUT I[1],I[2],I[3]
720  FOR I=1 TO 3
730  IF I[I]<10 OR I[I]>80 THEN 770
740  NEXT I
750  IF I[1]+I[2]+I[3]#100 THEN 790
760  RETURN 
770  PRINT "NUMBER OUT OF RANGE"
780  GOTO 700
790  PRINT "THE TOTAL OF EACH STRATEGY VECTOR MUST EQUAL 100!"
800  GOTO 700
810  I=1
820  INPUT Z$
830  IF Z$[1,1]="Y" THEN 880
840  IF Z$[1,1]="N" THEN 870
850  PRINT "WHAT";
860  GOTO 820
870  I=0
880  RETURN 
890  DATA 1920,1928,1932,1948,1952,1960,1968
900  DATA 4,4,3,4,4,3,3,3,2,4,4,3,4,4,3,3,3,2,4,3,4,3,2,3,4,3,3
910  DATA 2,3,3,3,4,4,2,3,3,4,3,4,3,2,3,4,3,3,3,3,3,3,4,3,3,3,2
920  DATA 3,3,3,3,2,3,3,3,4
930  DATA 63.9,36.1,58.8,41.2,59.2,40.8,52.4,47.6,55.4,44.6
940  DATA 50.1,49.9,50.4,49.6
950  DATA "HARDING","COX","HOOVER","SMITH","ROOSEVELT","HOOVER"
960  DATA "TRUMAN","DEWEY","EISENHOWER","STEVENSON","KENNEDY","NIXON"
970  DATA "NIXON","HUMPHREY"
9999  END 
