10 DIM A$(51):DIM B$(51)
20 RANDOMIZE(TIMER)
30 R=23:D=16
40 FOR L= 1 TO 12
50 READ FA$, A
60 IF RND(1)> .5 THEN W=W+A:ELSE GOTO 80
70 D=D+1:B$(D)=FA$
75 GOTO 100
80 Z=Z+A
90 R=R+1:A$(R)=FA$
100 NEXT L
110 FOR L= 1 TO 23
120 READ A$(L)
130 READ A:Z=Z+A
140 NEXT L
150 FOR L= 1 TO 16
160 READ B$(L)
170 READ B:W=W+B
180 NEXT L
190 IF W=269 THEN GOTO 260
195 RUN
196 REM del 195 and 196
200 IF W=267 THEN GOTO 260
210 IF W=268 THEN GOTO 260
220 IF W=270 THEN GOTO 260
230 IF W=271 THEN GOTO 260
240 IF W=272 THEN GOTO 260
250 RUN
260 PRINT "democrats="W
270 PRINT "republicans="Z
280 DATA Arkansas, 6,  Delaware,  3, Iowa, 7, Louisiana, 9, Missouri, 11
281 data Nevada ,  4
290 DATA New Hampshire, 4, New Mexico, 5, Oregon, 7, Washington, 11
300 DATA West Virginia,   5, Wisconsin , 11
310 DATA ALABAMA, 9, ALASKA, 3, ARIZONA, 8, COLORADO, 8, FLORIDA, 25
320 DATA GEORGIA, 13, IDAHO, 4, INDIANA, 12, KANSAS,6, KENTUCKY, 8
330 DATA MISSISSIPPI, 7, MONTANA , 3, NEBRASKA, 5
340 DATA NORTH CAROLINA, 14, NORTH DAKOTA, 3, OHIO, 21
350 DATA OKLAHOMA, 8, SOUTH CAROLINA,  8, SOUTH DAKOTA, 3
360 DATA TEXAS, 32, UTAH, 5, VIRGINIA, 13, WYOMING, 3
370 DATA California , 54, Connecticut, 8, Hawaii, 4, Illinois, 22
380 DATA Maine, 4, Maryland, 10, Massachusetts, 12, Michigan, 18
390 DATA Minnesota, 10, New Jersey, 15, New York, 33, Pennsylvania, 23
400 DATA Rhode Island, 4
410 DATA Tennessee, 11, Vermont, 3, Washington D.C., 3
420 PRINT "press any key"
430 Y$=INKEY$
440 IF Y$=""THEN GOTO 430
450 FOR L =1 TO R
460 PRINT A$(L)"  ";
470 NEXT L
480 PRINT:PRINT
490 FOR L =1 TO D
500 PRINT B$(L)"  ";
510 NEXT L
Make your own free website on Tripod.com