Atari 8-bit Source code

1REMPROGRAM:SANTAPARAVIA/ATARIPLACEDONBBSBY-LEAVECOMMENTSONMICHIGANBBS.
5CLR:RESTORE:READN0,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15,N20,N100,N1000
6DATA0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,20,100,1000
8GRAPHICSN0:POKE752,1:POKE82,N1:POKE83,38:?"":SETCOLORN2,N2,N4
9SETCOLORN1,N0,N12
10DIMG(N6),H(N6),I(N6),J(N6),K(N6),L(N6),M(N6),N(N6),O(N6),OB(N6),P(N6),Q(N6),R(N6),S(N6),T(N6),U(N6)
11DIMV(N6),A(N6),B(N6),C(N6),D(N6),Y(N0),A$(N1),N$(N6*N10),NA$(N6*N6*N10),T$(N3*N10),B$(N5),X$(N7*N10)
12DIMW$(N5*N10),J$(N3*N10),Y$(N7*N10),T1(N6):Y(N0)=N14*N100:NA$(N1)="^":NA$(N6*N6*N10)="^":NA$(N2)=NA$
13OPEN#N1,N4,N0,"K":GOTON20
15FORD=N12*N20TON0STEP-N3*N10:SOUNDN0,D,N10,N6:NEXTD:RETURN
17POKE764,255:GET#1,D:IFD<>155THENGOSUBN15:GOTON15+N2
18RETURN
20DATASIR,BARON,COUNT,MARQUIS,DUKE,GRANDDUKE,PRINCE,*H.R.H.KING
30DATALADY,BARONESS,COUNTESS,MARQUISE,DUCHESS,GRANDDUCHESS,PRINCESS,*H.R.H.QUEEN
40DATASANTAPARAVIA,FIUMACCIO,TORRICELLA,MOLINETTO,FONTANILE,ROMAGNA
60RESTOREN20*N2:?"HOWMANYPLAYERS(1-6)?";
62GET#N1,D:IFD<N20*N2+N9ORD>N10*N5+N4THENGOSUBN15:GOTON20*N3+N2
65?CHR$(D):F=D-48:POKE752,N0:FORA=N1TON6:T1(A)=N0:NEXTA
70FORA=N1TOF:READT$:?:?"WHOISTHERULEROF";T$
75INPUTN$:IFLEN(N$)<N1ORLEN(N$)>N5*N5THENGOTON5*N15
100N$(LEN(N$)+N1)="OF":N$(LEN(N$)+N1)=T$:NA$((A-N1)*N3*N20+N1,(A-N1)*N3*N20+LEN(N$))=N$:V(A)=N0
110?"IS";N$:?"AMANORAWOMAN(M/W)";:INPUTA$
120IFA$="W"THENV(A)=N8
130G(A)=N5*N5:H(A)=N10:I(A)=N5:J(A)=N2:O(A)=Y(N0)+N11+INT(RND(N0)*N20):T1(A)=N1
140K(A)=N1000:L(A)=N10*N1000:R(A)=L(A)/N2:T(A)=N1:U(A)=N1:A(A)=N0:B(A)=N0:C(A)=N0:D(A)=N0
150N(A)=N4:P(A)=N5*N5:Q(A)=N5:M(A)=P(A):S(A)=N2*N1000
160OB(A)=Y(N0)-N20-INT(RND(N0)*N20):NEXTA
200?"DOYOUWANTINSTRUCTIONS(Y/N)";:INPUTA$:IFA$="Y"THENGOSUB2730
220POKE752,N1:?"ENTERLEVELOFPLAYDESIRED:":POKE710,N100*N2-N4
230?"1.APPRENTICE3.MASTER"
240?"2.JOURNEYMAN4.GRANDMASTER"
241?"?"
242GET#N1,D:IFD<49ORD>52THENGOSUBN15:GOTO242
245E=N0:U(N0)=D-43:?"":SVE=N0
260E=E+N1:IFT(E)=-N1THENE=E+N1
270IFT1(N1)<N1ANDT1(N2)<N1ANDT1(N3)<N1ANDT1(N4)<N1ANDT1(N5)<N1ANDT1(N6)<N1THEN2890
280IFE>FTHENE=N0:Y(N0)=Y(N0)+N1:GOTO260
283RESTOREN20:D=V(E)+T(E):FORDD=N1TOD:READX$:NEXTDD:X$(LEN(X$)+N1)="":D=(E-N1)*60+N1
285IFNA$(D,D)="^"THEN290
286X$(LEN(X$)+N1)=NA$(D,D):D=D+N1:GOTO285
290IFY(N0)>O(E)THEN260
300IFY(N0)=O(E)THEN390
310GOSUB570:GOSUB1000:GOSUB1330:GOSUB1160
320GOSUB1750:GOSUB2190:GOSUB2360:GOTO260
330?"NOBLESSOLDIERSCLERGYMERCHANTS":?"SERFSLANDTREASURY":POKE752,N1
340FORA=N1TOF:?:RESTOREN20:FORDD=N1TOV(A)+T(A):READT$:NEXTDD:?T$;"";
345D=(A-N1)*60+N1
350IFNA$(D,D)<>"^"THEN?NA$(D,D);:D=D+N1:GOTO350
355?:IFT1(A)>N0THEN?:GOTO360
357?"(";OB(A);"TO";O(A);")"
360POKE85,N3:?N(A);:POKE85,N12:?P(A);:POKE85,22:?Q(A);:POKE85,30:?M(A):?S(A);:POKE85,N10:?L(A);
361POKE85,N20:?K(A)
363IFA=N3ANDF>N3THEN?:?"PUSHTOCONTINUE":GOSUBN15+N2
370NEXTA:?:IFZZ=N1THENRETURN
380?"PUSHRETURNTOCONTINUE?":GOSUBN15+N2:RETURN
390POKE752,N1:?"VERYSADNEWS:":?X$:?"HASDIED";
410T1(E)=-N1:Y=N1+INT(RND(N0)*N8)
420IFO(E)-OB(E)<50THEN430
422?"OFOLDAGE";:IFY(N0)>1418THEN?"AFTERALONG":?"REIGN.":GOTO475
423?".":GOTO475
430IFY<N4THEN?"OFPNEUMONIAAFTERACOLDWINTER."
440IFY=N5THEN?"INASMALLPOXEPIDEMIC."
450IFY=N4THEN?"OFTYPHOIDAFTERDRINKINGCONTAMINATEDWATER."
460IFY=N6THEN?"AFTERBEINGATTAKEDBYROBBRS."
470IFY>N6THEN?"OFFOODPOISONING."
475?:?"BORN:";OB(E);"DIED:";O(E);"AGE:";O(E)-OB(E)
478B$="HE":IFV(E)=N8THENB$="SHE"
480?B$;"WASAPPOINTEDTOTHENOBILITYIN":?"THEYEAR14OOBYKINGALPHONSEII."
486Y=INT(RND(N0)*N15):?B$;"ISSURVIVEDBYASPOUSE";:IFY=N0THEN?:GOTO489
487IFY=N1THEN?",":?"1CHILD,";
488IFY>N1THEN?",":?Y;"CHILDREN,";
489?"ANDSEVERALRELATIVES.":?
490?"PRESSRETURNTOCONTINUE":GOSUBN15+N2
495GOSUB1750:GOSUB330:GOTO260
500II=INT(II):RETURN
510C=INT(C):RETURN
520S=INT(S):RETURN
530K(E)=INT(K(E)+0.5):RETURN
540Z=(RND(0)*A+N1)*S(E)/N100:Z=INT(Z):?Z;"SERFSBORNTHISYEAR":S(E)=S(E)+Z:RETURN
550Z=A*S(E)/N100:IFZ<N0THENZ=N0
560Z=INT(Z):?Z;"SERFSDIETHISYEAR":S(E)=S(E)-Z:RETURN
570W=INT((RND(N0)*N5+N1)+(RND(N0)*N6+N1))/N2:ONINT(W)GOTO580,590,600,610,620,620
580W$="DROUGHTFAMINETHREATENS":GOTO630
590W$="BADWEATHERPOORHARVEST":GOTO630
600W$="NORMALWEATHERAVERAGEHARVEST":GOTO630
610W$="GOODWEATHERFINEHARVEST":GOTO630
620W$="EXCELLENTWEATHERGREATHARVEST"
630R=N1+INT(RND(N0)*50):R(E)=(R(E)*N100-R(E)*R)/N100:SETCOLORN2,N9,N4:SETCOLORN1,N0,N10
640X=L(E):Y=(S(E)-D(E)*N100)*N5:IFY<N0THENY=N0
650IFY<XTHENX=Y
660Y=R(E)*N2:IFY<XTHENX=Y
670Y=W-0.5:H=X*Y:R(E)=R(E)+INT(H)
680D0=N(E)*N100+C(E)*40+M(E)*30+P(E)*N10+S(E)*N5
690L=(N3*W+(N1+INT(RND(N0)*N6))+(N1+INT(RND(N0)*N6))+N10)/N10
700IFH<N1THENY=N2:GOTO720
710Y=D0/H:IFY>N2THENY=N2
720IFY<0.8THENY=0.8
730L=L*Y:L=INT(L*N10)/N10
740Z=N6-W:G=(Z*N3+(N1+INT(RND(N0)*N5))+(N1+INT(RND(N0)*N5)))/Y*N100:RETURN
750?:?"RATSATE";R;"%OFYOURGRAINRESERVES":H=INT(H)
760?W$:?"FINALHARVESTWAS";H;"STERES"
770SETCOLORN2,N9,N4:SETCOLORN1,N10,N10:?:GOSUB530
780?"GRAINGRAINPRICEOFPRICEOF"
785?"RESERVEDEMANDGRAINLAND"
790R(E)=INT(R(E))
800G=INT(G):?R(E);:POKE85,N10:?D0;:POKE85,18:?G;:POKE85,28:?L
805?"STERESSTERES1000ST.HECTARE"
810?:?"TREASURY";K(E);"GOLDFLORINS"
815?"MINIMUMGRAINTOMEETDEMAND";INT(D0*1.25)
820RETURN
830J=(J(E)*300-500)*T(E):ONJ(E)GOTO840,850,860,870
840J$="VERYFAIR":GOTO880
850J$="MODERATE":GOTO880
860J$="HARSH":GOTO880
870J$="OUTRAGOUS"
880Y=150-G(E)-H(E)-I(E):IFY<N1THENY=N1
890C=(N(E)*N100+Q(E)*75+M(E)*N20)*(Y/N100)+U(E)*N100
900S=(N(E)*50+M(E)*25+U(E)*N10)*(Y/N100)*(N5-J(E))/N2
910II=N(E)*250+U(E)*N20+(N10*J(E)*N(E))*(Y/N100)
920C=C*G(E)/N100:GOSUB510
930S=S*H(E)/N100:GOSUB520
940II=II*I(E)/N100:GOSUB500
950?"STATEREVENUES";J+C+S+II;"GOLDFLORENS":?
960?"CUSTOMSDUTYSALESTAXINCOMETAX"
970POKE85,N5:?G(E);"%";:POKE85,N20:?H(E);"%";:POKE85,30:?I(E);"%"
980POKE85,N5:?C;:POKE85,N20:?S;:POKE85,30:?II;"FL."
981?"JUSTICE:";J$;"";J;"FL.":?
990RETURN
1000POKE752,N1:?"";X$:?:GOSUB750
1010?"1.BUYGRAIN2.SELLGRAIN3.BUYLAND4.SELLLAND"
1020?"(ENTER0TOCONTINUE)?";:POKE764,255
1021GET#N1,D:IFD<48ORD>52THENGOSUBN15:GOTO1021
1022?CHR$(D):?:I=D-48
1030IFI=N0THENRETURN
1040POKE752,N0:ONIGOTO1050,1080,1110,1130
1050SETCOLORN2,N15,N4:TRAP1051:?"HOWMUCHGRAINTOBUY";:INPUTI:GOTO1055
1051?"";:GOTO1050
1055IFI<N0THEN1051
1060K(E)=K(E)-(I*G/N1000):R(E)=R(E)+I
1070POKE752,N1:?"";X$:GOSUB770:GOTO1010
1080SETCOLORN2,N1,N4:TRAP1081:?"HOWMUCHGRAINTOSELL";:INPUTI:GOTO1085
1081?"";:GOTO1080
1085IFI<N0THEN1081
1090IFI>R(E)THEN?"YOUDON'THAVETHATMUCH!":GOTO1080
1100K(E)=K(E)+(I*G/N1000):R(E)=R(E)-I:GOTO1070
1110SETCOLORN2,N12,N2:TRAP1111:?"HOWMANYHECTARESTOBUY";:INPUTI:GOTO1115
1111?"";:GOTO1110
1115IFI<N0THEN1111
1120L(E)=L(E)+I:K(E)=K(E)-(I*L):GOTO1070
1130SETCOLORN2,N14,N4:TRAP1131:?"HOWMANYHECTARESTOSELL";:INPUTI:GOTO1135
1131?"";:GOTO1130
1135IFI<N0THEN1131
1140IFI>(L(E)-5000)THEN?"YOUCAN'TSELLTHATMUCH.":GOTO1130
1150L(E)=L(E)-I:K(E)=K(E)+(I*L):GOTO1070
1160SETCOLORN2,N0,N10:SETCOLORN1,N0,N4:POKE752,N1:?"";X$:?:GOSUB830
1170?"1.CUSTOMSDUTY2.SALESTAX3.WEALTHTAX4.JUSTICE"
1180?"ENTERNUMBERTOCHANGE,0TOCONTINUE"
1181?"?";:POKE764,255
1183GET#N1,D:IFD<48ORD>52THENGOSUBN15:GOTO1183
1190I=D-48:?CHR$(D):IFI=N0THEN1290
1200POKE752,N0:?:GOTO1190+N20*I
1210TRAP1212:?"NEWCUSTOMSDUTY(0-100)";:INPUTI:IFI<N100ANDI>=N0THEN1220
1212?"";:GOTO1210
1220G(E)=I:GOTO1160
1230TRAP1232:?"NEWSALESTAX(0-50)";:INPUTI:IFI>=N0ANDI<N100THEN1240
1232?"";:GOTO1230
1240H(E)=I:GOTO1160
1250TRAP1252:?"NEWWEALTHTAX(0-25)";:INPUTI:IFI>=N0ANDI<N100THEN1260
1252?"";:GOTO1250
1260I(E)=I:GOTO1160
1270TRAP1273:?"JUSTICE:1.VERYFAIR2.MODERATE3.HARSH4.OUTRAGOUS"
1271INPUTI:IFI<N1ORI>N4ORI<>INT(I)THEN1273
1272J(E)=I:GOTO1160
1273?"";:GOTO1270
1290K(E)=K(E)+C+S+II+J:GOSUB530
1300IFK(E)<N0THENK(E)=K(E)*1.5:GOSUB530
1310IFK(E)<(-10000*T(E))THEN2530
1320RETURN
1330POKE752,N0:?:?"HOWMUCHGRAINWILLYOURELEASEFORCONSUMPTION";:TRAP1333:INPUTG:GOTO1350
1333?:GOTO1330
1350IFG<R(E)*0.2THEN?"YOUMUSTRELEASEATLEAST20%OFYOURRESERVES.":GOTO1330
1360IFG>R(E)*0.8THEN?"YOUMUSTKEEPATLEAST20%":GOTO1330
1370R(E)=R(E)-G:POKE752,N1:?"";X$:?
1380Z=G/D0-N1:IFZ>N0THENZ=Z/N2
1390IFZ>0.25THENZ=Z/N10+0.25
1400ZI=50-G(E)-H(E)-I(E):IFZI<N0THENZI=ZI*J(E)
1410ZI=ZI/N10:ZI=INT(ZI):IFZI>N0THENZI=ZI+N3-J(E)
1420ZI=INT(ZI):Z=Z+(ZI/N10):IFZ>0.5THENZ=0.5
1430IFG<(D0-N1)THEN1610
1440A=N7:GOSUB540
1450A=N1+INT(RND(N0)*N3):GOSUB550
1460IF(G(E)+H(E))<35THENM(E)=M(E)+N1+INT(RND(N0)*N4)
1470IFI(E)<N1+INT(RND(N0)*N20)THENN(E)=N(E)+INT(RND(N0)*N2):Q(E)=Q(E)+INT(RND(N0)*N3)
1480IFG<(D0+D0*0.3)THEN1550
1490ZI=S(E)/N1000:ZI=INT(ZI):Z=(G-D0)/D0*N10
1500Z=Z*ZI*(INT(RND(N0)*25+N1))+INT(RND(N0)*40+N1):IFZ>32000THENZ=32000
1510ZI=Z:Z=INT(RND(N0)*ZI+N1)
1520?Z;"SERFSMOVETOTHECITY.":S(E)=S(E)+Z
1530ZI=Z/N5:Z=INT(RND(N0)*ZI+N1):IFZ>50THENZ=50
1540M(E)=M(E)+Z:N(E)=N(E)+N1:Q(E)=Q(E)+N2
1550IFJ(E)<N3THEN1600
1560J=S(E)/N100*(J(E)-N2)*(J(E)-N2)
1570J=INT(RND(N0)*J+N1)
1580?J;"SERFSFLEEHARSHJUSTICE.":S(E)=S(E)-J
1600GOTO1650
1610X=(D0-G)/D0*N100-N9:XI=INT(X):IFX>65THENX=65
1620A=N3:GOSUB540
1630A=XI+N8:GOSUB550
1640GOTO1550
1650IFA(E)>N0THEN?"YOURMARKETEARNED";A(E)*75;"FLORINSRENT":K(E)=K(E)+75*A(E)
1660S=S(E):GOSUB520:S(E)=S
1670Z=D(E)*(55+INT(RND(N0)*250)):IFZ>N0THENK(E)=K(E)+Z:?"YOURWOOLINMILLEARNED";Z;"FLORINS"
1680Z=P(E)*N3:?"YOUPAIDYOURSOLDIERS";Z;"FLORINS":K(E)=K(E)-Z
1690IFL(E)/N1000>P(E)THEN2580
1700IFL(E)/500<PTHEN1740
1710FORA=N1TOF:IFA=ETHEN1730
1720IFP(A)>P(E)*N2THENPOP:GOTO2580
1730NEXTA
1740?"(PRESSRETURN)?"
1741GOSUBN15+N2:RETURN
1750GRAPHICS23:I=PEEK(560)+256*PEEK(561):POKEI+N3,66:POKEI+N6,N2:FORA=N0TON2:POKEI+A+95,PEEK(I+101+A)
1751NEXTA
1760L=INT(L(E)/N1000):IFL<=N10THENX=110:Y=45:GOTO1830
1770IFL<30THENX=110:Y=45-(L*N2-N20):GOTO1830
1780IFL<50THENX=85:Y=45-(L*N2-60):GOTO1830
1790IFL<70THENX=60:Y=45-(L*N2-N100):GOTO1830
1800IFL<90THENX=35:Y=45-(L*N2-140):GOTO1830
1810IFL<110THENX=N1:Y=45-(L*N2-180):GOTO1830
1820X=N1:Y=N5
1830COLORN1:PLOTX,89:DRAWTOX,Y:DRAWTO159,Y
1850IFP(E)-N5<L(E)/N1000THEN1890
1860COLORN2:FORA=X+N1TOX+N8:PLOTA,Y+N1:DRAWTOA,Y+N9:NEXTA:PLOTX,Y-N1:PLOTX+N2,Y-N1
1861PLOTX+N6,Y-N1:PLOTX+N8,Y-N1
1870IFP(E)/N2<L(E)/N1000THEN1890
1880FORA=X+N9TOX+N11:PLOTA,Y+N1:DRAWTOA,Y+N9:NEXTA:PLOTX+N9,Y-N1:DRAWTOX+N11,Y-N1:PLOTX,Y-N2
1881PLOTX+N1,Y-N1:PLOTX+N2,Y-N2
1885PLOTX+N9,Y-N2:PLOTX+N11,Y-N2:COLORN0:PLOTX+N3,Y-N1:DRAWTOX+N8,Y-N1:PLOTX+N3,Y+N7:PLOTX+N3,Y+N6
1886PLOTX+N8,Y+N3:PLOTX+N8,Y+N4:PLOTX+N3,Y:COLORN2:PLOTX,Y:DRAWTOX+N11,Y:COLORN0:PLOTX+N3,Y:DRAWTOX+N8,Y
1890Z=C(E)+N1:IFZ>N7THENZ=N7
1900ONZGOTO1980,1970,1950,1940,1930,1920,1910
1910POSITION130,57:?#6;"AAAACCCCCCCCCCCAAAA";:POSITION130,58:?#6;"AAAACCCCCCCCCCCAAAA";
1920COLORN1:FORA=130TO134:PLOTA,48:DRAWTOA,56:NEXTA:PLOT131,47:PLOT132,47
1921COLORN3:PLOT134,54:DRAWTO134,56
1930COLORN1:FORA=146TO150:PLOTA,48:DRAWTOA,56:NEXTA:PLOT148,47:PLOT149,47
1931COLORN3:PLOT146,54:DRAWTO146,56
1940FORA=N0TON2:COLORA*N2:PLOT139+A,41:DRAWTO139+A,46:NEXTA:COLORN2:PLOT138,43:DRAWTO142,43
1950COLORN3:FORA=47TO49:PLOT138,A:DRAWTO142,A:NEXTA:COLORN0:PLOT138,47:PLOT142,47
1970COLORN3:PLOT137,50:DRAWTO143,50:PLOT136,51:DRAWTO144,51:FORA=52TO56:PLOT135,A:DRAWTO145,A:NEXTA
1971COLORN0:PLOT139,55:PLOT139,56:PLOT141,55:PLOT141,56
1980Z=B(E):IFZ=N0THEN2030
1983IFZ>N5THENZ=N5
1985RESTORE1990:FORA=N1TOZ:READB:NEXTA
1990DATA4,6,8,10,12
1991COLORN2:FORA=65TO70:PLOT112-B,A:DRAWTO112+B,A:NEXTA:COLORN0
1995FORA=113-BTO111+BSTEPN2:PLOTA,67:PLOTA,68:NEXTA:PLOT112,70:DRAWTO112,67:IFZ<N5THEN2030
2000A=102:B=59:GOSUB2025:A=122:GOSUB2025:COLORN2:PLOT109,64:DRAWTO115,64:PLOT110,63:PLOT114,63
2010COLORN1:PLOT111,63:DRAWTO111,61:DRAWTO113,61:DRAWTO113,63:COLORN3:PLOT111,60:DRAWTO113,58
2020PLOT113,60:PLOT111,58:COLORN2:PLOT112,59:GOTO2030
2025COLORN2:PLOTA,B:COLORN3:PLOTA-N1,B+N1:PLOTA-N1,B+N2:PLOTA+N1,B+N1:PLOTA+N1,B+N2:COLORN1
2026FORZ=A-N2TOA+N2STEPN2:PLOTZ,62:DRAWTOZ,64:NEXTZ:PLOTA-N1,63:PLOTA+N1,63:RETURN
2030Z=S(E)-D(E)*N100:IFZ<N1THENZ=N1
2040Z=Z*N5/L(E)*N10+N1:IFZ>N10THENZ=N10
2050Z=(Z/N10)*(87-Y):Z=INT(88-Z)
2060COLORN1:PLOT153,Z:PLOT154,Z+N2:PLOT154,Z+N1:DRAWTO156,Z+N1:PLOT156,Z+N2:COLORN3:PLOT157,Z+N2
2070PLOT158,Z+N1:COLORN2:PLOT159,Z:DRAWTO159,Z+N2
2080Z=A(E)*N2:IFZ=N0THEN2110
2090IFZ>158-X-N2THENZ=158-X-N2
2100COLORN2:FORA=XTOX+ZSTEPN2:PLOTA,75:PLOTA+N1,75:DRAWTOA+N1,78:NEXTA:COLORN1:PLOTX,75
2110Z=D(E):IFZ=N0THEN2150
2120IFZ>158-XTHENZ=158-X
2130COLORN1:FORA=86TO89:PLOT158-Z,A:DRAWTO159,A:NEXTA:COLORN0
2140FORA=159-ZTO158STEPN2:PLOTA,88:PLOTA,87:NEXTA
2150RESTORE2150:FORA=56TO60:READJ$:POSITION39,A:?#6;J$;:NEXTA
2151DATABBBBBBBBB,BBBBBBB,BBBBBBBBB,BBBBBB,BBBBBBBB
2155B$=STR$(Y(N0)):FORA=N1TOLEN(B$):RESTORE2160+VAL(B$(A,A)):FORB=63TO67
2156READJ$:POSITION35+N4*A,B:?#6;J$;:NEXTB:NEXTA:GOTO2170
2160DATAAAA,AA,AA,AA,AAA
2161DATADAD,DAD,DAD,DAD,DAD
2162DATAAAA,DDA,AAA,ADD,AAA
2163DATAAAA,DDA,DAA,DDA,AAA
2164DATAAA,AA,AAA,DDA,DDA
2165DATAAAA,ADD,AAA,DDA,AAA
2166DATAAAD,ADD,AAA,ADA,AAA
2167DATAAAA,DDA,DDA,DDA,DDA
2168DATAAAA,AA,AAA,AA,AAA
2169DATAAAA,AA,AAA,DDA,DDA
2170IFT(E)=N8THENGOSUB6000
2175POKE87,N0:POKE752,N1:POSITIONN0,N0:?#6;X$;
2180POKE87,N0:POSITIONN0,N1:?#6;"(PRESSTOCONTINUE)?";:POKE87,N7:COLORN0:PLOTN0,N2:DRAWTO157,N2
2181CLOSE#N1:OPEN#N1,N4,N0,"K"
2185GOSUBN15+N2:RETURN
2190?:POKE752,N1:?"";X$:?:SETCOLORN2,N2,N12:SETCOLORN1,N0,N4
2200?"STATEPURCHASES:":?:SOUNDN0,N0,N0,N0
2210?"1.MARKETPLACE1000FLORINS2.WOOLENMILL2000FLORINS"
2220?"3.PALACE(PART)3000FLORINS4.CATHEDRAL(PART)5000FLORINS"
2240?"5.EQUIPONEPLATOON500FLORINSOFSERFSASSOLDIERS":POKE764,255
2250CLOSE#N1:OPEN#N1,N4,N0,"K"
2260?:?"YOUHAVE";K(E);"GOLDFLORINS."
2270?"ENTERYOURCHOICE(0=CONTINUE6=COMPARESTANDINGS)?";
2275GET#N1,D
2276IFD<48ORD>54THENGOSUBN15:GOTO2275
2280?"";:I=D-48:IFI=N0THENRETURN
2290IFI=N6THENGOSUB330:GOTO2190
2300SOUNDN0,180-29*I,N10,N7:ONIGOTO2320,2310,2330,2340,2350
2310D(E)=D(E)+N1:K(E)=K(E)-N2*N1000:U(E)=U(E)+0.25:GOTO2190
2320A(E)=A(E)+N1:K(E)=K(E)-N1000:U(E)=U(E)+0.1:M(E)=M(E)+N5:GOTO2190
2330B(E)=B(E)+N1:K(E)=K(E)-N3*N1000:U(E)=U(E)+0.5:N(E)=N(E)+N1+INT(RND(N0)*N2):GOTO2190
2340C(E)=C(E)+N1:K(E)=K(E)-N5*N1000:U(E)=U(E)+N1:Q(E)=Q(E)+N1+INT(RND(N0)*N6):GOTO2190
2350P(E)=P(E)+N20:K(E)=K(E)-N5*N100:S(E)=S(E)-N20:GOTO2190
2360Z=N0:B=2490:A=A(E):GOSUBB:A=B(E):GOSUBB:A=C(E):GOSUBB:A=D(E):GOSUBB
2380A=K(E)/5000:GOSUBB:A=L(E)/6000:GOSUBB:A=N(E)/50:GOSUBB:A=N(E)/N5:GOSUBB
2400A=P(E)/50:GOSUBB:A=Q(E)/N10:GOSUBB:A=S(E)/2000:GOSUBB:A=U(E)/N5:GOSUBB
2420A=Z/U(N0)-J(E):A=INT(A):IFA>N8THENA=N8
2440IFT(E)>=ATHEN2480
2450T(E)=A:RESTOREN1
2460RESTOREN20:D=V(E)+T(E):FORDD=N1TOD:READX$:NEXTDD:X$(LEN(X$)+N1)="":D=(E-N1)*60+N1
2461IFNA$(D,D)="^"THEN2470
2462X$(LEN(X$)+N1)=NA$(D,D):D=D+N1:GOTO2461
2470IFT(E)=N8THEN2510
2480RETURN
2490IFA>N10THENA=N10
2500Z=Z+INT(A):RETURN
2510GRAPHICS23:I=PEEK(560)+256*PEEK(561):POKEI+N3,66:POKEI+6,2:FORA=N0TON2:POKEI+A+95,PEEK(I+101+A):NEXTA
2511POKE752,N1:POKE87,N0:POSITIONN0,N1:?#N6;"GAMEISOVER:WEHAVEA";X$(N10,N14);:POSITIONN0,N0:POKE87,N7
2513GOSUB4000
2520GOSUB1760:POKE752,N1:GOSUB330:GOTO2900
2530?"";X$;"ISBANKRUPT":?:?:POKE752,N1
2540?"CREDITORSHAVESEIZEDMUCHOFYOURASSETS.":?
2550?"(PRESSRETURNTOCONTINUE)?":GOSUBN15+N2
2560A(E)=N0:B(E)=N0:C(E)=N0:D(E)=N0:L(E)=6000:U(E)=N1:K(E)=N100:IFR(E)>100000THENR(E)=100000
2570RETURN
2580Z=-N2:IFF=N1THEN2640
2581FORA=N1TOF:IFA=ETHEN2630
2600IFP(A)<P(E)THEN2630
2610IFP(A)<1.2*(L(A)/N1000)THEN2630
2620IFP(A)>P(E)THENZ=A
2630NEXTA
2640IFZ=-N2THENY$="DUKETOMASTHEIIIOFTHERRIOMACCI":Z=N0:P(Z)=150:L(Z)=12000
2641A=P(Z)*N1000-L(Z)/N3
2650IFA>L(E)-5500THENA=(L(E)-5500)/2
2651A=INT(A):IFZ=N0THEN2660
2653RESTOREN20:D=V(Z)+T(Z):FORDD=N1TOD:READY$:NEXTDD:Y$(LEN(Y$)+N1)="":D=(Z-N1)*60+N1
2654IFNA$(D,D)="^"THEN2660
2655Y$(LEN(Y$)+N1)=NA$(D,D):D=D+N1:GOTO2654
2660?:?Y$:?"INVADESANDSEIZES";A:?"HECTARESOFLAND!"
2670L(E)=L(E)-A:IFZ>N0THENL(Z)=L(Z)+A
2690Z=N1+INT(RND(N0)*40):IFZ>P(E)-N15THENZ=P(E)-N15
2700?X$:?"LOSES";Z;"SOLDIERSINBATTLE!":?:P(E)=P(E)-Z
2710?"(PRESSRETURNTOCONTINUE)?":GOSUBN15+N2:RETURN
2730POKE752,N1:?"":SETCOLORN2,N9,N4
2731?""
2732?"YOUARETHERULEROFA15THCENTURYITALIANCITYSTATE.IFYOURULEWELL,";
2733?"YOUWILLRECIVEHIGHERTITLES.THEFIRSTPLAYERTOBECOMEKINGORQUEEN"
2734?"WINS.LIFEEXPECTANCYTHENWASBRIEF,SOYOUMAYNOTLIVELONGENOUGHTO"
2735?"WIN."
2736?"THECOMPUTERWILLDRAWAMAPOFYOURSTATE:THESIZEOFTHEAREAIN"
2737?"THEWALLGROWSASYOUBUYLAND.THESIZEOFTHEGUARDTOWERINTHEUPPER"
2738?"LEFTCORNERSHOWSTHEADEQUACYOFYOURDEFENCES.IFITSHRINKS,EQUIPMORE"
2739?"SOLDIERS.IFTHEHORSEANDPLOWMANTOUCHTHETOPWALL,ALLYOURLANDIS"
2740?"INPRODUCTION.OTHERWISEYOUNEEDMORESERFS,WHOWILLMIGRATETOYOUR"
2741?"STATEIFYOUDISTRIBUTEMOREGRAINTHANTHEMINIMUMDEMAND."
2742POSITION1,23:?"(PRESSRETURNTOCONTINUE)?";:GOSUBN15+N2
2744POKE752,N1:?""
2745?""
2746?"IFYOUDISTRIBUTELESS,SOMEOFYOURPEOPLEMAYDIEOFHUNGER.HIGHTAXES"
2747?"RAISEMONEY,BUTSLOWDOWNECONOMICGROWTH":?
2748?"PRESSRETURNTOBEGINANDGOODLUCK":GOSUBN15+N2:?"";:RETURN
2890ZZ=N1:GOSUB330:?"GAMEISOVER.HIGHESTTITLEWINS.(IFATIE,OLDESTWINS.)"
2900?"PRESSRETURNTOPLAYAGAIN?";
2910GOSUBN15+N2:CLR:RUN
4000RESTORE4500:FORI=N1TO30:READJ,K
4010SOUNDN0,J,N10,N7:SOUNDN1,J+N2,N10,N4:SOUNDN2,J-N2,N10,N4
4020FORZ=N1TOK/N4:NEXTZ:SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0:SOUNDN2,N0,N0,N0:NEXTI:RETURN
4500DATA141,60,116,60,101,60,80,120,101,60,80,130
4501DATA131,60,106,60,91,60,70,120,91,60,70,130
4502DATA121,60,96,60,81,60,60,120,81,60,60,130
4503DATA121,60,96,60,81,60,121,60,96,60,81,60
4504DATA121,60,96,60,81,60,60,120,81,60,60,130
6000RESTORE7000:FORI=N1TON15:READJ,K,L
6010SOUNDN0,J,N10,N10:SOUNDN1,J+N1,N10,N10:SOUNDN2,J-N1,N10,N10
6020FORJ=N1TOK/N2:NEXTJ
6030SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0:SOUNDN2,N0,N0,N0
6040FORJ=N1TOL:NEXTJ:NEXTI:RETURN
7000DATA121,30,3,96,15,1,96,20,10,81,30,2,81,30,6,60,15,1,60,20,10,47,30,1,47,30,3,60,15,1,60,20,10,81,30,3
7010DATA81,30,3,96,15,1,96,20,3	

• Download link 1

• Download link 1
• Download link 2
• Download link 3