Air Force

465 calculator bytes

This game is for two players that shoot bullets at each other.
Left uses F1 to go up, Shift to go down, and F2 or Optn to fire.
Right uses the arrow keys.

-> means right arrow.
=> means the right arrow in the "jump" menu.
\= means the "not equal to" symbol.

30->E
-5->F
1000->S~T
Int 5Ran#+1->A
Int 5Ran#+1->B
Lbl 1
Getkey->K
E=21 And C=B=>Goto 5
F=1 And D=A=>Goto 6
E+4->E
F-4->F
K=0=>Getkey->K
A=1=>7->A
A=8=>2->A
B=1=>7->B
B=8=>2->B
K=0=>Getkey->K
ClrText
Locate 1,A,"i"
Locate 21,B,"i"
E<22=>Locate E,C,">"
F>0=>Locate F,D,"<"
K=0=>Getkey->K
K=79=>Dsz A
K=78=>Isz A
If S\=0 And (K=68 or K=69)
Then S-20->S
Locate 2,1,S
A->C
1->E
IfEnd
K=0=>Getkey->K
K=28=>Dsz B
K=37=>Isz B
If T\=0 And (K=27 Or K=38)
Then T-20->T
Locate 18,1,T
B->D
21->F
IfEnd
Goto 1
Lbl 5
Locate 21,B,"x"          Here I use the special "x" in Optn/Stat.
Locate 6,3,"LEFT WINS!"
Goto 9
Lbl 6
Locate 1,A,"x"          Here I use the special "x" in Optn/Stat.
Locate 6,3,"RIGHT WINS!"
Lbl 9
Locate 2,1,S
Locate 18,1,T
Locate 6,5,"~AIR FORCE~"


To home page

To the top