——Here is the current code guys:

Main Program (prgmELECTION):

ClrHome

prgmANIMXMPL

Lbl Θ

Output(2,4,"Welcome to

Output(3,3,"Election

Output(4,2,"----

Output(5,7,"Play

Output(6,7,"Help

Output(7,7,"Quit

5->C

Output(C,1,"[

Output(C,16,"]

Lbl A

Output(C,1,"

Output(C,2,"

While 1

getKey->K

While 0

getKey->K

End

If K=25:C-1->C

If K=34:C+1->C

If C=4:7->C

If C=8:5->C

Output(C,5,"[

Output(C,12,"]

Output(C+1,5,"

Output(C+1,12,"

If C>5:Output(C-1,5,"

If C>5:Output(C-1,12,"

If C=5:Output(C+2,5,"

If C=5:Output(C+2,12,"

If C=7:Output(C-2,5,"

If C=7:Output(C-2,12,"

If K=105:Goto C

Goto A

Lbl C

If C=5:Goto 1

If C=6:Goto 2

If C=7:Goto 3

Lbl 3

Output(1,1,"()()()()()()()()

Output(8,1,"----

Output(4,5,"GOODBYE!

Pause

Stop

End

Lbl 2

Output(1,1,"Objective:

Output(3,1,"Win the 1960 Presidential Election.

Pause

ClrHome

Output(1,1,"How to play:

Output(3,1,"Choose your candidate and Running mate. Then choose a response for each question.

Pause

ClrHome

Goto Θ

Lbl 1

Unarchive [A]

Output(4,5,"choose a

Output(5,4,"candidate:

Pause

ClrHome

Menu(" Candidates ","Kennedy",D,"Nixon",R)

Lbl D

1->D

([A](21,3)+10)->[A](21,3)

Menu(" Running mate ","L. Johnson",J,"H. Humphrey",H,"A. Gore, Sr.",G)

Lbl J

1->V

Goto 4

Lbl H

2->V

Goto 4

Lbl G

3->V

Goto 4

End

Lbl R

1->R

([A](5,3)-10)->[A](5,3)

Menu(" Running mate ","H. Lodge",L,"N. Rockefeller",N,"G. Ford",F)

ClrHome

Lbl L

1->V

Goto 5

Lbl N

2->V

Goto 5

Lbl F

3->V

Goto 5

End

Lbl 4

If V=1:([A](43,3)+5)->[A](43,3)

If V=2:([A](23,3)+5)->[A](23,3)

If V=3:([A](42,3)+5)->[A](42,3)

Goto 6

Lbl 5

If V=1:([A](21,3)+5)->[A](21,3)

If V=2:([A](32,3)+5)->[A](32,3)

If V=3:([A](22,3)+5)->[A](22,3)

Goto 6

Lbl 6

UnArchive prgmZQGEN

prgmZQGEN

Archive prgmZQGEN

End

This is the main program so far. In it you choose your candidate and running mate. For your choice, you get a bonus in the person's home state (10% for the pres. candidate, 5% for the running mate). It then goes to a subprogram, prgm ZQGEN, where the questions you answer are generated in a random order, then given to you.

This is the opening animation (prgmANIMXMPL):

ClrDraw

AxesOff

Coordff

GridOff

LabelOff

ExprOff

RectGC

ZStandard

Unarchive Pic1

Recall Pic1

For(A,1,21

Text(A,40,"1960

End

Recall Pic1

For(A,1,21

Text(28,A+9," Elec

Text(28,69-A,"Tion

End

Recall Pic1

For(A,50,35,-1

Text(A,40,"Game

Text(A+6,40," "

End

Recall Pic1

Archive Pic1

ClrDraw

This program executes an opening animation, which is the text show. Pic1 is an outline of the continental U.S.

This is the current version of the question order generator (prgmZQGEN):

ClrHome

0->A

0->B

Lbl Θ

A+1->A

If A>10

Goto ΘΘ

If A=1

randIntNoRep(1,10->LQST

Lbl ΘΘ

11->LQST(11)

Currently, there are no questions inserted (I have a friend making up the questions for me, and they will be in strings). There are going to be 11 questions, with the first 10 in random order. The last question will always be the same.

Here is the electoral vote calculator, and matrix reset for when the game ends (prgmZELECTOR):

ClrHome

UnArchive [A]

0->P

0->G

0->A

Output(7,1,"Kennedy:

Output(8,1,"Nixon:

Goto 1

Lbl 1

A+1->A

If A>50

Goto 2

[A](A,3)->B

If B>50

(P+[A](A,2))->P

If B<50

(G+[A](A,2))->G

Goto 1

End

Lbl 2

Pause

UnArchive [B]

(([A]-[A])+[B])->[A]

Archive [A]

Archive [B]

Stop

Currently, this program is just about complete. It may need optimization, but the values are stored for P and G. The main program will display the ending and winning/losing messages.

So, if anyone has any ideas on how to improve the program, e.g. add high scores, achievements, or other stuff, please don't hesitate.

cmac__17