home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE2.ARC / (EMP2COM) (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  18.0 KB  |  442 lines
  1. 100 POKE152,PEEK(251):IFPEEK(601)=111THEN104
  2. 102 A=PEEK(601):POKE601,PEEK(600+PEEK(152)):POKE600+PEEK(152),A
  3. 104 GOTO2190
  4. 120 :
  5. 130 :REM START OF USER JUMP TABLE.
  6. 140 :
  7. 150 GOTO630 :REM SEND P$+CHR$(13) OUT.
  8. 160 GOTO640 :REM SEND P$ OUT.
  9. 170 GOTO680:REM GET L$ FROM MODEM.
  10. 180 B=D7%:GOTO1250:REM SEND 'P' TO REL.
  11. 190 B=D7%:GOTO780:REM READ ERR CHANNEL.
  12. 200 GOTO800:REM READ SYSTEM CLOCK.
  13. 210 GOTO860:REM DISPLAY USER ONLINE.
  14. 220 GOTO880:REM REMOTE SYSOP MENU.
  15. 230 GOTO1040:REM DISPLAY DIR.
  16. 240 GOTO1230:REM BREAK RC INTO LO/HI.
  17. 250 GOTO1280:REM UPDATE (USER LOG).
  18. 260 GOTO1290:REM EMPTY UL$.
  19. 270 GOTO1300:REM GET U$() FROM DISK.
  20. 280 GOTO1310:REM GET N$() FROM DISK.
  21. 290 GOTO1320:REM SEND U$() TO DISK.
  22. 300 GOTO1330:REM SEND N$() TO DISK.
  23. 310 GOTO1350:REM FIND DV,DR$ IN DR%().
  24. 320 GOTO1360:REM FIND DV,DR$
  25. 330 GOTO1370:REM INCREMENT DV,DR$.
  26. 340 GOTO1430:REM HANG UP PHONE.
  27. 350 GOTO1490:REM FIND TIME CONNECTED.
  28. 360 GOTO1650:REM RETURN TO BBS.
  29. 370 GOTO1660:REM LOAD NEXT MODULE.
  30. 380 GOTO1540:REM GET SC() FROM DISK.
  31. 390 GOTO1620:REM SEND SC() TO DISK.
  32. 400 GOTO1520:REM SEND SEQ OUT.
  33. 410 :
  34. 420 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:N$=CHR$(0):SI=54272
  35. 430 DIMU$(15),N$(15),DR%(7):DR$="0"
  36. 440 GOSUB450:GOTO500
  37. 450 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN470
  38. 460 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  39. 470 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  40. 480 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  41. 490 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  42. 500 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  43. 510 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO1720
  44. 520 IFA$="[133]"THENSY=SY+1:GOSUB880:SY=SY-1:RETURN
  45. 530 IFA$<>"[134]"THEN560
  46. 540 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB150:SYS52012:CD=PEEK(52033)
  47. 550 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB150
  48. 560 IFA$="[140]"THENCD=1:RETURN
  49. 570 IFL<>65535THENRETURN
  50. 580 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  51. 590 CD=1:UL$="":RETURN
  52. 600 IFA$=""ORZ$=""THENGOSUB620
  53. 610 RETURN
  54. 620 POKESI+4,21:POKESI+4,20:RETURN
  55. 630 P$=P$+F$
  56. 640 IFL=55THENPRINT#4,P$;:RETURN
  57. 650 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  58. 660 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  59. 670 RETURN
  60. 680 GOSUB1490:IFVAL(U$(14))<COTHEN720
  61. 690 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  62. 700 L$="V65/R.*                           ":SYS52003,L$:CD=PEEK(52033)
  63. 710 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB520:RETURN
  64. 720 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB150
  65. 730 GOTO360
  66. 740 GOSUB1240:AA=RF:GOSUB1350
  67. 750 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB780:NEXT
  68. 760 GOSUB780:IFER$<"20"ORER$="50"THENRETURN
  69. 770 PRINT"[197]RROR IN (USERFILE)!":GOSUB1430:STOP
  70. 780 ES$="":GOSUB790:ER$=LEFT$(ES$,2):RETURN
  71. 790 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO790:RETURN
  72. 800 T1$="02:04:32.2 PM":SYS51982,T1$:TM$=T1$+""
  73. 810 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  74. 820 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO850
  75. 830 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  76. 840 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  77. 850 DA$=M$+STR$(DT):RETURN
  78. 860 SYS52050:GOSUB1490:PRINT""F$U$(1)TAB(20)LEFT$(U$(7),19)
  79. 865 PRINT"[154][207]N: "LN$TAB(20)"[206]OW: "TM$
  80. 870 PRINT"[159][204]EVEL:"ACTAB(20)"[207]NLINE:"CO"MINS.":SYS52041:RETURN
  81. 880 D8=D7:DR$=D7$
  82. 890 P$=" [147]":GOSUB150
  83. 900 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB150
  84. 910 P$="$ - [196]IRECTORY":GOSUB150
  85. 920 P$="@ - [196]OS COMMANDS":GOSUB150
  86. 930 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB150
  87. 940 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB160:L=1:GOSUB170:IFCDTHENRETURN
  88. 950 IFL$=""THENRETURN
  89. 960 GOSUB1280:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  90. 970 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB1040,1370
  91. 980 IFL$="?"THEN890
  92. 990 IFL$<>"@"THEN940
  93. 1000 P$=F$+">":GOSUB160:L=39:GOSUB170:IFCDTHENRETURN
  94. 1010 B=D8-8:IFL$=""THENGOSUB780:P$=F$+ES$:GOSUB150:GOTO940
  95. 1020 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  96. 1030 GOTO940
  97. 1040 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB160:L=16:GOSUB170:FI$=L$+""
  98. 1050 IFFI$=""THENFI$="*"
  99. 1060 P$=F$:GOSUB150:OPEN1,D8,0,"$"+DR$+":"+FI$
  100. 1070 GOSUB780:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB150:RETURN
  101. 1080 GET#1,A$:GET#1,A$
  102. 1090 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  103. 1100 GET#1,LO$:GET#1,HI$
  104. 1110 LO$=LO$+N$:HI$=HI$+N$
  105. 1120 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  106. 1130 GET#1,A$:IFA$=""THEN1170
  107. 1140 GET#5,Z$:IFZ$=""THENGETZ$
  108. 1150 IFZ$=" "THENCLOSE1:RETURN
  109. 1160 P$=P$+A$:GOTO1130
  110. 1170 IFECANDMID$(P$,8,1)="("THEN1090
  111. 1180 GOSUB150:IFA$=" "THENCLOSE1:RETURN
  112. 1190 GOTO1090
  113. 1200 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  114. 1210 GOSUB1200:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  115. 1220 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1200:RETURN
  116. 1230 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  117. 1240 GOSUB1230:R1=LO:R2=HI:RETURN
  118. 1250 GOSUB1240:GOTO750
  119. 1260 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  120. 1270 AA=VAL(N$(3)):RETURN
  121. 1280 IFLEN(UL$)<230THENRETURN
  122. 1290 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  123. 1300 GOSUB1310:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  124. 1310 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  125. 1320 FORI=1TO15:N$(I)=U$(I):NEXT
  126. 1330 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  127. 1340 PRINT#3,N$(0):RC=1:GOSUB740:RETURN
  128. 1350 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  129. 1360 GOSUB1350:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  130. 1370 IFDR$="0"THENGOSUB1350:IFDR$="1"THENRETURN
  131. 1380 AA=AA+1:IFAA>15THENAA=8
  132. 1390 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1380
  133. 1400 IFA1AND32ORSYTHEN1420
  134. 1410 GOSUB1350:IFDR%(B)AND64THEN1380
  135. 1420 D8=AA:DR$="0":RETURN
  136. 1430 ON(MT%-1)GOTO1440,1450,1470,1480,1210,1210
  137. 1440 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  138. 1450 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  139. 1460 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  140. 1470 POKEB2,38:POKEB1,38:RETURN
  141. 1480 POKEB1,PEEK(B1)OR32:RETURN
  142. 1490 GOSUB800:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  143. 1500 IFLH=12ANDC2THENCO=ABS(CO-720)
  144. 1510 RETURN
  145. 1520 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB190:IFER$>"01"THENCLOSE1:RETURN
  146. 1530 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  147. 1540 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  148. 1550 RC=R:GOSUB1230:B=0:GOSUB750:GET#3,A$:IF(ST)AND64THENSC=0:GOTO1570
  149. 1560 INPUT#3,SC
  150. 1570 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  151. 1580 IFI>SCTHENDIMSC(I):GOTO1600
  152. 1590 DIMSC(SC)
  153. 1600 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  154. 1610 RETURN
  155. 1620 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  156. 1630 RC=R:GOSUB1230:B=0:GOSUB750:SC$=STR$(SC)+F$:FORT=1TOSC
  157. 1640 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB750:CLOSE3:RETURN
  158. 1650 FI$="(ST/R 3.?)":DV=D5:D7=DVAND127:D7$="0":IFDV>128THEND7$="1"
  159. 1660 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:Q$=CHR$(34):FORT=1TO15
  160. 1670 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  161. 1680 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  162. 1690 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1:POKE252,32:SYS52050
  163. 1700 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$D7$":"FI$Q$","D7""
  164. 1710 POKE631,131:POKE198,1:NEW
  165. 1720 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  166. 1730 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  167. 1750 NEXT:SYS52041
  168. 1760 CLOSE1:GOSUB1260:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  169. 1770 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8
  170. 1780 GOTO2190
  171. 1790 GOSUB2020:GOSUB340:GOSUB260:GOTO360
  172. 1800 P$=F$+"([211]PACE=[193]BORT)"+F$+F$+" [159][207][212][200][197][210] [210][213][204][197][210][211]"+F$:GOSUB150
  173. 1810 GOSUB2060:MM=1:X=0:FORRC=1TO50:GOSUB180:INPUT#3,A$,B$:POKE52034,0
  174. 1820 REM POKE PREPARES ML FOR INCOMING           SPACE BAR TO ABORT AND
  175. 1830 REM KEEPS IT FROM GIVING A FALSE            ABORT SIGNAL!!
  176. 1840 P$="[150]":X=X+1:L$=RIGHT$("0"+MID$(STR$(RC),2),2):IF(XAND1)=0THENP$="[129]"
  177. 1850 Z$="":IFA$="EMPTY"ORA$=U$(1)THENGET#5,A$:GETZ$:GOTO1870
  178. 1860 P$=P$+L$+"> "+LEFT$(A$+"....................",20)+":"+B$:GOSUB150
  179. 1870 IFA$=" "ORA$="[160]"ORZ$=" "THENP$=F$+"([193]BORTED)":GOSUB150:RC=99
  180. 1880 NEXT:MM=0:CLOSE3:RETURN
  181. 1890 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  182. 1900 P$=F$+F$+"[159]"+U$(1)+" (#"+MID$(STR$(G3),2)+")"+F$:GOSUB150
  183. 1910 P$="[154][204]AND     : "+STR$(LA)+" [193]CRES"+F$+"[205]ONEY    : $"+MID$(STR$(PN),2)+F$
  184. 1920 P$=P$+"[199]RAIN    : "+STR$(GR)+" [194]USHELS"+F$+"[212]AX [210]ATE : "+STR$(TR)+"%"
  185. 1930 GOSUB150:P$="[211]OLDIERS : "+STR$(WA)+F$+"[211]ERFS    : "+STR$(SF)+F$
  186. 1940 P$=P$+"[206]OBLES   : "+STR$(NB):GOSUB150:GOSUB1990
  187. 1950 P$="[159][208]ALACE   : "+STR$(10*F(1))+"% [195]OMPLETED."+F$+"[205]ARKETS  : "
  188. 1960 P$=P$+STR$(F(2))+F$+"[205]ILLS    : "+STR$(F(3))+F$+"[198]OUNDRIES: ":GOSUB160
  189. 1970 P$=STR$(F(4))+F$+"[211]HIPYARDS: "+STR$(F(5))+F$+"[196]IPLOMATS: "+STR$(F(6))
  190. 1980 P$=P$+F$+"[211]HIPS    : "+STR$(YC)+F$+"[195]OLONIES : "+STR$(I8):GOSUB150
  191. 1990 P$=F$+"[156] (PRESS A KEY) [146][144]":GOSUB150:L=1:GOSUB170:ONCDGOTO1790:RETURN
  192. 2000 REM
  193. 2010 GOSUB2020:P$=F$+"[156][210]ETURNING TO [194][194][211]....":GOSUB150:GOTO360
  194. 2020 W$=U$(1)+C$+STR$(LA)+C$+STR$(WA)+C$+STR$(SF)+C$+STR$(NB)+C$+STR$(GR)+C$
  195. 2030 W$=W$+STR$(TR)+C$+STR$(PN)+C$+STR$(F(1))+C$+STR$(F(2))+C$+STR$(F(3))+C$
  196. 2040 W$=W$+STR$(F(4))+C$+STR$(F(5))+C$+STR$(F(6))+C$+STR$(YC)+C$+STR$(I8)+C$
  197. 2050 W$=W$+R$:GOSUB2060:RC=G3:GOSUB180:PRINT#3,W$:CLOSE3:RETURN
  198. 2060 OPEN3,D7,3,EP$:RETURN
  199. 2070 IFTZ<1ORTZ>3THEND2$="[204][207][210][196] ":RETURN
  200. 2080 IFTZ=1THEND2$="[208][210][201][206][195][197] ":RETURN
  201. 2090 IFTZ=2THEND2$="[203][201][206][199] ":RETURN
  202. 2100 IFTZ=3THEND2$="[197][205][208][197][210][207][210] ":RETURN
  203. 2110 TZ=0:I1=F(1):I2=F(2):I3=F(3):I4=F(4):I5=F(5):I6=F(6)
  204. 2120 IFI2>9ANDI6>0ANDI3>5ANDI4>1ANDI5>1ANDI1>2AND(LA/SF>5.1)ANDNB>15ANDSF>3000THENGOSUB2160
  205. 2130 IFI2>15ANDI3>9ANDI6>2ANDI4>6ANDI5>4ANDI1>6AND(LA/SF>10.5)ANDSF>3500ANDNB>30THENGOSUB2170
  206. 2140 IFI2>23ANDI3>9ANDI6>2ANDI4>13ANDI5>11ANDI1>9AND(LA/SF>23.4)ANDSF>5499ANDNB>62THENGOSUB2180
  207. 2145 IFTZ>0ANDTZ<>TYTHEN4360
  208. 2150 TY=TZ:RETURN
  209. 2160 D2$="[208][210][201][206][195][197] ":TZ=1:RETURN
  210. 2170 D2$="[203][201][206][199] ":TZ=2:RETURN
  211. 2180 D2$="[197][205][208][197][210][207][210] ":TZ=3:RETURN
  212. 2190 GOSUB210:P$=F$+"[159][193]TTACK WHOM?"+F$+"0)[206]OBODY ?)[204]IST [217])OUR [211]TATS: [154]":GOSUB160
  213. 2200 L=2:GOSUB170:ONCDGOTO1790:IFL$="0"ORL$=""THENP$=F$+"[206]O [193]TTACK!":GOTO3220
  214. 2210 IFL$="?"THENGOSUB1800:GOTO2190
  215. 2220 IFL$="Y"ORL$="[217]"THENGOSUB1890:GOTO2190
  216. 2230 G1=INT(VAL(L$)):IFG1<1ORG1>50THEN2190
  217. 2240 GOSUB2060:RC=G1:GOSUB180:INPUT#3,EN$
  218. 2250 IFEN$="EMPTY"OREN$="0"THENP$="[201]NVALID!!":GOSUB150:CLOSE3:GOTO2190
  219. 2260 INPUT#3,EZ,EW,EF,EN,EG,ET,EP,E1,E2,E3,E4,E5,E6,E7,E8,E9:CLOSE3
  220. 2270 IFEZ=0THEN2420
  221. 2280 P$=F$+"[154][212]HE [197]NEMY: "+EN$+"[155] HAS"+STR$(EZ)+" ACRES.":GOSUB150
  222. 2290 P$=F$+"[155][193]RE YOU SURE? (Y/N): ":GOSUB160:L=1:GOSUB170:ONCDGOTO1790
  223. 2300 IFL$<>"Y"ANDL$<>"[217]"THEN2190
  224. 2310 I=1:IFPEEK(681)=0THEN2340
  225. 2320 AA=PEEK(681+I):ON-(AA=RC)GOTO2330:I=I+1:ON-(I>PEEK(681))GOTO2340:GOTO2320
  226. 2330 P$=F$+"[158][217]OU [193]LREADY [196]ID!  [155][212]RY [211]OMEONE [197]LSE!":GOSUB150:GOTO2190
  227. 2340 POKE681,PEEK(681)+1:POKE681+PEEK(681),RC
  228. 2350 ON-(G1<>G3)GOTO2370:P$="[150][193]TTACK [217][207][213][210][211][197][204][198]?!?  [194][193][196] [205]ISTAKE!"
  229. 2360 LA=LA-INT(RND(1)*(LA/2)):GOTO3220
  230. 2370 IFAF=1ORWA<1THENP$=F$+"[158][217]OUR [193]RMY IS [201]MMOBILIZED!":GOTO3220
  231. 2380 SD=0:NJ=0
  232. 2390 GOSUB210:P$=F$+"[159][217]OUR [194]ATTLE [195]OMMAND? (1-6/?/[217]): [155]":GOSUB160:L=1:GOSUB170
  233. 2400 ONCDGOTO1790:CM=VAL(L$):ON-(L$="?")GOSUB2440:GOSUB1890
  234. 2410 ONCMGOTO2570,2870,3070,3130,2480,2930:GOTO2390
  235. 2420 IFEZ=0THENP$=F$+""+EN$+" [200]AS [206]O [204]AND!":GOSUB150:GOTO2190
  236. 2430 P$=F$+""+EN$+" [200]AS [206]O [211]OLDIERS!":GOSUB150:GOTO2190
  237. 2440 P$="[147] "+F$+F$+"[198]IGHT [205]ENU"+F$+"[163][163][163][163][163][163][163][163][163][163]"+F$:GOSUB150
  238. 2450 P$="[159][1][146] [158][193]TTACK [193]RMY"+F$+"[159][2][146] [158][193]TTACK [208]ALACE":GOSUB150
  239. 2460 P$="[159][3][146] [158][193]TTACK [206]OBLES"+F$+"[159][4][146] [158][195]EASE [198]IGHTING":GOSUB150
  240. 2470 P$="[159][5][146] [158][211]END [196]IPLOMAT"+F$+"[159][6][146] [158][202]OUST":GOSUB150:RETURN
  241. 2480 IFF(6)<1THENP$=F$+"[158][217]OU HAVE NO [196]IPLOMATS!":GOSUB150:GOTO2390
  242. 2485 P$=F$+"[156][217]OUR [196]IPLOMAT RIDES TO THE ENEMY CAMP.":GOSUB150
  243. 2490 IFEW<WA*2THEN2510
  244. 2500 GOTO2550
  245. 2510 LT=INT(EZ/15):LA=INT(LA+LT):EZ=INT(EZ-LT):P$=F$+"[158][200]E [210]ETURNS WITH [199]OOD "
  246. 2520 P$=P$+"[206]EWS!"+F$+"[212]O AVOID ATTACK, [217]OU HAVE BEEN"+F$+"GIVEN"+STR$(LT)
  247. 2530 P$=P$+" ACRES OF LAND!":GOSUB150:P$="[155][217]OU NOW HAVE"+STR$(LA)+" ACRES.[154]"
  248. 2540 GOSUB150:FF=1:SD=1:GOTO2800
  249. 2550 F(6)=F(6)-1:P$=F$+"[129][212]HE [197]NEMY [156][194][197][200][197][193][196][211][146][129] [217]OUR [196]IPLOMAT,":GOSUB150
  250. 2560 P$="AND TOSSES HIS CORPSE INTO THE MOAT!":GOSUB150:SD=0:GOTO2390
  251. 2570 GOSUB2850:ONAEGOTO2370:A=(WA+LA)/(EW+EZ):IFA>1ORRND(1)<ATHEN2610
  252. 2580 A=INT(RND(1)*EW):P$=F$+"[155][217]OUR [193]RMY [211][213][210][208][210][201][211][197][196][155] THEM!!":GOSUB150
  253. 2590 P$=MID$(STR$(A),2)+" [154]OPPOSING WARRIORS BOUGHT THE FARM.":GOSUB150
  254. 2600 EW=EW-A:GOTO2630
  255. 2610 A=INT(RND(1)*WA):P$=F$+"[155][217]OUR [193]RMY GOT [193][205][194][213][211][200][197][196][155]!!!":GOSUB150
  256. 2620 P$=MID$(STR$(A),2)+" OF YOUR WARRIORS BOUGHT THE FARM.":GOSUB150:WA=WA-A
  257. 2630 P$=F$+"[158](+[158])[159]=[197]NEMY [196]EATH [158](-[158])[159]=[217]OUR [196]EATH":GOSUB150
  258. 2640 P$="[158]([216][158])[159]=[197]NEMY [206]OBLE [158](*[158])[159]=[217]OUR [206]OBLE"+F$+DC$:GOSUB150
  259. 2650 FF=1:PV=0:SR=EW:SG=WA:A=0:B=0:A2=20:B2=20
  260. 2660 FORT=1TO200:NEXT:IFA=40ANDNB<>0THENA=0:NB=NB-1:P$="*":GOSUB160
  261. 2670 IFB=40ANDEN<>0THENB=0:EN=EN-1:P$="[216]":GOSUB160
  262. 2680 WZ=(WA*.08):ED=(EW*.08)
  263. 2690 IF(RND(1)*WZ)+(RND(1)*300)>(RND(1)*ED)+(RND(1)*300)THEN2720
  264. 2700 P$="-":GOSUB160:WA=WA-1:A=A+1:A2=A2-1:B2=20:IFWA>0ANDA2>0THEN2660
  265. 2710 WA=0:PV=1:EW=INT(EW+RND(1)*(SR-EW)):GOTO2830
  266. 2720 P$="+":GOSUB160:EW=EW-1:B=B+1:B2=B2-1:A2=20:IFEW>0ANDB2>0THEN2660
  267. 2730 EW=0:P$=F$+F$+"[217]OUR FORCES WERE VICTORIOUS!!"+F$+"[217]OUR"+STR$(WA)
  268. 2740 P$=P$+" REMAINING SOLDIERS MANAGED":GOSUB150
  269. 2750 LT=ABS(INT(WA*.7+200+RND(1)*300+RND(1)*200+EZ*.01))
  270. 2760 IFLT>EZTHENLT=EZ
  271. 2770 P$="TO CAPTURE"+STR$(LT)+" ACRES....":GOSUB150
  272. 2780 IFWATHENEW=INT(EN*20/2+RND(1)*(EN*20/2))
  273. 2790 EZ=INT(EZ-LT):LA=INT(LA+LT):P$=F$+"[155][217]OU NOW HAVE"+STR$(LA)+" ACRES.":GOSUB150
  274. 2800 IFEZ=>1THEN2820
  275. 2810 P$=F$+"[154][217]OU ALSO KILLED "+EN$+"!":GOSUB150:W$="EMPTY"+C$+"0":GOTO3160
  276. 2820 P$=F$+"[154]"+EN$+" HAS"+STR$(EZ)+" ACRES LEFT.":GOSUB150:EW=INT(EW):GOTO3130
  277. 2830 P$=F$+F$+"[154][217]OUR FORCES WERE DEFEATED!"+F$+"[154][194]UT YOU MANAGED":GOSUB150
  278. 2840 LT=ABS(SR-EW):LT=ABS(INT(LT*RND(1)*4)+100):GOTO2770
  279. 2850 AE=0:IFWA<1THENP$=F$+"[217]OU HAVE NO SOLDIERS!":GOSUB150:AE=1:WA=0
  280. 2860 RETURN
  281. 2870 P$=F$+"[217]OU ATTACK THE [197]NEMY [208]ALACE....[155]":GOSUB150:GOSUB2850:IFAETHEN2370
  282. 2880 IFE1<1THENP$=F$+"[150][201]T'S ALREADY [196]ESTROYED!":GOSUB150:GOTO2370
  283. 2890 IFRND(1)*WA<RND(1)*EW*2THEN3050
  284. 2900 P$=F$+"[154][217]OU DESTROYED 10% OF THE [208]ALACE!":GOSUB150:SL=INT(RND(1)*(WA*.5))+1
  285. 2910 E1=E1+(E1>0):EN=EN+(EN>0):IFEW>EN*20THENEW=EN*20
  286. 2920 P$=F$+"[155][217]OU LOST"+STR$(SL)+" SOLDIERS!":GOSUB150:WA=WA-SL:GOTO2370
  287. 2930 P$=F$+"[155][217]OUR [206]OBLE MOUNTS HIS MIGHTY STEED"+F$+"AND TAKES UP HIS LANCE....
  288. 2940 [141]150:[139]SF[177]900[167]2960
  289. 2950 P$[178]F$[170]"CONT(null)OT ENOUGH SERFS ATTEND."[170]F$[170]"(null)HE MID$OUST IS CANCELLED!":[141]150
  290. 2955 [137]2380
  291. 2960 [139]([187](1)[172]EN)[179](NB[172][187](1))[167]2990
  292. 2970 [139]EN[179]2[167]P$[178]F$[170]"FOR(null)OUR OPPONENT HAS NO (null)OBLES!":[141]150:[137]2380
  293. 2980 [137]3020
  294. 2990 NB[178]NB[170]1:EN[178]EN[171]1:P$[178]F$[170]"CONT(null)OUR (null)OBLE'S LANCE KNOCKS HIS OPPONENT"
  295. 3000 P$[178]P$[170]F$[170]"TO GROUND. LEFT$E GETS UP AND SWEARS"[170]F$
  296. 3010 P$[178]P$[170]"LOYALTY TO YOU!":[141]150:FF[178]1:NJ[178]1:[137]3130
  297. 3020 NB[178]NB[171]1:EN[178]EN[170]1:P$[178]F$[170]"LIST(null)OUR OPPONENT'S LANCE PIERCES ARMOR."[170]F$
  298. 3030 P$[178]P$[170]"PEEKADLY INJURED, (null)OUR (null)OBLE JOINS YOUR"[170]F$[170]"OPPONENTS ARMY!":[141]150
  299. 3040 NJ[178]0:[137]2380
  300. 3050 P$[178]F$[170]"LISTCHR$UARDS APPEAR AND HALT YOUR ATTEMPTS!":[141]150
  301. 3060 SL[178][181]([187](1)[172](WA[172].4))[170]2:[137]2920
  302. 3070 P$[178]F$[170]"LIST(null)OU SNEAK UP ON A (null)OBLE....":[141]150:[141]2850:[139]AE[167]2370
  303. 3080 [139][187](1)[172]WA[179][187](1)[172]EW[172]1.7[167]3050
  304. 3090 [139]EN[179]2[167]2970
  305. 3100 [139]NB[177][181](LA[173]1000)[167]P$[178]F$[170]"SYS(null)OUR (null)OBLES THREATEN TO STRIKE!":[141]150:[137]2380
  306. 3110 P$[178]F$[170]"CONT(null)OU PUNCH HIM OUT AND DRAG HIS"[170]F$[170]"TWITCHING CARCASS OFF!"
  307. 3120 [141]150:NB[178]NB[170]1:EN[178]EN[171]1:SL[178][181]([187](1)[172](WA[172].4))[170]1:[137]2920
  308. 3130 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$[170][196](EG)[170]C$
  309. 3140 W$[178]W$[170][196](ET)[170]C$[170][196](EP)[170]C$[170][196](E1)[170]C$[170][196](E2)[170]C$[170][196](E3)[170]C$
  310. 3150 W$[178]W$[170][196](E4)[170]C$[170][196](E5)[170]C$[170][196](E6)[170]C$[170][196](E7)[170]C$[170][196](E8)[170]C$[170][196](E9)
  311. 3160 [141]2060:RC[178]G1:[141]180:[152]3,W$:[160]3
  312. 3170 [139]EZ[179]1[167]GR[178]GR[170]EG:PN[178]PN[170]EP:SF[178]SF[170]EF:[137]3190
  313. 3180 [137]3210
  314. 3190 P$[178]F$[170]"LIST(null)OUR ARMY SEIZES"[170][196](EG)[170]" BUSHELS"[170]F$[170]"OF GRAIN AND"[170][196](EP)
  315. 3200 P$[178]P$[170]" DOLLARS."[170]F$[170]EN$[170]"'S SERFS DECLARE"[170]F$[170]"LOYALTY TO YOU.":[141]150
  316. 3210 [141]2020:P$[178]""
  317. 3220 [141]150:[139]FF[178]0[167]3340
  318. 3230 P$[178]F$[170]"(null)PREADING THE NEWS....LIST":[141]150
  319. 3240 [141]2070
  320. 3250 TT$[178]"PRINT#"[170]D2$[170]"LIST"[170]U$(1)[170]" DEFEATS LIST"[170]EN$
  321. 3260 [139]PV[178]1[167]TT$[178]"LIST"[170]EN$[170]" RESISTS PRINT#"[170]D2$[170]"LIST"[170]U$(1)
  322. 3270 [139]EZ[179]1[167]TT$[178]"PRINT#"[170]D2$[170]"LIST"[170]U$(1)[170]" EXECUTES LIST"[170]EN$
  323. 3280 [139]NJ[178]1[167]TT$[178]"PRINT#"[170]D2$[170]"LIST"[170]U$(1)[170]" WINS JOUST.LIST"[170]C$[170]EN$[170]" IS SHAMED."
  324. 3290 [139]SD[178]1[167]TT$[178]"LIST"[170]EN$[170]" FORFEITS PRINT#"[170]D2$[170]"LIST"[170]U$(1)[170]"'S"[170]C$[170]"ATTACK."
  325. 3300 [141]200:[159]1,D7,5,D7$[170]":(NEWS2.EMP),A":[141]190:[139]ER$[178]"00"[167]3330
  326. 3310 [160]1:[159]1,D7,5,D7$[170]":(NEWS2.EMP),S,W":[141]190:[139]ER$[177]"00"[167][160]1:[137]3340
  327. 3320 [152]1,C$"CONT ATNS OF: "DA$C$" TAB(TAB(TAB(TAB(TAB(TAB(TAB("[200]("TAB(TAB(TAB(TAB(TAB(TAB(",[195](DA$))
  328. 3330 [152]1,C$"CONT(null)N "DA$" AT "TM$C$TT$:[160]1
  329. 3340 [139]PY[178]0[175]WA[177]500[167]A[178][181](WA[173](1[170]4[172][187](1))):WA[178]WA[171]A:[141]3700
  330. 3350 [139]X[178]0[175]NB[177]67[167]A[178][181](NB[173](1[170]4[172][187](1))):NB[178]NB[171]A:[141]3710
  331. 3360 [139]F(5)[179]400[167]3400
  332. 3370 V[178][181](F(5)[173](1[170].1[172][187](1))):F(5)[178]F(5)[171]V
  333. 3380 P$[178]F$[170]"CONT(null)OUR (null)INGDOM CANNOT SUPPORT THIS MANY"[170]F$[170]"(null)HIPYARDS!"[170][196](V)
  334. 3390 P$[178]P$[170]" ARE CLRLEN(null)(null)(null)VALSTR$.":[141]150
  335. 3400 [139]PN[179]1000000[167]3440
  336. 3410 F[178][181](PN[173](1[170].5[172][187](1))):PN[178]PN[171]F
  337. 3420 P$[178]F$[170]"LIST(null)OU PAY"[170][196](F)[170]" LISTSTR$OLLARS TO"[170]F$[170]"THE (null)ONKS, FOR THIS YEARS "
  338. 3430 P$[178]P$[170]"PROVISIONS"[170]F$[170]"FOR YOUR SUBJECTS' SURVIVAL.":[141]150
  339. 3440 [139]LA[179]2500000[167]3480
  340. 3450 C[178][181](LA[173](1[170]1.5[172][187](1))):LA[178]LA[171]C
  341. 3460 P$[178]F$[170]"CONT(null)OU DONATE"[170][196](C)[170]"CONT ACRES TO"[170]F$[170]"YOUR LOCAL (null)ONESTARY."
  342. 3470 [141]150
  343. 3480 [139]F(4)[179]400[167]3520
  344. 3490 J[178][181](F(4)[173](1[170]2[172][187](1))):F(4)[178]F(4)[171]J
  345. 3500 P$[178]F$[170]"(null)ATNMID$(null)(null) VAL(null)(null)(null)(null)(null)RIGHT$(null)(null)!!!WAITFOR"[170]F$[170][202]([196](J),2)[170]" ASCOUNDRIES ARE"
  346. 3510 P$[178]P$[170]" STR$ESTROYED!":[141]150
  347. 3520 [139]F(2)[179]500[167]3560
  348. 3530 K[178][181](F(2)[173](1[170]4[172][187](1))):F(2)[178]F(2)[171]K
  349. 3540 P$[178]F$[170]"FOR(null)OME OF THE OWNERS RETIRE, CAUSINGCLR"[170]F$[170][202]([196](K),2)
  350. 3550 P$[178]P$[170]"FOR (null)ARKETS TO CLOSE.":[141]150
  351. 3560 [139]F(3)[179]500[167]3600
  352. 3570 R[178][181](F(3)[173](1[170]3[172][187](1))):F(3)[178]F(3)[171]R
  353. 3580 P$[178]F$[170]"(null)HE (null)ILLS ARE OVERWORKED!CONT"[170][196](R)[170]" (null)ILLS"[170]F$
  354. 3590 P$[178]P$[170]"HAVE BROKEN MILLSTONES AND"[170]F$[170]"ARE SHUTDOWN!":[141]150
  355. 3600 [139]FF[178]1[176][181]([187](1)[172]4)[177]1[167]3650
  356. 3610 X[178][181]([187](1)[172]LA[173]20):LA[178]LA[171]X:B[178][181]((.25[172][187](1)[170].5)[172]PN[173]20):PN[178]PN[171]B
  357. 3620 P$[178]F$[170]"CONTPEEKARBARIANS ATTACK AND CAPTURE"[170][196](X)[170]F$
  358. 3630 P$[178]P$[170]"ACRES OF YOUR LAND. (null)HEY ALSO KIDNAP"[170]F$
  359. 3640 P$[178]P$[170]"ALL YOUR MAIDENS. (null)OU PAY"[170][196](B)[170]F$[170]"DOLLARS RANSOM.":[141]150
  360. 3650 [139]WA[179]((NB[172]20)[170]1)[167]3720
  361. 3660 WB[178][181](WA[171]NB[172]20):WA[178]WA[171]WB
  362. 3670 P$[178]F$[170]"OPEN(null)OUR (null)OBLES ARE TOO FEW TO SUPPORT"[170]F$
  363. 3680 P$[178]P$[170]"YOUR ARMY! (null)OUR EXCESS SOLDIERS ARE"[170]F$
  364. 3690 P$[178]P$[170]"TAKEN BY (null)ING CHR$EORGE!":[141]150:[137]3720
  365. 3700 P$[178]F$[170]"LIST"[170][202]([196](A),2)[170]"CONT SOLDIERS DESERT YOUR ARMY!":[137]150
  366. 3710 P$[178]F$[170]"PRINT"[170][202]([196](A),2)[170]"OPEN OF YOUR (null)OBLES DEFECT!":[137]150
  367. 3720 A[178][181]([187](1)[172]13)[170]1:[145]A[137]3725,3760,3780,3850,3830,3810:[137]3880
  368. 3725 [139]FF[178]0[167]3830
  369. 3730 A[178][181]([187](1)[172](PN[172].3)):PN[178]PN[171]A
  370. 3740 P$[178]F$[170]"LIST(null)OUR ARMY RETURNS WITH A GRAND WIN."[170]F$[170]"(null)HEIR CLRCELEBRATIONLIST "
  371. 3750 P$[178]P$[170]"COSTSPRINT"[170][196](A)[170]" LISTDOLLARS!":[141]150:[137]3880
  372. 3760 A[178][181]([187](1)[172](SF[172].4)):P$[178]F$[170]"LENOMMUNIST SYMPATHIZERS CAUSE A RIOT!PRINT#"[170]F$
  373. 3770 P$[178]P$[170][202]([196](A),2)[170]" SERFS ARE TRAMPLED TO DEATH.":[141]150:[137]3880
  374. 3780 A[178][181]([187](1)[172](SF[172].3)):B[178][181]([187](1)[172](LA[173]3))
  375. 3790 P$[178]F$[170]"ATN ASCRIGHT$(null)VAL BREAKS OUT!DEF"[170]F$[170][202]([196](B),2)[170]" ACRES ARE SCORCHED,"[170]F$
  376. 3800 P$[178]P$[170]"AND"[170][196](A)[170]" SERFS ARE TOASTED.":[141]150:[137]3880
  377. 3810 A[178][181]([187](1)[172](PN[172].6)):P$[178]F$[170]"VERIFY(null)HIEVES RANSACK THE PALACE WHILE YOU"[170]F$
  378. 3820 P$[178]P$[170]"ARE OUT SHOPPING AND STEAL"[170][196](A)[170]" DOLLARS.":[141]150:[137]3880
  379. 3830 A[178][181]([187](1)[172](LA[173]2)):[141]3870:P$[178]"LISTACRES, BECAUSE YOU ARE LOYAL."
  380. 3840 LA[178]LA[170]A:[141]150:[137]3880
  381. 3850 A[178][181]([187](1)[172](PN[173]2)):[141]3870:P$[178]"LISTDOLLARS, BECAUSE YOU SERVE THE"
  382. 3860 P$[178]P$[170]F$[170]"COUNTRY WELL!":[141]150:PN[178]PN[170]A:[137]3880
  383. 3870 P$[178]F$[170]"LIST(null)ING CHR$EORGE REWARDS YOU WITH"[170][196](A):[141]150:[142]
  384. 3880 [139]LA[179]1[167]P$[178]F$[170]"CONT(null)OU'VE LOST ALL YOUR LAND!":[141]150:[137]3930
  385. 3890 [141]1990:[139]SF[177]99[167]3940
  386. 3900 P$[178]F$[170]"CONT(null)OU HAVEN'T ENOUGH SERFS TO MAINTAIN"[170]F$
  387. 3910 P$[178]P$[170]"THE VALMPIRE! RIGHT$T'S TUNED OVER TO (null)ING"[170]F$
  388. 3920 P$[178]P$[170]"CHR$EORGE AND YOU ARE PEEKVALLEFT$VALATNSTR$VALSTR$CONT.":[141]150
  389. 3930 W$[178]"EMPTY"[170]C$:[141]2050:[137]4255
  390. 3940 P2[178][181]((([187](1)[172]75)[170]SF[173]100)[172]F(2)):P3[178][181]((([187](1)[172]100)[170]GR[173]1000)[172]F(3))
  391. 3950 P4[178](([187](1)[172]175)[170]WA)[172]F(4)[173](2[171]FF):P5[178](([187](1)[172]200)[170]LA[173]30)[172]F(5)[173](2[171]FF)
  392. 3960 P4[178][181](P4[171](P4[172]TR[173]200)):P5[178][181](P5[171](P5[172]TR[173]150))
  393. 3970 P$[178]F$[170]F$[170]"LIST->(null)ROFIT & (null)OSS (null)EPORT<-"[170]F$:[141]150
  394. 3980 PY[178][181]((WA[172](FF[170]2))[170](TR[172]F(1)[172]10)[173]40):X[178][181]((TR[172]([187](1)[172]NB))[172]100[173]4)
  395. 3990 PN[178][181](PN[170]P2[170]P3[170]P4[170]P5):TG[178][181]((P2[170]P3[170]P4[170]P5)[172]TR[173]100):PN[178]PN[170]TG
  396. 4000 PT[178][181](P2[170]P3[170]P4[170]P5[170]TG):P$[178]F$[170]"CONT(null)(null)(null)ATN(null)(null)"[170]F$[170]F$[170]" (null)ECEIVABLES ="[170][196](PT)[170]F$
  397. 4010 P$[178]P$[170]" (null)AYABLES    ="[170][196](PY[170]X):[141]150
  398. 4020 [139]PT[177]PY[170]X[167]P$[178]F$[170]" CONT(null)ROFIT      ="[170][196](PT[171]PY[171]X):[141]150
  399. 4030 [139]PT[179]PY[170]X[167]P$[178]F$[170]" (null)OSS        ="[170][196](PY[170]X[171]PT):[141]150
  400. 4040 [139]PT[179]PY[170]X[167]PN[178]PN[171](PY[170]X[171]PT)
  401. 4050 PT[178]0:[141]1990
  402. 4060 [139]PN[177]PY[170]X[167]PN[178]PN[171]PY[171]X
  403. 4080 P$[178]F$[170]"CONT(null)VALLENVALRIGHT$(null)ATNPEEK(null)VAL(null)":[141]150
  404. 4090 P$[178]F$[170]" (null)ARKETS:  $"[170][202]([196](P2),2)[170]F$[170]" (null)ILLS:    "[170][196](P3):[141]150
  405. 4100 P$[178]" ASCOUNDRIES:"[170][196](P4)[170]F$[170]" (null)HIPYARDS:"[170][196](P5):[141]150
  406. 4110 P$[178]" (null)AXES:    "[170][196](TG):[141]150:LP[178]1:[141]1990
  407. 4120 P$[178]"CONT(null)ATN(null)ATNPEEK(null)VAL(null)"[170]F$[170]F$[170]" (null)OLDIERS (null)AY:"[170][196](WA[172](FF[170]2)):[141]150
  408. 4130 P$[178]" (null)ALACE (null)ENT :"[170][196]([181](TR[172]F(1)[172]10[173]40)):[141]150
  409. 4135 P$[178]" (null)OBLES CHR$IFTS:"[170][196](X):[141]150
  410. 4140 LP[178]1:[141]1990:[141]2110
  411. 4150 [141]1900:[139]WA[178]NB[172]20[167]4240
  412. 4160 X[178][181]([187](1)[172]19)[170]6:P$[178]"OPEN(null)OU CAN BUY UP TO"[170][196](NB[172]20[171]WA)[170]" MORE"[170]F$
  413. 4170 P$[178]P$[170]"SOLDIERS TO PROTECT YOUR VALMPIRE.":[141]150
  414. 4180 P$[178]"(null)HESE SOLDIERS COST"[170][196](X)[170]" DOLLARS EACH.":[141]150
  415. 4190 P$[178]"(null)OU HAVE"[170][196](PN)[170]" DOLLARS.":[141]150
  416. 4200 P$[178]F$[170]"OPENPEEKUY HOW MANY?: ":[141]160:L[178]4:[141]170:[145]CD[137]1790
  417. 4210 B[178][181]([197](L$)):[145][171](B[179]1)[171]2[172](B[172]X[177]PN)[137]4240,4200
  418. 4220 [139]WA[170]B[177]NB[172]20[167]P$[178]F$[170]"(null)OU ONLY HAVE"[170][196](NB)[170]" (null)OBLES.":[141]150:[137]4200
  419. 4230 WA[178][181](WA[170]B):PN[178][181](PN[171](B[172]X))
  420. 4240 [151]679,[194](679)[170]1:P$[178]F$[170]"LISTASCIXING UP THE (null)ALACE, (null)LEASE WAIT...."
  421. 4250 [141]150:[141]2020
  422. 4255 P$[178]F$[170]"(null)LAY VALMPIRE AGAIN? (Y/N): LIST":[141]160
  423. 4260 L[178]1:[141]170:[145]CD[137]1790:[139]L$[178]"N"[176]L$[178]"(null)"[167]4320
  424. 4270 [139][194](679)[179]3[176]AC[178]65535[167]4420
  425. 4280 P$[178]F$[170]"LEFT$AVEN'T YOU HAD ENOUGH YET? (Y/N): ":[141]160:L[178]1:[141]170
  426. 4290 [145]CD[137]1790:[139]L$[178]"Y"[176]L$[178]"(null)"[167]4320
  427. 4300 P$[178]F$[170]"FOR(null)OUGH PEEKANANAS CLR"[170]U$(1)[170]"!!!!":[141]150
  428. 4310 P$[178]"(null)AIT'LL THE (null)YSOP HEARS ABOUT THIS!!!":[141]150:[137]4340
  429. 4320 [141]2070:P$[178]F$[170]"CHR$OODBYE, PRINT#"[170]D2$[170]"LIST"[170]U$(1)[170]"....":[141]150
  430. 4330 P$[178]F$[170]"OPEN(null)LAY AGAIN SOON!!!!"[170]F$:[141]150
  431. 4340 [137]360
  432. 4350 DV[178]D7[170]128[172][197](D7$):FI$[178]"(ST/R.EMPIRE2":[137]370
  433. 4360 [139]TZ[177]TY[167]TT$[178]"LIST"[170]U$(1)[170]" IS CROWNED PRINT#"[170]D2$:[137]4380
  434. 4370 [139]TZ[179]TY[167]TT$[178]"LIST"[170]U$(1)[170]" IS DEMOTED TO PRINT#"[170]D2$
  435. 4380 [159]1,D7,5,D7$[170]":(NEWS2.EMP),A":[141]190:[139]ER$[178]"00"[167]4400
  436. 4390 [160]1:[159]1,D7,5,D7$[170]":(NEWS2.EMP),S,W"
  437. 4400 [141]200:[152]1,C$"CONT(null)N "DA$" AT "TM$C$TT$:[160]1:TY[178]TZ
  438. 4410 P$[178]F$[170]TT$[170]"":[137]150
  439. 4420 P$[178]F$[170]"LEFT$EAD TO (null)OWN FIRST? (Y/N): ":[141]160:L[178]1:[141]170:[145]CD[137]1790
  440. 4430 [139]L$[179][177]"Y"[175]L$[179][177]"(null)"[167]4350
  441. 4440 [151]251,[194](152):[147](D7$)[170]":(EMP2TOWN)",(D7),1
  442.