home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE2.ARC / (EMP2COL) (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.7 KB  |  407 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 SYS52041:GOTO2010
  4. 110 :
  5. 120 :REM START OF USER JUMP TABLE.
  6. 130 :
  7. 140 GOTO520 :REM SEND P$+CHR$(13) OUT.
  8. 150 GOTO530 :REM SEND P$ OUT.
  9. 160 GOTO570:REM GET L$ FROM MODEM.
  10. 170 B=D7%:GOTO1140:REM SEND 'P' TO REL.
  11. 180 B=D7%:GOTO670:REM READ ERR CHANNEL.
  12. 190 GOTO690:REM READ SYSTEM CLOCK.
  13. 200 GOTO750:REM DISPLAY USER ONLINE.
  14. 210 GOTO770:REM REMOTE SYSOP MENU.
  15. 220 GOTO930:REM DISPLAY DIR.
  16. 230 GOTO1120:REM BREAK RC INTO LO/HI.
  17. 240 GOTO1170:REM UPDATE (USER LOG).
  18. 250 GOTO1180:REM EMPTY UL$.
  19. 260 GOTO1190:REM GET U$() FROM DISK.
  20. 270 GOTO1200:REM GET N$() FROM DISK.
  21. 280 GOTO1210:REM SEND U$() TO DISK.
  22. 290 GOTO1220:REM SEND N$() TO DISK.
  23. 300 GOTO1240:REM FIND DV,DR$ IN DR%().
  24. 310 GOTO1250:REM FIND DV,DR$
  25. 320 GOTO1260:REM INCREMENT DV,DR$.
  26. 330 GOTO1320:REM HANG UP PHONE.
  27. 340 GOTO1380:REM FIND TIME CONNECTED.
  28. 350 GOTO1540:REM RETURN TO BBS.
  29. 360 GOTO1550:REM LOAD NEXT MODULE.
  30. 370 GOTO1430:REM GET SC() FROM DISK.
  31. 380 GOTO1510:REM SEND SC() TO DISK.
  32. 390 GOTO1410:REM SEND SEQ OUT.
  33. 400 :
  34. 410 IFA$="[133]"THENSY=SY+1:GOSUB770:SY=SY-1:RETURN
  35. 420 IFA$<>"[134]"THEN450
  36. 430 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB140:SYS52012:CD=PEEK(52033)
  37. 440 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB140
  38. 450 IFA$="[140]"THENCD=1:RETURN
  39. 460 IFL<>65535THENRETURN
  40. 470 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  41. 480 CD=1:UL$="":RETURN
  42. 490 IFA$=""ORZ$=""THENGOSUB510
  43. 500 RETURN
  44. 510 POKESI+4,21:POKESI+4,20:RETURN
  45. 520 P$=P$+F$
  46. 530 IFL=55THENPRINT#4,P$;:RETURN
  47. 540 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  48. 550 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  49. 560 RETURN
  50. 570 GOSUB1380:IFVAL(U$(14))<COTHEN610
  51. 580 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  52. 590 L$="2100R.*                           ":SYS52003,L$:CD=PEEK(52033)
  53. 600 L=PEEK(52035)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB410:RETURN
  54. 610 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB140
  55. 620 GOTO350
  56. 630 GOSUB1130:AA=RF:GOSUB1240
  57. 640 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB670:NEXT
  58. 650 GOSUB670:IFER$<"20"ORER$="50"THENRETURN
  59. 660 PRINT"[197]RROR IN (USERFILE)!":GOSUB1320:STOP
  60. 670 ES$="":GOSUB680:ER$=LEFT$(ES$,2):RETURN
  61. 680 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO680:RETURN
  62. 690 T1$="11:05:19.1 PM":SYS51982,T1$:TM$=T1$+""
  63. 700 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  64. 710 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO740
  65. 720 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  66. 730 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  67. 740 DA$=M$+STR$(DT):RETURN
  68. 750 SYS52050:PRINT"[156]"CHR$(13)CHR$(13)U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB1380
  69. 760 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":SYS52041:RETURN
  70. 770 D8=D7:DR$=D7$
  71. 780 P$=" [147]":GOSUB140
  72. 790 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB140
  73. 800 P$="$ - [196]IRECTORY":GOSUB140
  74. 810 P$="@ - [196]OS COMMANDS":GOSUB140
  75. 820 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB140
  76. 830 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB150:L=1:GOSUB160:IFCDTHENRETURN
  77. 840 IFL$=""THENRETURN
  78. 850 GOSUB1170:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  79. 860 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB930,1260
  80. 870 IFL$="?"THEN780
  81. 880 IFL$<>"@"THEN830
  82. 890 P$=F$+">":GOSUB150:L=39:GOSUB160:IFCDTHENRETURN
  83. 900 B=D8-8:IFL$=""THENGOSUB670:P$=F$+ES$:GOSUB140:GOTO830
  84. 910 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  85. 920 GOTO830
  86. 930 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB150:L=16:GOSUB160:FI$=L$+""
  87. 940 IFFI$=""THENFI$="*"
  88. 950 P$=F$:GOSUB140:OPEN1,D8,0,"$"+DR$+":"+FI$
  89. 960 GOSUB670:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB140:RETURN
  90. 970 GET#1,A$:GET#1,A$
  91. 980 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  92. 990 GET#1,LO$:GET#1,HI$
  93. 1000 LO$=LO$+N$:HI$=HI$+N$
  94. 1010 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  95. 1020 GET#1,A$:IFA$=""THEN1060
  96. 1030 GET#5,Z$:IFZ$=""THENGETZ$
  97. 1040 IFZ$=" "THENCLOSE1:RETURN
  98. 1050 P$=P$+A$:GOTO1020
  99. 1060 IFECANDMID$(P$,8,1)="("THEN980
  100. 1070 GOSUB140:IFA$=" "THENCLOSE1:RETURN
  101. 1080 GOTO980
  102. 1090 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  103. 1100 GOSUB1090:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  104. 1110 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1090:RETURN
  105. 1120 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  106. 1130 GOSUB1120:R1=LO:R2=HI:RETURN
  107. 1140 GOSUB1130:GOTO640
  108. 1150 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  109. 1160 AA=VAL(N$(3)):RETURN
  110. 1170 IFLEN(UL$)<230THENRETURN
  111. 1180 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  112. 1190 GOSUB1200:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  113. 1200 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  114. 1210 FORI=1TO15:N$(I)=U$(I):NEXT
  115. 1220 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  116. 1230 PRINT#3,N$(0):RC=1:GOSUB630:RETURN
  117. 1240 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  118. 1250 GOSUB1240:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  119. 1260 IFDR$="0"THENGOSUB1240:IFDR$="1"THENRETURN
  120. 1270 AA=AA+1:IFAA>15THENAA=8
  121. 1280 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1270
  122. 1290 IFA1AND32ORSYTHEN1310
  123. 1300 GOSUB1240:IFDR%(B)AND64THEN1270
  124. 1310 D8=AA:DR$="0":RETURN
  125. 1320 ON(MT%-1)GOTO1330,1340,1360,1370,1100,1100
  126. 1330 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  127. 1340 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  128. 1350 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  129. 1360 POKEB2,38:POKEB1,38:RETURN
  130. 1370 POKEB1,PEEK(B1)OR32:RETURN
  131. 1380 GOSUB690:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  132. 1390 IFLH=12ANDC2THENCO=ABS(CO-720)
  133. 1400 RETURN
  134. 1410 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB180:IFER$>"01"THENCLOSE1:RETURN
  135. 1420 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  136. 1430 OPEN3,8,3,"0:(SCORES)":GOSUB180:IFER$>"01"THENCLOSE3:RETURN
  137. 1440 RC=R:GOSUB1120:B=0:GOSUB640:GET#3,A$:IF(ST)AND64THENSC=0:GOTO1460
  138. 1450 INPUT#3,SC
  139. 1460 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  140. 1470 IFI>SCTHENDIMSC(I):GOTO1490
  141. 1480 DIMSC(SC)
  142. 1490 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  143. 1500 RETURN
  144. 1510 OPEN3,8,3,"0:(SCORES)":GOSUB180:IFER$>"01"THENCLOSE3:RETURN
  145. 1520 RC=R:GOSUB1120:B=0:GOSUB640:SC$=STR$(SC)+F$:FORT=1TOSC
  146. 1530 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB640:CLOSE3:RETURN
  147. 1540 FI$="(ST/R 3.?)":DV=D5:Q$=CHR$(34)
  148. 1550 SYS52050:OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:FORT=1TO15
  149. 1560 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  150. 1570 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  151. 1580 PRINT#1,DV:PRINT#1,NW:PRINT#1,L$:CLOSE1:POKE252,32:Q$=CHR$(34)
  152. 1590 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$D7$":"FI$Q$","D7""
  153. 1600 POKE631,131:POKE198,1:NEW
  154. 1610 GOSUB1840:GOSUB330:GOSUB250:GOTO350
  155. 1620 P$=F$+"([211]PACE=[193]BORT)"+F$+F$+" [159][207][212][200][197][210] [210][213][204][197][210][211]"+F$:GOSUB140
  156. 1630 GOSUB1880:FORRC=1TO50:GOSUB170:INPUT#3,A$,B$:POKE52034,0
  157. 1640 REM POKE PREPARES ML FOR INCOMING           SPACE BAR TO ABORT AND
  158. 1650 REM KEEPS IT FROM GIVING A FALSE            ABORT SIGNAL!!
  159. 1660 P$="[150]":L$=RIGHT$("0"+MID$(STR$(RC),2),2):IF(RCAND1)=0THENP$="[129]"
  160. 1670 Z$="":IFA$="EMPTY"ORA$=U$(1)THENGET#5,A$:GETZ$:GOTO1690
  161. 1680 P$=P$+L$+"> "+LEFT$(A$+"....................",20)+":"+B$:GOSUB140
  162. 1690 IFA$=" "ORZ$=" "THENP$=F$+"([193]BORTED)":GOSUB140:RC=99
  163. 1700 NEXT:CLOSE3:RETURN
  164. 1710 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  165. 1720 P$=F$+F$+"[159]"+U$(1)+" (#"+MID$(STR$(G3),2)+")"+F$:GOSUB140
  166. 1730 P$="[154][204]AND     : "+STR$(LA)+" [193]CRES"+F$+"[205]ONEY    : $"+MID$(STR$(PN),2)+F$
  167. 1740 P$=P$+"[199]RAIN    : "+STR$(GR)+" [194]USHELS"+F$+"[212]AX [210]ATE : "+STR$(TR)+"%"
  168. 1750 GOSUB140:P$="[211]OLDIERS : "+STR$(WA)+F$+"[211]ERFS    : "+STR$(SF)+F$
  169. 1760 P$=P$+"[206]OBLES   : "+STR$(NB):GOSUB140:GOSUB1810
  170. 1770 P$="[159][208]ALACE   : "+STR$(10*F(1))+"% [195]OMPLETED."+F$+"[205]ARKETS  : "
  171. 1780 P$=P$+STR$(F(2))+F$+"[205]ILLS    : "+STR$(F(3))+F$+"[198]OUNDRIES: ":GOSUB150
  172. 1790 P$=STR$(F(4))+F$+"[211]HIPYARDS: "+STR$(F(5))+F$+"[196]IPLOMATS: "+STR$(F(6))
  173. 1800 P$=P$+F$+"[211]HIPS    : "+STR$(YC)+F$+"[195]OLONIES : "+STR$(I8):GOSUB140
  174. 1810 P$=F$+"[156] (PRESS A KEY) [146][144]":GOSUB140:L=1:GOSUB160:ONCDGOTO1610:RETURN
  175. 1820 REM
  176. 1830 GOSUB1840:P$=F$+"[156][210]ETURNING TO [194][194][211]....":GOSUB140:GOTO350
  177. 1840 W$=U$(1)+C$+STR$(LA)+C$+STR$(WA)+C$+STR$(SF)+C$+STR$(NB)+C$+STR$(GR)+C$
  178. 1850 W$=W$+STR$(TR)+C$+STR$(PN)+C$+STR$(F(1))+C$+STR$(F(2))+C$+STR$(F(3))+C$
  179. 1860 W$=W$+STR$(F(4))+C$+STR$(F(5))+C$+STR$(F(6))+C$+STR$(YC)+C$+STR$(I8)+C$
  180. 1870 W$=W$+R$:GOSUB1880:RC=G3:GOSUB170:PRINT#3,W$:CLOSE3:RETURN
  181. 1880 OPEN3,D7,3,EP$:RETURN
  182. 1890 IFTZ<1ORTZ>3THEND2$="[204][207][210][196] ":RETURN
  183. 1900 IFTZ=1THEND2$="[208][210][201][206][195][197] ":RETURN
  184. 1910 IFTZ=2THEND2$="[203][201][206][199] ":RETURN
  185. 1920 IFTZ=3THEND2$="[197][205][208][197][210][207][210] ":RETURN
  186. 1930 TZ=0:I1=F(1):I2=F(2):I3=F(3):I4=F(4):I5=F(5):I6=F(6)
  187. 1940 IFI2>9ANDI6>0ANDI3>5ANDI4>1ANDI5>1ANDI1>2AND(LA/SF>5.1)ANDNB>15ANDSF>3000THENGOSUB1980
  188. 1950 IFI2>15ANDI3>9ANDI6>2ANDI4>6ANDI5>4ANDI1>6AND(LA/SF>10.5)ANDSF>3500ANDNB>30THENGOSUB1990
  189. 1960 IFI2>23ANDI3>9ANDI6>2ANDI4>13ANDI5>11ANDI1>9AND(LA/SF>23.4)ANDSF>5499ANDNB>62THENGOSUB2000
  190. 1970 TY=TZ:RETURN
  191. 1980 D2$="[208][210][201][206][195][197] ":TZ=1:RETURN
  192. 1990 D2$="[203][201][206][199] ":TZ=2:RETURN
  193. 2000 D2$="[197][205][208][197][210][207][210] ":TZ=3:RETURN
  194. 2010 DEFFNC(X)=PEEK(52033):DEFFNA(X)=PEEK(52034)
  195. 2020 GOSUB4010
  196. 2030 PRINT"[139][139]\C4[204]OAD [217]OUR [211]HIP..."
  197. 2040 IN$(1)="[199]RAIN":IN$(2)="[211]ERF":IN$(3)="[206]OBLE":IN$(4)="[206]AVIGATOR":X8=0
  198. 2050 GOSUB200:PRINT"[139]\CN[205]ANIFEST:[139]0)[206]ONE ?)[204]IST [217])[195]OLONY [211]TATS: \C1":L$="":IN=0
  199. 2060 L=1:GOSUB4060:IFFNC(0)THEN4100
  200. 2070 IFL$="?"THENX=1:GOSUB3950:GOTO2050
  201. 2080 IN=INT(VAL(L$)):IFL$="0"THEN2330
  202. 2090 ON-(L$="[217]"ORL$="Y")GOSUB3610:IFIN<1ORIN>4THEN2050
  203. 2100 PRINT"[139]\C7[211]HIP [204]OAD: \C1"+IN$(IN)+"[139][139]\CN[212]AKE [200]OW [205]ANY? "
  204. 2110 IFIN=2THENY7=YC*50:PRINT"\C1([205]AX:"+STR$(Y7)+"): "
  205. 2120 IFIN=1THENY7=25000-YG:GOSUB3930:PRINT"\C1([205]AX:"+STR$(Y7)+"): "
  206. 2130 L=9:GOSUB4060:ONFNC(0)GOTO4100:IFLEN(L$)>5THEN2100
  207. 2140 BN=INT(VAL(L$)):IFBN<1THEN2050
  208. 2150 IFIN=2ANDBN>YC*50THEN3780
  209. 2160 IFIN=2ANDBN+YS>(I8+1)*100THEN3800
  210. 2170 ONINGOTO2230,2250,2270,2290
  211. 2180 GR=GR-BN:YG=YG+BN:PRINTSTR$(YG)+" [194]USHELS [207]F "+IN$(IN):GOTO2050
  212. 2190 SF=SF-BN:YS=YS+BN:PRINTSTR$(YS)+" "+IN$(IN)+"S.":GOTO2050
  213. 2200 NB=NB-BN:YW=YW+BN:PRINTSTR$(YW)+" "+IN$(IN)+"S.":GOTO2050
  214. 2210 X8=X8+BN:PN=PN-(500*BN):PRINTSTR$(X8)+" "+IN$(IN)+"S.":GOTO2050
  215. 2220 PRINT"[139]\CM[217]OU [206]OW [200]AVE":RETURN
  216. 2230 IFBN>GRTHENPRINT"[139][139]\CJ[217]OU [207]NLY [200]AVE "+STR$(GR)+" [194]USHELS!":GOTO2050
  217. 2240 Y7=25000-YG:GOTO2310
  218. 2250 IFBN>SFTHENPRINT"[139][139]\CJ[217]OU [207]NLY [200]AVE "+STR$(SF)+" [211]ERFS!":GOTO2050
  219. 2260 GOSUB2220:GOTO2190
  220. 2270 IFBN>NBTHENPRINT"[139][139]\CJ[217]OU [207]NLY [200]AVE "+STR$(NB)+" [206]OBLES!":GOTO2050
  221. 2280 GOSUB2220:GOTO2200
  222. 2290 IFBN*500>PNTHENPRINT"[139][139]\CJ[217]OU [207]NLY [200]AVE $"+STR$(PN):GOTO2050
  223. 2300 GOSUB2220:GOTO2210
  224. 2310 IFBN+YG>25000THENPRINT"[139]\C1[204]IMIT: 25000 [194]USHELS!":GOTO2050
  225. 2320 GOSUB2220:GOTO2180
  226. 2330 ZA=1:GOTO2990
  227. 2340 X=INT(YG*2*RND(1)+YS*3*RND(1)+I8*50*RND(1)):IFX>1E5THENX=1E5
  228. 2350 IFX>(YG+YS)*5THENX=INT(YG+YS)*5
  229. 2360 IFX+YG>1E5THENX=1E5-YG
  230. 2370 PRINT"[139][139]\C5[195]OLONY [208]RODUCES\C1"+STR$(X)+" \C5[194]USHELS [207]F [199]RAIN":YG=YG+X
  231. 2380 PRINT"[139][139]\C6[197]XPORTS [194]ROUGHT [194]ACK [212]O [197]MPIRE"
  232. 2390 PRINT"[139][195]AN [194]E [195]ONVERTED [212]O [195]ASH"
  233. 2400 PRINT"[139][139]\C5[217]OU [200]AVE\C1"+STR$(YE)+" \C5[212]ONS [207]F [197]XPORTS":GOSUB3750
  234. 2405 L$=CHR$(ASC(L$+CHR$(0))AND127)
  235. 2410 ON-(L$="A")-(L$="S")*2-(L$="C")*3GOTO2430,2480,2550
  236. 2420 ON-(L$="Y"ORL$="[217]")GOSUB3610:GOTO2400
  237. 2430 PRINT"[139]\C7[195]ONVERT [199]RAIN [212]O [197]XPORT [212]ONS[139]"
  238. 2440 PRINT"1 [212]ON = 2000 [194]USHELS..":GOSUB3710
  239. 2450 BL=VAL(L$):IFBL<1THEN2400
  240. 2460 IFYG<(BL*2000)THENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YG)+"!":GOTO2430
  241. 2470 YG=YG-(BL*2000):YE=YE+BL:PRINT"[139]\C5[195]ONVERTED!":GOTO2400
  242. 2480 PRINT"[139][139]\C5[195]ONVERT [197]XPORTS [212]O [199]RAIN."
  243. 2490 Y7=1E5-YG:PRINT"[139][139][205]AX [195]ONV. [193]LLOWED:"+STR$(Y7)+" [194]USHELS."
  244. 2500 PRINT"[139]1 [212]ON [217]IELDS 1000 [194]USHELS.":GOSUB3710
  245. 2510 BL=VAL(L$):IFBL<1THEN2400
  246. 2520 IFBL*1000>Y7THENPRINT"[139][139]\C1[217]OU [195]ANNOT [195]ONVERT [212]HAT [205]ANY!":GOTO2400
  247. 2530 IFBL>YETHENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YE)+" [212]ONS!":GOTO2480
  248. 2540 YE=YE-BL:YG=YG+(BL*1000):PRINT"[139]\C5[195]ONVERTED!":GOTO2400
  249. 2550 IFYC<2THEN2690
  250. 2560 PRINT"[139]\CN[217]OU [200]AVE"+STR$(YC)+" [211]HIPS [193]T [195]OLONY":GOSUB3770
  251. 2565 L$=CHR$(ASC(L$+CHR$(0))AND127)
  252. 2570 ON-(L$="B")-(L$="M")*2-(L$="C")*3GOTO2590,2640,2690
  253. 2580 ON-(L$="Y")GOSUB3610:GOTO2550
  254. 2590 PRINT"[139][139]\C7[211]HIPS [194]EACHED [193]RE [195]ONVERTED[139][212]O [194]UILD [193] [195]OLONY (\C15:1\C7 [210]ATIO)"
  255. 2600 GOSUB3720
  256. 2610 BL=VAL(L$):IFBL<1THEN2550
  257. 2620 IFYC<BL*5THENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YC)+" [211]HIPS!":GOTO2590
  258. 2630 YC=YC-BL*5:I8=I8+BL:PRINT"\C1[211]HIPS [196]ISMANTLED!":GOTO2550
  259. 2640 PRINT"[139]\C3[195]OLONY(S) [193]BANDONED [215]ILL[139][208]RODUCE \C12\C3 [211]HIPS."
  260. 2650 GOSUB3730
  261. 2660 BL=VAL(L$):IFBL<1THEN2550
  262. 2670 IFBL>I8THENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(I8)+" [195]OLONYS!":GOTO2640
  263. 2680 I8=I8-BL:YC=YC+(BL*2):PRINT"[139]\C1[193]BANDONED!":GOTO2550
  264. 2690 Y7=INT(RND(1)*10)
  265. 2700 PR=YS*Y7:PRINT"[139]\C5[195]OLONISTS [206]EED\C1"+STR$(PR)+" \C5[194]USHELS.":GP=PR
  266. 2710 PRINT"[139]\CM[199]IVE [200]OW [205]ANY?: \C1"
  267. 2720 L=9:GOSUB4060:ONFNC(0)GOTO4100:GP=INT(VAL(L$))
  268. 2730 IFGP>YGTHENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YG)+" [194]USHELS!":GOTO2700
  269. 2740 ON-(GP<.OR(GP=.ANDLEFT$(L$,1)<>"0"))GOTO2700:YG=YG-GP
  270. 2750 IFGP<INT(PR/2)THENPRINT"[139][139]\C1[195]OLONY [211]TARVES!":YG=10:YS=.
  271. 2760 Y7=INT(RND(1)*100)
  272. 2770 AR=YW*Y7:PRINT"[139]\C5[206]OBLE(S) [206]EED\C1"+STR$(AR)+" \C5[194]USHELS...":GA=AR
  273. 2780 PRINT"[139]\CM[199]IVE [200]OW [205]ANY?: \C1"
  274. 2790 L=9:GOSUB4060:ONFNC(0)GOTO4100:GA=INT(VAL(L$))
  275. 2800 IFGA>YGTHENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YG)+"!":GOTO2770
  276. 2810 ON-(GA<.OR(GA=.ANDLEFT$(L$,1)<>"0"))GOTO2770:YG=INT(YG-GA)
  277. 2820 IFGA<ARTHENPRINT"[139][139]\C1[206]OBLE(S) [211]TARVE! [194]AD [205]OVE...":YW=.
  278. 2830 IFYG<1THENPRINT"[139][139]\C1[217]OUR [195]OLONY(S) [211]UFFER [198]ROM [211]TARVATION!"
  279. 2840 IFYG<1THENYE=.:YS=.:X8=.:I8=INT(I8/2):IFI8<.THENI8=.
  280. 2850 IFYG<1THENYG=.:YC=1
  281. 2860 Y7=INT(RND(1)*200):AR=(I8+1)*Y7:Y7=INT(RND(1)*10):IFY7>4THEN2880
  282. 2870 GOSUB3840:GOTO2950
  283. 2880 PRINT"[139]\C2[201]NDIANS \C5[215]ANT\C1"+STR$(AR)+" \C5[194]USHELS...":GA=AR
  284. 2890 PRINT"[139]\CM[199]IVE [200]OW [205]ANY?: \C1"
  285. 2900 L=9:GOSUB4060:ONFNC(0)GOTO4100:GA=INT(VAL(L$))
  286. 2910 IFGA>YGTHENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YG)+"!":GOTO2880
  287. 2920 IFGA<ARTHENPRINT"[139][139]\C2[201]NDIANS [194]REAK [207]UT [212]HE [215]ARPAINT!":YS=INT(YS/2)
  288. 2930 ON-(GA<.OR(GA=.ANDLEFT$(L$,1)<>"0"))GOTO2880:YG=INT(YG-GA)
  289. 2940 IFGA<ARTHENPRINT"[139][139]\C2[217]OUR [195]OLONY(S) [211]UFFER [194]RUTAL [193]TTACK!"
  290. 2950 :
  291. 2960 PRINT"[139][139]\C4[217]OUR [195]OLONY [211]TATS:"
  292. 2970 GOSUB3610
  293. 2980 GOTO3500
  294. 2990 PRINT"[139][139]\CN[217]OU [211]ET [211]AIL [212]OWARD [195]OLONY(S)..":GOTO3010
  295. 3000 PRINT"[139][139]\CN[217]OU [211]ET [211]AIL [212]OWARDS [197]MPIRE..."
  296. 3010 Y7=INT(RND(1)*8):ONY7GOTO3180,3020,3050,3180,3070,3110,3180,3140
  297. 3020 PRINT"[139][139]\C3[217]OUR [211]HIP(S) [193]RE [210]AVISHED [194]Y \P1[208]IRATES!\P0"
  298. 3030 IFYW=>YCTHENPRINT"[139]\C7[194]UT [217]OUR [206]OBLE(S) [211]AVE [212]HEM!":GOTO3260
  299. 3040 GOTO3060
  300. 3050 GOSUB3870:PRINT"[139][139]\C7[193] \C1"+X8$+" \C7[210]AVISHES [217]OUR [198]LEET![139]"
  301. 3060 Y7=INT(RND(1)*(YC/2)):GOTO3170
  302. 3070 PRINT"[139][139]\C7[217]OUR [211]HIP(S) [198]ALL [207]FF-[195]OURSE!"
  303. 3080 Y7=YC-X8
  304. 3090 IFY7<1THENPRINT"[139][139]\C6[194]UT [217]OUR [206]AVIGATOR(S) [210]ECOVER [195]OURSE!":GOTO3260
  305. 3100 GOTO3060
  306. 3110 PRINT"[139][139]\C2[204]EECHES [194]ORE [200]OLES [201]N [217]OUR [211]HIPS!"
  307. 3120 PRINT"[139]\C1[215]ATER \C2[195]RASHES [201]N..[139][217]OU [212]RY [212]O [208]LUG [200]OLES!"
  308. 3130 GOTO3060
  309. 3140 PRINT"[139][139]\P1\C4[207]H [206]O!\P0 [193] [205]UTINY [207]CCURS [201]N [217]OUR [198]LEET!"
  310. 3150 IFYW=>YCTHENPRINT"[139]\CJ[194]UT [217]OUR [206]OBLE(S) [198]IGHT [194]ACK!":GOTO3260
  311. 3160 Y7=YC-YW
  312. 3170 YC=YC-Y7:PRINT"[139]\CN[211]HIPS [204]OST >\C1"+STR$(Y7)+"[139]":GOSUB3190:GOTO3260
  313. 3180 PRINT"[139][139]\CN[212]HE [211]EAS [193]RE [195]ALM..[139][139]\C7[217]OUR [195]OURSE [212]RUE...[139]":GOTO3260
  314. 3190 IFZA=0ANDY7>1THENYE=INT(RND(1)*YE):RETURN
  315. 3200 RETURN
  316. 3210 IFYC>0THENPRINT"[139]\CM[217]OU [193]RRIVE [193]T [212]HE [195]OLONY(S)...":GOTO2340
  317. 3220 PRINT"[139][139]\C3[217]OU[160][198]IND [217]OURSELF [193]LL [193]LONE [201]N [212]HE"
  318. 3230 PRINT"[139]\C6[196]EEP [194]LUE [211]EA..\C3[215]ITHOUT [211]HIPS!"
  319. 3240 PRINT"[139]\C5[217]OU [200]EAD [194]ACK [212]OWARDS [197]MPIRE..."
  320. 3250 GOTO3270
  321. 3260 GOSUB1810:IFZA=1THENZA=0:GOTO3210
  322. 3270 IFYC<1THENPRINT"[139][139]\CJ[217]OU [193]RRIVE...[194]Y \CJ\P1[211]WIMMING\P0!":Y7=0
  323. 3280 IFYC<1THENPRINT"[139]\C1[203]ING [199]EORGE [199]RUNTS [193]T [217]OUR [211]KILL!":GOTO4040
  324. 3290 PRINT"[139][139]\C5[211]HIP(S) [193]RRIVE..":Y7=0
  325. 3300 PRINT"[139][139][213]NLOADING [211]HIPS(S) [193]T [197]MPIRE [196]OCKS"
  326. 3310 IFYE<1THENPRINT"[139]\C7[211]HIPS [195]ARRY [206]O [201]MPORTS..."
  327. 3320 IFYE<1THENCE=.:PRINT"[139][139][212]HE [205]ARKET [205]ASTER [204]AUGHS!":GOTO3480
  328. 3330 GA=INT(RND(1)*1E4):PRINT"[139][139]\C5[212]HE [205]ARKET [205]ASTER [207]FFERS $"+STR$(GA)+"/[212]ON."
  329. 3340 X=1:PRINT"[139][139]\C5[217]OU HAVE\C1"+STR$(YE)+" \C5[212]ONS OF [201]MPORTS":GOSUB3760
  330. 3345 L$=CHR$(ASC(L$+CHR$(0))AND127)
  331. 3350 ON-(L$="S")-(L$="B")*2-(L$="H")*3GOTO3370,3410,3430
  332. 3360 ON-(L$="Y")GOSUB3610:GOTO3340
  333. 3370 PRINT"[139]\C5[193]T $\C1"+STR$(GA)+"/[212]ON\C5...":GOSUB3740
  334. 3380 BL=VAL(L$):IFBL<1THEN3370
  335. 3390 IFBL>YETHENPRINT"[139][139]\C1[217]OU [207]NLY [200]AVE"+STR$(YE)+" [212]ONS!":GOTO3340
  336. 3400 YE=YE-BL:PN=PN+(GA*BL):PRINT"[139]\C3[211]OLD!":GOTO3430
  337. 3410 IFY7>1THENPRINT"[139][139]\C2[211]ORRY..[205]ARKET [205]ASTER [195]LOSES [211]HOP!":GOTO3430
  338. 3420 Y7=Y7+1:GOTO3330
  339. 3430 IFYE<10THEN3460
  340. 3440 Y7=INT(RND(1)*YE):YE=YE-Y7
  341. 3450 PRINT"[139][139]\C5[211]POILAGE \CM[195]ONSUMES"+STR$(Y7)+" [212]ONS [207]F [201]MPORTS!"
  342. 3460 GR=GR+(YE*2000)
  343. 3470 PRINT"[139][139]\C2[206]OBLES [197]MBARK [212]O [194]ATTLEFIELD...[139]"
  344. 3480 IFYW>0THENNB=NB+YW:YW=0
  345. 3490 GOTO4040
  346. 3500 PRINT"[139]\C5[204]OADING [197]XPORTS..."
  347. 3510 IFYC<1THENPRINT"[139][139]\CJ[215]ITH [206]O [211]HIPS [217]OU [205]UST [211]WIM [212]O [197]MPIRE!":GOTO3600
  348. 3520 IFYE<1THENPRINT"[139][139][217]OU [204]EAVE [215]ITH [206]O [197]XPORTS [207]N-[194]OARD!":GOTO3590
  349. 3530 PRINT"[139][139]\C3[211]HIPS [205]AY [195]ARRY \C12 \C3[212]ONS [207]F [197]XPORTS [197]ACH":BL=YC*2
  350. 3540 PRINT"[139][217]OUR\C1"+STR$(YC)+" \C3[211]HIPS CAN CARRY A TOTAL"
  351. 3550 PRINT"[139]OF\C1"+STR$(BL)+" \C3TONS BACK"
  352. 3560 IFYE>BLTHENY7=YE-BL:YE=BL:PRINT"[139][139]\C2\P1[201]NDIANS\P0 [211]TEAL"+STR$(Y7)+" [212]ONS!"
  353. 3570 IFYC<1THEN3270
  354. 3580 PRINT"[139][139]\C5[212]ONNAGE [204]OADED =>"+STR$(YE)+" [212]ONS"
  355. 3590 GOTO3000
  356. 3600 BL=0:GOTO3560
  357. 3610 PRINT"[139][139]\C3"+U$(1)+" \CN#"+STR$(G3)+":[139][139]\C5[195]ASH     :\C7$"+MID$(STR$(PN),2)
  358. 3620 PRINT"[139]\C5[199]RAIN    :\C7"+STR$(YG)+" [194]USHELS[139]\C5[212]AX [210]ATE :\C7"+STR$(TR)
  359. 3630 PRINT"%[139]\C5[211]ERFS    :\C7"+STR$(YS)
  360. 3640 PRINT"[139]\C5[206]OBLES   :\C7"+STR$(YW)
  361. 3650 IFX=1THENPRINT"[139]\C5[201]MPORTS  :\C7"+STR$(YE):GOTO3670
  362. 3660 PRINT"[139]\C5[197]XPORTS  :\C7"+STR$(YE)
  363. 3670 PRINT"[139]\C5[211]HIPS    :\C7"+STR$(YC)
  364. 3680 PRINT"[139]\C5[206]AVIGATOR:\C7"+STR$(X8)
  365. 3690 PRINT"[139]\C5[195]OLONIES :\C7"+STR$(I8)+"[139]"
  366. 3700 GOTO1810
  367. 3710 PRINT"[139][139]\C4[195]ONVERT? [[212]ONS]: \C1":L=9:GOSUB4060:ONFNC(0)GOTO4100:RETURN
  368. 3720 PRINT"[139]\C4[195]OLONY(S) [212]O [194]UILD: \C1":L=4:GOSUB4060:ONFNC(0)GOTO4100:RETURN
  369. 3730 PRINT"[139][139]\C4[195]OLONY(S) [212]O [193]BANDON: \C1":L=4:GOTO4060:ONFNC(0)GOTO4100:RETURN
  370. 3740 PRINT"[139][139]\C3[211]ELL: ":L=9:GOSUB4060:ONFNC(0)GOTO4100:RETURN
  371. 3750 GOSUB200:PRINT"[139]\CN[193])CQUIRE [211])ELL [195])ONT: ":L=1:GOSUB4070:GOTO4080
  372. 3760 GOSUB200:PRINT"[139]\CN[211])ELL [194])ARTER [200])OLD: ":L=1:GOSUB4070:GOTO4080
  373. 3770 GOSUB200:PRINT"[139]\CN[194])EACH [205])AKE [195])ONT: ":L=1:GOSUB4070:GOTO4080
  374. 3780 PRINT"[139][139]\C7[217]OU [205]AY [207]NLY [212]AKE [207]N [193] [205]AX [207]F\C1"+STR$(YC*50)
  375. 3790 PRINT"[139]\C7[211]ERFS [207]N [217]OUR"+STR$(YC)+" [211]HIPS!":GOTO2100
  376. 3800 PRINT"[139]\C7[217]OU [205]AY [207]NLY [200]AVE\C1"+STR$((I8+1)*100)+" \C7[211]ERFS"
  377. 3810 PRINT"[139][201]N [217]OUR"+STR$(I8)+" [195]OLONY(S)!":GOTO2100
  378. 3820 Y7=((I8+1)*100):Y7=Y7-YS:IFY7<1THENY7=0
  379. 3830 RETURN
  380. 3840 PRINT"[139]\C3[201]NDIAN [208]EACE [207]FFERING! [217]OU [210]ECEIVE\C1"+STR$(AR)
  381. 3850 PRINT"[139]\C3[194]USHELS [207]F [199]RAIN!!"
  382. 3860 YG=YG+INT(AR):RETURN
  383. 3870 Y7=INT(RND(1)*5):ONY7GOTO3880,3890,3900,3910,3920
  384. 3880 X8$="[200]URRICANE":RETURN
  385. 3890 X8$="[212]YPHOON":RETURN
  386. 3900 X8$="[205]ONSOON":RETURN
  387. 3910 X8$="[215]IND [211]TORM":RETURN
  388. 3920 X8$="[203]ILLER [215]AVE":RETURN
  389. 3930 IFY7<0THENY7=0
  390. 3940 RETURN
  391. 3950 PRINT"[147][154][139][139]  [204]OAD ONTO [211]HIP[139] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][139][139]"
  392. 3960 PRINT"[158][1][146] [199]RAIN[139]"
  393. 3970 PRINT"[158][2][146] [211]ERF[139]"
  394. 3980 PRINT"[158][3][146] [206]OBLE[139]"
  395. 3990 PRINT"[158][4][146] [206]AVIGATOR ($500/EA)[139]"
  396. 4000 PRINT"[158][[217]][146] [217]OUR [211]TATUS":RETURN
  397. 4010 PRINT"[139]\C5[203]ING [199]EORGE WISHES YOU A SAFE AND[139]"
  398. 4020 PRINT"PROSPEROUS TRIP TO YOUR COLONY(S).[139]"
  399. 4030 PRINT"[196]ON'T LET HIM DOWN!":RETURN
  400. 4040 SF=SF+YS:YS=.:GR=GR+YG:YG=.:YE=.:X8=.:FI$="(EMP2COM)":GOTO4090
  401. 4050 REM
  402. 4060 GOTO160
  403. 4070 GOTO160
  404. 4080 ONFNC(0)GOTO1610:RETURN
  405. 4090 POKE251,PEEK(152):LOAD(D7$+":"+FI$),(D7),1
  406. 4100 GOTO1610
  407.