Command & Conquer for TI83 by Daniel Sims  -RaptureDan98

Because the TI uses symbols that wordprossesors dont use,
I made a key for all those strange symbols you see..

Key:
=STO ->
=THETA (the O with a line through it)
=little T  (under MATRX)
=greater than or equal to
=less than or equal to
=not equal to
=negative sign
=mini "L" (under LIST)



==========================prgmCANDC

ClrHome
Disp ""," 1) NEW GAME"," 2) CONTINUE
Input C
If C=2
prgmZCNCA
95Xmax
1Xmin
62Ymax
0Ymin
AxesOff
{90,90,0,100}CY
{90,90,0,40}BAR
{90,90,0,30}PP
{90,90,0,20}PS
{90,90,0,10}GT
{90,90,0,5}SLD1
{90,90,0,5}SLD2
{90,90,0,5}SLD3
{90,90,0,5}BAZ1
{90,90,0,5}BAZ2
{90,90,0,5}BAZ3
{90,90,0,30}RAM
{90,90,0,10}JEP1
{90,90,0,10}JEP2
{90,90,0,20}TNK1
{90,90,0,20}TNK2
{90,90,0,30}HEL
{30}BILD1
{30}MVAT1
{30}MAKE1
{0}ABOM1
{30}CAT1
{30}CAT2
{30}CAT3
{90,90,0,100}ZCY
{90,90,0,40}ZBAR
{90,90,0,30}ZPP
{90,90,0,20}ZPS
{90,90,0,10}ZGT
{90,90,0,5}ZSLD1
{90,90,0,5}ZSLD2
{90,90,0,5}ZSLD3
{90,90,0,5}ZBAZ1
{90,90,0,5}ZBAZ2
{90,90,0,5}ZBAZ3
{90,90,0,30}ZRAM
{90,90,0,10}ZJEP1
{90,90,0,10}ZJEP2
{90,90,0,20}ZTNK1
{90,90,0,20}ZTNK2
{90,90,0,30}ZHEL
{30}BILD2
{30}MVAT2
{30}MAKE2
{0}ABOM2
{30}ZCAT1
{30}ZCAT2
{30}ZCAT3
{1,0}TURN
ClrDraw
Text(10,13,"COMMAND AND CONQUER
Text(40,27,"DANIEL SIMS
Text(47,35,"3-5-98
Text(54,10,"RAPTUREDAN AT AOL.COM
Pause 
ClrDraw
ClrHome
Disp "==CHOOSE  TEAM==","","    1) GDI","    2) NOD",""
Input "TEAM:",C
If C=1:Then
"GDI"Str0
"NOD"Str9
End
If C=2:Then
"GDI"Str9
"NOD"Str0
End
ClrHome
Disp "    GOES FIRST
Output(1,1,Str0
Pause 
ClrHome
Disp "GRID?","","1)ON","2)OFF
Input C
ClrDraw
Horizontal 0
Horizontal 62
Vertical 1
Vertical 71
If C=2
Goto Z
For(X,1,71,5
Line(X,0,X,60
End
For(Y,0,60,5
Line(1,Y,71,Y
End
Lbl Z
3X
3Y
Text(1,75,Str0
Text(7,71,"1=BILD
Text(21,71,"2=UNIT
Text(35,71,"3=M/A
Text(49,71,"4=INFO
Text(56,71,"9=END
prgmZCNCA

=================================prgmZCNCA
Text(14,75,"     "
Text(28,75,"     "
Text(42,75,"     "
If TURN(1)=1:Then
Text(1,75,Str0
Text(14,75,BILD1(1
Text(28,75,MAKE1(1
Text(42,75,MVAT1(1
End
If TURN(1)=2:Then
Text(1,75,Str9
Text(14,75,BILD2(1
Text(28,75,MAKE2(1
Text(42,75,MVAT2(1
End
If TURN(1)=1:Then
Repeat K=99
Pt-On(X,Y,3
getKeyK
If K0
Pt-Off(X,Y,3
If K=24 and X8:X-5X
If K=26 and X66:X+5X
If K=25 and Y55:Y+5Y
If K=34 and Y8:Y-5Y
If K=92:prgmZCNCB1
If K=82:prgmZCNCINFO
If K=74:prgmZCNCEND
If K=93:prgmZCNCMK1
If K=94:prgmZCNCMA1
End
End
If TURN(1)=2:Then
Repeat K=99
Pt-On(X,Y,3
getKeyK
If K0
Pt-Off(X,Y,3
If K=24 and X8:X-5X
If K=26 and X66:X+5X
If K=25 and Y55:Y+5Y
If K=34 and Y8:Y-5Y
If K=92:prgmZCNCB2
If K=82:prgmZCNCINFO
If K=74:prgmZCNCEND
If K=93:prgmZCNCMK2
If K=94:prgmZCNCMA2
End
End

=================================prgmZCNCB1
3G
prgmZCNCLIM
Lbl C
ClrHome
If B=1:Then
Disp "YOU CANT BUILD","THERE
Pause 
prgmZCNCA
End
Disp "WHAT TO BUILD?
Disp "1)CONSTRUCT.YARD
Disp "2)BARRACKS
Disp "3)POWER PLANT
Disp "4)POINT SILO
Disp "5)GUARD TOWER
Input "CHOICE:",C
If X>40
Then
Disp "BUILD CLOSER TO","LEFT.
Pause 
prgmZCNCA
End
If CY(3)=0 and TURN(2)=1:Then
ClrHome
Disp "HA HA! YOU HAVE","NO CON.YARD
Pause 
prgmZCNCA
End
If C=1 and CY(3)=0:Then
1CY(3
XCY(1
YCY(2
BILD1(1)-30BILD1(1
Goto C9
End
If CY(3)1:Then
ClrHome
Disp "YOU MUST HAVE","A CONSTRUCTION","YARD FIRST
Pause 
prgmZCNCA
End
If C=3 and PP(3)=0:Then
If BILD1(1)<30
Then
ClrHome
Disp "YOU NEED 30","BUILD POINTS TO","MAKE THAT.
Pause 
prgmZCNCA
End
If PP(3)=0
Then
XPP(1
YPP(2
1PP(3
End
BILD1(1)-30BILD1(1
Goto C9
End
If PP(3)1
Then
ClrHome
Disp "NOT ENOUGH POWER","BUILD A POWER","PLANT.
Pause 
prgmZCNCA
End
If C=2 and BAR(3)=0:Then
If BILD1(1)<40
Then
ClrHome
Disp "YOU NEED 40 ","BUILD POINTS TO","MAKE THAT
Pause 
prgmZCNCA
End
If BAR(3)=0
Then
XBAR(1
YBAR(2
1BAR(3
End
BILD1(1)-40BILD1(1
Goto C9
End
If C=4 and PS(3)=0:Then
If BILD1(1)<20
Then
ClrHome
Disp "YOU NEED 20 ","BUILD POINTS TO","MAKE THAT
Pause 
prgmZCNCA
End
If PS(3)=0
Then
XPS(1
YPS(2
1PS(3
End
BILD1(1)-20BILD1(1
Goto C9
End
If C=5 and GT(3)=0:Then
If BILD1(1)<30
Then
ClrHome
Disp "YOU NEED 30 ","BUILD POINTS TO","MAKE THAT
Pause 
prgmZCNCA
End
If GT(3)=0
Then
XGT(1
YGT(2
1GT(3
End
BILD1(1)-30BILD1(1
Goto C9
End
ClrHome
Disp "YOU CANT BUILD","ANOTHER ONE
Pause 
prgmZCNCA
Lbl C9
For(C,Y-2,Y+1
Line(X-1,C,X+2,C
End
prgmZCNCA

=================================prgmZCNCB2
3G
prgmZCNCLIM
Lbl C
ClrHome
If B=1:Then
Disp "YOU CANT BUILD","THERE
Pause 
prgmZCNCA
End
Disp "WHAT TO BUILD?
Disp "1)CONSTRUCT.YARD
Disp "2)BARRACKS
Disp "3)POWER PLANT
Disp "4)POINT SILO
Disp "5)GUARD TOWER
Input "CHOICE:",C
If TURN(1)=2 and X<40
Then
ClrHome
Disp "BUILD CLOSER TO","RIGHT
Pause 
prgmZCNCA
End
If ZCY(3)=0 and TURN(2)=1:Then
ClrHome
Disp "HA HA! YOU HAVE","NO CON.YARD
Pause 
prgmZCNCA
End
If C=1 and ZCY(3)=0:Then
1ZCY(3
XZCY(1
YZCY(2
BILD2(1)-30BILD2(1
Goto C9
End
If ZCY(3)1:Then
ClrHome
Disp "YOU MUST HAVE","A CONSTRUCTION","YARD FIRST
Pause 
prgmZCNCA
End
If C=3 and ZPP(3)=0:Then
If BILD2(1)<30
Then
ClrHome
Disp "YOU NEED 30","BUILD POINTS TO","MAKE THAT.
Pause 
prgmZCNCA
End
If ZPP(3)=0
Then
XZPP(1
YZPP(2
1ZPP(3
End
BILD2(1)-30BILD2(1
Goto C9
End
If ZPP(3)1
Then
ClrHome
Disp "NOT ENOUGH POWER","BUILD A POWER","PLANT.
Pause 
prgmZCNCA
End
If C=2 and ZBAR(3)=0:Then
If BILD2(1)<40
Then
ClrHome
Disp "YOU NEED 40 ","BUILD POINTS TO","MAKE THAT
Pause 
prgmZCNCA
End
If ZBAR(3)=0
Then
XZBAR(1
YZBAR(2
1ZBAR(3
End
BILD2(1)-40BILD2(1
Goto C9
End
If C=4 and ZPS(3)=0:Then
If BILD2(1)<20
Then
ClrHome
Disp "YOU NEED 20 ","BUILD POINTS TO","MAKE THAT
Pause 
prgmZCNCA
End
If ZPS(3)=0
Then
XZPS(1
YZPS(2
1ZPS(3
End
BILD2(1)-20BILD2(1
Goto C9
End
If C=5 and ZGT(3)=0:Then
If BILD2(1)<30
Then
ClrHome
Disp "YOU NEED 30 ","BUILD POINTS TO","MAKE THAT
Pause 
prgmZCNCA
End
If ZGT(3)=0
Then
XZGT(1
YZGT(2
1ZGT(3
End
BILD2(1)-30BILD2(1
Goto C9
End
ClrHome
Disp "YOU CANT BUILD","ANOTHER ONE
Pause 
prgmZCNCA
Lbl C9
For(C,Y-2,Y+1
Line(X-1,C,X+2,C
End
prgmZCNCA

=================================prgmZCNCEND
ClrHome
If TURN(2)=0
Then
Disp Str9
Disp "GOES NOW
{2,2}TURN
Pause 
prgmZCNCA
End
If TURN(2)=2
1TURN(2
If TURN(1)=2
1G
If TURN(1)=1
2G
If G=2
Then
2TURN(1
If ZCY(3)=0 and ZBAR(3)=0 and ZPP(3)=0 and ZPS(3)=0 and ZGT(3)=0
Goto B
Disp Str9
End
If G=1
Then
1TURN(1
If CY(3)=0 and BAR(3)=0 and PP(3)=0 and PS(3)=0 and GT(3)=0
Goto B
Disp Str0
End
Disp "GOES NOW
Pause 
ClrHome
If PS(3)=0 and G=1 or ZPS(3)=0 and G=2
Then
Disp "YOU HAVE NO","POINT SILO
Pause 
Goto ZZ
End
Disp "WHERE TO PUT","BONUS POINTS?
Disp "1)BUILDINGS
Disp "2)SOLDIERS/VEHIC
Disp "3)MOVE/ATTACK
Disp "4)A-BOMB
Input C
If C=1 and G=1
CAT1(1)+15CAT1(1
If C=2 and G=1
CAT2(1)+15CAT2(1
If C=3 and G=1
CAT3(1)+15CAT3(1
If C=4 and G=1
ABOM1(1)+5ABOM1(1
If C=1 and G=2
ZCAT1(1)+15ZCAT1(1
If C=2 and G=2
ZCAT2(1)+15ZCAT2(1
If C=3 and G=2
ZCAT3(1)+15ZCAT3(1
If C=4 and G=2
ABOM2(1)+5ABOM2(1
If ABOM1(1)=100 or ABOM2(1)=100
Then
ClrHome
Disp "ABOMB READY"
Pause 
For(B,62,0,1
Line(1,B,95,B
End
Goto B
End
If C=4:Then
ClrHome
Disp "ABOMB POINTS:
If G=1:Disp ABOM1(1
If G=2:Disp ABOM2(1
Pause 
prgmZCNCA
End
If G=1:Then
CAT1(1)-5CAT1(1
CAT2(1)-5CAT2(1
CAT3(1)-5CAT3(1
End
If G=2:Then
ZCAT1(1)-5ZCAT1(1
ZCAT2(1)-5ZCAT2(1
ZCAT3(1)-5ZCAT3(1
End
Lbl ZZ
CAT1(1)BILD1(1
CAT2(1)MAKE1(1
CAT3(1)MVAT1(1
ZCAT1(1)BILD2(1
ZCAT2(1)MAKE2(1
ZCAT3(1)MVAT2(1
If C=4:Then
ClrHome
Disp "ABOMB POINTS:
If G=1:Disp ABOM1(1
If G=2:Disp ABOM2(1
Pause 
End
prgmZCNCA
Lbl B
ClrHome
If G=2
Disp Str0
If G=1
Disp Str9
Disp "WINS!!!
ClrDraw
Pause 
Stop

=================================prgmZCNCINFO
0B
ClrHome
If X=SLD1(1) and Y=SLD1(2
4B
If X=SLD2(1) and Y=SLD2(2
4.2B
If X=SLD3(1) and Y=SLD3(2
4.3B
If X=BAZ1(1) and Y=BAZ1(2
5B
If X=BAZ2(1) and Y=BAZ2(2
5.2B
If X=BAZ3(1) and Y=BAZ3(2
5.3B
If X=RAM(1) and Y=RAM(2
6B
If X=JEP1(1) and Y=JEP1(2
7B
If X=JEP2(1) and Y=JEP2(2
7.2B
If X=TNK1(1) and Y=TNK1(2
8B
If X=TNK2(1) and Y=TNK2(2
8.2B
If X=HEL(1) and Y=HEL(2
9B
If X=CY(1) and Y=CY(2
1B
If X=BAR(1) and Y=BAR(2
2B
If X=PP(1) and Y=PP(2
3B
If X=PS(1) and Y=PS(2
10B
If X=GT(1) and Y=GT(2
11B
If X=ZSLD1(1) and Y=ZSLD1(2
24B
If X=ZSLD2(1) and Y=ZSLD2(2
24.2B
If X=ZSLD3(1) and Y=ZSLD3(2
24.3B
If X=ZBAZ1(1) and Y=ZBAZ1(2
25B
If X=ZBAZ2(1) and Y=ZBAZ2(2
25.2B
If X=ZBAZ3(1) and Y=ZBAZ3(2
25.3B
If X=ZRAM(1) and Y=ZRAM(2
26B
If X=ZJEP1(1) and Y=ZJEP1(2
27B
If X=ZJEP2(1) and Y=ZJEP2(2
27.2B
If X=ZTNK1(1) and Y=ZTNK1(2
28B
If X=ZTNK2(1) and Y=ZTNK2(2
28.2B
If X=ZHEL(1) and Y=ZHEL(2
29B
If X=ZCY(1) and Y=ZCY(2
21B
If X=ZBAR(1) and Y=ZBAR(2
22B
If X=ZPP(1) and Y=ZPP(2
23B
If X=ZPS(1) and Y=ZPS(2
30B
If X=ZGT(1) and Y=ZGT(2
31B
If B=0
Disp "NUTHIN BUT LAND
If B1 and B12:Disp Str0
If B21 and B29:Disp Str9
If B4 and B4.3 or B24 and B24.3:Then
Disp "MACHINE GUNNER","","HEALTH
If B=4:Disp SLD1(4
If B=4.2:Disp SLD2(4
If B=4.3:Disp SLD3(4
If B=24:Disp ZSLD1(4
If B=24.2:Disp ZSLD2(4
If B=24.3:Disp ZSLD3(4
End
If B5 and B5.3 or B25 and B25.3:Then
Disp "BAZOOKA GUY","","HEALTH
If B=5:Disp BAZ1(4
If B=5.2:Disp BAZ2(4
If B=5.3:Disp BAZ3(4
If B=25:Disp ZBAZ1(4
If B=25.2:Disp ZBAZ2(4
If B=25.3:Disp ZBAZ3(4
End
If B=6
Disp "RAMBO","","HEALTH",RAM(4
If B7 and B7.2 or B27 and B27.2:Then
Disp "JEEP","","HEALTH
If B=7:Disp JEP1(4
If B=7.2:Disp JEP2(4
If B=27:Disp ZJEP1(4
If B=27.2:Disp ZJEP2(4
End
If B8 and B8.2 or B28 and B28.2:Then
Disp "TANK","","HEALTH
If B=8:Disp TNK1(4
If B=8.2:Disp TNK2(4
If B=28:Disp ZTNK1(4
If B=28.2:Disp ZTNK2(4
End
If B=9 or B=29:Then
Disp "HELICOPTER","","HEALTH
If B=9:Disp HEL(4
If B=28:Disp ZHEL(4
End
If B=1 or B=21:Then
Disp "CONSTRUCTION","YARD:","","HEALTH:
If B=1:Disp CY(4
If B=21:Disp ZCY(4
End
If B=2 or B=22:Then
Disp "BARRACKS:","","HEALTH:
If B=2:Disp BAR(4
If B=22:Disp ZBAR(4
End
If B=3 or B=23:Then
Disp "POWER PLANT:","","HEALTH
If B=3:Disp PP(4
If B=23:Disp ZPP(4
End
If B=10 or B=30:Then
Disp "POINT SILO:","","HEALTH
If B=10:Disp PS(4
If B=30:Disp ZPS(4
End
If B=11 or B=31:Then
Disp "GUARD TOWER:","","HEALTH
If B=11:Disp GT(4
If B=31:Disp ZGT(4
End
If B=26
Disp "TERMINATOR","","HEALTH",ZRAM(4
Pause 
ClrHome
prgmZCNCA

=================================prgmZCNCLIM
1B
If G=2 or G=3:0B
If G=1:Then
If TURN(1)=1 and XBAR(1)-5 and XBAR(1)+5 and YBAR(2)-5 and YBAR(2)+5
0B
If TURN(1)=2 and XZBAR(1)-5 and XZBAR(1)+5 and YZBAR(2)-5 and YZBAR(2)+5
0B
End
If G=1 or G=3:Then
XA
YC
End
If A=SLD1(1) and C=SLD1(2) or A=SLD2(1) and C=SLD2(2) or A=SLD3(1) and C=SLD3(2) or A=BAZ1(1) and C=BAZ1(2) or A=BAZ2(1) and C=BAZ2(2) or A=BAZ3(1) and C=BAZ3(2) or A=RAM(1) and C=RAM(2) or A=JEP1(1) and C=JEP1(2) or A=JEP2(1) and C=JEP2(2) or A=TNK1(1) and C=TNK1(2) or A=TNK2(1) and C=TNK2(2) or A=HEL(1) and C=HEL(2) or A=ZSLD1(1) and C=ZSLD1(2) or A=ZSLD2(1) and C=ZSLD2(2) or A=ZSLD3(1) and C=ZSLD3(2) or A=ZBAZ1(1) and C=ZBAZ1(2) or A=ZBAZ2(1) and C=ZBAZ2(2) or A=ZBAZ3(1) and C=ZBAZ3(2) or A=ZRAM(1) and C=ZRAM(2) or A=ZJEP1(1) and C=ZJEP1(2) or A=ZJEP2(1) and C=ZJEP2(2) or A=ZTNK1(1) and C=ZTNK1(2) or A=ZTNK2(1) and C=ZTNK2(2) or A=ZHEL(1) and C=ZHEL(2) or A=CY(1) and C=CY(2) or A=BAR(1) and C=BAR(2) or A=PP(1) and C=PP(2) or A=ZCY(1) and C=ZCY(2) or A=ZBAR(1) and C=ZBAR(2) or A=ZPP(1) and C=ZPP(2) or A=PS(1) and C=PS(2) or A=ZPS(1) and C=ZPS(2) or A=GT(1) and C=GT(2) or A=ZGT(1) and C=ZGT(2
1B

=================================prgmZCNCMA1
0F
0H
If K=2:Then
100D
Goto ZZ
End
If X=SLD1(1) and Y=SLD1(2
1F
If X=SLD2(1) and Y=SLD2(2
1.2F
If X=SLD3(1) and Y=SLD3(2
1.3F
If X=BAZ1(1) and Y=BAZ1(2
2F
If X=BAZ2(1) and Y=BAZ2(2
2.2F
If X=BAZ3(1) and Y=BAZ3(2
2.3F
If X=RAM(1) and Y=RAM(2
3F
If X=JEP1(1) and Y=JEP1(2
4F
If X=JEP2(1) and Y=JEP2(2
4.2F
If X=TNK1(1) and Y=TNK1(2
5F
If X=TNK2(1) and Y=TNK2(2
5.2F
If X=HEL(1) and Y=HEL(2
6F
ClrHome
If F=0:Then
Disp "YOU CANT MOVE","THAT
Pause 
prgmZCNCA
End
prgmZCNCMA4
If C=1:Then
XA
YC
0E
If F1 and F1.4:11D
If F2 and F2.3:6D
If F=3:16D
If F4 and F4.2:16D
If F5 and F5.2:6D
If F=6:31D
2G
Repeat K=99
0B
If F<4
Pt-On(A,C-2
If F>3:Then
Pt-On(A+1,C-1
Pt-On(A+1,C-2
Pt-On(A+2,C-1
Pt-On(A+2,C-2
End
getKeyK
If K0:Then
E+1E
If E=D:Goto E
If F<4
Pt-Off(A,C-2
If F>3:Then
Pt-Off(A+1,C-1
Pt-Off(A+1,C-2
Pt-Off(A+2,C-1
Pt-Off(A+2,C-2
End
End
If K=24:A-5A
If K=26:A+5A
If K=25:C+5C
If K=34:C-5C
If K=105:D-1E
prgmZCNCLIM
If AZGT(1)-5 and AZGT(1)+5 and CZGT(2)-5 and CZGT(2)+5
Then
2K
prgmZCNCMA2
End
If K=24 and B=1:A+5A
If K=26 and B=1:A-5A
If K=25 and B=1:C-5C
If K=34 and B=1:C+5C
End
Lbl E
If F=1:Then
ASLD1(1
CSLD1(2
End
If F=1.2:Then
ASLD2(1
CSLD2(2
End
If F=1.3:Then
ASLD3(1
CSLD3(2
End
If F=2:Then
ABAZ1(1
CBAZ1(2
End
If F=2.2:Then
ABAZ2(1
CBAZ2(2
End
If F=2.3:Then
ABAZ3(1
CBAZ3(2
End
If F=3:Then
ARAM(1
BRAM(2
End
If F=4:Then
AJEP1(1
CJEP1(2
End
If F=4.2:Then
AJEP2(1
CJEP2(2
End
If F=5:Then
ATNK1(1
CTNK1(2
End
If F=5.2:Then
ATNK2(1
CTNK2(2
End
If F=6:Then
AHEL(1
CHEL(2
End
If F1 and F1.4:10D
If F2 and F2.3:10D
If F=3:60D
If F4 and F4.2:20D
If F5 and F5.2:30D
If F=6:50D
MVAT1(1)-DMVAT1(1
ClrHome
Disp "YOU ARE DONE","MOVING.
Pause 
prgmZCNCA
End
If C=2:Then
ClrHome
Disp "SELECT WHAT TO","ATTACK
Pause 
Repeat K=99
Pt-On(X,Y,3
getKeyK
If K0
Pt-Off(X,Y,3
If K=24:X-5X
If K=26:X+5X
If K=25:Y+5Y
If K=34:Y-5Y
If K=105:99K
End
0B
If F=1:Then
If X<SLD1(1)-5 or X>SLD1(1)+5 or Y>SLD1(2)+5 or Y<SLD1(2)-5
1B
End
If F=1.2:Then
If X<SLD2(1)-5 or X>SLD2(1)+5 or Y>SLD2(2)+5 or Y<SLD2(2)-5
1B
End
If F=1.3:Then
If X<SLD3(1)-5 or X>SLD3(1)+5 or Y>SLD3(2)+5 or Y<SLD3(2)-5
1B
End
If F=2:Then
If X<BAZ1(1)-5 or X>BAZ1(1)+5 or Y<BAZ1(2)-5 or Y>BAZ1(2)+5
1B
End
If F=2.2:Then
If X<BAZ2(1)-5 or X>BAZ2(1)+5 or Y>BAZ2(2)+5 or Y<BAZ2(2)-5
1B
End
If F=2.3:Then
If X<BAZ3(1)-5 or X>BAZ3(1)+5 or Y>BAZ3(2)+5 or Y<BAZ3(2)-5
1B
End
If F=3:Then
If X<RAM(1)-10 or X>RAM(1)+10 or Y<RAM(2)-10 or Y>RAM(2)+10
1B
End
If F=4:Then
If X<JEP1(1)-5 or X>JEP1(1)+5 or Y<JEP1(2)-5 or Y>JEP1(2)+5
1B
End
If F=4.2:Then
If X<JEP2(1)-5 or X>JEP2(1)+5 or Y>JEP2(2)+5 or Y<JEP2(2)-5
1B
End
If F=5:Then
If X<TNK1(1)-10 or X>TNK1(1)+10 or Y<TNK1(2)-10 or Y>TNK1(2)+10
1B
End
If F=5.2:Then
If X<TNK2(1)-10 or X>TNK2(1)+10 or Y>TNK2(2)+10 or Y<TNK2(2)-10
1B
End
If F=6:Then
If X<HEL(1)-15 or X>HEL(1)+15 or Y<HEL(2)-15 or Y>HEL(2)+15
1B
End
ClrHome
If B=1:Then
Disp "ITS TO FAR AWAY
Pause 
prgmZCNCA
End
Lbl ZZ
If X=ZCY(1) and Y=ZCY(2
1B
If X=ZBAR(1) and Y=ZBAR(2
2B
If X=ZPP(1) and Y=ZPP(2
3B
If X=ZSLD1(1) and Y=ZSLD1(2
5B
If X=ZSLD2(1) and Y=ZSLD2(2
5.2B
If X=ZSLD3(1) and Y=ZSLD3(2
5.3B
If X=ZBAZ1(1) and Y=ZBAZ1(2
6B
If X=ZBAZ2(1) and Y=ZBAZ2(2
6.2B
If X=ZBAZ3(1) and Y=ZBAZ3(2
6.3B
If X=ZRAM(1) and Y=ZRAM(2
7B
If X=ZJEP1(1) and Y=ZJEP1(2
8B
If X=ZJEP2(1) and Y=ZJEP2(2
8.2B
If X=ZTNK1(1) and Y=ZTNK1(2
9B
If X=ZTNK2(1) and Y=ZTNK2(2
9.2B
If X=ZHEL(1) and Y=ZHEL(2
10B
If X=ZPS(1) and Y=ZPS(2
11B
If X=ZGT(1) and Y=ZGT(2
12B
prgmZCNCMA3
If B5 and B5.4:Then
If B=5
ZSLD1(4)-DZSLD1(4
If B=5.2
ZSLD2(4)-DZSLD2(4
If B=5.3
ZSLD3(4)-DZSLD3(4
Disp "A MACHINE GUNNER","","HIS HEALTH IS","NOW
If B=5:Disp ZSLD1(4
If B=5.2:Disp ZSLD2(4
If B=5.3:Disp ZSLD3(4
If B=5 and ZSLD1(4)0
Then
1H
ZSLD1(1)X
ZSLD1(2)Y
{90,90,0,5}ZSLD1
End
If B=5.2 and ZSLD2(4)0
Then
1H
ZSLD2(1)X
ZSLD2(2)Y
{90,90,0,5}ZSLD2
End
If B=5.3 and ZSLD3(4)0
Then
1H
ZSLD3(1)X
ZSLD3(2)Y
{90,90,0,5}ZSLD3
End
End
If B6 and B6.3:Then
If B=6
ZBAZ1(4)-DZBAZ1(4
If B=6.2
ZBAZ2(4)-DZBAZ2(4
If B=6.3
ZBAZ3(4)-DZBAZ3(4
Disp "A BAZOOKA GUY","","HIS HEALTH IS","NOW
If B=6:Disp ZBAZ1(4
If B=6.2:Disp ZBAZ2(4
If B=6.3:Disp ZBAZ3(4
If B=6 and ZBAZ1(4)0
Then
1H
ZBAZ1(1)X
ZBAZ1(2)Y
{90,90,0,5}ZBAZ1
End
If B=6.2 and ZBAZ2(4)0
Then
1F
ZBAZ2(1)X
ZBAZ2(2)Y
{90,90,0,5}ZBAZ2
End
If B=6.3 and ZBAZ3(4)0
Then
1H
ZBAZ3(1)X
ZBAZ3(2)Y
{90,90,0,5}ZBAZ3
End
End
If B=7:Then
ZRAM(4)-DZRAM(4
Disp "TERMINATOR","","HIS HEALTH IS","NOW",ZRAM(4
If ZRAM(4)0
Then
ZRAM(1)X
ZRAM(2)Y
{90,90,0,30}ZRAM
1H
End
End
If B8 and B8.2:Then
If B=8
ZJEP1(4)-DZJEP1(4
If B=8.2
ZJEP2(4)-DZJEP2(4
Disp "A JEEP","","ITS HEALTH IS","NOW
If B=8:Disp ZJEP1(4
If B=8.2:Disp ZJEP2(4
If B=8 and ZJEP1(4)0
Then
2H
ZJEP1(1)X
ZJEP1(2)Y
{90,90,0,10}ZJEP1
End
If B=8.2 and ZJEP2(4)0
Then
2H
ZJEP2(1)X
ZJEP2(2)Y
{90,90,0,10}ZJEP2
End
End
If B9 and B9.3:Then
If B=9
ZTNK1(4)-DZTNK1(4
If B=9.2
ZTNK2(4)-DZTNK2(4
Disp "A TANK","","ITS HEALTH IS","NOW
If B=9:Disp ZTNK1(4
If B=9.2:Disp ZTNK2(4
If B=9 and ZTNK1(4)0
Then
2H
ZTNK1(1)X
ZTNK1(2)Y
{90,90,0,20}ZTNK1
End
If B=9.2 and ZTNK2(4)0
Then
2H
ZTNK2(1)X
ZTNK2(2)Y
{90,90,0,20}ZTNK2
End
End
If H=2
Disp "IT IS DESTROYED!
If H=1
Disp "HE IS KILLED!
If H0:Then
Pause 
For(C,Y-2,Y+1
Line(X-1,C,X+2,C,0
End
prgmZCNCA
End
Pause 
prgmZCNCA

=================================prgmZCNCMA2
0F
0H
If K=2:Then
100D
Goto ZZ
End
If X=ZSLD1(1) and Y=ZSLD1(2
1F
If X=ZSLD2(1) and Y=ZSLD2(2
1.2F
If X=ZSLD3(1) and Y=ZSLD3(2
1.3F
If X=ZBAZ1(1) and Y=ZBAZ1(2
2F
If X=ZBAZ2(1) and Y=ZBAZ2(2
2.2F
If X=ZBAZ3(1) and Y=ZBAZ3(2
2.3F
If X=ZRAM(1) and Y=ZRAM(2
3F
If X=ZJEP1(1) and Y=ZJEP1(2
4F
If X=ZJEP2(1) and Y=ZJEP2(2
4.2F
If X=ZTNK1(1) and Y=ZTNK1(2
5F
If X=ZTNK2(1) and Y=ZTNK2(2
5.2F
If X=ZHEL(1) and Y=ZHEL(2
6F
ClrHome
If F=0:Then
Disp "YOU CANT MOVE","THAT
Pause 
prgmZCNCA
End
prgmZCNCMA4
If C=1:Then
XA
YC
0E
If F1 and F1.4:11D
If F2 and F2.3:6D
If F=3:16D
If F4 and F4.2:16D
If F5 and F5.2:6D
If F=6:31D
2G
Repeat K=99
0B
If F<4
Pt-On(A,C-2
If F>3:Then
Pt-On(A+1,C-1
Pt-On(A+1,C-2
Pt-On(A+2,C-1
Pt-On(A+2,C-2
End
getKeyK
If K0:Then
E+1E
If E=D:Goto E
If F<4
Pt-Off(A,C-2
If F>3:Then
Pt-Off(A+1,C-1
Pt-Off(A+1,C-2
Pt-Off(A+2,C-1
Pt-Off(A+2,C-2
End
End
If K=24:A-5A
If K=26:A+5A
If K=25:C+5C
If K=34:C-5C
If K=105:Goto E
prgmZCNCLIM
If AGT(1)-5 and AGT(1)+5 and CGT(2)-5 and CGT(2)+5
Then
2K
prgmZCNCMA1
End
If K=24 and B=1:A+5A
If K=26 and B=1:A-5A
If K=25 and B=1:C-5C
If K=34 and B=1:C+5C
End
Lbl E
If F=1:Then
AZSLD1(1
CZSLD1(2
End
If F=1.2:Then
AZSLD2(1
CZSLD2(2
End
If F=1.3:Then
AZSLD3(1
CZSLD3(2
End
If F=1.4:Then
AZSLD4(1
CZSLD4(2
End
If F=2:Then
AZBAZ1(1
CZBAZ1(2
End
If F=2.2:Then
AZBAZ2(1
CZBAZ2(2
End
If F=2.3:Then
AZBAZ3(1
CZBAZ3(2
End
If F=3:Then
AZRAM(1
BZRAM(2
End
If F=4:Then
AZJEP1(1
CZJEP1(2
End
If F=4.2:Then
AZJEP2(1
CZJEP2(2
End
If F=5:Then
AZTNK1(1
CZTNK1(2
End
If F=5.2:Then
AZTNK2(1
CZTNK2(2
End
If F=6:Then
AZHEL(1
CZHEL(2
End
If F1 and F1.4:10D
If F2 and F2.3:10D
If F=3:60D
If F4 and F4.2:20D
If F5 and F5.2:30D
If F=6:50D
MVAT2(1)-DMVAT2(1
ClrHome
Disp "YOU ARE DONE","MOVING.
Pause 
prgmZCNCA
End
If C=2:Then
ClrHome
Disp "SELECT WHAT TO","ATTACK
Pause 
Repeat K=99
Pt-On(X,Y,3
getKeyK
If K0
Pt-Off(X,Y,3
If K=24:X-5X
If K=26:X+5X
If K=25:Y+5Y
If K=34:Y-5Y
If K=105:99K
End
0B
If F=1:Then
If X<ZSLD1(1)-5 or X>ZSLD1(1)+5 or Y>ZSLD1(2)+5 or Y<ZSLD1(2)-5
1B
End
If F=1.2:Then
If X<ZSLD2(1)-5 or X>ZSLD2(1)+5 or Y>ZSLD2(2)+5 or Y<ZSLD2(2)-5
1B
End
If F=1.3:Then
If X<ZSLD3(1)-5 or X>ZSLD3(1)+5 or Y>ZSLD3(2)+5 or Y<ZSLD3(2)-5
1B
End
If F=2:Then
If X<ZBAZ1(1)-5 or X>ZBAZ1(1)+5 or Y<ZBAZ1(2)-5 or Y>ZBAZ1(2)+5
1B
End
If F=2.2:Then
If X<ZBAZ2(1)-5 or X>ZBAZ2(1)+5 or Y>ZBAZ2(2)+5 or Y<ZBAZ2(2)-5
1B
End
If F=2.3:Then
If X<ZBAZ3(1)-5 or X>ZBAZ3(1)+5 or Y>ZBAZ3(2)+5 or Y<ZBAZ3(2)-5
1B
End
If F=3:Then
If X<ZRAM(1)-10 or X>ZRAM(1)+10 or Y<ZRAM(2)-10 or Y>ZRAM(2)+10
1B
End
If F=4:Then
If X<ZJEP1(1)-5 or X>ZJEP1(1)+5 or Y<ZJEP1(2)-5 or Y>ZJEP1(2)+5
1B
End
If F=4.2:Then
If X<ZJEP2(1)-5 or X>ZJEP2(1)+5 or Y>ZJEP2(2)+5 or Y<ZJEP2(2)-5
1B
End
If F=5:Then
If X<ZTNK1(1)-10 or X>ZTNK1(1)+10 or Y<ZTNK1(2)-10 or Y>ZTNK1(2)+10
1B
End
If F=5.2:Then
If X<ZTNK2(1)-10 or X>ZTNK2(1)+10 or Y>ZTNK2(2)+10 or Y<ZTNK2(2)-10
1B
End
If F=6:Then
If X<ZHEL(1)-10 or X>ZHEL(1)+10 or Y<ZHEL(2)-10 or Y>ZHEL(2)+10
1B
End
ClrHome
If B=1:Then
Disp "ITS TO FAR AWAY
Pause 
prgmZCNCA
End
Lbl ZZ
If X=CY(1) and Y=CY(2
1B
If X=BAR(1) and Y=BAR(2
2B
If X=PP(1) and Y=PP(2
3B
If X=SLD1(1) and Y=SLD1(2
5B
If X=SLD2(1) and Y=SLD2(2
5.2B
If X=SLD3(1) and Y=SLD3(2
5.3B
If X=BAZ1(1) and Y=BAZ1(2
6B
If X=BAZ2(1) and Y=BAZ2(2
6.2B
If X=BAZ3(1) and Y=BAZ3(2
6.3B
If X=RAM(1) and Y=RAM(2
7B
If X=JEP1(1) and Y=JEP1(2
8B
If X=JEP2(1) and Y=JEP2(2
8.2B
If X=TNK1(1) and Y=TNK1(2
9B
If X=TNK2(1) and Y=TNK2(2
9.2B
If X=HEL(1) and Y=HEL(2
10B
If X=PS(1) and Y=PS(2
11B
If X=GT(1) and Y=GT(2
12B
prgmZCNCMA3
If B5 and B5.4:Then
If B=5
SLD1(4)-DSLD1(4
If B=5.2
SLD2(4)-DSLD2(4
If B=5.3
SLD3(4)-DSLD3(4
Disp "A MACHINE GUNNER","","HIS HEALTH IS","NOW
If B=5:Disp SLD1(4
If B=5.2:Disp SLD2(4
If B=5.3:Disp SLD3(4
If B=5 and SLD1(4)0
Then
1H
SLD1(1)X
SLD1(2)Y
{90,90,0,5}SLD1
End
If B=5.2 and SLD2(4)0
Then
1H
SLD2(1)X
SLD2(2)Y
{90,90,0,5}SLD2
End
If B=5.3 and SLD3(4)0
Then
1H
SLD3(1)X
SLD3(2)Y
{90,90,0,5}SLD3
End
End
If B6 and B6.3:Then
If B=6
BAZ1(4)-DBAZ1(4
If B=6.2
BAZ2(4)-DBAZ2(4
If B=6.3
BAZ3(4)-DBAZ3(4
Disp "A BAZOOKA GUY","","HIS HEALTH IS","NOW
If B=6:Disp BAZ1(4
If B=6.2:Disp BAZ2(4
If B=6.3:Disp BAZ3(4
If B=6 and BAZ1(4)0
Then
1H
BAZ1(1)X
BAZ1(2)Y
{90,90,0,5}BAZ1
End
If B=6.2 and BAZ2(4)0
Then
1H
BAZ2(1)X
BAZ2(2)Y
{90,90,0,5}BAZ2
End
If B=6.3 and BAZ3(4)0
Then
1H
BAZ3(1)X
BAZ3(2)Y
{90,90,0,5}BAZ3
End
End
If B=7:Then
RAM(4)-DRAM(4
Disp "RAMBO","","HIS HEALTH IS","NOW",RAM(4
If RAM(4)0
Then
RAM(1)X
RAM(2)Y
{90,90,0,30}RAM
1H
End
End
If B8 and B8.2:Then
If B=8
JEP1(4)-DJEP1(4
If B=8.2
JEP2(4)-DJEP2(4
Disp "A JEEP","","ITS HEALTH IS","NOW
If B=8:Disp JEP1(4
If B=8.2:Disp JEP2(4
If B=8 and JEP1(4)0
Then
2H
JEP1(1)X
JEP1(2)Y
{90,90,0,10}JEP1
End
If B=8.2 and JEP2(4)0
Then
2H
JEP2(1)X
JEP2(2)Y
{90,90,0,10}JEP2
End
End
If B9 and B9.3:Then
If B=9
TNK1(4)-DTNK1(4
If B=9.2
TNK2(4)-DTNK2(4
Disp "A TANK","","ITS HEALTH IS","NOW
If B=9:Disp TNK1(4
If B=9.2:Disp TNK2(4
If B=9 and TNK1(4)0
Then
2H
TNK1(1)X
TNK1(2)Y
{90,90,0,20}TNK1
End
If B=9.2 and TNK2(4)0
Then
2H
TNK2(1)X
TNK2(2)Y
{90,90,0,20}TNK2
End
End
If H=2
Disp "IT IS DESTROYED!
If H=1
Disp "HE IS KILLED!
If H0:Then
Pause 
For(C,Y-2,Y+1
Line(X-1,C,X+2,C,0
End
prgmZCNCA
End
Pause 
prgmZCNCA

====================================prgmZCNCMA3
If TURN(1)=1
1T
If TURN(1)=2
2T
ClrHome
If K2:Disp "YOU ATTACKED
If K=2:Disp "GARD TOWER GETS
If F1 and F1.4:5D
If F2 and F2.3:10D
If F=3:50D
If F4 and F4.2:5D
If F5 and F5.2:20D
If F=6:30D
If B=0:Then
Disp "NOTHING
Pause 
prgmZCNCA
End
If F1 and F1.4:10E
If F2 and F2.3:10E
If F=3:30E
If F4 and F4.2:20E
If F5 and F5.2:30E
If F=6:50E
If T=1
MVAT1(1)-EMVAT1(1
If T=2
MVAT2(1)-EMVAT2(1
If B=1:Then
If T=1:ZCY(4)-DZCY(4
If T=2:CY(4)-DCY(4
Disp "A CONSTRUCTION","YARD","ITS HEALTH IS","NOW
If T=1:Disp ZCY(4
If T=2:Disp CY(4
If ZCY(4)0 and T=1 or T=2 and CY(4)0
Then
If T=1:Then
ZCY(1)X
ZCY(2)Y
{90,90,0,100}ZCY
End
If T=2:Then
CY(1)X
CY(2)Y
{90,90,0,100}CY
End
2H
End
End
If B=2:Then
If T=1:ZBAR(4)-DZBAR(4
If T=2:BAR(4)-DBAR(4
Disp "A BARRACKS","","ITS HEALTH IS","NOW
If T=1:Disp ZBAR(4
If T=2:Disp BAR(4
If ZBAR(4)0 and T=1 or T=2 and BAR(4)0
Then
If T=1:Then
ZBAR(1)X
ZBAR(2)Y
{90,90,0,40}ZBAR
End
If T=2:Then
BAR(1)X
BAR(2)Y
{90,90,0,40}BAR
End
2H
End
End
If B=3:Then
If T=1:ZPP(4)-DZPP(4
If T=2:PP(4)-DPP(4
Disp "A POWER PLANT","","ITS HEALTH IS","NOW
If T=1:Disp ZPP(4
If T=2:Disp PP(4
If ZPP(4)0 and T=1 or T=2 and PP(4)0
Then
If T=1:Then
ZPP(1)X
ZPP(2)Y
{90,90,0,30}ZPP
End
If T=2:Then
PP(1)X
PP(2)Y
{90,90,0,30}PP
End
2H
End
End
If B=11:Then
If T=1:ZPS(4)-DZPS(4
If T=2:PS(4)-DPS(4
Disp "A POINT SILO","","ITS HEALTH IS","NOW
If T=1:Disp ZPS(4
If T=2:Disp PS(4
If ZPS(4)0 and T=1 or T=2 and PS(4)0
Then
If T=1:Then
ZPS(1)X
ZPS(2)Y
{90,90,0,20}ZPS
End
If T=2:Then
PS(1)X
PS(2)Y
{90,90,0,20}PS
End
2H
End
End
If B=12:Then
If T=1:ZGT(4)-DZGT(4
If T=2:GT(4)-DGT(4
Disp "A GUARD TOWER","","ITS HEALTH IS","NOW
If T=1:Disp ZGT(4
If T=2:Disp GT(4
If ZGT(4)0 and T=1 or T=2 and GT(4)0
Then
If T=1:Then
ZGT(1)X
ZGT(2)Y
{90,90,0,10}ZGT
End
If T=2:Then
GT(1)X
GT(2)Y
{90,90,0,10}GT
End
2H
End
End
If B=10:Then
If T=1:ZHEL(4)-DZHEL(4
If T=2:HEL(4)-DHEL(4
Disp "A HELICOPTER","","ITS HEALTH IS","NOW
If T=1:Disp ZHEL(4
If T=2:Disp HEL(4
If ZHEL(4)0 and T=1 or T=2 and HEL(4)0
Then
If T=1:Then
ZHEL(1)X
ZHEL(2)Y
{90,90,0,30}ZHEL
End
If T=2:Then
HEL(1)X
HEL(2)Y
{90,90,0,30}HEL
End
2H
End
End

====================================prgmZCNCMA4
0B
If TURN(1)=1
1G
If TURN(1)=2
2G
If F1 and F1.4 and G=1 and MVAT1(1)<10 or F1 and F1.4 and G=2 and MVAT2(1)<10
1B
If F2 and F2.3 and G=1 and MVAT1(1)<10 or F2 and F2.3 and G=2 and MVAT2(1)<10
2B
If F=3 and G=1 and MVAT1(1)<30 or F=3 and G=2 and MVAT2(1)<30
3B
If F4 and F4.2 and G=1 and MVAT1(1)<20 or F4 and F4.2 and G=2 and MVAT2(1)<20
4B
If F5 and F5.2 and G=1 and MVAT1(1)<30 or F5 and F5.2 and G=2 and MVAT2(1)<30
5B
If F=6 and G=1 and MVAT1(1)<50 or F=6 and G=2 and MVAT2(1)<50
6B
If B=1 or B=2
Disp "YOU NEED 10
If B=3 or B=5
Disp "YOU NEED 30
If B=4
Disp "YOU NEED 20
If B=6
Disp "YOU NEED 50
If B0:Then
Disp "MOVE/ATTACK","POINTS.
Pause 
prgmZCNCA
End
Disp "=====CHOOSE=====","","1) MOVE","2) ATTACK
Input C

====================================prgmZCNCMK1
prgmZCNCMK3
If C=1:Then
If SLD1(3)=1 and SLD2(3)=0
1.2C
If SLD1(3)=1 and SLD2(3)=1 and SLD3(3)=0
1.3C
If SLD1(3)=1 and SLD2(3)=1 and SLD3(3)=1
9C
End
If C=2:Then
If BAZ1(3)=1 and BAZ2(3)=0
2.2C
If BAZ1(3)=1 and BAZ2(3)=1 and BAZ3(3)=0
2.3C
If BAZ1(3)=1 and BAZ2(3)=1 and BAZ3(3)=1
9C
End
If C=3 and RAM(3)=1
9C
If C=4:Then
If JEP1(3)=1 and JEP2(3)=0
4.2C
If JEP1(3)=1 and JEP2(3)=1
9C
End
If C=5:Then
If TNK1(3)=1 and TNK2(3)=0
5.2C
If TNK1(3)=1 and TNK2(3)=1
9C
End
If C=6 and HEL(3)=1
9C
If C=9:Then
ClrHome
Disp "YOU CANT BUILD","ANY MORE OF","THOSE.
Pause 
prgmZCNCA
End
If C=1:Then
XSLD1(1
YSLD1(2
1SLD1(3
End
If C=1.2:Then
XSLD2(1
YSLD2(2
1SLD2(3
End
If C=1.3:Then
XSLD3(1
YSLD3(2
1SLD3(3
End
If C=2:Then
XBAZ1(1
YBAZ1(2
1BAZ1(3
End
If C=2.2:Then
XBAZ2(1
YBAZ2(2
1BAZ2(3
End
If C=2.3:Then
XBAZ3(1
YBAZ3(2
1BAZ3(3
End
If C=3:Then
XRAM(1
YRAM(2
1RAM(3
End
If C=4:Then
XJEP1(1
YJEP1(2
1JEP1(3
End
If C=4.2:Then
XJEP2(1
YJEP2(2
1JEP2(3
End
If C=5:Then
XTNK1(1
YTNK1(2
1TNK1(3
End
If C=5.2:Then
XTNK2(1
YTNK2(2
1TNK2(3
End
If C=6:Then
XHEL(1
YHEL(2
1HEL(3
End
If C<4
Pt-On(X,Y-2
If C4:Then
Pt-On(X+1,Y-2
Pt-On(X+1,Y-1
Pt-On(X+2,Y-1
Pt-On(X+2,Y-2
End
If C1 and C1.4:20D
If C2 and C2.3:30D
If C=3:80D
If C4 and C4.2:30D
If C5 and C5.2:40D
If C=6:50D
MAKE1(1)-DMAKE1(1
prgmZCNCA

====================================prgmZCNCMK2

prgmZCNCMK3
If C=1:Then
If ZSLD1(3)=1 and ZSLD2(3)=0
1.2C
If ZSLD1(3)=1 and ZSLD2(3)=1 and ZSLD3(3)=0
1.3C
If ZSLD1(3)=1 and ZSLD2(3)=1 and ZSLD3(3)=1
9C
End
If C=2:Then
If ZBAZ1(3)=1 and ZBAZ2(3)=0
2.2C
If ZBAZ1(3)=1 and ZBAZ2(3)=1 and ZBAZ3(3)=0
2.3C
If ZBAZ1(3)=1 and ZBAZ2(3)=1 and ZBAZ3(3)=1
9C
End
If C=3 and ZRAM(3)=1
9C
If C=4:Then
If ZJEP1(3)=1 and ZJEP2(3)=0
4.2C
If ZJEP1(3)=1 and ZJEP2(3)=1
9C
End
If C=5:Then
If ZTNK1(3)=1 and ZTNK2(3)=0
5.2C
If ZTNK1(3)=1 and ZTNK2(3)=1
9C
End
If C=6 and ZHEL(3)=1
9C
If C=9:Then
ClrHome
Disp "YOU CANT BUILD","ANY MORE OF","THOSE.
Pause 
prgmZCNCA
End
If C=1:Then
XZSLD1(1
YZSLD1(2
1ZSLD1(3
End
If C=1.2:Then
XZSLD2(1
YZSLD2(2
1ZSLD2(3
End
If C=1.3:Then
XZSLD3(1
YZSLD3(2
1ZSLD3(3
End
If C=2:Then
XZBAZ1(1
YZBAZ1(2
1ZBAZ1(3
End
If C=2.2:Then
XZBAZ2(1
YZBAZ2(2
1ZBAZ2(3
End
If C=2.3:Then
XZBAZ3(1
YZBAZ3(2
1ZBAZ3(3
End
If C=3:Then
XZRAM(1
YZRAM(2
1ZRAM(3
End
If C=4:Then
XZJEP1(1
YZJEP1(2
1ZJEP1(3
End
If C=4.2:Then
XZJEP2(1
YZJEP2(2
1ZJEP2(3
End
If C=5:Then
XZTNK1(1
YZTNK1(2
1ZTNK1(3
End
If C=5.2:Then
XZTNK2(1
YZTNK2(2
1ZTNK2(3
End
If C=6:Then
XZHEL(1
YZHEL(2
1ZHEL(3
End
If C<4
Pt-On(X,Y-2
If C4:Then
Pt-On(X+1,Y-2
Pt-On(X+1,Y-1
Pt-On(X+2,Y-1
Pt-On(X+2,Y-2
End
If C1 and C1.4:20D
If C2 and C2.3:30D
If C=3:80D
If C4 and C4.2:30D
If C5 and C5.2:40D
If C=6:50D
MAKE2(1)-DMAKE2(1
prgmZCNCA

====================================prgmZCNCMK3
1G
prgmZCNCLIM
ClrHome
If B=1:Then
Disp "YOU CANT","MAKE ANYTHING","THERE
Pause 
prgmZCNCA
End
0B
Disp "=WHAT TO BUILD?=","","1)SOLDIERS","2)VEHICLES","9)NOTHING
Input B
If B>2 or B<1:prgmZCNCA
ClrHome
If B=1:Then
Disp "====SOLDIERS====",""
Disp "1)MACHINE GUNNER
Disp "2)BAZOOKA
If TURN(1)=1
Disp "3)*RAMBO*
If TURN(1)=2
Disp "3)*TERMINATOR*
Input "CHOICE:",C
End
If B=2:Then
Disp "====VEHICLES====",""
Disp "4)JEEP
Disp "5)TANK
Disp "6)HELICOPTER
Input "CHOICE:",C
End
0B
If TURN(1)=1
1G
If TURN(1)=2
2G
If C=1 and G=1 and MAKE1(1)<20 or C=1 and G=2 and MAKE2(1)<20
1B
If C=2 and G=1 and MAKE1(1)<30 or C=2 and G=2 and MAKE2(1)<30
2B
If C=3 and G=1 and MAKE1(1)<80 or C=3 and G=2 and MAKE2(1)<80
3B
If C=4 and G=1 and MAKE1(1)<30 or C=4 and G=2 and MAKE2(1)<30
4B
If C=5 and G=1 and MAKE1(1)<40 or C=5 and G=2 and MAKE2(1)<40
5B
If C=6 and G=1 and MAKE1(1)<50 or C=6 and G=2 and MAKE2(1)<50
6B
If B=1
Disp "YOU NEED 20
If B=2
Disp "YOU NEED 30
If B=3
Disp "YOU NEED 80
If B=4
Disp "YOU NEED 30
If B=5
Disp "YOU NEED 40
If B=6
Disp "YOU NEED 50
If B0:Then
Disp "MAKE POINTS.
Pause 
prgmZCNCA
End