home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE2.ARC / (EMP2TOWN) (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.7 KB  |  286 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 GOTO2070
  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. 400 GOTO1520:REM SEND SEQ OUT.
  31. 410 :
  32. 420 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:N$=CHR$(0):SI=54272
  33. 430 DIMU$(15),N$(15),DR%(7):DR$="0"
  34. 440 GOSUB450:GOTO500
  35. 450 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN470
  36. 460 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  37. 470 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  38. 480 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  39. 490 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  40. 500 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  41. 510 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO1720
  42. 520 IFA$="[133]"THENSY=SY+1:GOSUB880:SY=SY-1:RETURN
  43. 530 IFA$<>"[134]"THEN560
  44. 540 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB150:SYS52012:CD=PEEK(52033)
  45. 550 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB150
  46. 560 IFA$="[140]"THENCD=1:RETURN
  47. 570 IFL<>65535THENRETURN
  48. 580 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  49. 590 CD=1:UL$="":RETURN
  50. 600 IFA$=""ORZ$=""THENGOSUB620
  51. 610 RETURN
  52. 620 POKESI+4,21:POKESI+4,20:RETURN
  53. 630 P$=P$+F$
  54. 640 IFL=55THENPRINT#4,P$;:RETURN
  55. 650 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  56. 660 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  57. 670 RETURN
  58. 680 GOSUB1490:IFVAL(U$(14))<COTHEN720
  59. 690 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  60. 700 L$="Q0R/R.*                           ":SYS52003,L$:CD=PEEK(52033)
  61. 710 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB520:RETURN
  62. 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
  63. 730 GOTO360
  64. 740 GOSUB1240:AA=RF:GOSUB1350
  65. 750 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB780:NEXT
  66. 760 GOSUB780:IFER$<"20"ORER$="50"THENRETURN
  67. 770 PRINT"[197]RROR IN (USERFILE)!":GOSUB1430:STOP
  68. 780 ES$="":GOSUB790:ER$=LEFT$(ES$,2):RETURN
  69. 790 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO790:RETURN
  70. 800 T1$="08:41:32.6 PM":SYS51982,T1$:TM$=T1$+""
  71. 810 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  72. 820 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO850
  73. 830 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  74. 840 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  75. 850 DA$=M$+STR$(DT):RETURN
  76. 860 SYS52050:GOSUB1490:PRINT""CHR$(13)U$(1)TAB(20)LEFT$(U$(7),19)
  77. 865 PRINT"[154][207]N: "LN$TAB(20)"[206]OW: "TM$
  78. 870 PRINT"[159][204]EVEL:"ACTAB(20)"[207]NLINE:"CO"MINS.":SYS52041:RETURN
  79. 880 D8=D7:DR$=D7$
  80. 890 P$=" [147]":GOSUB150
  81. 900 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB150
  82. 910 P$="$ - [196]IRECTORY":GOSUB150
  83. 920 P$="@ - [196]OS COMMANDS":GOSUB150
  84. 930 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB150
  85. 940 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB160:L=1:GOSUB170:IFCDTHENRETURN
  86. 950 IFL$=""THENRETURN
  87. 960 GOSUB1280:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  88. 970 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB1040,1370
  89. 980 IFL$="?"THEN890
  90. 990 IFL$<>"@"THEN940
  91. 1000 P$=F$+">":GOSUB160:L=39:GOSUB170:IFCDTHENRETURN
  92. 1010 B=D8-8:IFL$=""THENGOSUB780:P$=F$+ES$:GOSUB150:GOTO940
  93. 1020 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  94. 1030 GOTO940
  95. 1040 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB160:L=16:GOSUB170:FI$=L$+""
  96. 1050 IFFI$=""THENFI$="*"
  97. 1060 P$=F$:GOSUB150:OPEN1,D8,0,"$"+DR$+":"+FI$
  98. 1070 GOSUB780:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB150:RETURN
  99. 1080 GET#1,A$:GET#1,A$
  100. 1090 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  101. 1100 GET#1,LO$:GET#1,HI$
  102. 1110 LO$=LO$+N$:HI$=HI$+N$
  103. 1120 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  104. 1130 GET#1,A$:IFA$=""THEN1170
  105. 1140 GET#5,Z$:IFZ$=""THENGETZ$
  106. 1150 IFZ$=" "THENCLOSE1:RETURN
  107. 1160 P$=P$+A$:GOTO1130
  108. 1170 IFECANDMID$(P$,8,1)="("THEN1090
  109. 1180 GOSUB150:IFA$=" "THENCLOSE1:RETURN
  110. 1190 GOTO1090
  111. 1200 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  112. 1210 GOSUB1200:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  113. 1220 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1200:RETURN
  114. 1230 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  115. 1240 GOSUB1230:R1=LO:R2=HI:RETURN
  116. 1250 GOSUB1240:GOTO750
  117. 1260 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  118. 1270 AA=VAL(N$(3)):RETURN
  119. 1280 IFLEN(UL$)<230THENRETURN
  120. 1290 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  121. 1300 GOSUB1310:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  122. 1310 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  123. 1320 FORI=1TO15:N$(I)=U$(I):NEXT
  124. 1330 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  125. 1340 PRINT#3,N$(0):RC=1:GOSUB740:RETURN
  126. 1350 B=(AAAND63)-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  127. 1360 GOSUB1350:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  128. 1370 IFDR$="0"THENGOSUB1350:IFDR$="1"THENRETURN
  129. 1380 AA=AA+1:IFAA>15THENAA=8
  130. 1390 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1380
  131. 1400 IFA1AND32ORSYTHEN1420
  132. 1410 GOSUB1350:IFDR%(B)AND64THEN1380
  133. 1420 D8=AA:DR$="0":RETURN
  134. 1430 ON(MT%-1)GOTO1440,1450,1470,1480,1210,1210
  135. 1440 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  136. 1450 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  137. 1460 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  138. 1470 POKEB2,38:POKEB1,38:RETURN
  139. 1480 POKEB1,PEEK(B1)OR32:RETURN
  140. 1490 GOSUB800:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  141. 1500 IFLH=12ANDC2THENCO=ABS(CO-720)
  142. 1510 RETURN
  143. 1520 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB190:IFER$>"01"THENCLOSE1:RETURN
  144. 1530 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  145. 1650 FI$="(ST/R 3.?)":DV=D5:D7=DVAND127:D7$="0":IFDV>128THEND7$="1"
  146. 1660 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:Q$=CHR$(34):FORT=1TO15
  147. 1670 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  148. 1680 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  149. 1690 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1:POKE252,32:SYS52050
  150. 1700 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$D7$":"FI$Q$","D7""
  151. 1710 POKE631,131:POKE198,1:NEW
  152. 1720 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  153. 1730 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  154. 1760 CLOSE1:GOSUB1260:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  155. 1770 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8:SYS52041
  156. 1780 GOTO2190
  157. 1790 GOSUB2020:GOSUB340:GOSUB260:GOTO360
  158. 1890 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  159. 1900 P$=F$+F$+"[159]"+U$(1)+" (#"+MID$(STR$(G3),2)+")"+F$:GOSUB150
  160. 1910 P$="[154][204]AND     : "+STR$(LA)+" [193]CRES"+F$+"[205]ONEY    : $"+MID$(STR$(PN),2)+F$
  161. 1920 P$=P$+"[199]RAIN    : "+STR$(GR)+" [194]USHELS"+F$+"[212]AX [210]ATE : "+STR$(TR)+"%"
  162. 1930 GOSUB150:P$="[211]OLDIERS : "+STR$(WA)+F$+"[211]ERFS    : "+STR$(SF)+F$
  163. 1940 P$=P$+"[206]OBLES   : "+STR$(NB):GOSUB150:GOSUB1990
  164. 1950 P$="[159][208]ALACE   : "+STR$(10*F(1))+"% [195]OMPLETED."+F$+"[205]ARKETS  : "
  165. 1960 P$=P$+STR$(F(2))+F$+"[205]ILLS    : "+STR$(F(3))+F$+"[198]OUNDRIES: ":GOSUB160
  166. 1970 P$=STR$(F(4))+F$+"[211]HIPYARDS: "+STR$(F(5))+F$+"[196]IPLOMATS: "+STR$(F(6))
  167. 1980 P$=P$+F$+"[211]HIPS    : "+STR$(YC)+F$+"[195]OLONIES : "+STR$(I8):GOSUB150
  168. 1990 P$=F$+"[156] (PRESS A KEY) [146][144]":GOSUB150:L=1:GOSUB170:ONCDGOTO1790:RETURN
  169. 2010 GOSUB2020:P$=F$+"[156][210]ETURNING TO [194][194][211]....":GOSUB150:GOTO360
  170. 2020 W$=U$(1)+C$+STR$(LA)+C$+STR$(WA)+C$+STR$(SF)+C$+STR$(NB)+C$+STR$(GR)+C$
  171. 2030 W$=W$+STR$(TR)+C$+STR$(PN)+C$+STR$(F(1))+C$+STR$(F(2))+C$+STR$(F(3))+C$
  172. 2040 W$=W$+STR$(F(4))+C$+STR$(F(5))+C$+STR$(F(6))+C$+STR$(YC)+C$+STR$(I8)+C$
  173. 2050 W$=W$+R$:GOSUB2060:RC=G3:GOSUB180:PRINT#3,W$:CLOSE3:RETURN
  174. 2060 OPEN3,D7,3,EP$:RETURN
  175. 2070 KK=0:GOTO2130
  176. 2080 GOSUB210:P$=F$+"[159][212]OWN [195]OMMAND: [155]":GOSUB160:L=1:GOSUB170:ONCDGOTO1790
  177. 2090 ON-(L$="")GOTO2080:L$=CHR$(ASC(L$)AND127):GOSUB1890
  178. 2100 ON-(L$="R")-2*(L$="L")-3*(L$="S")-4*(L$="T")GOTO2220,2450,2650,2740
  179. 2110 ON-(L$="P")-2*(L$="W")-3*(L$="U")GOTO2790,2920,3010
  180. 2120 ON-(L$="Q")-2*(L$="?")-3*(L$="Z")GOTO2190,2130,2010:GOTO2080
  181. 2130 P$="[155][147]"+F$+F$+"            [212]OWN [205]ENU"+F$:GOSUB150
  182. 2140 P$="[159]    [[210]] [154][210]EALTOR'S [193]DVICE"+F$+"    [159][[208]] [154][215]ARRIOR'S [208]ROMOTION"+F$
  183. 2150 P$=P$+"    [159][[204]] [154][204]UCKY'S [196]EN"+F$+"    [159][[215]] [154][215]ARRIOR'S [212]RAINING":GOSUB150
  184. 2160 P$="    [159][[211]] [154][211]ERVANT'S [205]ARKET"+F$+"    [159][[213]] [154][213]TOPIA'S [193]UCTION"+F$
  185. 2170 P$=P$+"    [159][[212]] [154][195]HANGE [212]AX [210]ATE"+F$+"    [159][[209]] [154][210]ETURN TO THE [197]MPIRE"+F$
  186. 2180 P$=P$+"    [159][[217]] [154][217]OUR [211]TATUS"+F$+"    [159][?] [154][212]HIS [205]ENU":GOSUB150
  187. 2185 P$="    [159][[218]] [154][210]ETURN TO THE [194][194][211]":GOSUB150:GOTO2080
  188. 2190 P$=F$+"[200]EADING BACK TO THE [197]MPIRE....":GOSUB150:GOSUB2020
  189. 2200 DV=D7+128*VAL(D7$):FI$="(ST/R.EMPIRE2":GOTO370
  190. 2210 P$=P$+F$+"[159][211]ELL HOW MANY?: ":GOSUB160:L=10:GOSUB170:ONCDGOTO1790:RETURN
  191. 2220 IFS5%THENP$=F$+"[199]ONE [159][198][201][211][200][201][206][199].  [194]E BACK TOMMOROW....":GOSUB150:GOTO2080
  192. 2225 P$="[147] "+F$+F$+"[155]: [200]OOD'S [210]EAL [196]EALS! :"+F$:GOSUB150:S5%=-1
  193. 2230 P$="[211]HIPYARDS: ":GOSUB160:IFF(5)<1THENGOSUB2360:GOTO2370
  194. 2240 WB=INT(RND(0)*1200+4000):P$="[156][217]OU HAVE"+STR$(F(5))+"!":GOSUB150
  195. 2250 P$=F$+"[201]'LL BUY YOUR [211]HIPYARDS FOR $"+MID$(STR$(WB),2)+".":GOSUB2210
  196. 2260 S5=VAL(L$):IFS5<1THEN2370
  197. 2270 IFS5=3141592654THENF(5)=F(5)-1:PN=PN+WB*F(5):GOTO2370
  198. 2280 IFS5>F(5)THENP$=F$+"[217]OU ONLY HAVE"+STR$(F(5))+"!":GOSUB150:GOTO2250
  199. 2290 F(5)=F(5)-S5:PN=PN+WB*S5:P$=F$+"[156][211]EALED WITH A [200]ANDSHAKE!":GOSUB150:GOTO2370
  200. 2300 P$="[155]"+S$+": ":GOSUB160:IFF(S)<1THENGOSUB2360:RETURN
  201. 2310 T%=S%/2:WB=INT(RND(0)*(S%+T%)+T%):P$="[156][217]OU HAVE"+STR$(F(S))+"!":GOSUB150
  202. 2320 P$=F$+"[201]'LL BUY YOUR "+S$+" FOR $"+MID$(STR$(WB),2)+".":GOSUB2210
  203. 2330 S5=VAL(L$):IFS5<1THENRETURN
  204. 2340 IFS5>F(S)THENP$=F$+"[217]OU ONLY HAVE"+STR$(F(S))+"!":GOSUB150:GOTO2320
  205. 2350 F(S)=F(S)-S5:PN=PN+WB*S5:P$=F$+"[156][211]EALED WITH A [200]ANDSHAKE!":GOSUB150:RETURN
  206. 2360 P$="[158][217]OU HAVE NONE TO SELL."+F$:GOSUB150:RETURN
  207. 2370 S$="[198]OUNDRIES":S=4:S%=6000:GOSUB2300:S$="[205]ILLS":S=3:S%=2000:GOSUB2300
  208. 2380 S$="[205]ARKETS":S=2:S%=1000:GOSUB2300
  209. 2390 P$="[155][208]ALACE: ":GOSUB160:IFF(1)<1THENGOSUB2360:GOTO2080
  210. 2395 IFF(1)>5THENP$="[158][212]OO COMPLETE TO SELL.":GOSUB150:GOTO2080
  211. 2400 WB=INT(RND(0)*15000+5000):P$="[156][217]OU HAVE"+STR$(F(1)*10)+"%!":GOSUB150
  212. 2410 P$=F$+"[201]'LL BUY 10% FOR $"+MID$(STR$(WB),2)+".":GOSUB2210
  213. 2420 S5=VAL(L$):IFS5<1THEN2080
  214. 2430 IFS5>F(1)THENP$=F$+"[217]OU ONLY HAVE"+STR$(F(1)*10)+"%!":GOSUB150:GOTO2410
  215. 2440 F(1)=F(1)-S5:PN=PN+WB*S5:P$="[156][211]EALED WITH A [200]ANDSHAKE!"+F$:GOSUB150:GOTO2080
  216. 2450 P$="[147] "+F$+F$+" [204][213][195][203][217]'[211] [196][197][206] [146]"+F$+F$+"[158][201]'LL LET YOU PLAY FOR":GOSUB150
  217. 2460 P$="THE PRICE OF A FEW SERVANTS."+F$:GOSUB150
  218. 2470 P$="[159][196]O YOU AGREE? (Y/N): ":GOSUB160:L=1:GOSUB170:ONCDGOTO1790
  219. 2480 IFL$<>"Y"ANDL$<>"[217]"THENP$=F$+"[154][193]NOTHER TIME THEN....":GOSUB150:GOTO2080
  220. 2490 ON-(PN>25000ORLA>15000)GOTO2500:GOTO2520
  221. 2500 P$=F$+"[158][211]O [211]ORRY, "+U$(1)+", [201]T SEEMS"+F$+"[201] HAVE ENOUGH ALREADY.  [205]AYBE"
  222. 2510 GOSUB150:P$="SOME OTHER TIME....":GOSUB150:GOTO2080
  223. 2520 OG=INT(3*RND(0)+2):P$=F$+"[155][207]DDS:"+STR$(OG)+" TO 1":GOSUB150
  224. 2530 IFSF<1000THENP$=F$+"[211]HOULDN'T YOU CHECK YOUR STATS?":GOSUB150
  225. 2540 P$=F$+"[217]OU HAVE"+STR$(PN)+" DOLLARS.":GOSUB150
  226. 2550 P$=F$+"[159][194]ET HOW MANY? ([206]O [204]IMIT): [155]":GOSUB160:L=15:GOSUB170:ONCDGOTO1790
  227. 2560 X=VAL(L$):IFX<1ORX>PNTHENP$=F$+"[199][197][212] [207][213][212], [195][200][197][193][212][197][210]!!":GOSUB150:GOTO2080
  228. 2570 P$=F$+"[155][208]ICK A NUMBER FROM 1 TO"+STR$(OG+1)+": ":GOSUB160:L=1:GOSUB170
  229. 2580 ONCD-2*(L$="")GOTO1790,2080:A=VAL(L$):IFA<1ORA>OG+1THEN2570
  230. 2590 B=INT(RND(0)*(OG+1)+1):ON-(A=B)GOTO2630:PN=PN+X:SF=SF-10
  231. 2600 P$=F$+"[195]LOSE [197]NOUGH!":GOSUB150:IFPN<50000GOTO2520
  232. 2610 P$=F$+"[158][215]ELL, [201] THINK [201]'VE HAVE HAD ENOUGH OF"+F$+"YOU FOR NOW....":GOSUB150
  233. 2620 P$="[201] KNOW [201]'LL SEE YOU AGAIN!":GOSUB150:GOTO2080
  234. 2630 PN=PN+(X*OG):SF=SF-50:P$=F$+"[156][217]OU WON"+STR$(X*OG)+" DOLLARS!":GOSUB150
  235. 2640 ON-(PN<50000)-2*(PN=>50000)GOTO2520,2610
  236. 2650 P$="[147] "+F$+F$+"[155]: [211]ERVANT'S [205]ARKET :"+F$:GOSUB150
  237. 2660 IFSF<1000ANDLA>10000ANDPN>85000THEN2680
  238. 2670 P$="[217]OU'RE IN BETTER CONDITION THAN YOU     THINK YOU ARE!":GOSUB150:GOTO2080
  239. 2680 P$="[201]T WILL COST YOU [158]$75,000 FOR 2500":GOSUB150
  240. 2690 P$="SERVANTS ADDED TO YOUR POPULATION.":GOSUB150
  241. 2700 P$=F$+"[194]UY FOR YOUR SURVIVAL? (Y/N): [154]":GOSUB160:L=1:GOSUB170:ONCDGOTO1790
  242. 2710 IFL$<>"Y"ANDL$<>"[217]"THEN2080
  243. 2720 SF=SF+2500:PN=PN-75000:P$=F$+"[158][199]OOD CHOICE, [155][211]URVIVAL IS ASSURED!":GOSUB150
  244. 2730 FORT=1TO800:NEXT:P$="[198]OR THE MOMENT....":GOSUB150:GOTO2080
  245. 2740 P$=F$+"[212]AX [210]ATE:"+STR$(TR)+"%"+F$+"[159][197]NTER NEW [212]AX [210]ATE: [154]":GOSUB160
  246. 2750 L=2:GOSUB170:ONCDGOTO1790:X=INT(VAL(L$)):IFL$=""ORX<1THEN2080
  247. 2760 ON-(X<51)GOTO2780:P$=F$+"[155][196]O YOU WISH TO DIE AT YOUR OWN":GOSUB150
  248. 2770 P$="TEAPARTY?  [205]AX IS 50%!!":GOSUB150:GOTO2740
  249. 2780 TR=X:GOTO2080
  250. 2790 IFPEEK(679)=1ANDK%=0THEN2830
  251. 2800 P$=F$+"[207]UR RECORDS SHOW YOUR ELIGIBLE WARRIORS":GOSUB150
  252. 2810 P$="HAVE ALREADY BEEN PROMOTED!  [215]AIT TILL":GOSUB150
  253. 2820 P$="[203]ING [199]EORGE HEARS!":GOSUB150:GOTO2080
  254. 2830 WB=INT(4*RND(0)+1):IFWB<1THEN2910
  255. 2840 P$="[147] "+F$+F$+"[154]: [215]ARRIOR [208]ROMOTIONS :"+F$:GOSUB150
  256. 2850 P$="[158][215]ELL, "+U$(1)+", [201]T SEEMS":GOSUB150
  257. 2860 P$="THAT OUR RECORDS INDICATE YOU HAVE":GOSUB150
  258. 2870 P$=MID$(STR$(WB),2)+" WARRIORS ELIGIBLE FOR THE STATUS":GOSUB150
  259. 2880 P$="OF [206]OBLE!":GOSUB150:P$=F$+"[154][208]ROMOTE THEM? (Y/N): ":GOSUB160
  260. 2890 L=1:GOSUB170:ONCDGOTO1790:IFL$<>"Y"ANDL$<>"[217]"THEN2080
  261. 2900 WA=WA-WB:NB=NB+WB:P$=F$+"[156][193]LL HAVE BEEN PROMOTED!":GOSUB150:K%=1:GOTO2080
  262. 2910 P$=F$+"[155][206]ONE OF YOUR WARRIORS ARE ELIGIBLE FOR  PROMOTION.":GOSUB150:GOTO2080
  263. 2920 IFSF<1500THEN3000
  264. 2930 WB=INT(NB*20-WA):IFWB>(SF/2)ORWB<1THEN3000
  265. 2940 P$="[147] "+F$+F$+"[155]: [215]ARRIOR [212]RAINING :"+F$:GOSUB150
  266. 2950 P$="[217]OU HAVE"+STR$(WB)+" SERFS THAT MEET":GOSUB150
  267. 2960 P$="THE REQUIREMENTS FOR TRAINING."+F$+"[195]OST IS 1 ACRE PER [211]ERF.":GOSUB150
  268. 2970 P$=F$+"[212]RAIN THEM? (Y/N): ":GOSUB160:L=1:GOSUB170:ONCDGOTO1790
  269. 2980 IFL$<>"Y"ANDL$<>"[217]"THEN2080
  270. 2990 SF=SF-WB:LA=LA-WB:WA=WA+WB:P$=F$+"[156][193]LL ARE TRAINED.":GOSUB150:GOTO2080
  271. 3000 P$=F$+"[155][217]OU HAVE NO [211]ERFS OF TRAINING AGE.":GOSUB150:GOTO2080
  272. 3010 P$="[147] "+F$+F$+"[154]: [213]TOPIA'S [193]UCTION :"+F$:GOSUB150
  273. 3020 ON-(WZ>2)GOTO3090:WB=INT(RND(1)*100+50)
  274. 3030 P$="[201]'LL AUCTION MY [211]ERVANTS TO YOU FOR":GOSUB150
  275. 3040 P$=MID$(STR$(WB),2)+" DOLLARS EACH.":GOSUB150
  276. 3050 P$=F$+"[158][194]UY HOW MANY?: ":GOSUB160:L=5:GOSUB170:ONCDGOTO1790
  277. 3060 X=INT(VAL(L$)):IFX<1THEN2080
  278. 3070 IFPN<WB*XTHENP$="[217]OU ONLY HAVE"+STR$(PN)+" DOLLARS.":GOSUB150:GOTO3030
  279. 3080 WZ=WZ+1:PN=PN-WB*X:SF=SF+X:GOTO2080
  280. 3090 P$=F$+"[196]ON'T BE [199]REEDY!":GOSUB150:GOTO2080
  281. 3100 REM EMPIRE V2 FOR ST/R BBS V3.7
  282. 3110 REM BY:  "[194]LACK [198]IRE"
  283. 3120 REM COPIED FROM EMPIRE V4.3 FOR
  284. 3130 REM IMAGE BBS V1.1
  285. 3140 REM ---------------------------
  286.