men% = 120
money% = 35                            '92 free card  1-888-739-9200
towns% = 8
skater% = 5
COLOR 15, 3
CLS
LOCATE 12, 33
PRINT "The War of the 90s"
LOCATE 13, 17
PRINT "Another war-game creation by FROWARE SOFTWARE 1998"
SLEEP

CLS
PRINT "In this game, you must take over all Homie-towns, but at the same time"
PRINT "you must protect your own Skater towns.  You must sell skateboards and"
PRINT "blades to earn money.  If your factory town is taken over, you must"
PRINT "get that back before you take anything else over.  You also must get"
PRINT "soldiers for your battles.  To get them, you must pay the Skater Union."
PRINT "They will then send you soldiers.  You receive a soldier for every dollar"
PRINT "you send.  Good Luck!"
SLEEP

1 CLS
IF skater% = 0 THEN PRINT "You have lost the game!  You stink!": END
IF towns% = 0 THEN PRINT "You have defeated the Ghettos.  Good job, you have won!": END
fro% = INT(RND * 50 + 1): IF fro% > 20 AND fro% < 30 THEN GOTO 40
IF skater% = 1 THEN factory% = 1
2 CLS : PRINT "Soldiers:"; men%
PRINT "Money:"; money%
PRINT "Towns to take over:"; towns%
PRINT "Skater Towns we have under control"; skater%
PRINT "--Choose from below--"
PRINT "1-Get soldiers from the Skater Union"
PRINT "2-Sell Skateboards, Blades, and Boards"
PRINT "3-Attack the nearest Ghetto Town"
PRINT "4-Exit the program"
INPUT "Choose (1-4) from above"; choice%
IF choice% < 1 OR choice% > 4 THEN GOTO 1
IF choice% = 4 THEN END
IF choice% = 1 THEN GOTO 10
IF choice% = 2 THEN GOTO 20
IF choice% = 3 THEN GOTO 30

10 PRINT "How many soldiers do you want?  The max is:"; money%
INPUT "How many"; more%
IF more% > money% THEN PRINT "You cannot afford it!!": SLEEP: LOCATE 11, 1: PRINT "": LOCATE 12, 1: PRINT "": LOCATE 13, 1: PRINT "": LOCATE 11, 1: GOTO 10
money% = money% - more%
men% = more% + men%
GOTO 1

20 IF factory% = 1 THEN PRINT "Production is impossible since the homies occupy this town!": SLEEP: GOTO 2
stuff% = INT(RND * 100 + 1)
PRINT "You are able to make and sell stuff.  You earn"; stuff%; "dollars!": money% = money% + stuff%: SLEEP: GOTO 1


30 CLS
PRINT "You attack the nearest ghetto town..."
ememymen% = INT(RND * 350 + 1): total% = ememymen% + 100
PRINT "The homies have a total of "; total%; "soldiers!"
welose% = INT(RND * 45)
theylose% = INT(RND * 45)
PRINT "The battle goes on..."
men% = men% - welose%
ememymen% = ememymen% - theylose%
IF men% < 1 THEN PRINT "We have lost all our men!!  We must surrender!  They have won!  Rap music": PRINT "will now take over Bergen County, the country, and soon the world!": END
IF ememymen% < 1 THEN PRINT "We have defeated their army!  We have taken this town!": IF factory% = 1 THEN skater% = 2 ELSE towns% = towns% - 1: factory% = 0: SLEEP: GOTO 1
IF men% > ememymen% THEN PRINT "We have won the battle!  They run in fear!  Our forces take over the area!!!": towns% = towns% - 1: SLEEP: GOTO 1
IF men% = ememymen% THEN PRINT "No one is taking over anyone...The battle is a draw...": SLEEP: GOTO 1
IF men% < ememymen% THEN PRINT "They hold strong and we could not take over the Ghetto town!": SLEEP: GOTO 1

40 CLS
PRINT "WE HAVE BEEN ATTACKED!!!"
PRINT "You defend your town..."
ememymen% = INT(RND * 150 + 1): total% = ememymen% + 100
PRINT "The homies have a total of "; total%; "soldiers!"
welose% = INT(RND * 45)
theylose% = INT(RND * 45)
PRINT "The battle goes on..."
men% = men% - welose%
ememymen% = ememymen% - theylose%
IF men% < 1 THEN PRINT "We have lost all our men!!  We must surrender!  They have won!  Rap music": PRINT "will now take overe Bergen County, the country, and soon the world!": END
IF ememymen% < 1 THEN PRINT "We have defeated their army!  We have survived the attack!!": SLEEP: GOTO 1
IF men% > ememymen% THEN PRINT "We have won the battle!  They are retreating!  We have saved the town!":  SLEEP: GOTO 1
IF men% = ememymen% THEN PRINT "No one is taking over anyone...The battle is a draw...": SLEEP: GOTO 1
IF men% < ememymen% THEN PRINT "They have hit us hard! The homies are taking over this Skater town!": skater% = skater% - 1: SLEEP: GOTO 1