clrhome
disp"STARCRAFT"
disp"1-NEW"
disp"2-CONTINUE"
input A
IF a = 2
then
clrhome
goto 1
End
clrhome
6-> Z
2-> W
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-> P
0-> C
4-> D
lbl 1
IF K=0
Then
clrhome
disp" GAMEOVER"
STOP
END
clrhome
disp"1-DRONE"
disp"2-INFO"
disp"3-BUY"
disp"4-ATTACK"
disp"5-END"
input A
if a=1
then
clrhome
goto 2
lbl9
clrhome
disp"ON ORE:"
disp B
pause
disp"ON GAS:"
DISP C
PAUSE
disp"TOTAL:"
DISP D
PAUSE
LBL 2
CLRHOME
disp"1-CHANGE"
disp"2-INCOME"
disp"3-INFO"
disp"4-OK"
input A
IF A=1
then
clrhome
0-> B
0-> C
lbl3
disp"TOTAL"
disp D
PAUSE
disp"ON ORE"
INPUT B
IF B = 0
then 
goto 4
END
IF B>D
then
clrhome
disp"ERROR"
PAUSE
clrhome 
goto 3
end
lbl4
disp"FREE:"
(D-B)-> A
disp A
pause
disp"ON GAS"
input C
if c=0
then
clrhome
disp"OK"
PAUSE
GOTO 1
end
if C >(D-b)
Then
clrhome
disp"ERROR"
PAUSE
clrhome
goto 4
end
disp"OK"
pause
clrhome
goto 1
end
if a=2
thenb clrhome
dips"ORE:"
(50B)->A
disp A
pause
disp"GAS:"
(50C)->A
disp A
pause
goto 2
end
if a=4
then
clrhome
goto 1
end
IF A = 3
then
goto 9
end
end
if A=3
then
clrhome
disp"1-CREATURES"
disp"2-BUILDINGS"
disp"3-OTHER"
disp"4-OK"
Input A
IF A=4
Then
clrhome
goto 1
end
if A=1
then clrhome
disp"1-ZERGLING"
disp"2-HYDRALYSK"
disp"3-MUTHALYSK"
disp"4-ULTRALYSK"
input G
LBL8
IF G=0
then
clrhome
goto 1
end
IF G=14
then
disp"200-50"
end
IF G=3
then
disp"100-100-2"
end
if G = 1
then
disp"50-0-1"
end
if g=2
then
disp"75-25-1"
END
if G = 7
then
disp"100-0-0"
END
IF G=6
then
disp"50-0-1"
END
IF G=10
then
disp"300-0"
end
if g=12
then
disp"150-0"
end
if g=13
then
disp"250-50"
end
if g=11
then
disp"150-150"
end
if g=4
then
disp"200-200-6"
end
disp"HOW MANY?"
input A
If G=4
then
if R=0
then
disp"BUILD"
disp"AN ULTRALYSK"
disp"CAVERN"
pause
clrhome
goto 1
end
IF (200A) > E
Then
GOTO 5
END
IF (200A) > F
Then
goto 6
end
IF (6A)>(12H-I)
then
goto 7
end
if a> J
then
goto A
end
(E-200A)->E
(F-200A)->F
(A+U)->U
(I+A6)->I
(J-A)->J
clrhome
disp"OK"
PAUSE
clrhome
goto 1
End
IF G=14
then
IF N< 3
Then
disp"UPGRADE"
disp"YOUR HATCHERY"
PAUSE
clrhome
goto1
ENd
IF (200A)> E
THEN
goto 5
end
IF (50A) > F
then 
goto 6
END
(A+R)->R
(E-200A)->E
(F-50A)->F
clrhome
disp"OK"
pause
clrhome
goto1
end
IF g=3
then
IF O=0
then
disp"BUILD"
disp"SPIRE"
pause
clrhome
goto1
end
if (100A) > E
then
goto 5
end
if (100A) > F
then
goto 6
end
if (2A)> (12H-I)
then
goto 7
end
IF A>J
then
goto A
end
(A+Q)->Q
(e-100A)->E
(F-100A)->F
(i+2A)->i
(J-A)->J
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G=1
then
2a->A
If L=0
then
disp"BUILD"
disp"SPAWNING POOL"
pause
clrhome
goto1
end
IF (25A)> E
then
goto 5
END
IF 0,5A > (12H-I)
then
goto 7
end
IF 0,5A >J 
then
goto A
END
(E-25A)->E
(J-0,5A)->J
(I+0,5A)->I
(A+S)->S
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G=2
then
IF M=0
then
disp"BUILD"
disp"HYDRALYSK DEN"
pause
clrhome
goto1
end
IF 75A > E
then
goto 5
end
IF 25A > F
then
goto 6
end
IF A > (12h-i)
then
goto 7
end
IF A > J
then
goto A
end
(E-75A)-> E
(f-25A)-> F
(I+A)-> I
(J-A)-> J
(A+T)-> T
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G=6
then
IF 50A > E
then
goto 5 
end
IF A > (12H-I)
then
goto 7
end
IF A > J
then
GOTO A
END
(E-50A)-> E
(I+A)-> I
(D+A)-> D
(J-A)-> J
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G= 7
then
IF (100A) > E
then
goto 5
end
IF A > J
then
goto A
end
(H+A)-> H
(E-100A)-> E
(J-A)-> J
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G=10
then
IF 300A > E
then
goto 5
end
(K+A)-> K
(E-300A)-> E
(3A+J)-> J
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G=12
then
IF 150A > E
then
goto 5
end
(E-150A)-> E
(L+A)-> L
clrhome
disp"OK"
pause
clrhome
goto1
end
IF G=13
then
IF 150A > E
then
goto 5
end
IF 50A > F
Then
goto 6
end
(E-150A)-> E
(F-50A)-> F
(M+A)-> M
clrhome
disp "OK"
pause
clrhome
goto1
end
IF G=11
then
IF N=1
then
disp"UPGRADE YOUR"
disp"HATCHERY"
pause
clrhome
goto1
end
IF 150A > E
then
goto 5
End
IF 150A > F
then
GOTO 6
end
(E-150A)-> E
(F-150A)-> F
(O+A)-> O
clrhome
disp"OK"
pause
clrhome
goto1
end
lbl 5
disp"NOT ENOUGH"
disp"ORE"
PAUSE
CLRHOME
GOTO 1
LBL 6
disp"NOT ENOUGH"
disp"GAS"
PAUSE
clrhome
GOTO 1
lbl 7
disp"NOT ENOUGH"
disp"FOOD"
PAUSE
CLRHOME
GOTO 1
LBL A
disp"NOT ENOUGH"
disp"LARVAS"
pause
clrhome
goto1
end
IF A=2 
THEN
CLRHOME
DISP"10-HATCHERY"
DISP"11-SPIRE"
DISP"12-SPAWNING"
DISP"13-HYDRA DEN"
DISP"14-ULTRA CAV"
INPUT G
GOTO 8
END
IF A=3
then
clrhome
DISP"6-DRONE"
DISP"7-OVERLORD"
INPUT G
GOTO 8
END
END
IF A=2
THEN
clrhome
DISP"1-MONEY"
DISP"2-UPGRADE"
DISP"3-FOOD-LARVAS"
DISP"4-BASE"
DISP"5-ARMY"
INPUT A
IF A=0
THEN
clrhome
goto 1
end
IF A=1
Then
clrhome
DISP"ORE:"
DISP E
PAUSE
DISP"GAS"
DISP F
PAUSE
clrhome
goto 1
End
IF A=2
then
clrhome
DISP"HATCHERY LEVEL:"
DISP N
PAUSE
IF N=1
Then
IF 150> E
Then
goto 5
End
IF 150> F
Then
GOto 6
ENd
IF L=0
Then
DISP"BUILD"
DISP"SPAWNING POOL"
pause
clrhome
goto1
end
DISP "150-150"
End
IF N=2
then
IF 300 > E
Then
goto 5
end
IF 300 > F
then
goto 6 
End
If O=0
then
DISP"BUILD"
DISP"SPIRE"
pause
clrhome
goto1
end
DISP"300-300"
End
IF N=3
Then
DISP"MAX LEVEL"
pause
clrhome
goto1
end
DISP"UPGRADE?"
DISP"1-YES"
DISP"2-NO"
INPUT A
IF A=2
Then
clrhome
goto1
end
IF A=1
THEN
IF N=1
THEN 
(E-150)-> E
(F-150)-> F
End
IF N=2
Then
(E-300)-> E
(F-300)-> F
END
Clrhome
disp"OK"
PAUSE
(N+1)-> N
GOTO 1
END
END
IF A=3
THen
CLrhome
DISP"OVERLORD:"
DISP H
PAUSE
DISP"FOOD"
(12h)-> A
DISP A
PAUSE
DISP"USED:"
DISP I
PAUSE
DISP"LEFT:"
(12H-I)-> A
DISP A
PAUSE
DISP"LARVA TOTAL"
3K-> A
Disp A
Pause
DISP"LARVA LEFT"
DISP J
pause
clrhome
goto1
end
IF A=4
then
clrhome
DISP"HATCHERY:"
DISP K
PAUSE
DISP"SPAWNING:"
DISP L
PAUSE
DISP"HYDRA DEN"
DISP N
PAUSE
DISP"SPIRE:"
DISP O
PAUSE
DISP"ULTRA CAVE:"
DISP R
pause
clrhome
goto1
end
IF A=5
then
clrhome
Lbl F
DISP"ZERGLING:"
DISP F
PAUSE
DISP"HYDRALYSK:"
DISP T
PAUSE
DISP"MUTHALYSK"
DISP Q
PAUSE
DISP"ULTRALYSK:"
DISP U
pause
clrhome
goto1
end
END
IF a=4
THEN
IF (S+T+U+Q)=0
Then
DISP"YOU HAVE NO"
DISP"ARMY"
pause
clrhome
goto1
end
LBL D
XMIN 0
XMAX 3
XSCL 1
YMIN 0
YMAX (10(S+T+U+Q+V+W)+15)
YSCL 1
0-> A
0-> G
LBL C
IF A >= (10(s+t+u+q+v+w)+15)
then
clrhome
DISP"YOU WIN!"
PAUSE
CLRHOME
GOTO E
END
IF G >= (10X(s+t+u+q+v+w)+15)
Then
clrhome
DISP"PERDU!"
PAUSE
CLRHOME
GOTO E
END
LINE(1,A)
A+((S)+(2T)+(5U)-2,5W)rand+1-> A
A+(3Q-2,5V)RAND+1-> A
A+(INT(S+T+U+Q+V+W))RAND -> A
IF A< 0
then
0-> A
END
LINE(1,a)
LINE(2,G)
G+(2,5W-3Q-S-2T-5U)RAND+1 -> G
G+(2,5V-2T-3Q)RAND+1 -> G
G+(INT(S+T+U+V+W+Q))RAND -> G
IF G < 0
Then
0-> G
END
LINE(2,G)
GOTO C
END
IF A=5
then
clrhome
DISP"ORE COLLECTED:"
50B-> A
disp A
PAUSE
DISP"GAS COLLECTED:"
50C -> A
DISP A
PAUSE
DISP"ORE:"
(50b+e)->E
disp e
PAUSE
DISP"GAZ:"
(50c+F)-> F
DIsp F
PAUSE
DISP"LARVAS:"
3K->J
DISP J
PAUSE
DISP"TOTAL FOOD:"
(12H)-> A
DISP A
PAUSE
DISP"FOOD USED:"
DISP I
PAUSE
DISP"FOOD LEFT:"
(12h-I)-> A
DISP A
PAUSE
CLRHOME
(P+1)-> P
(W+INT((1rand+1)XP)rand->W
IF P > 10
then
V+INT((1RAND+1)XP)RAND->V
END
IF P=Z
then
(P+(INT15rand)+4)->Z
IF (W+V)=0
Then
clrhome
goto1
End
DISP"YOU ARE"
DISP"ATTACKED!"
pause
clrhome
gotoD
end
GOTO 1
end
lbl E
IF G <= 0
Then
1-> G
END
IF A <= 0
Then
1-> A
END
(10(s+t+u+q+v+w)+15)-> X
IF G<0
then
0-> G
END
IF A< 0
Then
0-> A
End
s-(INT(((G/X)/1,08)S)RAND)-> S
W-(INT(((A/X)/1,18)W)RAND)-> w
IF (T+Q) *find the not equal sign on your calculator* 0
Then
v-(INT(((A/X)/1,18)v)RAND)->v
END
T-(INT(((G/X)/1,15)T)RAND)->T
U-(INT(((G/X)/1,5)U)RAND)->U
IF V *find the not equal sign on your calculator* 0
Then
Q-(INT(((G/X)/1,2)Q)RAND)->Q
END
IF S< 0
Then
0-> S
End
IF T< 0
Then
0-> T
End
IF U< 0
Then
0-> U
End
IF Q< 0
Then
0-> Q
End
IF W< 0
Then
0-> W
End
END
IF (V+W) <= (S0,8+T+Qx1,2+Ux1,5)/8
THEN
CLRHOME
DISP"VICTORY!"
STOP
END
DISP"ENEMY ARMY"
DISP"CREATURES"
DISP"HEARTH:"
DISP W
PAUSE
DISP"AIR:"
DISP V
PAUSE
CLRHOME
IF (Sx0,8+T+Ux1,5+Qx1,2) <= ((W+V)/(INT1 RAND+2))
Then
P+(INT1RAnd+1)-> Z
DISP"HATCHERY NUMBER:"
k-(INT((V+W)/6)RAND)-> K
IF K< 0
Then
0-> K
End
DISP K
PAUSE
END
DISP"YOUR ARMY:"
GOTO F