home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / P.EMPIRE-V12.0 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.9 KB  |  254 lines
  1. 1 X=1:A$="SYS.╚ONOUR":DR=1:GOSUB1075:X=RND(-TI):POKE53252,6
  2. 3 A$="ôïï\C7╟ETTING YOUR ╙TAT'S ":SYSO:GOSUB121:GOSUB700:IFA$>"20"THEN81
  3. 5 GOSUB1002:INPUT#2,A$:ON-(A$=NA$)GOTO19:X=X+1:IFX<24THEN5
  4. 7 A$="ïï╬EW ╓ICTIM!":SYSO:X=1
  5. 9 GOSUB1002:INPUT#2,A$:G3=X:ON-(A$="EMPTY")GOTO13:X=X+1:ON-(X<24)GOTO9:CLOSE2
  6. 11 A$="ï╙ORRY, ╬O ╥OOMï":SYSO:GOTO1812
  7. 13 A=INT(RND(1)*300)+2E3:C$=CHR$(13):W$=NA$+C$+"5E3"+C$+"20"+C$+STR$(A)
  8. 15 W$=W$+C$+"2"+C$+"1E4"+C$+"15"+C$+"1E3"+C$+"0"+C$+"0"+C$+"0"+C$+"0"+C$+"0"
  9. 17 X=G3:GOSUB1002:PRINT#2,W$:A$="ïï╧K, YOU'RE SET...":SYSO:GOSUB1002:INPUT#2,A$
  10. 19 G3=X:INPUT#2,LA,WA,SF,NB,GR,TR,PN,I1,I2,I3,I4,I5:CLOSE2
  11. 21 IFG3=PEEK(900)ANDPEEK(899)>2ANDAC%<9THEN675
  12. 23 IFG3<>PEEK(900)THENPOKE900,G3:POKE901,.:POKE899,.
  13. 25 FF=.:A$="ïï\CN╫HAT NOW, "+NA$+"?-->":SYSO:GOSUB1006
  14. 27 ON-(AN$="╤")-(AN$="├")*2-(AN$="╟")*3GOTO800,65,43
  15. 29 ON-(AN$="╥")-(AN$="┌")*2-(AN$="╬")*3GOTO33,69,61:IFAN$="┘"THENGOSUB125
  16. 30 IFAN$="╧"THENGOSUB109
  17. 31 ON-(AN$<>"ë")GOTO25:A$="MENU E1":DR=1:GOSUB1075:GOTO25
  18. 33 A$="ïï╥ATE IS"+STR$(TR)+"%":SYSO
  19. 35 A$="ïï╬EW RATE?->":SYSO:GOSUB1006
  20. 37 X=INT(VAL(AN$)):IFAN$=""ORX<.THEN25
  21. 39 IFX>50THENA$="ïï═AX=50% !ï":SYSO:GOTO35
  22. 41 TR=X:GOTO25
  23. 43 A$="ïï╟AMBLING!":SYSO
  24. 45 OG=INT(RND(1)*3+2):A$="ïï╧DDS:"+STR$(OG)+" TO 1"
  25. 47 A$=A$+"ï┘OU HAVE"+STR$(PN)+" POUNDS.ï":SYSO
  26. 49 A$="ï┬ET HOW MANY? MAX=500: ":SYSO:GOSUB1006:IFTR$<""THEN1080
  27. 51 X=VAL(AN$):ON-(X<1)-(X>500ORX>PN)*2GOTO25,47
  28. 53 A$="ïï╨ICK A NUMBER BETWEEN 1 AND"+STR$(OG+1)+":":SYSO:GOSUB1006
  29. 55 ON-(AN$="")-(TR$<"")*2GOTO25,1080:A=VAL(AN$):IFA<1ORA>OG+1GOTO53
  30. 57 B=INT(RND(.)*(OG+1)+1):ON-(A=B)GOTO59:PN=PN-X:A$="ïï┘OU LOSE!":SYSO:GOTO45
  31. 59 PN=PN+(X*OG):A$="ïï┘OU WIN"+STR$(X*OG)+" POUNDS!":SYSO:GOTO45
  32. 61 A$="ïï\C7╞IGHT ╬EWS -->\CMïï":SYSO:A$="SYS.EMPNEWS":DR=1:GOSUB1075
  33. 63 A$="ï\C7-->═ORE UPDATES LATER...":SYSO:GOTO25
  34. 65 X=INT(LA*2.7*RND(1)+SF*7.5*RND(1)+I3*99*RND(1)):IFX>(LA+SF)*4THENX=(LA+SF)*4
  35. 67 A$="ï╘HIS YEAR'S HARVEST IS"+STR$(X)+" BUSHELS.":SYSO:GR=GR+X:PL=1:GOTO140
  36. 69 ON-(AC%<9)GOTO25:A$="ïï╥ESET?":SYSO:GOSUB1006
  37. 71 IFAN$<>"┘"THEN25
  38. 73 C$=CHR$(13):G$="EMPTY"+C$+"0"+C$+"0"+C$+"0"+C$+"0"+C$+"0"+C$+"00"
  39. 77 X=1:A$="EMPIRE,L,"+CHR$(100):GOSUB600:LP=.:GOSUB680:IFLPTHEN25
  40. 79 FORX=1TO24:GOSUB1002:PRINT#2,G$:NEXT:CLOSE2:GOTO25
  41. 81 CLOSE2:CLOSE15:GOTO69
  42. 101 C$=CHR$(13):W$=NA$+C$+STR$(LA)+C$+STR$(WA)+C$+STR$(SF)+C$+STR$(NB)
  43. 103 W$=W$+C$+STR$(GR)+C$+STR$(TR)+C$+STR$(PN)+C$+STR$(I1)+C$+STR$(I2)
  44. 105 W$=W$+C$+STR$(I3)+C$+STR$(I4)+C$+STR$(I5)
  45. 107 GOSUB121:X=G3:GOSUB1002:PRINT#2,W$:CLOSE2:RETURN
  46. 109 A$="ïï\C7╧THER ┼MPERORSï--------------\CNï":SYSO:GOSUB121:X=1
  47. 111 GOSUB1002:INPUT#2,A$,B$:IFA$="EMPTY"THEN115
  48. 113 A$="ï#"+RIGHT$(" "+STR$(X),2)+" "+A$+" HAS "+B$+" ACRES.ï":SYSO
  49. 115 SYS53154:MW=1:A$="  ":SYSO:IFRCTHENA$="ï┴BORTEDï":SYSO:X=99
  50. 117 X=X+1:ON-(X<24)GOTO111:CLOSE2:RETURN
  51. 121 X=1:A$="EMPIRE":GOTO600
  52. 125 A$="ïï\C7"+NA$+" (#"+STR$(G3)+")ïï\C5╠AND:     "+STR$(LA)+" ACRESï╨OUNDS:   "
  53. 127 A$=A$+STR$(PN)+"ï╟RAIN:    "+STR$(GR)+" BUSHELSï╘AX ╥ATE: "+STR$(TR)
  54. 129 A$=A$+"%ï╙OLDIERS: "+STR$(WA)+"ï╙ERFS:    "+STR$(SF)+"ï╬OBLES:   "+STR$(NB)
  55. 131 SYSO:A$="ïï\C3╨ALACE:   "+STR$(10*I1)+"% COMPLETED.ï═ARKETS:  "+STR$(I2)
  56. 133 A$=A$+"ï═ILLS:    "+STR$(I3)+"ï╞OUNDRIES:"+STR$(I4)
  57. 135 A$=A$+"ï╙HIPYARDS:"+STR$(I5)+"ï\CN":SYSO:RETURN
  58. 140 A$="ïïï\C1┘OU HAVE"+STR$(LA)+" ACRES.":GOSUB234
  59. 142 ON-(AN$="┬")-(AN$="╙")*2-(AN$="├")*3GOTO144,152,160:ON-(AN$="┘")GOSUB125:GOTO140
  60. 144 A$="ïï╘HE ┬ARBARIANS SELL THEIR LANDïFOR $25.00 AN ACRE.":GOSUB230
  61. 146 BL=VAL(AN$):IFBL<1THEN140
  62. 148 IFPN<(BL*25)THENA$="ï ┘OU ONLY HAVE"+STR$(PN)+" POUNDS!":SYSO:GOTO144
  63. 150 PN=PN-(BL*25):LA=LA+BL:A$="ï┬OUGHT!":SYSO:GOTO160
  64. 152 A$="ïï╘HE ┬ARBARIANS BUY LANDïFOR $10.00 AN ACRE.":GOSUB232
  65. 154 SL=VAL(AN$):IFSL<1THEN140
  66. 156 IFSL>LA-1THENA$="ï┘OU ONLY HAVE"+STR$(LA)+" ACRES!":SYSO:GOTO152
  67. 158 LA=LA-SL:PN=PN+(10*SL):A$="ï╙OLD!":SYSO
  68. 160 A$="ïï┘OU HAVE"+STR$(GR)+" BUSHELS.":GOSUB234
  69. 162 ON-(AN$="┬")-(AN$="╙")*2-(AN$="├")*3GOTO164,172,180:ON-(AN$="┘")GOSUB125:GOTO160
  70. 164 A$="ïï╘HE ┬ARBARIANS SELL GRAINïFOR $1.00 A BUSHEL.":GOSUB230
  71. 166 BG=VAL(AN$):IFBG<1THEN160
  72. 168 IFPN<BGTHENA$="ï┘OU ONLY HAVE"+STR$(PN)+" POUNDS!":SYSO:GOTO164
  73. 170 PN=PN-BG:GR=GR+BG:A$="ï┬OUGHT!":SYSO:GOTO180
  74. 172 A$="ïï╘HE ┬ARBARIANS BUY GRAINïFOR $.5 PER BUSHEL.":GOSUB232
  75. 174 SG=VAL(AN$):IFSG<1THEN160
  76. 176 IFSG>GRTHENA$="ï┘OU ONLY HAVE"+STR$(GR)+" BUSHELS!":SYSO:GOTO172
  77. 178 GR=GR-SG:PN=INT(PN+(SG*.5)):A$="ï╙OLD!":SYSO
  78. 180 PR=SF*5:A$="ïï┘OUR PEOPLE NEED"+STR$(PR)+" BUSHELS.ï ╟IVE THEM HOW MANY? "
  79. 182 SYSO:GOSUB1006:GP=INT(VAL(AN$))
  80. 184 IFGP>GRTHENA$="ï┬UT YOU HAVE"+STR$(GR)+" BUSHELS!":SYSO:GOTO180
  81. 186 ON-(GP<.OR(GP=.ANDLEFT$(AN$,1)<>"0"))GOTO180:GR=GR-GP
  82. 188 AR=WA*8+1:A$="ïï┘OUR ARMY NEEDS"+STR$(AR)+" BUSHELS.ï╟IVE THEM HOW MANY? "
  83. 190 SYSO:GOSUB1006:GA=INT(VAL(AN$))
  84. 192 IFGA>GRTHENA$="ïï┘OU ONLY HAVE"+STR$(GR)+".":SYSO:GOTO188
  85. 194 ON-(GA<.OR(GA=.ANDLEFT$(AN$,1)<>"0"))GOTO188:GR=INT(GR-GA):IFGR<.THENGR=.
  86. 196 A$="ïï-->╘HIS YEAR<--ï":SYSO:GD=GP/PR:AD=GA/AR:PD=.
  87. 198 IFGD<1THENPD=INT((PR-GP)/5)-INT(RND(1)*(PR-GP)/5+30)
  88. 200 PD=PD*ABS(PD>.):ON-(GD>.8ORGD>RND(1))GOTO210
  89. 202 A$="ï┘OUR ┼MPIRE WAS ╚ALFED BY A HORDE OF STARVING SERFS!ï":SYSO
  90. 204 A=I2:GOSUB236:I2=A:A=I3:GOSUB236:I3=A:A=I4:GOSUB236:I4=A:A=I5:GOSUB236:I5=A:WA=.:PN=.
  91. 206 GR=.:AF=1:NB=INT(NB/2):LA=INT(LA/2):SF=INT(SF/2):A$="SYS.EMPNEWS,S,A":X=1
  92. 208 GOSUB600:PRINT#2,NA$+" WAS TOO ╙╘╔╬╟┘!!!":PRINT#2:CLOSE2:GOSUB101:GOTO240
  93. 210 DN=INT(RND(1)*(SF/10)+30):BB=INT(RND(1)*(SF/12)+10):PI=INT(RND(1)*(SF/15)+10)
  94. 212 TP=BB+PI-PD-DN:BN$="GAINED":IFTP<0THENBN$="LOST"
  95. 214 A$="ï"+STR$(PD)+" STARVATIONS.ï"+STR$(BB)+" BIRTHSï":SYSO
  96. 216 A$=STR$(DN)+" DIED NATURALLY.ï"+STR$(PI)+" PEOPLE IMMIGRATED.":SYSO
  97. 218 A$="ïï┘OUR ┼MPIRE "+BN$+STR$(ABS(TP))+" CITIZENS.":SF=SF+TP
  98. 220 SF=SF*ABS(SF>.):A$=A$+"ï╬EW POPULATION IS"+STR$(SF)+".":SYSO
  99. 222 TG=INT(((GP-PR)*(TR/100))/2):AF=.:IFGA<ARTHENAF=1
  100. 224 IFTG>.THENA$="ïï┘OU GOT $"+STR$(TG)+" FROM TAXES.":SYSO
  101. 226 IFAF=1THENA$="ïï┘OUR ARMY STARVED!":SYSO
  102. 228 GOTO240
  103. 230 A$=A$+"ïï┬UY HOW MANY? ":SYSO:GOSUB1006:RETURN
  104. 232 A$=A$+"ïï╙ELL HOW MANY? ":SYSO:GOSUB1006:RETURN
  105. 234 A$=A$+"ï ┬)UY, ╙)ELL, OR ├)ONTINUE?-->":SYSO:GOSUB1006:RETURN
  106. 236 A=A-INT(RND(1)*A):RETURN
  107. 240 IF(RND(.)*TR<25)OR(RND(1)>.1)THEN248
  108. 242 H=INT(RND(1)*4+1)+2
  109. 244 A$="ï╘HIEVES TOOK "+STR$(H)+"% OF YOUR CASH..":SYSO
  110. 246 PN=PN-INT(PN*(H/100))
  111. 248 IN$(1)="╙OLDIER":IN$(2)="═ARKET":IN$(3)="═ILL":IN$(4)="╨ALACE"
  112. 250 IN$(5)="╞OUNDRY":IN$(6)="╙HIPYARD":IN$(7)="╬OBLE":IN(1)=10
  113. 252 IN(2)=1E3:IN(3)=2E3:IN(4)=1E4:IN(5)=7E3:IN(6)=8E3:IN(7)=25E3
  114. 254 A$="\CNïï╫HICH INVESTMENT (0=NONE,?=LIST):-->":SYSO
  115. 256 GOSUB1006:ON-(TR$<"")GOTO1080:IFLEN(AN$)>2THEN254
  116. 258 IFAN$="ë"THENA$="MENU E3":DR=1:GOSUB1075:GOTO254
  117. 259 IFAN$="┘"THENGOSUB125:GOTO254
  118. 260 IN=INT(VAL(AN$)):IFAN$="0"THEN294
  119. 262 IFIN<1ORIN>7THEN254
  120. 264 A$="\C5ïï╔NVESTMENT: "+IN$(IN)+".ï\CN┬UY HOW MANY? ":SYSO
  121. 266 GOSUB1006:ON-(TR$<"")GOTO1080:IFLEN(AN$)>3THEN264
  122. 268 BN=INT(VAL(AN$)):IFBN<1THEN254
  123. 270 TC=BN*IN(IN):IFTC>PNTHENA$="\C2┘OU ONLY HAVE"+STR$(PN)+" POUNDS!":SYSO:GOTO264
  124. 272 ONINGOTO274,278,280,282,288,290,292
  125. 274 IF(BN+WA)/20>NBTHENA$="ïï\C2┘OU ONLY HAVE"+STR$(NB)+" NOBLES!":SYSO:GOTO254
  126. 276 WA=WA+BN:GOSUB320:A$=A$+STR$(WA)+" "+IN$(IN)+"S.":SYSO:GOTO254
  127. 278 I2=I2+BN:GOSUB320:A$=A$+STR$(I2)+" "+IN$(IN)+"S.":SYSO:GOTO254
  128. 280 I3=I3+BN:GOSUB320:A$=A$+STR$(I3)+" "+IN$(IN)+"S.":SYSO:GOTO254
  129. 282 IFI1+BN>10THENA$="ï\C2╔TS ALREADY BUILT!":SYSO:GOTO264
  130. 284 I1=I1+BN:GOSUB320:A$=A$+STR$(I1*10)+"% OF THE "+IN$(IN)+","
  131. 286 NB=NB+BN:A$=A$+"ïAND"+STR$(NB)+" NOBLES.":SYSO:GOTO254
  132. 288 I4=I4+BN:GOSUB320:A$=A$+STR$(I4)+" "+IN$(IN)+"S.":SYSO:GOTO254
  133. 290 I5=I5+BN:GOSUB320:A$=A$+STR$(I5)+" "+IN$(IN)+"S.":SYSO:GOTO254
  134. 292 NB=NB+BN:GOSUB320:A$=A$+STR$(NB)+" "+IN$(IN)+"S.":SYSO:GOTO254
  135. 294 A$="ïï\CN┴TTACK WHOM? (0=NONE,?=LIST)-->":SYSO:GOSUB1006
  136. 296 IFAN$="0"THENA$="ï\C5╬O ATTACK!ï":SYSO:GOTO512
  137. 298 IFAN$="ë"THENGOSUB109
  138. 299 IFAN$="┘"THENGOSUB125:GOTO294
  139. 300 G1=INT(VAL(AN$)):IFG1<1ORG1>24THEN294
  140. 302 GOSUB121:X=G1:GOSUB1002:INPUT#2,EN$
  141. 304 IFEN$="EMPTY"THENA$="\C2╔NVALID #!":SYSO:CLOSE2:GOTO294
  142. 306 INPUT#2,EZ,EW,EF,EN,EG,ET,EP,E1,E2,E3,E4,E5
  143. 308 CLOSE2:A$="\CNï┘OUR ╧PPONENT: -->"+EN$+"<--ï╠AND-->"+STR$(EZ)+"ï":SYSO
  144. 310 A$="\C2ïï┴RE YOU SURE? ":SYSO:GOSUB1006:IFAN$<>"┘"THEN294
  145. 312 I=1:IFPEEK(901)=.THEN318
  146. 314 A=PEEK(901+I):ON-(A=X)GOTO316:I=I+1:ON-(I>PEEK(901))GOTO318:GOTO314
  147. 316 A$="ï┘OU ┴LREADY ─ID!!ï":SYSO:GOTO294
  148. 318 POKE901,PEEK(901)+1:POKE901+PEEK(901),X:GOTO330
  149. 320 PN=PN-(IN(IN)*BN):A$="\C7ï┘OU NOW HAVE":RETURN
  150. 330 ON-(G1<>G3)GOTO334:A$="ïï┴TTACK ┘╧╒╥╙┼╠╞?ï┬AD ═ISTAKE!ï"
  151. 332 SYSO:LA=LA-INT(RND(1)*(LA/2)):GOTO512
  152. 334 IFAF=1ORWA<1THENA$="ïï┘OUR ARMY STARVED. ╥EMEMBER?":SYSO:GOTO512
  153. 336 A$="ïï"+NA$+"'S BATTLE COMMAND:-->":SYSO:GOSUB1006:IFTR$<""THEN1080
  154. 338 CM=VAL(AN$):IFAN$=""ORAN$="ë"THENX=1:A$="MENU E2":DR=1:GOSUB1075:GOTO336
  155. 340 ONCMGOTO342,384,398,512:GOTO336
  156. 342 GOSUB414:ONAEGOTO334:A=(WA+LA)/(EW+EZ):IFA>1ORRND(1)<ATHEN348
  157. 344 A=INT(RND(1)*EW):A$="ï┘OU ╙╒╥╨╥╔╙┼─ THEM!!!ï"+MID$(STR$(A),2)
  158. 346 A$=A$+" OPPOSING WARRIORS BOUGHT THE FARM!ï":SYSO:EW=EW-A:GOTO354
  159. 348 IFA<1ORRND(1)+.1>A/10THEN354
  160. 350 A=INT(RND(1)*WA):A$="ï┘OU GOT ┴═┬╒╙╚┼─!!!ï"+MID$(STR$(A),2)
  161. 352 A$=A$+" OF YOUR WARRIORS WERE WASTED!ï":SYSO:WA=WA-A
  162. 354 A$="ï\C7(+)=┼NEMY ─EATH (-)=┘OUR ─EATHï":FF=1:PV=.
  163. 356 A$=A$+"----------------------------------------ï":SYSO:SR=EW:SG=WA
  164. 358 IFRND(1)*50+(WA*.05)+(LA*.002)>RND(1)*50+(EW*.05)+(EZ*.002)THEN364
  165. 360 A$="\C2-":SYSO:WA=WA-1:IFWA<1THENPV=1:EW=INT(EW+RND(1)*(SR-EW)):GOTO380
  166. 362 FORI=1TO70:NEXT:GOTO358
  167. 364 A$="\C5+":SYSO:EW=EW-1:IFEW>.THEN362
  168. 366 A$="ïï\CN╓ICTORY IS YOURS!ïï┘OUR"+STR$(WA)
  169. 368 A$=A$+" REMAINING SOLDIERSïCAPTURED"
  170. 370 LT=ABS(INT(WA*.7+200+RND(1)*300+RND(1)*200+EZ*.01)):IFLT>EZTHENLT=EZ
  171. 372 A$=A$+STR$(LT)+" ACRES...":SYSO:IFWATHENEW=INT(EN*20/2+RND(1)*(EN*20/2))
  172. 374 EZ=INT(EZ-LT):LA=INT(LA+LT):A$="ïï┘OU NOW HAVE"+STR$(LA)+" ACRES.":SYSO
  173. 376 IFEZ<1THENA$="ïï┘OU ALSO KILLED "+EN$+"!ï":SYSO:W$="EMPTY":GOTO424
  174. 378 A$="ïï"+EN$+" HAS"+STR$(EZ)+" ACRES LEFT.":SYSO:EW=INT(EW):GOTO418
  175. 380 A$="ïï\CN┘OU WERE DEFEATED!ïï┬UT YOU MANAGED TO SEIZE":LT=ABS(SR-EW)
  176. 382 LT=ABS(INT(LT*RND(1)*4)+100):GOTO372
  177. 384 A$="ïï┘OU ATTACK THE ENEMY PALACE...":SYSO:GOSUB414:IFAETHEN334
  178. 386 IFE1<1THENA$="ïï╔T BE GONE!":SYSO:GOTO336
  179. 388 X=FRE(.):IFRND(1)*WA<RND(1)*EW*2THEN410
  180. 390 A$="ï┘OU DESTROYED 10% OF THEIR PALACE!!!ï":SYSO:SL=INT(RND(1)*(WA*.3))+1
  181. 392 E1=E1+(E1>.):EN=EN+(EN>.):IFEW>EN*20THENEW=EN*20
  182. 394 A$="ï-->┘OU LOST"+STR$(SL)+" SOLDIERS INïTHE PROCESS...":SYSO
  183. 396 WA=WA-SL:GOTO336
  184. 398 A$="ïï┘OU SNEAK UP ON A NOBLE...":SYSO:X=FRE(.):GOSUB414:IFAETHEN334
  185. 400 IFRND(1)*WA<RND(1)*EW*1.7THEN410
  186. 402 IFEN<2THENA$="ïï┘OU CAN'T FIND ANY!":SYSO:GOTO336
  187. 404 IFNB>INT(LA/1E3)THENA$="ïï┘OUR OTHER ╬OBLE'S SAY ╬╧!ï":SYSO:GOTO336
  188. 406 A$="ï┘OU PUNCH HIM OUT AND DRAG HISïTWITCHING CARCASS OFF!!!ï":SYSO
  189. 408 NB=NB+1:EN=EN-1:SL=INT(RND(1)*(WA*.3))+1:GOTO394
  190. 410 A$="ï╟UARDS APPEAR AND HALT YOUR ATTEMPTS!":SYSO:SL=INT(RND(1)*(WA*.3))+2
  191. 412 A$="ïï-->╘HE GUARDS KILL"+STR$(SL)+" MEN!":SYSO:GOTO396
  192. 414 AE=.:IFWA<1THENA$="ïï\C2┘OU HAVE NO SOLDIERS!\CN":SYSO:AE=1:WA=.
  193. 416 RETURN
  194. 418 C$=CHR$(13):W$=EN$+C$+STR$(EZ)+C$+STR$(EW)+C$+STR$(EF)+C$+STR$(EN)
  195. 420 W$=W$+C$+STR$(EG)+C$+STR$(ET)+C$+STR$(EP)+C$+STR$(E1)+C$+STR$(E2)+C$
  196. 422 W$=W$+STR$(E3)+C$+STR$(E4)+C$+STR$(E5)
  197. 424 GOSUB121:X=G1:GOSUB1002:PRINT#2,W$:CLOSE2:IFEZ<1THENGR=GR+EG:PN=PN+EP:SF=SF+EF
  198. 426 GOSUB101
  199. 512 A$="ïï╙PREADING THE NEWS...ïï":SYSO:IFFF=.THEN516
  200. 513 X=1:TT$=NA$+" DEFEATS "+EN$:IFPV=1THENTT$=EN$+" RESISTS "+NA$
  201. 514 A$="SYS.EMPNEWS,S,A":IFEZ<1THENTT$=NA$+" FINISHES OFF "+EN$
  202. 515 GOSUB600:GOSUB700:ON-(A$>"19")GOTO555:PRINT#2,TT$:PRINT#2:CLOSE2
  203. 516 A=INT(RND(1)*12)+1:ON-(A>6)GOTO532:ONAGOTO520,522,529,527,525
  204. 517 A=INT(RND(1)*(I4/2)):B=INT(RND(1)*(I5/2))
  205. 518 A$="╫╧╥╦┼╥ ╥EVOLT!!!ï"+STR$(A)+" ╞OUNDRIES AND"+STR$(B)
  206. 519 A$=A$+" ╙HIPYARDSïARE DESTROYED!ï":SYSO:I4=I4-A:I5=I5-B:GOTO532
  207. 520 A=INT(RND(1)*(SF*.2)):A$="╨╠┴╟╒┼!! "+STR$(A)+" PEOPLE "
  208. 521 A$=A$+"BECOME SOIL FORïNEXT YEAR'S GROWING SEASON.":SYSO:SF=SF-A:GOTO532
  209. 522 A=INT(RND(1)*(SF*.2)):B=INT(RND(1)*(LA/3)):A$="┴ ╞╔╥┼ BREAKS OUT!ï"
  210. 523 A$=A$+STR$(B)+" ACRES ARE SCORCHED, ANDï"+STR$(A)+" PEOPLE ARE MELTED."
  211. 524 SYSO:SF=INT(SF-A):LA=INT(LA-B):GOTO532
  212. 525 A=INT(RND(1)*(PN*.6)):A$="╘HIEVES STORM THE PALACE AND STEALï"+STR$(A)
  213. 526 A$=A$+" POUNDS!":SYSO:PN=INT(PN-A):GOTO532
  214. 527 A=INT(RND(1)*(LA/3)):GOSUB557
  215. 528 A$=A$+"ïACRES FOR GOOD BEHAVIOR.":SYSO:LA=INT(LA+A):GOTO532
  216. 529 A=INT(RND(1)*(PN/2))+50:GOSUB557
  217. 530 A$=A$+"ïPOUNDS 'CUZ YOU HAVE A CUTE BUTT.ï(╧L' ╟EORGE IS A BIT QUEER!)"
  218. 531 SYSO:PN=INT(PN+A)
  219. 532 IFLA<400THENA$="ïï┘OU LOST MOST YOUR LAND!ï":GOTO534
  220. 533 ON-(SF>300)GOTO536:A$="ïï┘OU HAVEN'T ENOUGH SERFS TO MAINTAINïTHE EMPIRE!"
  221. 534 A$=A$+"ï╦ING ╟EORGE PUTS A MERCY ARROW THROUGHïYOUR HEAD.ï":SYSO
  222. 535 W$="EMPTY":GOSUB107:GOTO550
  223. 536 P2=INT(((RND(1)*75)+25)*I2):P3=INT(((RND(1)*100)+50)*I3)
  224. 537 P4=INT(((RND(1)*175)+125)*I4):P5=INT(((RND(1)*200)+150)*I5)
  225. 538 A$="ïï->╨ROFIT REPORT FROM THE STOCK MARKET<-":SYSO
  226. 539 PN=INT(PN+P2+P3+P4+P5):A$="ïï ═ARKETS:  "+STR$(P2):SYSO
  227. 540 A$="ï ═ILLS:    "+STR$(P3):SYSO
  228. 541 A$="ï ╞OUNDRIES:"+STR$(P4):SYSO
  229. 542 A$="ï ╙HIPYARDS:"+STR$(P5)+"ï":SYSO:X=FRE(.):X=INT(RND(1)*19)+6
  230. 543 GOSUB125:A$="ï┘OU CAN HAVE 20 SOLDIERS PER NOBLE TOï─EFEND YOUR ┼MPIRE.ï"
  231. 544 A$=A$+" ╘HESE SOLDIERS COST"+STR$(X)+" POUNDS EACH.ïï┬UY HOW MANY? ":SYSO
  232. 545 GOSUB1006
  233. 546 B=INT(VAL(AN$)):ON-(B<1)-(B*X>PN)*2GOTO549,543
  234. 547 IFWA+B>NB*20THENA$="┘OU ONLY HAVE"+STR$(NB)+" NOBLES!":SYSO:GOTO543
  235. 548 WA=INT(WA+B):PN=INT(PN-(B*X))
  236. 549 A$="ïï╞IXING UP THE PALACE, PLEASE WAIT...":SYSO:GOSUB101
  237. 550 A$="ïï╨LAY ┼MPIRE AGAIN? (┘/╬): ":SYSO:GOSUB1006:POKE899,PEEK(899)+1
  238. 551 ON-(AN$<>"┘")GOTO554:IFPEEK(899)<2ORAC%=9THEN1
  239. 552 A$="ï╚AVEN'T YOU HAD ENOUGH YET? ":SYSO:GOSUB1006:IFAN$="┘"THEN554
  240. 553 A$="ï╘OUGH ┬ANANAS \C6\V2 !!!!!ïï":SYSO:GOTO1080
  241. 554 A$="ï\C2╟OODBYE, ═IGHTY ┼MPEROR...ï╨LAY AGAIN SOON!!!ïï":SYSO:GOTO800
  242. 555 CLOSE2:A$="SYS.EMPNEWS,S,W":GOSUB600:PRINT#2,"    ┴S OF "D1$:PRINT#2
  243. 556 CLOSE2:GOTO513
  244. 557 A$="╦ING ╟EORGE REWARDS YOU WITH"+STR$(A):RETURN
  245. 600 CLOSE15:OPEN15,9,15:CLOSE2:OPEN2,9,2,MID$(X$,X,1)+":"+A$:RETURN
  246. 675 A$="ïï┘OU MUST BE DREAMING!":SYSO:GOTO1812
  247. 680 GOSUB700:IFA$="00"THENRETURN
  248. 685 A$="┼╥╥╧╥#"+A$:LP=1:SYSO:RETURN
  249. 700 INPUT#15,A$,B$,AN$,AN$:RETURN
  250. 800 GOTO1812
  251. 997 REM MODS BY THE CHAIRMAN
  252. 998 REM CALL THE MORGUE 918-481-1188
  253. 999 REM
  254.