Atari 8-bit Source code

5REM/re-designedforjoystickcontrolbyDONBELL/PETERBOROUGH
6REMMODIFIEDFROMCREATIVECOMPUTINGMAY'83
10DIMKD(9,7),KS(3,7),RA(5,11),BA(5,11),NA(7),RBA(7),TE(1,11)
20DIMEN$(48),MVR$(12),MVB$(12),MV0$(12),M1$(1),KD$(8),NMR$(9),NMB$(9),HLD$(8),PL$(1),J$(8),NUMBER$(24)
25DIMARMY$(24):DIMBLK$(39),NAMER$(25),NAMEB$(25),LOGO$(35),WN$(9),LS$(9)
30BLK$="":EN$="239999259999014999046999235679147999347999456999"
35NUMBER$="FIRSTSECONDTHIRDFOURTH":ARMY$="CAVALRYARCHERSINFANTRY":MV0$="999999999999"
40GRAPHICS1:LOGO$="MEDIEVALCOMBAT":FORL=1TO18:POSITION1,8:?#6;LOGO$(L,L+17):COLOR138
42PLOT0,7:DRAWTO19,7:DRAWTO19,9:DRAWTO0,9:DRAWTO0,8
43SOUND0,L*14,10,14:SOUND1,L*14-1,10,12:SETCOLOR3,INT(RND(0)*16),4:GOSUB685:SETCOLOR3,INT(RND(0)*16),6
44GOSUB685:NEXTL:SOUND0,0,0,0:SOUND1,0,0,0:POKE711,70:E=280:F=290:G=680
50NAMER$="":?"Mylord!Youwillcommandthered":?"armies.Chooseyourroyaltitle!":INPUTNAMER$
55IFNAMER$=""THENNAMER$="REDSIRE"
60NAMEB$="":?:?:?:?"Myliege!Youwillcommandtheblue":?"armies.Chooseyourroyaltitle!":INPUTNAMEB$
65IFNAMEB$=""THENNAMEB$="BLUESIRE"
70REDKEYENTER=0:BLUEKEYENTER=0
75?"Sires!Chooseyourmethodofcommand:"
80?"[START]=BothSiresusejoystick."
85?"[OPTION]=RedSireuseskeyboard."
90?"[SELECT]=BlueSireuseskeyboard.";
100IFPEEK(53279)=6THENGOTO200
110IFPEEK(53279)=3THENREDKEYENTER=1:GOTO200
120IFPEEK(53279)=5THENBLUEKEYENTER=1:GOTO200
130GOTO100
200GOSUB32000:POKE559,34:POKE708,38:POKE82,1
235SETCOLOR2,7,4:POKE731,255
240GOSUB3000:GOSUB3100:GOSUB3150:GOSUB3200:GOSUB3500:GOTO1740
275J$="12403576":RETURN
276J$="70612453":RETURN
277J$="43526071":RETURN
280POKE656,2:POKE657,1:RETURN
290POKE656,3:POKE657,1:RETURN
300ADD=0:SMW=0:SMLR=0:SMLB=0:IFRES>=1.2THEN325
305IFBTHENM=0.85:GOSUB1060:GOSUB820:IFTESR>TESBANDTESB>0THENM=0.9400000000000001:GOSUB1060
310IFRTHENM=0.85:GOSUB1050:GOSUB800:IFTESB>TESRANDTESR>0THENM=0.9400000000000001:GOSUB1050
315IFNTHENNA(J)=0.85*NA(J)
320GOTO565
325IFRES>=1.5THEN360
330IFB=10THENM=0.9:GOSUB1060:IFR=1THENM=0.7000000000000001:GOSUB1050:GOSUB800:GOTO565
335IFB=10THENIFN=1THENRBA(J)=0.7000000000000001*NA(J):NA(J)=0:GOTO565
340IFR=10THENM=0.9:GOSUB1050:IFB=1THENM=0.7000000000000001:GOSUB1060:GOSUB820:GOTO565
345IFR=10THENIFN=1THENRBA(J)=0.7000000000000001*NA(J):NA(J)=0:GOTO565
350IFN=10THENNA(J)=0.9*NA(J):IFB=1THENM=0.7000000000000001:GOSUB1060:GOSUB820:GOTO565
355IFN=10THENIFR=1THENM=0.7000000000000001:GOSUB1050:GOSUB800:GOTO565
360IFR<10THEN390
370V=0:GOSUB1120
375IFB=0THEN445
385GOSUB1130:GOTO445
390IFB<10THEN420
400V=1:GOSUB1120
405IFR=0THEN445
415GOSUB1140:GOTO445
420IFR=0THEN440
430GOSUB1140:GOTO445
440GOSUB1130
445IFRES>=2THEN495
450IFB=10THENM=0.9:GOSUB1060:IFR=1THENADD=(SMLR*0.2)/SMW:V=1:GOSUB1070:M=0.5:GOSUB1050
456IFB=10THENIFR=1THENGOSUB800:GOTO565
460IFB=10THENIFN=1THENADD=(NA(J)*0.3)/SMW:V=1:GOSUB1070:RBA(J)=0.5*NA(J):NA(J)=0:GOTO565
465IFR=10THENM=0.9:GOSUB1050:IFB=1THENADD=(SMLB*0.2)/SMW:V=0:GOSUB1070
471IFR=10THENIFB=1THENM=0.5:GOSUB1060:GOSUB820:GOTO565
475IFR=10THENIFN=1THENADD=(NA(J)*0.3)/SMW:V=0:GOSUB1070:RBA(J)=0.5*NA(J):NA(J)=0:GOTO565
480IFN=10THENNA(J)=0.9*NA(J):IFB=1THENNA(J)=NA(J)+SMLB*0.2
481IFN=10THENIFB=1THENM=0.5:GOSUB1060:GOSUB820:GOTO565
485IFN=10THENIFR=1THENNA(J)=NA(J)+SMLR*0.2:M=0.5:GOSUB1050:GOSUB800:GOTO565
495IFB=10THENM=0.9:GOSUB1060:IFR=1THENADD=(SMLR*0.4)/SMW:V=1:GOSUB1070:M=0.01:GOSUB1050:GOTO565
505IFB=10THENIFN=1THENADD=(NA(J)*0.5)/SMW:V=1:GOSUB1070:NA(J)=0:GOTO565
510IFR=10THENM=0.9:GOSUB1050:IFB=1THENADD=(SMLB*0.4)/SMW:V=0:GOSUB1070:M=0.01:GOSUB1060:GOTO565
520IFR=10THENIFN=1THENADD=(NA(J)*0.5)/SMW:V=0:GOSUB1070:NA(J)=0:GOTO565
525IFN=10THENNA(J)=0.9*NA(J):IFB=1THENNA(J)=NA(J)+SMLB*0.4:M=0.01:GOSUB1060:GOTO565
530IFN=10THENIFR=1THENNA(J)=NA(J)+SMLR*0.4:M=0.01:GOSUB1050
565FORV=0TO1:FORW=0TO11:TE(V,W)=(INT((TE(V,W)+0.05)*10))/10
570X=TE(V,W):IFX<0THEN580
575IFX<=0.1THENTE(V,W)=0
576GOTO585
580TE(V,W)=-1000
585NEXTW:NEXTV:RETURN
620IFW<4THENGOSUBF:L=W*6:?NUMBER$(L+1,L+6);"";ARMY$(1,8);"?";:RETURN
621IFW>3ANDW<8THENGOSUBF:L=(W-4)*6:?NUMBER$(L+1,L+6);"";ARMY$(9,16);"?";:RETURN
622IFW>7ANDW<12THENGOSUBF:L=(W-8)*6:?NUMBER$(L+1,L+6);"";ARMY$(17,24);"?";:RETURN
625IFVAL(M1$)=XTHENGOSUBE:?"Stop!You'realreadythere!";:GOSUB1285:GOSUBG:RETURN
630GOSUBE:?"Can'tmovethere!Pleasetryagain.";:GOSUB1285:GOSUBG:RETURN
650FORV=0TO1:FORW=0TO11:TE(V,W)=-1000:NEXTW:NEXTV
655FORW=0TO11:IFRA(4,W)=JTHENTE(0,W)=RA(1,W)
665IFBA(4,W)=JTHENTE(1,W)=BA(1,W)
667NEXTW:RETURN
680POKE77,0:FORT=1TO600:NEXTT
681GOSUBE:?BLK$;:GOSUBF:?BLK$;:RETURN
685POKE77,0:FORT=0TO40:NEXTT:RETURN
700TESR=0:TESB=0:RES=0:R=0:B=0:N=0
705IFRD<>1THEN730
710FORW=0TO11
711IFTE(0,W)>0THEN713
712NEXTW:GOTO730
713IFBTLTHEN720
714IFW<4THENM=0.4:GOSUB1100:GOTO717
715IFW<8THENM=0.8:GOSUB1100:GOTO717
716M=0.8:GOSUB1100
717NEXTW:GOTO730
720IFW<4THENM=0.9:GOSUB1100:GOTO725
721IFW<8THENM=0.7000000000000001:GOSUB1100:GOTO725
722M=0.5:GOSUB1100
725NEXTW
730IFBL<>1THEN755
735FORW=0TO11
736IFTE(1,W)>0THEN738
737NEXTW:GOTO755
738IFBTLTHEN745
739IFW<4THENM=0.4:GOSUB1110:GOTO742
740IFW<8THENM=0.8:GOSUB1110:GOTO742
741M=0.8:GOSUB1110
742NEXTW:GOTO755
745IFW<4THENM=0.9:GOSUB1110:GOTO750
746IFW<8THENM=0.7000000000000001:GOSUB1110:GOTO750
747M=0.5:GOSUB1110
750NEXTW
755IFRDANDBLTHEN775
760IFRDANDNTTHEN770
762IFBL=0THENRETURN
765RES=TESB/NA(J):IFRES>(1/1.2)ANDRES<1.2THENB=1:BL=0:N=1:RETURN
766IFTESB>NA(J)THENB=10:N=1:NT=0:RETURN
767RES=NA(J)/TESB:B=1:BL=0:N=10:RETURN
770RES=TESR/NA(J):IFRES>(1/1.2)ANDRES<1.2THENR=1:RD=0:N=1:RETURN
771IFTESR>NA(J)THENR=10:N=1:NT=0:RETURN
772RES=NA(J)/TESR:R=1:RD=0:N=10:RETURN
775RES=TESR/TESB:IFRES>(1/1.2)ANDRES<1.2THENR=1:RD=0:B=1:BL=0:RETURN
780IFRES>1THENR=10:B=1:BL=0:RETURN
785RES=TESB/TESR:R=1:RD=0:B=10:RETURN
800C=1:IFKD(0,J)=1THENRETURN
805FORW=0TO11:IFTE(0,W)<0.15THEN815
810GOSUB1190:V=RA(5,W):X1=KS(0,V):X2=KS(1,V):Y1=KS(2,V):Y2=KS(3,V):GOSUB3400:RA(4,W)=RA(5,W):GOSUB3300
815NEXTW:RETURN
820C=2:IFKD(0,J)=2THENRETURN
825FORW=0TO11:IFTE(1,W)<0.15THEN835
830GOSUB1195:V=BA(5,W):X1=KS(0,V):X2=KS(1,V):Y1=KS(2,V):Y2=KS(3,V):GOSUB3400:BA(4,W)=BA(5,W):GOSUB3300
835NEXTW:RETURN
850FORW=0TO11
851IFTE(0,W)>=0THENRA(1,W)=TE(0,W):IFRA(1,W)=0THENGOSUB1190:FORX=2TO3:RA(X,W)=0:RA(X+2,W)=9:NEXTX
855IFTE(1,W)>=0THENBA(1,W)=TE(1,W):IFBA(1,W)=0THENGOSUB1195:FORX=2TO3:BA(X,W)=0:BA(X+2,W)=9:NEXTX
860NEXTW:GOSUB3500:RETURN
870GOSUB3610+J:L=LT:KD$=HLD$:RETURN
880IFN=0THEN900
882IFN=10THENGOSUB3610+J:LW=LT:WN$=HLD$:GOTO900
891GOSUB3610+J:LL=LT:LS$=HLD$
900IFR=10THENWN$=NMR$:LW=LR
901IFR=1THENLS$=NMR$:LL=LR
902IFB=10THENWN$=NMB$:LW=LB
903IFB=1THENLS$=NMB$:LL=LB
904GOSUBF:?"Sires!Thebattleresults!";:GOSUBG
905IFRES<1.2THENGOSUBE:?"Heavylossesonbothsides!";:GOSUBF:?"Bothsidesareretreating!";
906IFRES<1.2THENGOSUBG:GOTO940
910IFRES>=2THEN935
915IFNTHEN925
920GOSUBE:?WN$(1,LW);"hasdefeated";LS$(1,LL);"!";:GOSUBF:?LS$(1,LL);"'sarmiesareretreating!";
921GOTO940
925IFN=10THENGOSUBE:?WN$(1,LW);"haswithstoodthesiege!";
926IFN=10THENGOSUBF:?LS$(1,LL);"'sarmiesareretreating!";:GOTO940
930IFN=1THENGOSUBE:?WN$(1,LW);"hasconquered";LS$(1,LL);"!";
931IFN=1THENGOSUBF:?"Survivorshavejoinedtherebels!";:GOTO940
935GOSUBE:?"Forcesof";LS$(1,LL);"destroyed!";:GOSUBF:?WN$(1,LW);"isvictorious!";
940GOSUBG:RETURN
950FORW=0TO11:IFRA(4,W)=JTHENRA(1,W)=M*RA(1,W):RA(1,W)=(INT((RA(1,W)+0.05)*10))/10
970IFBA(4,W)=JTHENBA(1,W)=M*BA(1,W):BA(1,W)=(INT((BA(1,W)+0.05)*10))/10
980NEXTW:GOSUB3500:RETURN
1000RBA(J)=0.5*RBA(J):GOSUBF:?"Rebelsretreatafterabloodybattle!";:GOSUB1285:GOSUBG:RETURN
1010RBA(J)=0:GOSUBF:?"Rebelsdestroyed!Agloriousvictory!";:GOSUB1285:GOSUBG:RETURN
1020RBA(J)=0.8*RBA(J):GOSUBE:?"Rebelsinflictveryheavylosses";:GOSUBF:?"thenfadeaway!";
1021GOSUB1285:GOSUBG:RETURN
1030RBA(J)=0.9*RBA(J):GOSUBE:?"Rebelsdestroyopposition!";:GOSUBF:?"Amilitarydisaster!";
1031GOSUB1285:GOSUBG:RETURN
1050FORW=0TO11:TE(0,W)=M*TE(0,W):NEXTW:RETURN
1060FORW=0TO11:TE(1,W)=M*TE(1,W):NEXTW:RETURN
1070FORW=0TO11:TE(V,W)=TE(V,W)+ADD:NEXTW:RETURN
1090FORW=0TO11:IFTE(V,W)>0THENTE(V,W)=M*TE(V,W):TE(V,W)=(INT((TE(V,W)+0.05)*10))/10
1091NEXTW:RETURN
1100TESR=TESR+M*TE(0,W):RETURN
1110TESB=TESB+M*TE(1,W):RETURN
1120FORW=0TO11:IFTE(V,W)>0THENSMW=SMW+1
1123NEXTW:RETURN
1130FORW=0TO11:IFTE(1,W)>0THENSMLB=SMLB+TE(1,W)
1131NEXTW:RETURN
1140FORW=0TO11:IFTE(0,W)>0THENSMLR=SMLR+TE(0,W)
1141NEXTW:RETURN
1150X1=KS(0,J):X2=KS(1,J):Y1=KS(2,J):Y2=KS(3,J):RETURN
1160GOSUBE:?"Epidemicofcholerahasbrokenoutin";:GOSUBF:?"kingdomof";KD$(1,L);"!";:GOSUBG
1161M=0.85:GOSUB950:RETURN
1165GOSUBE:?KD$(1,L);"reportsdysenteryepidemic!";:GOSUBF:?"Manydeathsreported!";:GOSUBG
1166M=0.8:GOSUB950:RETURN
1170GOSUBE:?"Mildinfluenzareportedin";KD$(1,L);"!";:GOSUBF:?"Losesareminimal!";:GOSUBG
1171M=0.9:GOSUB950:RETURN
1175GOSUBE:?"Severefloodingin";KD$(1,L);"!";:GOSUBF:?"Heavylossesreported!";:GOSUBG
1176M=0.8:GOSUB950:RETURN
1180GOSUBF:?"Reinforcementsreportedin";KD$(1,L);"!";:GOSUBG:M=1.2:GOSUB950:RETURN
1190COLOR32:PLOTRA(2,W),RA(3,W):RETURN
1195COLOR32:PLOTBA(2,W),BA(3,W):RETURN
1200IFIKB=JTHENGOSUBE:?NAMEB$:GOSUBG
1201IFIKR=JTHENGOSUBE:?NAMER$:GOSUBG
1202GOSUBE:?"Sire!Duetoyourincompetence,";:GOSUBF:?"yourhomekingdomhasbeenlost!";:GOSUBG
1205GOSUBE:?"Yoursubjectsaredefectingto";:GOSUBF:?"jointheopposingforces!";:GOSUBG
1210FORW=0TO11:IFIKB=JTHENIFRA(4,W)=JTHENRA(1,W)=(INT((1.3*RA(1,W)+0.05)*10))/10
1215IFIKR=JTHENIFBA(4,W)=JTHENBA(1,W)=(INT((1.3*BA(1,W)+0.05)*10))/10
1220NEXTW:IFIKB=JTHENIKB=9:NMB$="Bluesire":LB=9
1225IFIKR=JTHENIKR=9:NMR$="RedSire":LR=8
1230RETURN
1250FORX=1TO30:SOUND0,FR,10,10:SOUND1,FR+10,10,10:SOUND2,FR+20,10,10:FORY=0TO2:SOUNDY,0,0,0:NEXTY
1251NEXTX:RETURN
1255FORX=0TO230STEP2:SOUND0,X+10,10,14:SOUND1,240-X,10,14:SOUND2,INT(RND(0)*250),10,8:NEXTX
1256FORX=0TO2:SOUNDX,0,0,0:NEXTX:RETURN
1260FORW=0TO7:IFKD(0,W)=2THENJ=W:PC=2:C=1:GOSUB3350
1261IFKD(0,W)=3THENJ=W:PC=3:C=1:GOSUB3350
1262NEXTW:GOSUB3110
1263FORW=0TO11:IFBA(1,W)=0THENNEXTW:RETURN
1264COLORRA(0,W):PLOTBA(2,W),BA(3,W):NEXTW:RETURN
1265FORW=0TO7:IFKD(0,W)=1THENJ=W:PC=1:C=2:GOSUB3350
1266IFKD(0,W)=3THENJ=W:PC=3:C=2:GOSUB3350
1267NEXTW:GOSUB3110
1268FORW=0TO11:IFRA(1,W)=0THENNEXTW:RETURN
1269COLORBA(0,W):PLOTRA(2,W),RA(3,W):NEXTW:RETURN
1275FORT=0TO100:NEXTT:FORT=0TO1:FORX=1TO20:FORY=1TO15:SETCOLOR4,Y,14:NEXTY:NEXTX:NEXTT
1276SETCOLOR4,0,0:GOSUBE
1277?"Sire!Youhavebeenproclaimed";:GOSUBF:?"RULEROFALLTHELAND!";:GOSUB1285:GOSUBG:RETURN
1280FORX=16TO0STEP-1:FORY=FRTO250STEP10:SOUND0,Y,10,X:NEXTY:NEXTX:RETURN
1285A=INT(RND(0)*100)+100:FORT=0TO60:SOUND0,A,10,14:SOUND1,A+1,10,14:NEXTT:SOUND0,0,0,0
1286SOUND1,0,0,0:RETURN
1290FORW=0TO11:IFRA(2,W)>0THENGOSUB1190
1291IFBA(2,W)>0THENGOSUB1195
1292NEXTW:RETURN
1740GOSUBE:?"Sires!Iamreadytoaccept";:GOSUBF:?"yourbattlecommands!";:GOSUBG
1770MVR$=MV0$:MVB$=MV0$:GOSUBF:?NAMER$;",COMMANDME!";:GOSUB1285:GOSUBG
1771IFREDKEYENTER=1THENOPEN#3,4,0,"K"
1780FORW=0TO11:IFRA(1,W)=0THENNEXTW:IFREDKEYENTER=1THENCLOSE#3
1781IFRA(1,W)=0THENGOTO1850
1785GOSUB620:POKE764,255
1790COLORRA(0,W):PLOTRA(2,W),RA(3,W):GOSUB685
1791IFREDKEYENTER=1THENIFPEEK(764)<>255THENGET#3,Z:GOSUB5000:GOSUB4200:GOTO1820
1792IFREDKEYENTER<>1THENIFSTICK(0)<>15ORSTRIG(0)<>1THENGOSUB4000:GOTO1820
1800GOSUB1190:GOSUB685:GOTO1790
1820X=RA(4,W):FORY=0TO5:L=1+X*6+Y:IFVAL(EN$(L,L))=VAL(M1$)THENPOP:GOTO1840
1830NEXTY:GOSUB625:W=W-1:NEXTW:IFREDKEYENTER=1THENCLOSE#3
1835GOTO1850
1840MVR$(W+1,W+1)=M1$:NEXTW
1845IFREDKEYENTER=1THENCLOSE#3
1850GOSUB681:GOSUBF:?NAMEB$;",COMMANDME!";:GOSUB1285:GOSUBG
1851IFBLUEKEYENTER=1THENOPEN#3,4,0,"K"
1860FORW=0TO11:IFBA(1,W)=0THENNEXTW:GOTO1925
1865GOSUB620:POKE764,255
1870COLORBA(0,W):PLOTBA(2,W),BA(3,W):GOSUB685
1871IFBLUEKEYENTER=1THENIFPEEK(764)<>255THENGET#3,Z:GOSUB5000:GOSUB4200:GOTO1900
1872IFBLUEKEYENTER<>1THENIFSTICK(0)<>15ORSTRIG(0)<>1THENGOSUB4000:GOTO1900
1880GOSUB1195:GOSUB685:GOTO1870
1900X=BA(4,W):FORY=0TO5:L=1+X*6+Y:IFVAL(EN$(L,L))=VAL(M1$)THENPOP:GOTO1920
1910NEXTY:GOSUB625:W=W-1:NEXTW:GOTO1925
1920MVB$(W+1,W+1)=M1$:NEXTW
1925SOUND0,0,0,0:POKE53768,24:FORT=0TO6STEP2:POKE53761+T,168:NEXTT:POKE53760,240:POKE53764,252
1926POKE53762,28:POKE53766,49
1930GOSUB681:IFBLUEKEYENTER=1THENCLOSE#3
1935GOSUBF:?"Peasantsreporttroopmovements!";:GOSUBG
1940FORW=0TO11:J=VAL(MVR$(W+1,W+1))
1945IFJ<8THENGOSUB1190:GOSUB1150:C=1:GOSUB3400:RA(5,W)=RA(4,W):RA(4,W)=J:GOSUB3300
1950NEXTW
1960FORW=0TO11:J=VAL(MVB$(W+1,W+1))
1965IFJ<8THENGOSUB1195:GOSUB1150:C=2:GOSUB3400:BA(5,W)=BA(4,W):BA(4,W)=J:GOSUB3300
1970NEXTW:FORT=0TO3:SOUNDT,0,0,0:NEXTT
1990Y=INT(RND(0)*3):GOSUB275+Y
2000FORZ=1TO8:J=VAL(J$(Z,Z)):BL=0:RD=0:NT=0:BTL=0
2010FORW=0TO11:IFRA(4,W)=JTHENRD=1:POP:GOTO2030
2020NEXTW
2030FORW=0TO11:IFBA(4,W)=JTHENBL=1:POP:GOTO2050
2040NEXTW
2050IFRDANDBLTHENBTL=1:GOTO2090
2060IFRD=0ANDBL=0THEN2200
2070IFKD(0,J)<>3THEN2230
2080NT=1:BTL=0
2090GOSUB650:GOSUB870:GOSUBF:?"Battleunderwayin";KD$(1,L);"!";:FR=75:GOSUB1280:GOSUBG
2100GOSUB700:GOSUB880:GOSUB300:GOSUB850
2120IFBTL=0THEN2300
2130IFKD(0,J)<>3THEN2300
2135IFRD=0ANDBL=0THENNEXTZ:GOTO2370
2140NT=1:BTL=1:GOSUB650:GOSUBF:?KD$(1,L);"'sforcesattackthevictors!";:FR=150:GOSUB1280:GOSUBG
2150GOSUB700:GOSUB880:GOSUB300:GOSUB850
2160IFN=10THENNEXTZ:GOTO2370
2170IFR=10THENC=1:PC=3:GOSUB3350:GOSUB3110:NEXTZ:GOTO2370
2180IFB=10THENC=2:PC=3:GOSUB3350:GOSUB3110:NEXTZ:GOTO2370
2200IFKD(0,J)=3THENNEXTZ:GOTO2370
2210GOSUB870:GOSUBE:?"Rebelforcestakeover";KD$(1,L);"'s";:GOSUBF:?"undefendedcastle!";
2211FR=10:GOSUB1250:GOSUBG:IFIKB=JORIKR=JTHENGOSUB1200
2220NA(J)=RBA(J)+1:RBA(J)=0:C=3:PC=KD(0,J):GOSUB3350:GOSUB3110:NEXTZ:GOTO2370
2230GOSUB870:IFBL=1THEN2270
2240IFKD(0,J)=1THENNEXTZ:GOTO2370
2250GOSUBE:?NMR$(1,LR);"takesover";:GOSUBF:?"undefended";KD$;"!";:FR=150:GOSUB1250:GOSUBG
2255IFIKB=JTHENGOSUB1200:GOSUB3500
2260C=1:PC=KD(0,J):GOSUB3350:GOSUB3110:NEXTZ:GOTO2370
2270IFKD(0,J)=2THENNEXTZ:GOTO2370
2280GOSUBE:?NMB$(1,LB);"takesover";:GOSUBF:?"undefended";KD$;"!";:FR=150:GOSUB1250:GOSUBG
2285IFIKR=JTHENGOSUB1200:GOSUB3500
2290C=2:PC=KD(0,J):GOSUB3350:GOSUB3110:NEXTZ:GOTO2370
2300IFR=10THENIFKD(0,J)<>1THENC=1:PC=KD(0,J):GOSUB3350:GOSUB3110:IFIKB=JTHENGOSUB1200:GOSUB3500
2310IFB=10THENIFKD(0,J)<>2THENC=2:PC=KD(0,J):GOSUB3350:GOSUB3110:IFIKR=JTHENGOSUB1200:GOSUB3500
2320IFN=10THENIFKD(0,J)<>3THENC=3:PC=KD(0,J):GOSUB3350:GOSUB3110
2330NEXTZ
2370J=INT(RND(0)*8):IFKD(0,J)=3ORRBA(J)=0ORIKB=JORIKR=JTHEN2810
2390GOSUB870:GOSUBE:?"Peasantsreportrebelsmassing";:GOSUBF:?"in";KD$;"!";:FR=10:GOSUB1250:GOSUBG
2400GOSUBE:?"Mylord!Rebelshavebegunahitand";:GOSUBF:?"runattackin";KD$;"!";:GOSUBG
2410GOSUB650:TES=0.05:V=0:IFKD(0,J)=2THENV=1
2420FORW=0TO11:IFTE(V,W)>0THENTES=TES+TE(V,W)
2430NEXTW
2440IFRBA(J)>TESTHEN2520
2450RES=TES/RBA(J):IFRES>=1.4000000000000001THEN2500
2460M=0.85:GOSUB1090:GOSUB1000:GOTO2800
2500M=0.9500000000000001:GOSUB1090:GOSUB1010:GOTO2800
2520RES=RBA(J)/TES:IFRES>=1.4000000000000001THEN2560
2530M=0.6:GOSUB1090:GOSUB1020:GOTO2800
2560M=0.01:GOSUB1090:GOSUB1030:NA(J)=RBA(J):RBA(J)=0:PC=1+V:C=3:GOSUB3350:GOSUB3110
2800GOSUB850
2810Z=INT(RND(0)*8)+1:IFZ>5THEN2870
2815J=INT(RND(0)*8):GOSUB870:FR=10:GOSUB1250
2820ONZGOSUB1160,1165,1170,1175,1180
2870CKR=0:CKB=0:TSR=0:TSB=0
2875FORW=0TO7:IFKD(0,W)=1THENCKR=CKR+1:GOTO2890
2885IFKD(0,W)=2THENCKB=CKB+1
2890NEXTW:IFCKR=4ANDCKB=4THENGOSUBF:?"ASTALEMATE?";:GOSUB1285:GOSUBG:GOTO2925
2895IFCKR<4THEN2911
2900GOSUBE:?"Theforcesof";NMR$(1,LR);"havetriumphed!";:GOSUBF:?"Opposingforcesarenowcollapsing!";
2905GOSUB1255:GOSUB1260:GOSUBG:GOSUB1275:GOTO2950
2911IFCKB<4THEN2925
2912GOSUBE:?"Completevictoryfor";NMB$(1,LB);"!";:GOSUBF:?"Opponentspledgefealtytoyou!";
2915GOSUB1255:GOSUB1265:GOSUBG:GOSUB1275:GOTO2950
2925FORW=0TO11:TSR=TSR+RA(1,W):TSB=TSB+BA(1,W):NEXTW:IFTSR>2ANDTSB>2THEN1740
2930IFTSR>2ANDTSB<=2THENGOSUBE:?NMB$(1,LB);"'sforceshavebeendestroyed!";:GOSUBF
2931IFTSR>2ANDTSB<=2THEN?NMR$(1,LR);"triumphs!";:GOSUB1255:GOSUB1260:GOSUBG:GOSUB1275:GOTO2950
2935IFTSB>2ANDTSR<=2THENGOSUBE:?NMR$(1,LR);"'sarmieshavebeenanihilated!";:GOSUBF
2936IFTSB>2ANDTSR<=2THEN?NMB$(1,LB);"isvictorious!";:GOSUB1255:GOSUB1265:GOSUBG:GOSUB1275:GOTO2950
2940IFTSR<=2ANDTSB<=2THENGOSUBE:?"Botharmiesdecimated!";:GOSUBF
2941IFTSR<=2ANDTSB<=2THEN?"Warnolongerpossible!Peaceatlast!";:GOSUB1255:GOSUBG
2950GOSUBG:?:?:?:?"Sires!Doyouwishtowaragain";:INPUTPL$:POKE752,1
2960IFPL$="N"THEN?:?:?:?"Peacesettlesuponthekingdoms!":GOSUB1285:GOSUB1290:GOSUB3100:GOSUBG
2965IFPL$="N"THEN2965
2970IFPL$="Y"THEN?:?:?:GOSUBE:?"Mylords,tensionismounting";:GOSUBF:?"betweenyourkingdoms!";
2975IFPL$="Y"THENGOSUB1285:GOSUB1290:GOSUBG:GOTO240
2980GOTO2950
3000RESTORE9000:FORV=0TO14:READW,X,Y,Z:COLOR43:PLOTW,X:DRAWTOY,Z:NEXTV
3010RESTORE9020:FORV=0TO9:READW,X,Y,Z:COLOR10:PLOTW,X:DRAWTOY,Z:NEXTV:RETURN
3100RESTORE9040:FORW=0TO7:FORV=0TO9:READZ:KD(V,W)=Z:NEXTV:NEXTW
3110FORW=0TO7:COLORKD(1,W):PLOTKD(2,W),KD(3,W):IFKD(4,W)=0THEN3115
3111COLORKD(4,W):PLOTKD(5,W),KD(6,W):IFKD(7,W)=0THEN3115
3112COLORKD(7,W):PLOTKD(8,W),KD(9,W)
3115NEXTW:RETURN
3150FORX=0TO18STEP2:COLOR154:PLOTX,0:COLOR186:PLOTX,19:NEXTX
3152FORX=1TO19STEP2:COLOR186:PLOTX,0:COLOR154:PLOTX,19:NEXTX
3154FORY=2TO18STEP2:COLOR154:PLOT0,Y:COLOR186:PLOT19,Y:NEXTY
3156FORY=1TO17STEP2:COLOR186:PLOT0,Y:COLOR154:PLOT19,Y:NEXTY
3160RESTORE9150:FORY=2TO0STEP-1:READZ:COLORZ:PLOT0,Y:NEXTY:FORX=1TO4:READZ:COLORZ:PLOTX,0:NEXTX
3161FORX=7TO13:READZ:COLORZ:PLOTX,0:NEXTX:FORX=16TO19:READZ:COLORZ:PLOTX,0:NEXTX
3162FORY=1TO4:READZ:COLORZ:PLOT19,Y:NEXTY
3163RESTORE9155:FORY=8TO14:READZ:COLORZ:PLOT19,Y:NEXTY:FORX=15TO19:READZ:COLORZ:PLOTX,19:NEXTX
3164FORY=18TO16STEP-1:READZ:COLORZ:PLOT19,Y:NEXTY:FORX=7TO12:READZ:COLORZ:PLOTX,19:NEXTX
3165RESTORE9160:FORY=16TO19:READZ:COLORZ:PLOT0,Y:NEXTY:FORX=1TO4:READZ:COLORZ:PLOTX,19:NEXTX
3166FORY=8TO13:READZ:COLORZ:PLOT0,Y:NEXTY:RETURN
3200RESTORE9200:FORW=0TO7:FORV=0TO3:READZ:KS(V,W)=Z:NEXTV:NEXTW
3210FORV=0TO7:NA(V)=2+INT(RND(0)*5):RBA(V)=0:NEXTV
3220RESTORE9210:FORW=0TO11:READZ:RA(0,W)=Z:NEXTW
3230RESTORE9220:FORW=0TO11:READZ:BA(0,W)=Z:NEXTW
3240FORW=0TO11:RA(1,W)=2:BA(1,W)=2:NEXTW
3250J=INT(RND(0)*3)+1:RBA(J)=NA(J):NA(J)=0:PC=3:C=1:GOSUB3350:X1=KS(0,J):X2=KS(1,J):Y1=KS(2,J)
3251Y2=KS(3,J):IKR=J:FORW=0TO11:RA(4,W)=J:RA(5,W)=J:NEXTW:GOSUB3600:GOSUB3110
3252FORW=0TO11:GOSUB3400:GOSUB3300:NEXTW:T=J
3255J=5+INT(RND(0)*3):IFT+3=JTHEN3255
3260RBA(J)=NA(J):NA(J)=0:PC=3:C=2:GOSUB3350:X1=KS(0,J):X2=KS(1,J):Y1=KS(2,J)
3261Y2=KS(3,J):IKB=J:FORW=0TO11:BA(4,W)=J:BA(5,W)=J:NEXTW:GOSUB3600:GOSUB3110
3262FORW=0TO11:GOSUB3400:GOSUB3300:NEXTW:RETURN
3300IFC=1THENIFRA(1,W)=0THEN3320
3301IFC=1THENCOLORRA(0,W):PLOTRA(2,W),RA(3,W):GOTO3320
3310IFC=2THENIFBA(1,W)=0THEN3320
3311IFC=2THENCOLORBA(0,W):PLOTBA(2,W),BA(3,W)
3320RETURN
3350ONCGOSUB3370,3380,3390
3360KD(0,J)=C:RETURN
3370IFPC=3THENKD(1,J)=KD(1,J)+96:IFKD(4,J)THENKD(4,J)=KD(4,J)+96:IFKD(7,J)THENKD(7,J)=KD(7,J)+96
3372IFPC=3THENRETURN
3374IFPC=2THENKD(1,J)=KD(1,J)-32:IFKD(4,J)THENKD(4,J)=KD(4,J)-32:IFKD(7,J)THENKD(7,J)=KD(7,J)-32
3376IFPC=2THENRETURN
3378IFPC=1THENRETURN
3380IFPC=3THENKD(1,J)=KD(1,J)+128:IFKD(4,J)THENKD(4,J)=KD(4,J)+128:IFKD(7,J)THENKD(7,J)=KD(7,J)+128
3382IFPC=3THENRETURN
3384IFPC=1THENKD(1,J)=KD(1,J)+32:IFKD(4,J)THENKD(4,J)=KD(4,J)+32:IFKD(7,J)THENKD(7,J)=KD(7,J)+32
3386IFPC=1THENRETURN
3388IFPC=2THENRETURN
3390IFPC=1THENKD(1,J)=KD(1,J)-96:IFKD(4,J)THENKD(4,J)=KD(4,J)-96:IFKD(7,J)THENKD(7,J)=KD(7,J)-96
3392IFPC=1THENRETURN
3394IFPC=2THENKD(1,J)=KD(1,J)-128:IFKD(4,J)<>0THENKD(4,J)=KD(4,J)-128:IFKD(7,J)THENKD(7,J)=KD(7,J)-128
3396IFPC=2THENRETURN
3398IFPC=3THENRETURN
3400FORX=X1TOX2:FORY=Y1TOY2:LOCATEX,Y,V:IFV<>32THEN3440
3410IFC=1THENRA(2,W)=X:RA(3,W)=Y:POP:POP:GOTO3490
3420IFC=2THENBA(2,W)=X:BA(3,W)=Y:POP:POP:GOTO3490
3440NEXTY:NEXTX
3490RETURN
3500POKE752,0:POKE656,0:POKE657,1:?"";:RCA=0:FORX=0TO3:GOSUB3540:RCA=RCA+S:NEXTX
3510?"";:RAR=0:FORX=4TO7:GOSUB3540:RAR=RAR+S:NEXTX
3515?"";:RIN=0:FORX=8TO11:GOSUB3540:RIN=RIN+S:NEXTX
3520POKE656,1:POKE657,1:?"";:BCA=0:FORX=0TO3:GOSUB3570:BCA=BCA+S:NEXTX
3530?"";:BAR=0:FORX=4TO7:GOSUB3570:BAR=BAR+S:NEXTX
3535?"";:BIN=0:FORX=8TO11:GOSUB3570:BIN=BIN+S:NEXTX:POKE752,1:?"";:GOSUB6000:RETURN
3540S=10*RA(1,X):IFS<10THEN3560
3550?S;"";:RETURN
3560?"";S;"";:RETURN
3570S=10*BA(1,X):IFS<10THEN3590
3580?S;"";:RETURN
3590?"";S;"";:RETURN
3600GOSUB3610+J:IFC=1THENNMR$=HLD$:LR=LT:RETURN
3605IFC=2THENNMB$=HLD$:LB=LT:RETURN
3610HLD$="CAMELOT":LT=7:RETURN
3611HLD$="BURGANDY":LT=8:RETURN
3612HLD$="GALESIA":LT=7:RETURN
3613HLD$="SAXONY":LT=6:RETURN
3614HLD$="ARAGON":LT=6:RETURN
3615HLD$="PICARDY":LT=7:RETURN
3616HLD$="NORMANDY":LT=8:RETURN
3617HLD$="VALHALLA":LT=8:RETURN
4000REM
4010IFSTICK(0)=10THENM1$="0":GOSUB4200:RETURN
4020IFSTICK(0)=6THENM1$="1":GOSUB4200:RETURN
4030IFSTICK(0)=14THENM1$="2":GOSUB4200:RETURN
4040IFSTICK(0)=11THENM1$="3":GOSUB4200:RETURN
4050IFSTICK(0)=13THENM1$="4":GOSUB4200:RETURN
4060IFSTICK(0)=7THENM1$="5":GOSUB4200:RETURN
4070IFSTICK(0)=9THENM1$="6":GOSUB4200:RETURN
4080IFSTICK(0)=5THENM1$="7":GOSUB4200:RETURN
4090IFSTRIG(0)=0THENM1$="9":GOSUB4200:RETURN
4100GOTO4010
4200SOUND0,230,10,14:SOUND1,217,10,12:FORDLAY=1TO50:NEXTDLAY:SOUND0,0,0,0:SOUND1,0,0,0:RETURN
5000REM
5010IFZ=67THENM1$="0":RETURN
5020IFZ=66THENM1$="1":RETURN
5030IFZ=71THENM1$="2":RETURN
5040IFZ=83THENM1$="3":RETURN
5050IFZ=65THENM1$="4":RETURN
5060IFZ=80THENM1$="5":RETURN
5070IFZ=78THENM1$="6":RETURN
5080IFZ=86THENM1$="7":RETURN
5090M1$="9":RETURN
6000REM
6050GOSUBE:?"RedSire'sfightingstrength";INT((RCA*0.9)+(RAR*0.7000000000000001)+(RIN*0.5))*1;"";
6060GOSUBF:?"BlueSire'sfightingstrength";INT((BCA*0.9)+(BAR*0.7000000000000001)+(BIN*0.5))*1;"";
6070GOSUBG:GOSUBG:GOSUBE:?"";:GOSUBF:?"";:RETURN
9000DATA7,2,7,9,8,4,8,7,9,5,9,7,7,10,7,11,13,7,17,7,12,9,12,10,13,8,13,10,14,10,14,11
9010DATA14,12,15,12,3,12,4,12,1,13,4,13,1,14,5,14,1,15,2,15,8,15,8,17,9,15,9,17
9020DATA13,3,13,4,6,2,6,7,13,5,14,5,15,4,15,6,5,5,5,7,1,7,3,7,14,14,15,14,15,15,18,15,8,14,12,14,10,15,10,17
9040DATA3,39,2,3,35,3,3,0,0,0
9050DATA3,35,17,2,0,0,0,0,0,0
9060DATA3,33,12,6,40,13,6,34,14,6
9070DATA3,36,2,10,38,3,10,36,4,10
9080DATA3,34,9,11,37,10,11,34,11,11
9090DATA3,33,17,10,0,0,0,0,0,0
9100DATA3,36,2,17,0,0,0,0,0,0
9110DATA3,37,14,17,40,15,17,37,16,17
9150DATA227,193,237,197,236,207,244,199,225,204,229,211,233,193,226,213,242,199,225,206,228,217
9155DATA208,233,195,225,210,228,217,246,193,236,200,225,204,236,193,225,210,225,199,239,206
9160DATA238,207,242,205,225,206,228,217,243,193,248,207,238,217
9200DATA1,5,1,6,14,18,1,6,8,12,1,6,1,6,8,12
9201DATA8,13,8,13,15,18,8,14,1,7,15,18,11,18,15,18
9210DATA156,157,158,159,140,141,142,143,252,253,254,255
9220DATA188,189,190,191,172,173,174,175,220,221,222,223
32000GRAPHICS1:POKE559,0:START=(PEEK(106)-6)*256:POKE756,START/256:POKE752,1
32010SHI=INT(START/256):SLO=START-SHI*256:POKE203,SLO:POKE204,SHI
32020DIMCHAR$(28):CHAR$="h`":Z=USR(ADR(CHAR$)):RESTORE32100
32030READX:IFX=-1THEN32050
32040FORY=0TO7:READZ:POKEX+Y+START,Z:NEXTY:GOTO32030
32050DLST=PEEK(560)+256*PEEK(561):POKEDLST+24,134:RESTORE32125:FORX=0TO15:READY
32060POKE1536+X,Y:NEXTX:POKE512,0:POKE513,6:POKE54286,192:RETURN
32100DATA8,165,231,231,231,255,219,255,231
32101DATA16,66,231,165,231,165,231,255,255
32102DATA24,161,162,228,232,240,227,227,227
32103DATA32,5,69,231,231,167,255,255,231
32104DATA40,24,60,126,66,126,219,255,255
32105DATA48,0,0,0,36,36,36,255,255
32106DATA56,153,153,153,153,153,255,153,255
32107DATA64,0,0,0,0,165,255,219,255
32108DATA80,0,16,56,124,254,16,16,16
32109DATA88,4,14,63,115,0,48,120,252
32110DATA96,128,44,68,254,76,44,20,22
32111DATA104,1,44,68,254,76,44,20,22
32112DATA112,0,44,68,254,76,44,20,150
32113DATA120,0,44,68,254,76,45,20,22
32114DATA208,255,255,255,255,255,255,255,255
32115DATA224,128,152,8,40,106,28,20,20
32116DATA232,1,25,8,40,106,28,20,20
32117DATA240,0,24,8,40,106,28,148,148
32118DATA248,0,24,8,40,106,28,21,21
32119DATA480,0,50,36,120,112,116,80,80
32120DATA488,0,50,36,120,112,113,80,80
32121DATA496,0,50,36,120,112,112,80,84
32122DATA504,0,50,36,120,112,112,80,81
32123DATA-1
32125DATA72,169,5,133,204,198,204,208,252,169,224,141,9,212,104,64	

• Download link 1

• Download link 1
• Download link 2