* The sign ¸ is like a little triangle on your calculator in the prgm menu *


clrtext
"STARCRAFT
   GAME
1-NEW
2-CONTINUE"?->  A
IF a = 2
then goto 1
ifend
int3rand+5 -> Z
int4rand+1 -> W
int3rand -> P
Z+P -> Z
0-> F
0-> T
0-> U
0-> V
0-> Q
0-> B
0-> O
1-> N
0-> M
0-> L
3-> J
1-> K
1-> H
4-> I
0-> G
50-> E
0-> F
0-> A
0-> C
4-> D
lbl 1
IF K=0
Then clrtext
"

  GAMEOVER!!"
STOP
ifend
clrtext
if X=1
then "ORE:"
E¸
"GAS:"
F¸
if end
"1-DRONE
 2-INFO
 3-BUY
 4-ATTACK
 5-END" ?->  A
if a=1
then clrtext
goto 2
lbl9
clrtext
"ON ORE:"
 B¸
Do¸
"ON GAS:"
 C¸
Do¸
"TOTAL:"
 D¸
Do¸
LBL 2
clrtext
"1-CHANGE
 2-INCOME
 3-INFO
 4-OK"?->  A
IF A=1
then clrtext
0-> B
0-> C
lbl3
"TOTAL"
 D¸
Do¸
"ON ORE"?->  B
IF B = 0
then goto 4
ifend
IF B > D
then clrtext
"ERROR"
Do¸
clrtext 
goto 3
ifend
lbl4
"FREE:"
(D-B)-> A
 A¸
Do¸
"ON GAS"?->  C
if c=0
then clrtext
"OK"
Do¸
GOTO 1
ifend
if C > (D-b)
Then clrtext
"ERROR"
Do¸
clrtext
goto 4
ifend
"OK"
Do¸
goto 1
ifend
if a=2
then clrtext
"ORE:"
(50B)->A
 A¸
Do¸
"GAS:"
(50C)->A
 A¸
Do¸
goto 2
ifend
if a=4
then goto 1
ifend
IF A = 3
then goto 9
ifend
ifend
if A=3
then clrtext
"1-CREATURES
 2-BUILDINGS 
 3-OTHER 
 4-OK"?->  A
IF A=4
Then goto 1
ifend
if A=1
then clrtext
"1-ZERGLING
 2-HYDRALYSK
 3-MUTHALYSK
 4-ULTRALYSK"?->  G
LBL8
IF G=0
then goto 1
ifend
IF G=11
then "150-50"
ifend
IF G=3
then "100-100-2"
ifend
if G = 1
then "50-0-1"
ifend
if g=2
then "75-25-1"
ifend
if G = 6
then "100-0-0"
ifend
IF G=5
then "50-0-1"
ifend
IF G=7
then "300-0"
ifend
if g=9
then "150-0"
ifend
if g=10
then "100-50"
ifend
if g=8
then "200-150"
ifend
if g=4
then "200-200-6"
ifend
1 -> X
"HOW MANY"?->  A
If G=4
then if R=0
then "BUILD
AN ULTRALYSK
CAVERN"
Do¸
goto 1
ifend
IF (200A) > E
Then GOTO 5
ifend
IF (200A) > F
Then goto 6
ifend
IF (6A)>(12H-I)
then goto 7
ifend
if a> J
then goto A
ifend
(E-200A)->E
(F-200A)->F
(A+U)->U
(I+6A)->I
(J-A)->J
clrtext
"OK"
Do¸
goto 1
ifend
IF G=11
then IF N< 3
Then
"UPGRADE
 YOUR HATCHERY"
Do¸
goto1
ifend
IF (150A) > E
THEN goto 5
ifend
IF (200A) > F
then goto 6
ifend
(A+R)->R
(E-150A)->E
(F-200A)->F
clrtext
"OK"
Do¸
goto1
ifend
IF g=3
then IF O=0
then "BUILD
A SPIRE"
Do¸
goto1
ifend
if (100A) > E
then goto 5
ifend
if (100A) > F
then goto 6
ifend
if (2A)> (12H-I)
then goto 7
ifend
IF A>J
then goto A
ifend
(A+Q)->Q
(e-100A)->E
(F-100A)->F
(i+2A)->i
(J-A)->J
clrtext
"OK"
Do¸
goto1
ifend
IF G=1
then 2a->A
If L=0
then "BUILD
A SPAWNING POOL"
Do¸
goto1
ifend
IF (25A) > E
then goto 5
ifend
IF 0,5A > (12H-I)
then goto 7
ifend
IF 0,5A >J 
then goto A
ifend
(E-25A)->E
(J-0,5A)->J
(I+0,5A)->I
(A+S)->S
clrtext
"OK"
Do¸
goto1
ifend
IF G=2
then IF M=0
then "BUILD
A HYDRALISK DEN"
Do¸
goto1
ifend
IF 75A > E
then goto 5
ifend
IF 25A > F
then goto 6
ifend
IF A > (12h-i)
then goto 7
ifend
IF A > J
then goto A
ifend
(E-75A)-> E
(f-25A)-> F
(I+A)-> I
(J-A)-> J
(A+T)-> T
clrtext
"OK"
Do¸
goto1
ifend
IF G=5
then IF 50A > E
then goto 5 
ifend
IF A > (12H-I)
then goto 7
ifend
IF A > J
then GOTO A
ifend
(E-50A)-> E
(I+A)-> I
(D+A)-> D
(J-A)-> J
clrtext
"OK"
Do¸
goto1
ifend
IF G= 6
then IF (100A) > E
then goto 5
ifend
IF A > J
then goto A
ifend
(H+A)-> H
(E-100A)-> E
(J-A)-> J
clrtext
"OK"
Do¸
goto1
ifend
IF G=7
then IF 300A > E
then goto 5
ifend
(K+A)-> K
(E-300A)-> E
(3A+J)-> J
clrtext
"OK"
Do¸
goto1
ifend
IF G=9
then IF 150A > E
then goto 5
ifend
(E-150A)-> E
(L+A)-> L
clrtext
"OK"
Do¸
goto1
ifend
IF G=10
then IF 100A > E
then goto 5
ifend
IF 50A > F
Then goto 6
ifend
(E-100A)-> E
(F-50A)-> F
(M+A)-> M
clrtext
 "OK"
Do¸
goto1
ifend
IF G=8
then IF N=1
then "UPGRADE YOUR
HATCHERY"
Do¸
goto1
ifend
IF 200A > E
then goto 5
ifend
IF 150A > F
then GOTO 6
ifend
(E-200A)-> E
(F-150A)-> F
(O+A)-> O
clrtext
"OK"
Do¸
goto1
ifend
lbl 5
"NOT ENOUGH
ORE"
Do¸
GOTO 1
LBL 6
"NOT ENOUGH
GAS"
Do¸
GOTO 1
lbl 7
"NOT ENOUGH 
FOOD
FOOD LEFT:"
8H-I -> A
A¸
GOTO 1
LBL A
"NOT ENOUGH
LARVAS
LARVA LEFT:"
J¸
goto1
ifend
IF A=2 
THEN clrtext
"7-HATCHERY
8-SPIRE
9-SPAWNING
10-HYDRA DEN
11-ULTRA CAV"?->  G
GOTO 8
ifend
IF A=3
then clrtext
"5-DRONE
6-OVERLORD"?->  G
GOTO 8
ifend
ifend
IF A=2
THEN clrtext
"1-MONEY
2-UPGRADE
3-FOOD-LARVAS
4-BASE
5-ARMY"?->  A
IF A=0
THEN goto 1
ifend
IF A=1
Then "ORE:"
 E¸
Do¸
"GAS:"
 F¸
Do¸
goto 1
ifend
IF A=2
then clrtext
"HATCHERY LEVEL:"
 N¸
Do¸
IF N=1
Then IF 150> E
Then goto 5
ifend
IF 100> F
Then GOto 6
ifend
IF L=0
Then "BUILD
A SPAWNINGPOOL"
Do¸
goto1
ifend
 "150-100"
ifend
IF N=2
then IF 200 > E
Then goto 5
ifend
IF 150 > F
then goto 6 
ifend
If O=0
then "BUILD
A SPIRE"
Do¸
goto1
ifend
"200-150"
ifend
IF N=3
Then "MAX LEVEL"
Do¸
goto1
ifend
"UPGRADE?
1-YES
2-NO"?->  A
IF A=2
Then goto1
ifend
IF A=1
THEN IF N=1
THEN (E-150)-> E
(F-100)-> F
ifend
IF N=2
Then (E-200)-> E
(F-150)-> F
ifend
clrtext
"OK"
Do¸
(N+1)-> N
GOTO 1
ifend
ifend
IF A=3
THen clrtext
"OVERLORD:"
 H¸
Do¸
"FOOD"
(8h)-> A
 A¸
Do¸
"USED:"
 I¸
Do¸
"LEFT:"
(8H-I)-> A
 A¸
Do¸
"LARVA TOTAL"
3K-> A
 A¸
Do¸
"LARVA LEFT"
 J¸
Do¸
goto1
ifend
IF A=4
then clrtext
"HATCHERY:"
 K¸
Do¸
"SPAWNING:"
 L¸
Do¸
"HYDRA DEN"
 N¸
Do¸
"SPIRE:"
 O¸
Do¸
"ULTRA CAVE:"
 R¸
Do¸
goto1
ifend
IF A=5
then clrtext
Lbl F
"ZERGLING:"
 F¸
Do¸
"HYDRA:"
 T¸
Do¸
"MUTHALISK"
 Q¸
Do¸
"ULTRALISK:"
 U¸
Do¸
goto1
ifend
ifend
IF a=4
THEN IF (S+T+U+Q)=0
Then "YOUR HAVE NO
ARMY"
Do¸
goto1
ifend
LBL D
clrgraph
viewWindow 0,3,1,0,(10(S+1.8T+6U+3Q+2V+2W)+15),1
0-> A
0-> G
LBL C
IF A > ou = (10(S+1.8T+6U+3Q+2V+2W)+15)
then clrtext
"WIN!"
Do¸
clrtext
GOTO E
ifend
IF G > ou = (10(S+1.8T+6U+3Q+2V+2W)+15)
Then clrtext
"LOST!"
Do¸
clrtext
GOTO E
ifend
plot 1,A
A+((S)+3Q+(1.8T)+(6U)-2W)rand+1-> A
A+(3Q-2V)RAND+1-> A
A+(INT(S+1.8T+6U+3Q+2V+2W))RAND -> A
IF A< 0
then 0-> A
ifend
plot 1,a
LINE
G+(2W-3Q-S-1.8T-6U)RAND+1 -> G
G+(2V-1.8T-3Q)RAND+1 -> G
G+(INT(S+1.8T+6U+3Q+2V+2W))RAND -> G
IF G < 0
Then 0-> G
ifend
plot 2,G
line
GOTO C
ifend
IF A=5
then clrtext
"ORE COLLECTED:"
50B-> A
 A¸
Do¸
"GAS COLLECTED:"
50C -> A
 A¸
Do¸
"ORE:"
(50b+e)->E
 e¸
Do¸
"GAS:"
(50c+F)-> F
 F¸
Do¸
"LARVAS:"
3K->J
 J¸
Do¸
"FOOD TOTAL:"
(8H)-> A
 A¸
Do¸
"FOOD USED:"
 I¸
Do¸
"FOOD LEFT:"
(8h-I)-> A
 A¸
Do¸
clrtext
(P+1)-> P
(W+INT((1rand+1)P)rand->W
IF P > 10
then V+INT((1RAND+1)P)RAND->V
ifend
IF P=Z
then (P+(INT15rand)+4)->Z
IF (W+V)=0
Then goto1
ifend
"YOU ARE
ATTACKED!"
Do¸
clrtext
goto D
ifend
GOTO 1
ifend
lbl E
IF G < ou = 0
Then 1-> G
ifend
IF A <ou = 0
Then 1-> A
ifend
(10(S+1.8T+6U+3Q+2V+2W)+15)-> X
IF G < 0
then 0-> G
ifend
IF A< 0
Then 0-> A
ifend
s-(INT(((G/X)/1,08)S)RAND)-> S
W-(INT(((A/X)/1,2)W)RAND)-> w
IF (T+Q) *find the not equal sign on your calculator* 0
Then v-(INT(((A/X)/1,2)v)RAND)->v
ifend
T-(INT(((G/X)/1,1)T)RAND)->T
U-(INT(((G/X)/1,6)U)RAND)->U
IF V *find the not equal sign on your calculator* 0
Then Q-(INT(((G/X)/1,3)XQ)RAND)->Q
ifend
IF S< 0
Then 0-> S
ifend
IF T< 0
Then 0-> T
ifend
IF U< 0
Then 0-> U
ifend
IF Q< 0
Then 0-> Q
ifend
IF W< 0
Then 0-> W
ifend
ifend
IF (2V+2W) <= (S+1.8T+3Q+6u)/8
THEN clrtext
"

 VICTORY!!!"
STOP
ifend
"ENEMY ARMY
CREATURES
HEARTH"
 W¸
Do¸
"AIR"
 V¸
Do¸
clrtext
IF (S+1.8T+6U+3Q) < ((2W+2V)/(INT2 RAND+3))
Then P+(INT1RAnd+1)-> Z
"HATCHERY NUMBER:"
k-(INT((2V+2W-S-1.8T-3Q-6U)/6)RAND+13)-> K
IF K< 0
Then 0-> K
ifend
 K¸
Do¸
ifend
"YOUR ARMY:"
0->X
GOTO F