10 PRINT "THE UNREAL MIDEVIL WAR GAME."

20 PRINT "YOU ARE THE KING OF A CASTLE WHICH IS UNDER ATTACK BY"

30 PRINT "THE INFAMOUS HUN."

40 PRINT "AS THE KING YOU MUST DIRECT YOUR 1000 MEN TO DEFEND THE"

50 PRINT "FOUR SIDES OF THE CASTLE.ALSO YOU MUST HAVE SOME MEN"

60 PRINT "ON FIRE WATCH,TO PUT OUT FLAMING ARROWS.LET THE BATTLE"

70 PRINT "BEGIN,I WILL SHOW NO MERCY."

80 RANDOMIZE

90 LET A1=1000

100 LET A=1000

110 PRINT 

120 PRINT 

130 LET B=1

140 PRINT "BATTLE NUMBER ";B:LET B=B+1

150 PRINT "HOW MANY MEN WILL DEFEND THE NORTH WALL?"

160 INPUT N

170 IF N>A THEN 1460 

180 IF A<10 THEN 200 

190 IF A/15>N THEN 1430 

200 PRINT "SOUTH WALL(";A-N;" LEFT)"

210 INPUT S

220 IF (S+N)>A THEN 1460 

230 IF A<10 THEN 250 

240 IF A/15>S THEN 1430 

250 PRINT "EAST WALL(";A-(N+S);"LEFT)"

260 INPUT E

270 IF (E+S+N)>A THEN 1460 

280 IF A<10 THEN 300 

290 IF A/15>E THEN 1430 

300 PRINT "WEST WALL(";A-(N+S+E);" LEFT)"

310 INPUT W

320 IF (S+N+E+W)>A THEN 1460 

330 IF A<10 THEN 350 

340 IF A/15>W THEN 1430 

350 PRINT "HOW MANY MEN ON FIRE WATCH(";A-(N+S+E+W);" LEFT)"

360 INPUT F

370 IF (E+S+W+N+F)>A THEN 1460 

380 IF A-(E+W+N+S+F)=0 THEN 430 

390 PRINT 

400 PRINT 

410 PRINT "KING ,YOU JUST THREW ";A-(E+S+W+N+F);" MEN OVER THE WALL."

420 LET A=A-(A-(E+W+N+S+F))

430 PRINT 

440 PRINT "RAISE THE DRAWBRIDGE THE HUN IS APPROACHING."

450 PRINT "WATCH OUT FOR FLAMING ARROWS,SWISH.."

460 PRINT 

470 PRINT 

480 LET F1=A1/15:LET F1=INT(F1*RND(0))

490 IF F1>F*1.5 THEN 510 

500 GOTO 520 

510 PRINT "KING, YOUR CASTLE IS BURNING!!!":GOTO 1410 

520 LET M1=A1-F1

530 LET N1=M1/2:LET N1=INT(N1*RND(0))

540 IF A1<10 THEN 560 

550 IF A1/15>N1 THEN 530 

560 LET S1=M1/2:LET S1=INT(S1*RND(0))

570 IF A1<10 THEN 590 

580 IF A1/15>S1 THEN 560 

590 LET E1=M1/2:LET E1=INT(E1*RND(0))

600 IF A1<10 THEN 620 

610 IF A1/15>E1 THEN 590 

620 LET W1=A1-(N1+S1+E1+F1)

630 IF A1<10 THEN 650 

640 IF A1/15>W1 THEN 530 

650 IF N1>2*N THEN 670 

660 GOTO 690 

670 PRINT "KING, YOU LOST ALL ";N;" MEN ON THE NORTH WALL."

680 LET A=A-N:GOTO 810 

690 IF N>2*N1 THEN 710 

700 GOTO 740 

710 PRINT "KING, YOU KILLED ALL ";N1;" MEN ON THE NORTH WALL."

720 LET A1=A1-N1

730 GOTO 810 

740 IF N1>N THEN 770 

750 IF N>N1 THEN 790 

760 PRINT "DRAW AT THE NORTH WALL.":GOTO 810 

770 PRINT "KING, YOU LOST ";N1-N;" MEN AT THE NORTH WALL."

780 LET A=A-(N1-N):GOTO 810 

790 PRINT "KING, YOU KILLED ";N-N1;" MEN AT THE NORTH WALL."

800 LET A1=A1-(N-N1)

810 IF S1>2*S THEN 830 

820 GOTO 850 

830 PRINT "KING, YOU LOST ALL ";S;" MEN ON THE SOUTH WALL."

840 LET A=A-S:GOTO 970 

850 IF S>2*S1 THEN 870 

860 GOTO 900 

870 PRINT "KING, YOU KILLED ALL ";S1;" MEN ON THE SOUTH WALL."

880 LET A1=A1-S1

890 GOTO 970 

900 IF S1>S THEN 930 

910 IF S>S1 THEN 950 

920 PRINT "DRAW AT THE SOUTH WALL.":GOTO 970 

930 PRINT "KING, YOU LOST ";S1-S;" MEN AT THE SOUTH WALL."

940 LET A=A-(S1-S):GOTO 970 

950 PRINT "KING, YOU KILLED ";S-S1;" MEN AT THE SOUTH WALL."

960 LET A1=A1-(S-S1)

970 IF E1>2*E THEN 990 

980 GOTO 1010 

990 PRINT "KING, YOU LOST ALL ";E;" MEN ON THE EAST WALL."

1000 LET A=A-E:GOTO 1130 

1010 IF E>2*E1 THEN 1030 

1020 GOTO 1060 

1030 PRINT "KING, YOU KILLED ALL ";E1;" MEN ON THE EAST WALL."

1040 LET A1=A1-E1

1050 GOTO 1130 

1060 IF E1>E THEN 1090 

1070 IF E>E1 THEN 1110 

1080 PRINT "DRAW AT THE EAST WALL.":GOTO 1130 

1090 PRINT "KING, YOU LOST ";E1-E;" MEN AT THE EAST WALL."

1100 LET A=A-(E1-E):GOTO 1130 

1110 PRINT "KING, YOU KILLED ";E-E1;" MEN AT THE EAST WALL."

1120 LET A1=A1-(E-E1)

1130 IF W1>2*W THEN 1150 

1140 GOTO 1170 

1150 PRINT "KING, YOU LOST ALL ";W;" MEN ON THE WEST WALL."

1160 LET A=A-W:GOTO 1290 

1170 IF W>2*W1 THEN 1190 

1180 GOTO 1220 

1190 PRINT "KING, YOU KILLED ALL ";W1;" MEN ON THE WEST WALL."

1200 LET A1=A1-W1

1210 GOTO 1290 

1220 IF W1>W THEN 1250 

1230 IF W>W1 THEN 1270 

1240 PRINT "DRAW AT THE WEST WALL.":GOTO 1290 

1250 PRINT "KING, YOU LOST ";W1-W;"MEN AT THE WEST WALL."

1260 LET A=A-(W1-W):GOTO 1290 

1270 PRINT "KING, YOU KILLED ";W-W1;" MEN AT THE WEST WALL."

1280 LET A1=A1-(W-W1):GOTO 1290 

1290 PRINT 

1300 PRINT 

1310 PRINT "KING,YOU HAVE ";A;" MEN LEFT."

1320 PRINT "THE HUN HAS ";A1;" MEN LEFT."

1330 PRINT 

1340 PRINT 

1350 PRINT 

1360 PRINT 

1370 IF A<=0 THEN 1410 

1380 IF A1<=0 THEN 1420 

1390 GOTO 140 

1400 PRINT 

1410 PRINT "KING, YOU LOST THE WAR!!!!!!!!!":GOTO 1490 

1420 PRINT "KING, YOU WON THE WAR!!!!!!":GOTO 1490 

1430 PRINT 

1440 PRINT 

1450 PRINT "KING,YOUR DEFENSES ARE TO UNEVEN.":GOTO 150 

1460 PRINT 

1470 PRINT 

1480 PRINT "KING, YOU ONLY HAVE ";A;" MEN.":GOTO 150 

1490 END