home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE1.ARC / ST / R.EMPIRE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  22.5 KB  |  550 lines
  1. 100 POKE152,PEEK(251)
  2. 110 GOTO470
  3. 120 :
  4. 130 :REM START OF USER JUMP TABLE.
  5. 140 :
  6. 150 GOTO660 :REM CHECK FOR CARRIER.
  7. 160 GOTO720 :REM SEND P$+CHR$(13) OUT.
  8. 170 GOTO730 :REM SEND P$ OUT.
  9. 180 GOTO770:REM GET L$ FROM MODEM.
  10. 190 GOTO860:REM CALL FOR CHAT.
  11. 200 GOTO900:REM ENGAGE CHAT MODE.
  12. 210 GOSUB2140:GOTO970:REM SEND 'P' TO USERFILE.
  13. 220 GOTO1000:REM READ ERROR CHANNEL.
  14. 230 GOTO1020:REM READ SYSTEM CLOCK.
  15. 240 GOTO1080:REM DISPLAY USER STATS.
  16. 250 GOTO1220:REM DISPLAY USER ONLINE.
  17. 260 GOTO1240:REM EDIT USER STATISTICS.
  18. 270 GOTO1610:REM REMOTE SYSOP MENU.
  19. 280 GOTO1830:REM DISPLAY DIR.
  20. 290 GOTO2130:REM BREAK RC INTO LO/HI.
  21. 300 GOTO2170:REM UPDATE (USER LOG).
  22. 310 GOTO2180:REM SAME AS 2330.
  23. 320 GOTO2190:REM GET U$() FROM DISK.
  24. 330 GOTO2200:REM GET N$() FROM DISK.
  25. 340 GOTO2210:REM SEND U$() TO DISK.
  26. 350 GOTO2220:REM SEND N$() TO DISK.
  27. 360 GOTO2240:REM FIND DV,DR$ IN DR%().
  28. 370 GOTO2260:REM FIND DV,DR$
  29. 380 GOTO2270:REM INCREMENT DV,DR$.
  30. 390 GOTO2330:REM HANG UP PHONE.
  31. 400 GOTO2390:REM FIND TIME CONNECTED.
  32. 410 GOTO2540:REM RETURN TO BBS.
  33. 420 GOTO2550:REM LOAD NEXT MODULE.
  34. 430 GOTO2430:REM GET SC() FROM DISK.
  35. 440 GOTO2510:REM SEND SC() TO DISK.
  36. 450 GOTO2420:REM SEND SEQ OUT.
  37. 460 :
  38. 470 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  39. 480 DIMU$(15),N$(15),DR%(7):DR$="0"
  40. 490 GOSUB500:GOTO550
  41. 500 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN520
  42. 510 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  43. 520 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  44. 530 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  45. 540 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  46. 550 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  47. 560 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO2610
  48. 570 IFA$="[133]"THENSY=SY+1:GOSUB1610:SY=SY-1:RETURN
  49. 580 IFA$="[134]"THENGOSUB900:TI$="000000":RETURN
  50. 590 IFA$="[140]"THENCD=1:RETURN
  51. 600 IFL<>65535THENRETURN
  52. 610 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  53. 620 CD=1:UL$="":RETURN
  54. 630 IFA$=""ORZ$=""THENGOSUB650
  55. 640 RETURN
  56. 650 POKESI+4,21:POKESI+4,20:RETURN
  57. 660 CD=0:IFSYTHENRETURN
  58. 670 IF(PEEK(B1)AND16)<>HLTHENRETURN
  59. 680 TI$="000000"
  60. 690 IF(PEEK(B1)AND16)<>HLTHENRETURN
  61. 700 IFVAL(TI$)>5THENCD=1:RETURN
  62. 710 GOTO690
  63. 720 P$=P$+F$
  64. 730 IFL=55THENPRINT#4,P$;:RETURN
  65. 740 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  66. 750 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  67. 760 RETURN
  68. 770 GOSUB2390:IFVAL(U$(14))<COTHEN810
  69. 780 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  70. 790 L$="Y                                      ":SYS52003,L$:CD=PEEK(52033)
  71. 800 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB570:RETURN
  72. 810 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB160
  73. 820 GOTO410
  74. 830 P$=F$+"[197]NTER [193]CCESS LEVEL: ":GOSUB170:L=5:GOSUB180:IFCDTHENRETURN
  75. 840 IFVAL(L$)<0ORVAL(L$)>65535ORL$=""THENRETURN
  76. 850 L=VAL(L$):A2=INT(L/256):A1=L-A2*256:A$=CHR$(A1)+CHR$(A2):RETURN
  77. 860 IFSA<>1THENP$=F$+F$+SY$+" IS NOT AVAILABLE RIGHT NOW.":GOSUB160:RETURN
  78. 870 P$="[195]ALLING "+SY$+"....":GOSUB160:FORI=1TO20:GETA$:IFA$="[134]"THEN900
  79. 880 GOSUB650:FORT=1TO600:NEXT:NEXT
  80. 890 P$="[212]RY AGAIN LATER....":GOSUB160:RETURN
  81. 900 P$=F$+F$+SY$+", CHATTING WITH "+U$(1)+F$:GOSUB160
  82. 910 SYS52012:A$=CHR$(PEEK(52034)):CD=PEEK(52033)
  83. 920 IFA$="[134]"ORCDTHENP$=F$+SY$+" HAS RETURNED TO "+BD$+".":GOSUB160:RETURN
  84. 930 IFA$="[133]"THENSY=SY+1:GOSUB1610:SY=SY-1
  85. 940 IFA$="[140]"THENCD=1:RETURN
  86. 950 RETURN
  87. 960 GOSUB2140:AA=RF:GOSUB2240
  88. 970 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB1000:NEXT
  89. 980 GOSUB1000:IFER$<"20"ORER$="50"THENRETURN
  90. 990 PRINT"[197]RROR IN (USERFILE)!":GOSUB2330:STOP
  91. 1000 ES$="":GOSUB1010:ER$=LEFT$(ES$,2):RETURN
  92. 1010 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO1010:RETURN
  93. 1020 T1$="01:51:49.9 AM":SYS51982,T1$:TM$=T1$+""
  94. 1030 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  95. 1040 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO1070
  96. 1050 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  97. 1060 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  98. 1070 DA$=M$+STR$(DT):RETURN
  99. 1080 P$=F$+"[217]OUR [211]TATISTICS...."+F$:GOSUB160
  100. 1090 P$="[206]AME          : "+U$(1):GOSUB160
  101. 1100 P$="[193]CCESS LEVEL  :"+STR$(AC):GOSUB160:GOSUB1020
  102. 1110 P$="[196]ATE/[212]IME     : "+DA$+" "+TM$:GOSUB160:GOSUB2390
  103. 1120 P$="[195]ONNECT [212]IME  :"+STR$(CO)+" MINS.":GOSUB160
  104. 1130 P$="[205]EMBER #      : "+R$:GOSUB160
  105. 1140 P$="[208]ASSWORD      : "+U$(4):GOSUB160
  106. 1150 P$="[193]GE           : "+U$(6):GOSUB160
  107. 1160 P$="[210]EAL [206]AME     : "+U$(7):GOSUB160
  108. 1170 P$="[212]OTAL [213]/[204]'S   : "+U$(9):GOSUB160
  109. 1180 P$="[212]OTAL [196]/[204]'S   : "+U$(10):GOSUB160
  110. 1190 P$="       [[210]ATIO - "+MID$(STR$(RR),2)+":1]":GOSUB160
  111. 1200 P$="[204]AST CALL DATE: "+U$(11):GOSUB160
  112. 1210 P$="[212]OTAL CALLS   : "+U$(12):GOSUB160:RETURN
  113. 1220 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB2390
  114. 1230 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  115. 1240 P$=" [147][197]NTER ACCOUNT # OF USER.":GOSUB160
  116. 1250 P$="[193]CCOUNT # OF CURRENT USER: "+R$:GOSUB160
  117. 1260 P$="[214][213]:":GOSUB170:L=3:GOSUB180:IFCDTHENRETURN
  118. 1270 IFL$=""THENRETURN
  119. 1280 E$=L$+"":IFL$=R$THENFORL=1TO15:N$(L)=U$(L):NEXT:AA=AC:GOTO1300
  120. 1290 OPEN3,RF,3,RF$:RC=VAL(L$):GOSUB960:GOSUB2200:CLOSE3
  121. 1300 P$=" [147]1 - [206]AME      : "+N$(1)+F$+"2 - [208]HONE     : "+N$(2):GOSUB160:GOSUB2160
  122. 1310 P$="3 - [193]CCESS [204]VL:"+STR$(AA)+F$+"4 - [208]ASSWORD  : "+N$(4):GOSUB160
  123. 1320 P$="5 - # OF [197]MAIL: "+N$(5)+F$+"6 - [193]GE       : "+N$(6):GOSUB160
  124. 1330 P$="7 - [210]EAL NAME : "+N$(7)+F$+"8 - C/G MODE  : "+N$(8):GOSUB160
  125. 1340 P$="9 - [212]OTAL [213]/[204] : "+N$(9)+F$+"[193] - [212]OTAL [196]/[204] : "+N$(10):GOSUB160
  126. 1350 P$="[194] - [204]AST CALL : "+N$(11):GOSUB160
  127. 1360 P$="[195] - # CALLS   : "+N$(12):GOSUB160
  128. 1370 P$="[196] - [195]ALLS/[196]AY : "+N$(13)+F$+"[197] - [212]IME/[195]ALL : "+N$(14):GOSUB160
  129. 1380 P$="[198] - [195]ALLS[212]ODAY: "+N$(15):GOSUB160
  130. 1390 IFL=55THENL=0:PRINT#4:CLOSE4:GOTO1300
  131. 1400 P$=F$+"[215]HICH TO CHANGE:":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  132. 1410 IFL$=""ANDR$=E$THENFORL=1TO15:U$(L)=N$(L):NEXT:AC=AA:GOTO1240
  133. 1420 IFL$=""THEN1240
  134. 1430 IFL$="S"ORL$="[211]"THEN1510
  135. 1440 IFL$="P"ORL$="[208]"THENL=55:OPEN4,4,7:GOTO1300
  136. 1450 S=(ASC(L$)AND127)-64:IFS=>1ANDS<=6THENS=S+9:GOTO1480
  137. 1460 S=VAL(L$):IFS<1ORS>9THEN1300
  138. 1470 IFS=3THENGOSUB830:N$(3)=A$:AA=A:GOTO1300
  139. 1480 P$=F$+"["+N$(S)+"]:[195]HANGE TO->":GOSUB170
  140. 1490 L=20:GOSUB180:IFCDTHENRETURN
  141. 1500 N$(S)=L$+"":GOTO1300
  142. 1510 P$=F$+"[211]AVE STATS WHERE? (DEFAULT="+E$+"):":GOSUB170
  143. 1520 L=3:GOSUB180:IFCDTHENRETURN
  144. 1530 IFL$<>""ANDVAL(L$)>0THENE$=L$+""
  145. 1540 P$=F$+"[211]AVE AT: "+E$:GOSUB160
  146. 1550 P$="[195]ORRECT? (Y/N):":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  147. 1560 IFL$<>"Y"ANDL$<>"[217]"THEN1300
  148. 1570 OPEN3,RF,3,RF$:RC=VAL(E$):GOSUB960
  149. 1580 GOSUB2220
  150. 1590 CLOSE3
  151. 1600 RETURN
  152. 1610 AA=DV:GOSUB2240
  153. 1620 P$=" [147]":GOSUB160
  154. 1630 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB160
  155. 1640 P$="[214] - [214]ALIDATE USER":GOSUB160
  156. 1650 P$="[193] - [211]CAN ANY SEQ ON DISK":GOSUB160
  157. 1660 P$="$ - [196]IRECTORY":GOSUB160
  158. 1670 P$="@ - [196]OS COMMANDS":GOSUB160
  159. 1680 P$="[213] - [211]CAN USER LOG":GOSUB160
  160. 1690 P$="[212] - [212]ODAY'S CALLERS":GOSUB160
  161. 1700 P$="# - [212]OGGLE DRIVE #"+STR$(DV)+";"+DR$:GOSUB160
  162. 1710 P$=F$+"[210][211][205]"+MID$(STR$(DV),2)+";"+DR$+":":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  163. 1720 IFL$=""THENRETURN
  164. 1730 L$=CHR$(ASC(L$)AND127)
  165. 1740 GOSUB2170:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  166. 1750 ON-(L$="U")-2*(L$="A")-3*(L$="V")-4*(L$="$")GOSUB1970,2080,1240,1830
  167. 1760 ON-(A$="#")-2*(L$="T")GOSUB2270,2070
  168. 1770 IFL$="?"THEN1620
  169. 1780 IFL$<>"@"THEN1710
  170. 1790 P$=F$+">":GOSUB170:L=39:GOSUB180:IFCDTHENRETURN
  171. 1800 IFL$=""THENGOSUB1000:P$=F$+ES$:GOSUB160:GOTO1710
  172. 1810 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  173. 1820 GOTO1710
  174. 1830 P$=F$:GOSUB160:OPEN1,DV,0,"$"+DR$+":*"
  175. 1840 GOSUB1000:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB160:RETURN
  176. 1850 GET#1,A$:GET#1,A$
  177. 1860 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  178. 1870 GET#1,LO$:GET#1,HI$
  179. 1880 LO$=LO$+N$:HI$=HI$+N$
  180. 1890 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  181. 1900 GET#1,A$:IFA$=""THEN1940
  182. 1910 GET#5,Z$:IFZ$=""THENGETZ$
  183. 1920 IFZ$=" "THENCLOSE1:RETURN
  184. 1930 P$=P$+A$:GOTO1900
  185. 1940 IFECANDMID$(P$,8,1)="("THEN1860
  186. 1950 GOSUB160:IFA$=" "THENCLOSE1:RETURN
  187. 1960 GOTO1860
  188. 1970 FI$="(USER LOG)"
  189. 1980 OPEN1,DV,5,DR$+":"+FI$:P$="":GOSUB1000:IFER$>"01"THENCLOSE1:RETURN
  190. 1990 GET#1,A$:IF(ST)AND64THEN2040
  191. 2000 GET#5,Z$:IFZ$=""THENGETZ$
  192. 2010 IFZ$=" "ORZ$="/"THEN2040
  193. 2020 IFA$=CHR$(13)ORLEN(P$)=39THENGOSUB160:P$="":GOTO1990
  194. 2030 P$=P$+A$:GOTO1990
  195. 2040 GOSUB160:CLOSE1:P$=F$+"[211]CRATCH? (Y/N):":GOSUB170:L=1:GOSUB180
  196. 2050 IFL$=""OR(L$<>"Y"ANDL$<>"[217]")THENRETURN
  197. 2060 OPEN1,DV,5,"@"+DR$+":"+FI$+",S,W":PRINT#1," ":CLOSE1:RETURN
  198. 2070 FI$="(T.CALLERS)":GOTO1980
  199. 2080 P$=F$+"[211]CAN FILE: ":GOSUB170:L=16:GOSUB180
  200. 2090 FI$=L$+"":GOTO1980
  201. 2100 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  202. 2110 GOSUB2100:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  203. 2120 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB2100:RETURN
  204. 2130 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  205. 2140 GOSUB2130:R1=LO:R2=HI:RETURN
  206. 2150 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  207. 2160 AA=VAL(N$(3)):RETURN
  208. 2170 IFLEN(UL$)<230THENRETURN
  209. 2180 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  210. 2190 GOSUB2200:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  211. 2200 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  212. 2210 FORI=1TO15:N$(I)=U$(I):NEXT
  213. 2220 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  214. 2230 PRINT#3,N$(0):RC=1:GOSUB960:RETURN
  215. 2240 B=AA-8:IFB<0THENB=0
  216. 2250 AA=-((DR%(B)AND128)=128):DR$=MID$(STR$(AA),2):RETURN
  217. 2260 GOSUB2240:AA=-((DVAND128)=128):DR$=MID$(STR$(AA),2):RETURN
  218. 2270 IFDR$="0"THENAA=DV:GOSUB2240:IFDR$="1"THENRETURN
  219. 2280 DV=DV+1:IFDV>15THENDV=8
  220. 2290 FORL=0TO(DR-8):IFDV<>(DR%(L)AND63)THENNEXT:GOTO2280
  221. 2300 IFA1AND32ORSYTHEN2320
  222. 2310 AA=DV:GOSUB2240:IFDR%(B)AND64THEN2280
  223. 2320 AA=DV:GOSUB2240:DR$="0":RETURN
  224. 2330 ON(MT%-1)GOTO2340,1690,2370,2380,2110,2110
  225. 2340 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  226. 2350 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  227. 2360 PRINT#5,"[193][212][200]0[216]1[197]0[205]0[209]0[214]0[211]0=0":RETURN
  228. 2370 POKEB2,38:POKEB1,38:RETURN
  229. 2380 POKEB1,PEEK(B1)OR32:RETURN
  230. 2390 GOSUB1020:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  231. 2400 IFLH=12ANDC2THENCO=ABS(CO-720)
  232. 2410 RETURN
  233. 2420 POKE52030,SY:SYS52021:CLOSE1:RETURN
  234. 2430 OPEN3,8,3,"0:(SCORES)":GOSUB220:IFER$>"01"THENCLOSE3:RETURN
  235. 2440 RC=R:GOSUB2130:B=0:GOSUB970:GET#3,A$:IF(ST)AND64THENSC=0:GOTO2460
  236. 2450 INPUT#3,SC
  237. 2460 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  238. 2470 IFI>SCTHENDIMSC(I):GOTO2490
  239. 2480 DIMSC(SC)
  240. 2490 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  241. 2500 RETURN
  242. 2510 OPEN3,8,3,"0:(SCORES)":GOSUB220:IFER$>"01"THENCLOSE3:RETURN
  243. 2520 RC=R:GOSUB2130:B=0:GOSUB970:SC$=STR$(SC)+F$:FORT=1TOSC
  244. 2530 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB970:CLOSE3:RETURN
  245. 2540 FI$="(ST/R 3.?)":DV=D5
  246. 2550 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB2260:FORT=1TO15
  247. 2560 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  248. 2570 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  249. 2580 PRINT#1,DV:PRINT#1,NW:PRINT#1,L$:CLOSE1:POKE252,32
  250. 2590 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  251. 2600 POKE631,131:POKE198,1:NEW
  252. 2610 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  253. 2620 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  254. 2650 CLOSE1:GOSUB2150:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  255. 2660 C$=CHR$(13):GOTO2700
  256. 2670 REM -    YOUR PROGRAM SHOULD    -
  257. 2680 REM -    START AT LINE 2660!    -
  258. 2690 GOSUB390:GOSUB310:GOTO410
  259. 2700 X=RND(-TI):P$="[147] "+F$+F$+"[199]ETTING YOUR [211]TAT'S"+F$:GOSUB160
  260. 2710 D7=DVAND127:AA=(DVAND128)=128:EP$=MID$(STR$(AA),2)+":(EMPIRE)":B=D7-8
  261. 2720 D7$=LEFT$(EP$,1):OPEN3,D7,3,EP$:GOSUB220:IFER$="00"THEN2820
  262. 2730 CLOSE3:IF(AC<>65535)THENP$=F$+"[199]AME IS NOT SET UP!":GOSUB160:GOTO410
  263. 2740 IF(AC<>65535)THEN2980
  264. 2750 P$=F$+"[210][197][211][197][212] (Y/N): ":GOSUB170:L=1:GOSUB180:IFCDTHEN2690
  265. 2760 IFL$=""THEN2740
  266. 2770 IFL$<>"Y"THEN2980
  267. 2780 G$="EMPTY"+C$+"0"+C$+"0"+C$+"0"+C$+"0"+C$+"0"+C$+"00"
  268. 2790 OPEN3,D7,3,EP$+",L,"+CHR$(100):GOSUB220:IFER$="00"THEN2810
  269. 2800 P$=F$+""+ES$+F$+"[154]":GOSUB160:GOTO2740
  270. 2810 FORRC=1TO50:GOSUB210:PRINT#3,G$:NEXT:CLOSE3:GOTO2720
  271. 2820 FORRC=1TO50:GOSUB210:INPUT#3,A$:IFA$=U$(1)THENG3=RC:GOTO2940
  272. 2830 P$=" [129][211]EARCHING:"+STR$(RC)+F$+"[145]":IFCG=0THENP$="."
  273. 2840 GOSUB170:NEXT:P$=F$+F$+"[206]EW [214]ICTIM!"+F$:GOSUB160:FORRC=1TO50:GOSUB210:INPUT#3,A$
  274. 2850 IFA$="EMPTY"THEN2890
  275. 2860 P$=" [129][211]EARCHING:"+STR$(RC)+F$+"[145]":IFCG=0THENP$="."
  276. 2870 GOSUB170:NEXT:P$=F$+F$+"[153][211][207][210][210][217], [206]O ROOM.  [212]RY AGAIN LATER.":GOSUB160
  277. 2880 P$="[210]ETURNING TO [194][194][211]....":GOSUB160:GOTO410
  278. 2890 G3=RC:AA=INT(RND(1)*300)+2E3:W$=U$(1)+C$+"5E3"+C$+"20"+C$+STR$(AA)
  279. 2900 W$=W$+C$+"2"+C$+"1E4"+C$+"15"+C$+"1E3"+C$+"0"+C$+"0"+C$+"0"+C$+"0"+C$+"0"
  280. 2910 W$=W$+C$+R$
  281. 2920 RC=G3:GOSUB210:PRINT#3,W$:RC=1:GOSUB210:P$=F$+F$+"[159][207][203], YOU'RE SET.":GOSUB160
  282. 2930 RC=G3:GOSUB210:INPUT#3,A$
  283. 2940 INPUT#3,LA,WA,SF,NB,GR,TR,PN,I1,I2,I3,I4,I5,R2:CLOSE3
  284. 2950 IFR2<>VAL(R$)THEN5600
  285. 2960 IFG3=PEEK(680)ANDPEEK(679)>2AND(AC<>65535)THEN5600
  286. 2970 IFG3<>PEEK(680)THENPOKE(680),G3:POKE681,0:POKE679,0
  287. 2980 FF=0:GOSUB250:P$=F$+"[212]IME [204]EFT:"+STR$(VAL(U$(14))-CO)
  288. 2990 P$=P$+F$+"[156][206]OW WHAT, "+U$(1)+F$+"[129][197][205][208][201][210][197]:":GOSUB170:L=1:GOSUB180
  289. 3000 IFCDTHEN2690
  290. 3010 IFL$=""THEN2980
  291. 3020 GOSUB300:UL$=UL$+"[197]MPIRE-"+L$+F$
  292. 3030 L$=CHR$(ASC(L$)AND127):IFL$="Y"THENGOSUB3620
  293. 3040 ON-(L$="Q")-2*(L$="C")-3*(L$="G")GOTO410,3310,3180
  294. 3050 ON-(L$="R")-2*(L$="Z")-3*(L$="N")GOTO3130,2740,3280
  295. 3060 IFL$="O"THENGOSUB3550
  296. 3070 IFL$<>"?"THEN2980
  297. 3080 P$="[147] "+DC$+"         <==**- [197]MPIRE -**==>"+F$+DC$:GOSUB160
  298. 3090 P$=F$+"[153]     [217] - [217]OUR [211]TATUS"+F$+"     [207] - [207]THER [197]MPERORS":GOSUB160
  299. 3100 P$="[154]     [199] - [199]AMBLING"+F$+"     [195] - [195]ONTINUE":GOSUB160
  300. 3110 P$="[154]     [210] - [195]HANGE [212]AX [210]ATE"+F$+"     [206] - [198]IGHT [206]EWS":GOSUB160
  301. 3120 P$="[153]     [209] - [209]UIT":GOSUB160:GOTO2980
  302. 3130 P$=F$+"[152][210]ATE IS"+STR$(TR)+"%":GOSUB160:P$="[206]EW [210]ATE: ":GOSUB170
  303. 3140 L=2:GOSUB180:IFCDTHEN2690
  304. 3150 X=INT(VAL(L$)):IFL$=""ORX<0THEN2980
  305. 3160 IFX>50THENP$=F$+"[149][205]AXIMUM IS 50%!":GOSUB160:GOTO3130
  306. 3170 TR=X:GOTO2980
  307. 3180 P$=F$+"[159][199]AMBLING!:GOSUB160
  308. 3190 OG[178][181]([187](1)[172]3[170]2):P$[178]F$[170]"FOR(null)DDS:"[170][196](OG)[170]" TO 1"
  309. 3200 P$[178]P$[170]F$[170]"(null)OU HAVE"[170][196](PN)[170]" POUNDS.":[141]160
  310. 3210 P$[178]"PEEKET HOW MANY? (MAX=500): ":[141]170:L[178]3:[141]180:[139]CD[167]2690
  311. 3220 [141]300:UL$[178]UL$[170]"PEEKET-"[170]L$[170]F$
  312. 3230 X[178][197](L$):[145][171](X[179]1)[171]2[172](X[177]500[176]X[177]PN)[137]2980,3200
  313. 3240 P$[178]F$[170]"CLR(null)ICK A NUMBER BETWEEN 1 AND"[170][196](OG[170]1)[170]": ":[141]170:L[178]1:[141]180
  314. 3250 [145]CD[137]2690:[145][171](L$[178]"")[137]2980:A[178][197](L$):[139]A[179]1[176]A[177]OG[170]1[167]3240
  315. 3260 B[178][181]([187](0)[172](OG[170]1)[170]1):[139]A[179][177]B[167]PN[178]PN[171]X:P$[178]F$[170]"DEF(null)OU LOSE!":[141]160:[137]3190
  316. 3270 PN[178]PN[170](X[172]OG):P$[178]F$[170]"SYS(null)OU WIN"[170][196](X[172]OG)[170]" POUNDS!":[141]160:[137]3190
  317. 3280 P$[178]F$[170]"              ASCIGHT (null)EWS"[170]F$:[141]160:B[178]D7[171]8
  318. 3290 [159]1,D7,5,D7$[170]":(NEWS.EMP)":[141]220:[139]ER$[178]"00"[167][141]450
  319. 3300 [160]1:P$[178]F$[170]"(null)ORE (null)PDATES (null)ATER....":[141]160:[137]2980
  320. 3310 [141]2390:[139][197](U$(14))[171]CO[177]10[167]3330
  321. 3320 P$[178]F$[170]"(null)OT VALNOUGH (null)IME TO (null)LAY!!":[141]160:[137]2980
  322. 3330 X[178][181](LA[172]2.7[172][187](1)[170]SF[172]7.5[172][187](1)[170]I3[172]99[172][187](1))
  323. 3340 [139]X[177](LA[170]SF)[172]4[167]X[178](LA[170]SF)[172]4
  324. 3350 P$[178]F$[170]"SYS(null)HIS YEAR'S HARVEST IS"[170][196](X)[170]" BUSHELS.":[141]160:GR[178]GR[170]X:PL[178]1
  325. 3360 P$[178]F$[170]"CLR(null)OU HAVE"[170][196](LA)[170]" ACRES.":[141]3390:[139]CD[167]2690
  326. 3370 [145][171](L$[178]"B")[171]2[172](L$[178]"S")[171]3[172](L$[178]"C")[137]3430,3470,3690:[139]L$[178]"Y"[167][141]3620
  327. 3380 [137]3360
  328. 3390 P$[178]P$[170]F$[170]"PEEK)UY, (null))ELL, (null))OUR (null)TATS, OR LEN)ONT: ":[141]170:L[178]1:[141]180
  329. 3400 L$[178][199]([198](L$[170]N$)[175]127):[142]
  330. 3410 P$[178]P$[170]F$[170]"PEEKUY HOW MANY?: ":[141]170:L[178]7:[141]180:[142]
  331. 3420 P$[178]P$[170]F$[170]"(null)ELL HOW MANY?: ":[141]170:L[178]7:[141]180:[142]
  332. 3430 P$[178]F$[170]"(null)HE PEEKARBARIANS SELL THEIR LAND"[170]F$[170]"FOR $25.00 AN ACRE.":[141]3410
  333. 3440 BL[178][197](L$):[139]BL[179]1[167]3360
  334. 3450 [139]PN[179](BL[172]25)[167]P$[178]F$[170]"DEF(null)OU ONLY HAVE"[170][196](PN)[170]" POUNDS!":[141]160:[137]3430
  335. 3460 PN[178]PN[171](BL[172]25):LA[178]LA[170]BL:P$[178]F$[170]"CONTPEEKOUGHT!":[141]160:[137]3690
  336. 3470 P$[178]F$[170]"(null)HE PEEKARBARIANS BUY LAND"[170]F$[170]"FOR $10.00 AN ACRE.":[141]3420
  337. 3480 SL[178][197](L$):[139]SL[179]1[167]3360
  338. 3490 [139]SL[177]LA[171]1[167]P$[178]F$[170]"DEF(null)OU ONLY HAVE"[170][196](LA)[170]" ACRES!":[141]160:[137]3470
  339. 3500 LA[178]LA[171]SL:PN[178]PN[170](10[172]SL):P$[178]"PRINT(null)OLD!":[141]160:[137]3690
  340. 3510 W$[178]U$(1)[170]C$[170][196](LA)[170]C$[170][196](WA)[170]C$[170][196](SF)[170]C$[170][196](NB)
  341. 3520 W$[178]W$[170]C$[170][196](GR)[170]C$[170][196](TR)[170]C$[170][196](PN)[170]C$[170][196](I1)[170]C$[170][196](I2)
  342. 3530 W$[178]W$[170]C$[170][196](I3)[170]C$[170][196](I4)[170]C$[170][196](I5)[170]C$[170]R$
  343. 3540 B[178]D7[171]8:[159]3,D7,3,EP$:RC[178]G3:[141]210:[152]3,W$:RC[178]1:[141]210:[160]3:[142]
  344. 3550 P$[178]F$[170]F$[170]"FOR(null)THER VALMPERORS"[170]F$[170]"--------------":[141]160:B[178]D7[171]8
  345. 3560 [159]3,D7,3,EP$:[129]RC[178]1[164]50:[141]210:[132]3,A$,B$:[151]52034,0
  346. 3570 P$[178]"DEF":L$[178][201]("0"[170][202]([196](RC),2),2):[139](RC[175]1)[178]0[167]P$[178]"FOR"
  347. 3580 [139]A$[178]"EMPTY"[176]A$[178]U$(1)[167][161]#5,A$:[161]Z$:[137]3600
  348. 3590 P$[178]P$[170]"#"[170]L$[170]" "[170]A$[170]" HAS "[170]B$[170]" ACRES.":[141]160
  349. 3600 [139]A$[178]" "[176]Z$[178]" "[167]P$[178]F$[170]"ATNBORTED!":[141]160:RC[178]99
  350. 3610 [130]:[160]3:[142]
  351. 3620 P$[178]F$[170]"SYS"[170]U$(1)[170]" (#"[170][196](G3)[170]")"[170]F$[170]F$[170]"(null)AND:     "[170][196](LA)[170]" ACRES"[170]F$
  352. 3630 P$[178]P$[170]"(null)OUNDS:   "[170][196](PN)[170]F$[170]"CHR$RAIN:    "[170][196](GR)[170]" BUSHELS"[170]F$
  353. 3640 P$[178]P$[170]"(null)AX (null)ATE: "[170][196](TR)[170]"%"[170]F$[170]"(null)OLDIERS: "[170][196](WA)[170]F$[170]"(null)ERFS:    "
  354. 3650 P$[178]P$[170][196](SF)[170]F$[170]"(null)OBLES:   "[170][196](NB):[141]160
  355. 3660 P$[178]F$[170]"(null)ALACE:   "[170][196](10[172]I1)[170]"% COMPLETED."[170]F$[170]"(null)ARKETS:  "[170][196](I2)
  356. 3670 P$[178]P$[170]F$[170]"(null)ILLS:    "[170][196](I3)[170]F$[170]"ASCOUNDRIES:"[170][196](I4)[170]F$
  357. 3680 P$[178]P$[170]"(null)HIPYARDS:"[170][196](I5)[170]F$:[141]160:[142]
  358. 3690 P$[178]F$[170]"OPEN(null)OU HAVE"[170][196](GR)[170]" BUSHELS.":[141]3390:[139]CD[167]2690
  359. 3700 [145][171](L$[178]"B")[171]2[172](L$[178]"S")[171]3[172](L$[178]"C")[137]3720,3760,3800:[139]L$[178]"Y"[167][141]3620
  360. 3710 [137]3690
  361. 3720 P$[178]F$[170]"POKE(null)HE PEEKARBARIANS SELL GRAIN"[170]F$[170]"FOR $1.00 A BUSHEL.":[141]3410
  362. 3730 BG[178][197](L$):[139]BG[179]1[167]3690
  363. 3740 [139]PN[179]BG[167]P$[178]"DEF(null)OU ONLY HAVE"[170][196](PN)[170]" POUNDS!":[141]160:[137]3720
  364. 3750 PN[178]PN[171]BG:GR[178]GR[170]BG:P$[178]F$[170]"LISTPEEKOUGHT!":[141]160:[137]3800
  365. 3760 P$[178]F$[170]"PRINT#(null)HE PEEKARBARIANS BUY GRAIN"[170]F$[170]"FOR $.5 PER BUSHEL.":[141]3420
  366. 3770 SG[178][197](L$):[139]SG[179]1[167]3690
  367. 3780 [139]SG[177]GR[167]P$[178]F$[170]"DEF(null)OU ONLY HAVE"[170][196](GR)[170]" BUSHELS.":[141]160:[137]3760
  368. 3790 GR[178]GR[171]SG:PN[178][181](PN[170](SG[172].5)):P$[178]F$[170]"(null)OLD!":[141]160
  369. 3800 PR[178]SF[172]5:P$[178]F$[170]"SYS(null)OUR PEOPLE NEED"[170][196](PR)[170]" BUSHELS."[170]F$
  370. 3810 P$[178]P$[170]"CHR$IVE THEM HOW MANY?: ":[141]170:L[178]7:[141]180:[139]CD[167]2690
  371. 3820 GP[178][181]([197](L$)):[139]GP[177]GR[167]P$[178]F$[170]"(null)OU ONLY HAVE"[170][196](GR)[170]" BUSHELS."
  372. 3830 [139]GP[177]GR[167][141]160:[137]3800
  373. 3840 [145][171](GP[179]0[176](GP[178]0[175][200](L$,1)[179][177]"0"))[137]3800:GR[178]GR[171]GP
  374. 3850 AR[178]WA[172]8[170]1:P$[178]"FOR(null)OUR ATNRMY NEEDS"[170][196](AR)[170]" BUSHELS."[170]F$
  375. 3860 P$[178]P$[170]"CHR$IVE THEM HOW MANY?: ":[141]170:L[178]7:[141]180:[139]CD[167]2690
  376. 3870 GA[178][181]([197](L$)):[139]GA[177]GR[167]P$[178]"(null)OU ONLY HAVE"[170][196](GR)[170]".":[141]160:[137]3850
  377. 3880 [145][171](GA[179]0[176](GA[178].[175][200](L$,1)[179][177]"0"))[137]3850:GR[178][181](GR[171]GA):[139]GR[179]0[167]GR[178]0
  378. 3890 P$[178]F$[170]"CONT-->(null)HIS (null)EAR<--":[141]160:GD[178]GP[173]PR:AD[178]GA[173]AR:PD[178]0
  379. 3900 [139]GD[179]1[167]PD[178][181]((PR[171]GP)[173]5)[171][181]([187](1)[172](PR[171]GP)[173]5[170]30)
  380. 3910 PD[178]PD[172][182](PD[177]0):[145][171](GD[177].8[176]GD[177][187](1))[137]4000
  381. 3920 P$[178]F$[170]"VERIFY(null)OUR VALMPIRE WAS LEFT$ALVED BY A HORDE"[170]F$[170]"OF STARVING SERFS!":[141]160
  382. 3930 [137]3950
  383. 3940 A[178]A[171][181]([187](1)[172]A):[142]
  384. 3950 A[178]I2:[141]3940:I2[178]A:A[178]I3:[141]3940:I3[178]A:A[178]I4:[141]3940:I4[178]A:A[178]I5:[141]3940
  385. 3960 I5[178]A:WA[178]0:PN[178]0:GR[178]0:AF[178]1:NB[178][181](NB[173]2):LA[178][181](LA[173]2):SF[178][181](SF[173]2)
  386. 3970 [159]1,D7,5,D7$[170]":(NEWS.EMP),S,A":[141]220:[139]ER$[178]"00"[167]3990
  387. 3980 [160]1:[159]1,D7,5,D7$[170]":(NEWS.EMP),S,W"
  388. 3990 [152]1,U$(1);" WAS TOO (null)(null)RIGHT$(null)CHR$(null)!!!";C$:[160]1:[141]3510:[137]4090
  389. 4000 DN[178][181]([187](1)[172](SF[173]10)[170]30):BB[178][181]([187](1)[172](SF[173]12)[170]10):PI[178][181]([187](1)[172](SF[173]15)[170]10)
  390. 4010 TP[178]BB[170]PI[171]PD[171]DN:BN$[178]"GAINED":[139]TP[179]0[167]BN$[178]"LOST"
  391. 4020 P$[178]F$[170]"FOR"[170][196](PD)[170]" STARVATIONS."[170]F$[170][196](BB)[170]" BIRTHS.":[141]160
  392. 4030 P$[178][196](DN)[170]" DIED NATURALLY."[170]F$[170][196](PI)[170]" PEOPLE IMMIGRATED.":[141]160
  393. 4040 P$[178]F$[170]"PRINT(null)OUR VALMPIRE "[170]BN$[170][196]([182](TP))[170]" CITIZENS.":SF[178]SF[170]TP
  394. 4050 SF[178]SF[172][182](SF[177]0):P$[178]P$[170]F$[170]"(null)EW POPULATION IS"[170][196](SF)[170]".":[141]160
  395. 4060 TG[178][181](((GP[171]PR)[172](TR[173]100))[173]2):AF[178]0:[139]GA[179]AR[167]AF[178]1
  396. 4070 [139]TG[177]0[167]P$[178]"CONT(null)OU GOT $"[170][196](TG)[170]" FROM TAXES.":[141]160
  397. 4080 [139]AF[178]1[167]P$[178]"(null)OUR ARMY STARVED!":[141]160
  398. 4090 [139]([187](0)[172]TR[179]25)[176]([187](1)[177].1)[167]4120
  399. 4100 H[178][181]([187](1)[172]4[170]1)[170]2:PN[178]PN[171][181](PN[172](H[173]100))
  400. 4110 P$[178]F$[170]"(null)HIEVES TOOK"[170][196](H)[170]"% OF YOUR CASH!":[141]160
  401. 4120 IN$(1)[178]"(null)OLDIER":IN$(2)[178]"(null)ARKET":IN$(3)[178]"(null)ILL":IN$(4)[178]"(null)ALACE"
  402. 4130 IN$(5)[178]"ASCOUNDRY":IN$(6)[178]"(null)HIPYARD":IN$(7)[178]"(null)OBLE":IN(1)[178]10
  403. 4140 IN(2)[178]1E3:IN(3)[178]2E3:IN(4)[178]1E4:IN(5)[178]7E3:IN(6)[178]8E3:IN(7)[178]25E3
  404. 4150 [141]250:P$[178]F$[170]"PRINT#(null)HICH INVESTMENT? (0=(null)ONE,?=(null)IST): ":[141]170:L[178]1:[141]180
  405. 4160 [145]CD[137]2690:[139]L$[178]"Y"[176]L$[178]"(null)"[167][141]3620:[137]4150
  406. 4170 IN[178][181]([197](L$)):[139]L$[178]"0"[167]4370
  407. 4180 [145][171](L$[178]"?")[171]2[172](IN[177]0[175]IN[179]8)[137]4190,4220:[137]4150
  408. 4190 P$[178]F$[170]"LISTRIGHT$NVESTMENT (null)ENU"[170]F$[170]"---------------"[170]F$:[141]160
  409. 4200 [129]X[178]1[164]7:P$[178][196](X)[170]") "[170]IN$(X)[170]"S COST $"[170][196](IN(X)):[141]160:[130]
  410. 4210 P$[178]" (null)) (null)OUR (null)TATS":[141]160:[137]4150
  411. 4220 P$[178]F$[170]"CLRRIGHT$NVESTMENT: "[170]IN$(IN)[170]"."[170]F$[170]"PEEKUY HOW MANY?: ":[141]170:L[178]3:[141]180
  412. 4230 [145]CD[137]2690:BN[178][181]([197](L$)):[139]BN[179]1[167]4150
  413. 4240 TC[178]BN[172]IN(IN):[139]TC[177]PN[167]P$[178]"DEF(null)OU ONLY HAVE"[170][196](PN)[170]" POUNDS!":[141]160:[137]4220
  414. 4250 [145]IN[137]4270,4290,4300,4310,4340,4350,4360
  415. 4260 PN[178]PN[171][181](IN(IN)[172]BN):P$[178]F$[170]"CONT(null)OU NOW HAVE":[142]
  416. 4270 [139](BN[170]WA)[173]20[177]NB[167]P$[178]F$[170]"DEF(null)OU ONLY HAVE"[170][196](NB)[170]" NOBLES!":[141]160:[137]4150
  417. 4280 WA[178]WA[170]BN:[141]4260:P$[178]P$[170][196](WA)[170]" "[170]IN$(IN)[170]"S.":[141]160:[137]4150
  418. 4290 I2[178]I2[170]BN:[141]4260:P$[178]P$[170][196](I2)[170]" "[170]IN$(IN)[170]"S.":[141]160:[137]4150
  419. 4300 I3[178]I3[170]BN:[141]4260:P$[178]P$[170][196](I3)[170]" "[170]IN$(IN)[170]"S.":[141]160:[137]4150
  420. 4310 [139]I1[170]BN[177]10[167]P$[178]F$[170]"SYSRIGHT$T'S ALREADY BUILT!":[141]160:[137]4150
  421. 4320 I1[178]I1[170]BN:[141]4260:P$[178]P$[170][196](I1[172]10)[170]"% OF THE "[170]IN$(IN)[170]","
  422. 4330 NB[178]NB[170]BN:P$[178]P$[170]F$[170]"AND"[170][196](NB)[170]" NOBLES.":[141]160:[137]4150
  423. 4340 I4[178]I4[170]BN:[141]4260:P$[178]P$[170][196](I4)[170]" "[170]IN$(IN)[170]"S.":[141]160:[137]4150
  424. 4350 I5[178]I5[170]BN:[141]4260:P$[178]P$[170][196](I5)[170]" "[170]IN$(IN)[170]"S.":[141]160:[137]4150
  425. 4360 NB[178]NB[170]BN:[141]4260:P$[178]P$[170][196](NB)[170]" "[170]IN$(IN)[170]"S.":[141]160:[137]4150
  426. 4370 [141]250:P$[178]F$[170]"POKEATNTTACK WHOM? (0=(null)ONE,?=(null)IST): ":[141]170:L[178]2:[141]180
  427. 4380 [145]CD[137]2690:[139]L$[178]"0"[167]P$[178]F$[170]"(null)O ATTACK!":[141]160:[137]5070
  428. 4390 [139]L$[178]"?"[167][141]3550:P$[178]"(null)) (null)OUR (null)TATS":[141]160:[137]4370
  429. 4400 [139]L$[178]"Y"[176]L$[178]"(null)"[167][141]3620:[137]4370
  430. 4410 G1[178][181]([197](L$)):[139]G1[179]1[176]G1[177]50[167]4370
  431. 4420 B[178]D7[171]8:[159]3,D7,3,EP$:RC[178]G1:[141]210:[132]3,EN$
  432. 4430 [139]EN$[178]"EMPTY"[167]P$[178]F$[170]"RIGHT$NVALID #!":[141]160:[160]3:[137]4370
  433. 4440 [132]3,EZ,EW,EF,EN,EG,ET,EP,E1,E2,E3,E4,E5,R1$
  434. 4450 [160]3:P$[178]F$[170]"POKE(null)OUR (null)PPONENT:"[170]F$[170]EN$[170]" HAS"[170][196](EZ)[170]" ACRES.":[141]160
  435. 4460 P$[178]F$[170]"DEFATNRE YOU SURE? (Y/N): ":[141]170:L[178]1:[141]180:[139]CD[167]2690
  436. 4470 [139]L$[179][177]"Y"[175]L$[179][177]"(null)"[167]4370
  437. 4480 I[178]1:[139][194](681)[178]0[167]4510
  438. 4490 AA[178][194](681[170]I):[145][171](AA[178]RC)[137]4500:I[178]I[170]1:[145][171](I[177][194](681))[137]4510:[137]4490
  439. 4500 P$[178]F$[170]"VERIFY(null)OU ALREADY DID!!":[141]160:[137]4370
  440. 4510 [151]681,[194](681)[170]1:[151]681[170][194](681),RC
  441. 4520 [145][171](G1[179][177]G3)[137]4540:P$[178]F$[170]"ATNTTACK (null)(null)(null)(null)(null)VAL(null)ASC?  PEEKAD (null)ISTAKE!"
  442. 4530 [141]160:LA[178]LA[171][181]([187](1)[172](LA[173]2)):[137]5070
  443. 4540 [139]AF[178]1[176]WA[179]1[167]P$[178]F$[170]"DEF(null)OUR ARMY STARVED.  (null)EMEMBER?":[141]160:[137]5070
  444. 4550 [141]250:P$[178]F$[170]"SYS(null)OUR PEEKATTLE LENOMMAND?: ":[141]170:L[178]1:[141]180:[139]CD[167]2690
  445. 4560 CM[178][197](L$):[145]CM[137]4690,4910,4980,5070
  446. 4570 [139]L$[179][177]""[175]L$[179][177]"?"[167]4550
  447. 4580 P$[178]F$[170]"OPENASCIGHT (null)ENU"[170]F$[170]"----------"[170]F$:[141]160
  448. 4590 P$[178]"1) ATNTTACK ATNRMY"[170]F$[170]"DEF2) ATNTTACK (null)ALACE":[141]160
  449. 4600 P$[178]"FOR3) ATNTTACK (null)OBLES"[170]F$[170]"SYS4) (null)UIT":[141]160:[137]4550
  450. 4610 AE[178]0:[139]WA[179]1[167]P$[178]F$[170]"(null)OU HAVE NO SOLDIERS!":[141]160:AE[178]1:WA[178]0
  451. 4620 [142]
  452. 4630 W$[178]EN$[170]C$[170][196](EZ)[170]C$[170][196](EW)[170]C$[170][196](EF)[170]C$[170][196](EN)[170]C$
  453. 4640 W$[178]W$[170][196](EG)[170]C$[170][196](ET)[170]C$[170][196](EP)[170]C$[170][196](E1)[170]C$[170][196](E2)[170]C$
  454. 4650 W$[178]W$[170][196](E3)[170]C$[170][196](E4)[170]C$[170][196](E5)[170]C$[170]R1$
  455. 4660 B[178]D7[171]8:[159]3,D7,3,EP$:RC[178]G1:[141]210:[152]3,W$:RC[178]1:[141]210:[160]3
  456. 4670 [139]EZ[179]1[167]GR[178]GR[170]EG:PN[178]PN[170]EP:SF[178]SF[170]EF
  457. 4680 [141]3510:[137]5070
  458. 4690 [141]4610:[145]AE[137]4540:A[178](WA[170]LA)[173](EW[170]EZ):[139]A[177]1[176][187](1)[179]A[167]4720
  459. 4700 A[178][181]([187](1)[172]EW):P$[178]F$[170]"CLR(null)OU (null)(null)(null)(null)(null)RIGHT$(null)VALSTR$ THEM!!"[170]F$[170][202]([196](A),2)
  460. 4710 P$[178]P$[170]" OPPOSING WARRIORS BOUGHT THE FARM!":[141]160:EW[178]EW[171]A:[137]4750
  461. 4720 [139]A[179]1[176][187](1)[170].1[177]A[173]10[167]4750
  462. 4730 A[178][181]([187](1)[172]WA):P$[178]F$[170]"(null)OU GOT ATN(null)PEEK(null)(null)LEFT$VALSTR$!!"[170]F$[170]"FOR"[170][202]([196](A),2)
  463. 4740 P$[178]P$[170]" OF YOUR WARRIORS WERE WASTED!":[141]160:WA[178]WA[171]A
  464. 4750 P$[178]F$[170]"PRINT#(+PRINT#)=VALNEMY STR$EATH (-PRINT#)=(null)OUR STR$EATH"[170]F$:FF[178]1:PV[178]0
  465. 4760 P$[178]P$[170]"VERIFY---------------------------------------":[141]160:SR[178]EW:SG[178]WA
  466. 4770 [139][187](1)[172]50[170](WA[172].05)[170](LA[172].002)[177][187](1)[172]50[170](EW[172].05)[170](EZ[172].002)[167]4800
  467. 4780 P$[178]"-":[141]170:WA[178]WA[171]1:[139]WA[179]1[167]PV[178]1:EW[178][181](EW[170][187](1)[172](SR[171]EW)):[137]4890
  468. 4790 [129]I[178]1[164]250:[130]:[137]4770
  469. 4800 P$[178]"+":[141]170:EW[178]EW[171]1:[139]EW[177]0[167]4790
  470. 4810 P$[178]F$[170]F$[170]"(null)ICTORY IS YOURS!!!"[170]F$[170]F$[170]"PRINT(null)OUR"[170][196](WA)
  471. 4820 P$[178]P$[170]" REMAINING SOLDIERS"[170]F$[170]"CAPTURED"
  472. 4830 LT[178][182]([181](WA[172].7[170]200[170][187](1)[172]300[170][187](1)[172]200[170]EZ[172].01)):[139]LT[177]EZ[167]LT[178]EZ
  473. 4840 P$[178]P$[170][196](LT)[170]" ACRES....":[141]160:[139]WA[167]EW[178][181](EN[172]20[173]2[170][187](1)[172](EN[172]20[173]2))
  474. 4850 EZ[178][181](EZ[171]LT):LA[178][181](LA[170]LT):P$[178]F$[170]"SYS(null)OU NOW HAVE"[170][196](LA)[170]" ACRES."
  475. 4860 [141]160:[139]EZ[179]1[167]P$[178]"(null)OU ALSO KILLED "[170]EN$[170]"!":[141]160
  476. 4870 [139]EZ[179]1[167]W$[178]"EMPTY"[170]C$[170]"0"[170]C$[170]"0"[170]C$[170]"0"[170]C$[170]"0"[170]C$:[137]4640
  477. 4880 P$[178]F$[170]"CONT"[170]EN$[170]" HAS"[170][196](EZ)[170]" ACRES LEFT.":[141]160:EW[178][181](EW):[137]4630
  478. 4890 P$[178]F$[170]F$[170]"(null)OU WERE DEFEATED!"[170]F$[170]"FORPEEKUT YOU MANAGED TO SEIZE":LT[178][182](SR[171]EW)
  479. 4900 LT[178][182]([181](LT[172][187](1)[172]4)[170]100):[137]4840
  480. 4910 P$[178]F$[170]"VERIFY(null)OU ATTACK THE ENEMY PALACE....":[141]160:[141]4610:[139]AE[167]4540
  481. 4920 [139]E1[179]1[167]P$[178]F$[170]"RIGHT$T BE GONE!":[141]160:[137]4550
  482. 4930 X[178][184](0):[139][187](1)[172]WA[179][187](1)[172]EW[172]2[167]5040
  483. 4940 P$[178]F$[170]"CONT(null)OU DESTROYED 10% OF THEIR PALACE!!":[141]160:SL[178][181]([187](1)[172](WA[172].3))[170]1
  484. 4950 E1[178]E1[170](E1[177]0):EN[178]EN[170](EN[177]0):[139]EW[177]EN[172]20[167]EW[178]EN[172]20
  485. 4960 P$[178]F$[170]"FOR(null)OU LOST"[170][196](SL)[170]" SOLDIERS IN"[170]F$[170]"THE PROCESS....":[141]160
  486. 4970 WA[178]WA[171]SL:[137]4550
  487. 4980 P$[178]F$[170]"POKE(null)OU SNEAK UP ON A (null)OBLE....":[141]160:[141]4610:[139]AE[167]4540
  488. 4990 [139][187](1)[172]WA[179][187](1)[172]EW[172]1.7[167]5040
  489. 5000 [139]EN[179]2[167]P$[178]F$[170]"OPEN(null)OU CAN'T FIND ANY!":[141]160:[137]4550
  490. 5010 [139]NB[177][181](LA[173]1E3)[167]P$[178]F$[170]"SYS(null)OUR OTHER (null)OBLES SAY (null)(null)!":[141]160:[137]4550
  491. 5020 P$[178]F$[170]"CONT(null)OU PUNCH HIM OUT AND DRAG HIS"[170]F$[170]"TWITCHING CARCASS OFF!!!"
  492. 5030 [141]160:NB[178]NB[170]1:EN[178]EN[171]1:SL[178][181]([187](1)[172](WA[172].3))[170]1:[137]4960
  493. 5040 P$[178]F$[170]"DEFCHR$UARDS APPEAR AND HALT YOUR ATTEMPTS!":[141]160
  494. 5050 SL[178][181]([187](1)[172](WA[172].3))[170]2:P$[178]F$[170]"(null)HE GUARDS KILL"[170][196](SL)[170]" MEN!"
  495. 5060 [141]160:[137]4970
  496. 5070 P$[178]F$[170]"(null)PREADING THE NEWS....":[141]160:[139]FF[178]0[167]5130
  497. 5080 TT$[178]U$(1)[170]" DEFEATS "[170]EN$:[139]PV[178]1[167]TT$[178]EN$[170]" RESISTS "[170]U$(1)
  498. 5090 [139]EZ[179]1[167]TT$[178]U$(1)[170]" FINISHES OFF "[170]EN$
  499. 5100 B[178]D7[171]8:[159]1,D7,5,D7$[170]":(NEWS.EMP),S,A":[141]220:[139]ER$[178]"00"[167]5120
  500. 5110 [160]1:[159]1,D7,5,D7$[170]":(NEWS.EMP),S,W"
  501. 5120 [152]1,TT$[170]C$:[160]1
  502. 5130 A[178][181]([187](1)[172]12)[170]1:[145][171](A[177]6)[137]5310:[145]A[137]5170,5200,5280,5260,5230
  503. 5140 A[178][181]([187](1)[172](I4[173]2)):B[178][181]([187](1)[172](I5[173]2))
  504. 5150 P$[178]F$[170]" LIST(null)(null)(null)(null)VAL(null) (null)EVOLT!!!"[170]F$[170][196](A)[170]" ASCOUNDRIES AND"[170][196](B)
  505. 5160 P$[178]P$[170]" (null)HIPYARDS"[170]F$[170]" ARE DESTROYED!":[141]160:I4[178]I4[171]A:I5[178]I5[171]B:[137]5310
  506. 5170 A[178][181]([187](1)[172](SF[172].2)):P$[178]F$[170]"VERIFY(null)(null)ATNCHR$(null)VAL!! "[170][196](A)[170]" PEOPLE "
  507. 5180 P$[178]P$[170]"BECOME SOIL FOR"[170]F$[170]"NEXT YEAR'S GROWING SEASON.":[141]160
  508. 5190 SF[178]SF[171]A:[137]5310
  509. 5200 A[178][181]([187](1)[172](SF[172].2)):B[178][181]([187](1)[172](LA[173]3)):P$[178]F$[170]" ATN ASCRIGHT$(null)VAL BREAKS OUT!!"[170]F$
  510. 5210 P$[178]P$[170][196](B)[170]" ACRES ARE SCORCHED, AND"[170]F$[170][196](A)[170]" PEOPLE ARE MELTED."
  511. 5220 [141]160:SF[178][181](SF[171]A):LA[178][181](LA[171]B):[137]5310
  512. 5230 A[178][181]([187](1)[172](PN[172].6)):P$[178]F$[170]" CLR(null)LEFT$RIGHT$VAL(null)VAL(null) STORM THE PALACE AND STEAL"[170]F$
  513. 5240 P$[178]P$[170][196](A)[170]" POUNDS":[141]160:PN[178][181](PN[171]A):[137]5310
  514. 5250 P$[178]F$[170]"(null)ING CHR$EORGE REWARDS YOU WITH"[170][196](A):[142]
  515. 5260 A[178][181]([187](1)[172](LA[173]3)):[141]5250
  516. 5270 P$[178]P$[170]F$[170]"ACRES FOR GOOD BEHAVIOR.":[141]160:LA[178][181](LA[170]A):[137]5310
  517. 5280 A[178][181]([187](1)[172](PN[173]2))[170]50:[141]5250
  518. 5290 P$[178]P$[170]F$[170]"POUNDS 'CUZ YOU HAVE A CUTE BUTT."[170]F$[170]"((null)LE CHR$EORGE IS A BIT"
  519. 5300 P$[178]P$[170]" QUEER!)":[141]160:PN[178][181](PN[170]A)
  520. 5310 [139]LA[179]400[167]P$[178]F$[170]"PRINT#(null)OU LOST MOST OF YOUR LAND!":[137]5340
  521. 5320 [145][171](SF[177]300)[137]5360:P$[178]F$[170]"PRINT(null)OU HAVEN'T ENOUGH SERFS TO MAINTAIN"[170]F$
  522. 5330 P$[178]P$[170]"THE VALMPIRE!"
  523. 5340 P$[178]P$[170]F$[170]"(null)ING CHR$EORGE PUTS A MERCY ARROW THROUGH"[170]F$[170]"YOUR HEAD.":[141]160
  524. 5350 L$[178]U$(1):U$(1)[178]"EMPTY":[141]3510:U$(1)[178]L$:[137]5520
  525. 5360 P2[178][181]((([187](1)[172]75)[170]25)[172]I2):P3[178][181]((([187](1)[172]100)[170]50)[172]I3)
  526. 5370 P4[178][181]((([187](1)[172]175)[170]125)[172]I4):P5[178][181]((([187](1)[172]200)[170]150)[172]I5)
  527. 5380 P$[178]F$[170]"(null)ROFIT (null)EPORT FROM THE (null)TOCK (null)ARKET:"[170]F$:[141]160
  528. 5390 PN[178][181](PN[170]P2[170]P3[170]P4[170]P5):P$[178]" (null)ARKETS:  "[170][196](P2):[141]160
  529. 5400 P$[178]" OPEN(null)ILLS:    "[170][196](P3):[141]160
  530. 5410 P$[178]" CONTASCOUNDRIES:"[170][196](P4):[141]160
  531. 5420 P$[178]" (null)HIPYARDS:"[170][196](P5):[141]160:X[178][181]([187](1)[172]19)[170]6
  532. 5430 P$[178]F$[170]"PRINT#(null)RESS A KEY TO CONTINUE: ":[141]170:L[178]1:[141]180:[139]CD[167]2690
  533. 5440 [141]3620:P$[178]F$[170]"CONT(null)OU CAN HAVE 20 SOLDIERS PER NOBLE TO"[170]F$[170]"STR$EFEND YOUR"
  534. 5450 P$[178]P$[170]" VALMPIRE."[170]F$
  535. 5460 P$[178]P$[170]"(null)HESE SOLDIERS COST"[170][196](X)[170]" POUNDS EACH."[170]F$[170]F$
  536. 5470 [141]250:P$[178]P$[170]"FORPEEKUY HOW MANY?: ":[141]170:L[178]5:[141]180:[139]CD[167]2690
  537. 5480 B[178][181]([197](L$)):[145][171](B[179]1)[171]2[172](B[172]X[177]PN)[137]5510,5440
  538. 5490 [139]WA[170]B[177]NB[172]20[167]P$[178]"DEF(null)OU ONLY HAVE"[170][196](NB)[170]" NOBLES.":[141]160:[137]5440
  539. 5500 WA[178][181](WA[170]B):PN[178][181](PN[171](B[172]X))
  540. 5510 P$[178]F$[170]"ASCIXING UP THE (null)ALACE, (null)LEASE WAIT....":[141]160:[141]3510
  541. 5520 P$[178]F$[170]"(null)LAY VALMPIRE AGAIN? (Y/N): ":[141]170:[151]679,[194](679)[170]1
  542. 5530 L[178]1:[141]180:[139]CD[167]2690
  543. 5540 [145][171](L$[179][177]"Y"[175]L$[179][177]"(null)")[137]5580:[139][194](679)[179]3[176](AC[178]65535)[167]2660
  544. 5550 P$[178]F$[170]"LEFT$AVEN'T YOU HAD ENOUGH YET?: ":[141]170:L[178]1:[141]180:[139]CD[167]2690
  545. 5560 [139]L$[178]"Y"[176]L$[178]"(null)"[167]5580
  546. 5570 P$[178]F$[170]"(null)OUGH PEEKANANAS!!!":[141]160:[137]410
  547. 5580 P$[178]F$[170]"CLRCHR$OODBYE, (null)IGHTY VALMPEROR...."[170]F$[170]"(null)LAY AGAIN SOON!!":[141]160
  548. 5590 [137]410
  549. 5600 P$[178]F$[170]"(null)OU (null)(null)(null)(null) BE STR$REAMING!!!":[141]160:[137]410
  550.