arthur/6  'Nh)ÿéq(4)Hñah=0:ñai=0:ñaa=0:ñvh=0:ñvi=0:ñva=0
ì90Z!õ¬6,11;"KING ARTHUR"õ¬8,13;"Part VI""õ¬10
,11;"***********"$õ¬12,10
;"THE AFTERMATH"ò300,ì1000èZ'ña$="                                "dûiÙ0:Û1nõ¬9	,0;a$x$õ"         STOP THE TAPE          "‚õa$‡	Û0Œò300,‘û–
ì20ôú¦É""Ëì500ôõú¦=""Ëì501õ÷þèûíõ"Take out the GAMES TAPE."òõ"Replace the DATA TAPE."üõ:õ"Now load data 5,6 and 7."õ:õ"Press any key when ready."í500ôLï"ar/d5"äq()Vï"ar/d6"äp()`ï"ar/d7"äw()Ðëi=1Ì13Úëj=1Ì30äúp(i,j)=0Ëì2060î!úp(i,j)=114rËñah=ah+1ø!úp(i,j)=105iËñai=ai+1 úp(i,j)=97aËñaa=aa+1úw(i,j)=0Ëì21004!úw(i,j)=114rËñvh=vh+1 !úw(i,j)=105iËñvi=vi+1* úw(i,j)=97aËñva=va+14ój>ói	Zñah=ah*6:ñai=ai*6:ñaa=aa*6:ñvh=vh*6:ñvi=vi*6:ñva=va*6¸û½,õ¬0,0;"FORCES AFTER THE BATTLE"Â%õ¬2,15;"YOU      ENNEMY"Ìõ¬4,2;"RIDERS"Öõ¬6,2;"INFANTRY"àõ¬8,2;"ARCHERS"ê,õ¬4,16;ah:õ¬4,27;vhô,õ¬6,16;ai:õ¬6,27;viþ,õ¬8,16;aa:õ¬8,27;vaõ:õ )úah/2>vhÆai/2>viËì5000ˆ)úvh/2>ahÆvi/2>aiËì6000phúah>vhÆai>viËì7000XÌúah>vhËì8000@0õ"You lost...":%õ:õ"You will have to start all over"Dõ"again.":ò500ô:âˆ"õ"The enemy runs... It's a rout!"’&õ:õ"You are the undisputed master of"œõ"the battle field!"¦%õ:õ"Large numbers of volunteers are"°õ"flocking to your banner."µ@ñq(1)=90Z:ñq(2)=120x:ñq(3)=30ºì9000(#põ"Your army is running!"z&õ:õ"You have no choice but to die on"„"õ"the battle field in a blaze of"Ž"õ"glory and be remembered during"˜Bõ"the coming ages for your courage":õ"and valour...":ò500ô:âX"õ"You did win the battle but you"bõ"sufered heavy losses!"d&õ:õ"You are now faced with the agon-"fçõ"ising decision : do you return":õ"home or do you put your faith in":õ"God and your just cause, and":õ"risk the lives of your depleted":õ"army against an enemy you have":õ"no way of knowing the strength":õ"of when next you meet?"¼9ëi=1Ì3:ñq(i)=º(q(i)*.6€™™™):ói:ì9000(# ì9000(#@õ"You neither won nor lost..."BFõ"The battle has been raging for":õ"many hours and lost its impetus."D[õ:õ"Men are withdrawing from the":õ"field on both sides,wounded.":õ"exhausted and hungry."F#õ"The men have no spirit left ..."HTõ"You were strong enough not to be":õ"beaten but not strong enough to":õ"overcome!"J-ñq(1)=ah:ñq(2)=ai:ñq(3)=aa#(ò1000è#-û#/ñq(4)=0#2õ"Take out the GAMES TAPE."#<õ:õ"Insert the DATA TAPE."#F!õ:õ"Now record the BATTLE DATA."#Põ:õ"Press ENTER when ready."#Zø"ba/d1"äq()#dû#nõ"Insert the Games tape."#xò300,#}Ù0:Û1#‚õ¬9	,0;a$#Œ$õ"         START THE TAPE         "#–õa$# 	Û0#ªò300,#´ï"arthur/7"¡è¡é¡á¶è¶é¶á£raiaiiiriirrrarairiririi—£iaariiaiirarirrarié¼êÚ‘A                                 iarthur/7  ®Jô°ÿå:ý:û:Û0:ç6és(4)éa(3)éq(4)ñtm=0	#ñnb=0:ñza=0:ñx=02û3Ù0:Û145õ¬9	,0;"                                "5$õ"          STOP THE TAPE         "6$õ"                                "7	Û08ò400dûf"õ¬6,11;"KING  ARTHUR"gõ¬8,13;"Part VII"h"õ¬10
,11;"***********"i%õ¬12,9	;"CAMPAIGN  MARCH"ò300,–í6852Äôì7000X 8õ¬21,1;"PRESS ENTER TO CONTINUE     ":îZ$:þéû:õ"YOUR ARMY"õõ"MEN"õ"---" õ"RIDERS           ";a(1)$ õ"INFANTRY         ";a(2)) õ"ARCHERS          ";a(3)*í800 :þ,%û:õ"Further data must  be recorded.".#õ:õ"Remove the GAMES TAPE. DO NOT"/õ"REWIND."1 õ:õ"Insert DATA TAPE to record"6õ"data/2 and data/3."@$õ:õ"Please note that there are two"J õ"sets of data to be recorded."^&õ:õ"After recording the data you can"hõ"start the next part."mõnõ"Now save data/2."ø"ba/d2"äa()’õ•õ"Now save data/3"šAñs(1)=tm:ñs(2)=nb:ñs(3)=gg:ñs(4)=0¤ø"ba/d3"äs()®û¸õ"Insert GAMES TAPE."ºëI=1Ì10
:õ:óI½wÛ1:õ"                                ":õ"       START THE TAPE NOW       ":õ"                                "¾	Û0Âí800 Ãï"arthur/8"Ä$û:õ"Remove the GAMES TAPE - DO NOT"Åõ"REWIND !"Æ"õ:õ"Insert DATA TAPE and REWIND."ÍËõ:õ"When data/1 is read stop the":õ"tape  -  do not rewind.":õ"You will need it later to record":õ"more data.":õ:õ"You will know when it has read":õ"the data because a map will":õ"appear on the screen."Îõ:õ"START THE TAPE."Ïí800 Ðï"ba/d1"äq()Ññq(4)=q(4)+1ÒþWâXû:ì7200 bLÙak:ñx=º(¥*224à)+10
:ñy=º(¥*114r)+10
:ñll=º(¥*38&)cúll<10
Ëñll=10
dëi=1Ìllg,öx+º(¥*10
),y+i:üº(¥*10
),0ióilþ¼ñk=º(¥*8)+2½ëj=1Ìk¾í7010b¿ójÀþ #ëi=1Ì75K:í7400è:ói%ñak=1:í7100¼*ñak=4:í7100¼4>ñn1=30:ñn2=502:ñn3=1:ñn4=1:í7300„>&ñn1=20:ñn2=90Z:í7300„HBñn1=170ª:ñn2=140Œ:ñn3=-1:ñn4=-1:í7300„R@ñn1=250ú:ñn2=10
:ñn3=-1:ñn4=1:í7300„ƒì7600°„ñx=º(¥*n1):ñy=º(¥*n2)…ñp3=0:ñp4=0†ñp3=x:ñp4=yˆ	Ù1‰öx,yŽëi=1Ì502“*ñp1=º(¥*10
)*n3:ñp2=º(¥*10
)*n4•ñp3=p3+p1:ñp4=p4+p2–3úp3>250úÅp4>170ªËñi=502:ì7330¢—/úp3<0Åp4<0Ëñi=502:ì7330¢˜üp1,p2Aúi=15Ëöp3+5,p4+5:ñp3=p3+5:ñp4=p4+5¢ói¬þè	Ù2ü$ñx=º(¥*220Ü):ñy=º(¥*160 )(öx,y:ü7,5:ü9	,-5.þ¯â°ñbr=1:ñbc=1]Ù2:ö253ý,173­:ö254þ,173­:ö254þ,174®:ö253ý,174®	Û0@=Ú7:Ù0:õ¬21,10
;"MOVE ?              "Bñnb=nb+1Dú¦É""Ëì8004DFú¦=""Ëì8006FHñy$=¦J'ú¯y$<535Å¯y$>568Ëì8000@T	ñx=°(y$)¤ñco=bc:ñro=br®úx=6Ëñbc=bc-1¸úx=5Ëñbr=br-1Âúx=8Ëñbr=br+1Ìúx=7Ëñbc=bc+1Öê ñh=©(br,bc) 	ñy=h 
'úbr=253ýÅbr=254þËì8205  ì8210  'úbc=173­Åbc=174®Ëì8700ü! úyÉ0Ëì85004! Ù0:öbr,bc &öÝ1;ro,co 0ì8000@!4ñnb=nb+5!¢úx=6Ëñbc=bc+1!¬úx=5Ëñbr=br+1!¶úx=8Ëñbr=br-1!Àúx=7Ëñbc=bc-1!Êì8000@!ü&únb<450ÂËñgg=0:ì8750.""&únb<475ÛËñgg=1:ì8750.""&únb<500ôËñgg=2:ì8750.""&únb<525Ëñgg=3:ì8750.""&únb<575?Ëñgg=4:ì8750.""&únb<600XËñgg=5:ì8750.""&únb<650ŠËñgg=6:ì8750.""&únb<700¼Ëñgg=7:ì8750.""$&únb<800 Ëñgg=8:ì8750."")ñgg=9	".ëi=1Ì3"/ ñd=q(i)*(10
*gg)/100d"0ña(i)=º(q(i)-d)"1ói"3í8850’""8í800 "`ì6700,"’û"“ õ"You have arrived at the last""”$õ"reported position of your enemy.""•õ"–!õ"Mountains, rivers and marshes""—#õ"have all taken their toll. Just""˜#õ"look at the state of your army!""›õ:ñtm=tm+º(nb/6)"œ.õ"It is now ";tm+º(nb/10
);" days after"""õ"after the start of your march.""¢þ“‘´í®âºáx~arthur/8  +(ÿûHÛ1:Ù0:õ¬10
,0;"                                "$õ"          STOP THE TAPE         "$õ"                                "	Û0ò300,	û
"õ¬8,10
;"KING  ARTHUR" õ¬10
,12;"Part VIII"#õ¬12,10
;"************"'õ¬14,8;"STATE OF CAMPAIGN"cò300,dGéa(3):éb(3):éc(3):és(3):éo$(10
,10
)nño$(1)="LINNUIS"oño$(3)="COIT CELIDON"pño$(4)="GUINNON"qño$(5)="URBS LEGIONIS"rño$(6)="TRIBUIT"sño$(7)="BREGUOIN"tño$(2)="BASSAS"Çì500ôÈ1õ¬20,1;"PRESS ENTER TO CONTINUE":îZ$Éþôì501õõûù"õ"Remove the GAMES TAPE - DO NOT"úõ"REWIND."þ&õ:õ"Insert the DATA TAPE AND REWIND."#õ:õ"Press PLAY on the recorder to"õ"enter data/1,2 and 3."í200Èèï"ba/d1"äa()òï"ba/d2"äb()üï"ba/d3"äq()ñq(4)=q(4)+1GûÐ!úq(1)>10
Ëì2200˜Õú¥<.5ÿÿÿËì2040øÚ õ"You have received news of an"Üõ" ambush to the rear of your"Þõ"column, with heavy losses."äì5000ˆøú¥<.5ÿÿÿËì21004%û:õ"There are reports of skirmishes"#õ"on your flank, which could mean" õ"your enemy is close at hand."ì5000ˆ4"õ"You have arrived at a clearing"6#õ"where your scouts have encount-"8õ"ered an enemy force.":%õ:õ"Some of the men are wounded but"< õ"they have overcome the enemy">	õ"band."@ì5000ˆ˜û¢$õ"You are now in a situation which"¬!õ"could give you the upper hand"¶"õ"over your enemies. Can you use"Àõ"it to your advantage?"Êò1000èTì4000 í200Èú"õ:õ"Rewind the data cassette and" õ"prepare to save a new set of"	õ"data."õ:õ"Now save data/4",ø"ba/d4"äa()-û.?û:õ"prepare yourself now for the":õ"battle of ";o$(q(4))/ò300,0û:ì9410Â$ˆì4090ú"Äâ#ðû#ÿ	Û1$6õ¬10
,0;"                                "$$õ"       START THE TAPE NOW       "$$õ"                                "$"	Û0$'ò300,$,û$6!õ¬8,10
;"KING ARTHUR"$@õ¬10
,12;"Part IX"$J"õ¬12,10
;"***********"$T/õ¬14,8;"BATTLE OF ";o$(q(4))$^ò200È$¸ï"arthur/9"$¾	Û0$Âõ"Part IX consists of a small"$Ì õ"program, to review your men,"$Ö!õ"followed by a program setting"$à#õ"the scene for you to do battle."$ê&õ:õ"These will load automatically in"$ôõ"succession."$ùëi=1Ì6:õ:ói$ú	Ù0$üõ$þ@õ"   DO ";:Û1:õ"NOT";:Û0:õ" STOP THE TAPE UNTIL   "%õ%#õ"ENTER DATA/4 FROM THE DATA TAPE"%õ%$õ"     APPEARS ON THE SCREEN      "%ò1000è%ì9200ð#Z‘F©éù$‚ƒ“Ïi

LINNUIS   BASSAS    COIT CELIDGUINNON   URBS LEGIOTRIBUIT   BREGUOIN                                larthur/9  äå ÿåép$(4)ZDñp$(1)="h":ñp$(2)="a":ñp$(3)="i":ñp$(4)="k"[ëi=1Ì4\
ñg$=p$(i)]ën=0Ì7^ãa:ôÀg$+n,a_ón`óidï"arthur/9b"Èâ#(äÄ00010100,Ä001110008,Ä001100113,Ä00010110,Ä01111110~,Ä11111110þ,Ä11001010Ê,Ä10000010‚#2äÄ00100000 ,Ä10101000¨,Ä01100100d,Ä01111110~,Ä01100100d,Ä00101000(,Ä00100000 ,Ä001100000#<äÄ00100010",Ä00100100$,Ä01111000x,Ä01110000p,Ä001100000,Ä01100000`,Ä10100000 ,Ä001100000#FäÄ00010000,Ä001110008,Ä00010000,Ä00101000(,Ä10111010º,Ä11111110þ,Ä10101010ª,Ä11111110þé[î]aþÐhaikGkéarthur/9b Ö óVØ ÿ@ép$(3):ñp$(1)="—":ñp$(3)="˜":ñp$(2)=""ñt=0:ñrq=0û:Ù0:Û1$õ"                                "$õ"         STOP THE TAPE          "$õ"                                "	Û0:ò400dTép(13,31):ëi=1Ì13:ëj=1Ì30:ñp(i,j)=0:ój:óieTéw(13,31):ëi=1Ì13:ëj=1Ì30:ñw(i,j)=0:ój:óif$éq(3):év(3):éu(3)?Mû:õ"Now load data/4 from DATA TAPE.":õ"Press any key when ready.":í500ô@ï"ba/d4"äq()J,ëi=1Ì3:ñq(i)=º(q(i)/6):óiK!ëi=1Ì3:ñu(i)=q(i):óiLañv(1)=q(1):ñv(2)=q(2)+º(¥*60<):ñv(3)=q(3)+º(¥*30)óû:ì2000Ðôú¦É""Ëì500ôõú¦=""Ëì501õöþ 1úp(a,b)=114rËñq(1)=q(1)+1!1úp(a,b)=105iËñq(2)=q(2)+1"0úp(a,b)=97aËñq(3)=q(3)+1%þÐì7000XÒña=12:ñb=1Óña$=" "Ôña$=" "ÕÙ0:õ¬a,b;"š"Öña1=a:ñb1=bØ	Ù0Ù#õ¬20,0;"MOVE TROOPS  "Úí500ôäñm$=¦øúm$="f"Ëì9000(#4!úm$="5"Ëñb=b-1:ì2200˜>!úm$="8"Ëñb=b+1:ì2200˜H!úm$="6"Ëña=a+1:ì2200˜R!úm$="7"Ëña=a-1:ì2200˜WGúm$="c"Æ¥<.3™™™Ëñb=b+1:í800 :ñp(a,b)=0:ì2200˜Xúm$="c"Ëì2003Ó\Cúm$="r"Ëña$=p$(1):ñq(1)=q(1)-1:ì2300üfCúm$="i"Ëña$=p$(3):ñq(2)=q(2)-1:ì2301ýpCúm$="a"Ëña$=p$(2):ñq(3)=q(3)-1:ì2302þ—Gõ¬20,0;"WRONG COMMAND":ëj=1Ì200È:ój:ì2003Ó˜"úb<1Ëñb=1:ì2003Ó§$úb>30Ëñb=30:ì2003Ó±$úa>12Ëña=12:ì2003Ó»"úa<1Ëña=1:ì2003ÓÊ5úp(a,b)É0Ëñb=b+1:õ¬a1,b1;" ":ì2003ÓÌúa>12Ëì2260ÔÏ5úw(a,b)É0Ëñb=b+1:õ¬a1,b1;" ":ì2003ÓÔ
õ¬a,b;"š"Þõ¬a1,b1;" "òì2003ÓüHúm$="r"Æq(1)<0Ëñq(1)=0:ñq$="RIDERS":ì2320	ýJúm$="i"Æq(2)<0Ëñq(2)=0:ñq$="INFANTRY":ì2320	þIúm$="a"Æq(3)<0Ëñq(3)=0:ñq$="ARCHERS":ì2320		ì2330		2Ù0:õ¬0,0;"NO MORE ";q$;" LEFT."	ì2003Ó	Ù2:õ¬a,b;a$	ñp(a,b)=¯m$	!í5000ˆ	$ñb=b+1	)úb>30Ëñb=1	.ì2003Óˆúa>12Ëþ‰#ñf=b-1:úf<1Ëñf=1Š#ñg=a-1:úg<1Ëñg=1’ël=gÌa+1œëm=fÌb+1¦úw(l,m)É0Ëì6000p°ómºólÄþpñy1=p(a,b):ñy2=w(l,m)zúy1=y2Ëì6500dÔ1úy1=97aËñaw=1:ñvw=0:ì6800Þ1úy2=97aËñaw=0:ñvw=1:ì6800è+úy1>y2Ëñaw=1:ñvw=0:ì6800ò$ñaw=0:ñvw=1:ì6800d6úy1=114rÆ¥<¥Ëñaw=1:ñvw=0:ì6800n2úy1=114rËñaw=0:ñvw=1:ì6800x6úy1=105iÆ¥>¥Ëñaw=1:ñvw=0:ì6800‚2úy1=105iËñaw=0:ñvw=1:ì6800Œ)ú¥<¥Ëñaw=1:ñvw=0:ì6800–$ñaw=0:ñvw=1:ì68002úvw=0Ëñw(l,m)=0:õ¬l,m;" ":ì6900ôšñp(a,b)=0:õ¬a,b;" "ôñl=a+1:ñm=b+1öúm>30Ëñm=30þþX8ñt=v(1):ñn$=p$(1):ñt1=114r:í7080¨b8ñt=v(2):ñn$=p$(3):ñt1=105i:í7080¨l7ñt=v(3):ñn$=p$(2):ñt1=97a:í7080¨vì2002Ò¨ëk=1Ìt­2ñr=º(¥*11)+1:ñc=º(¥*29)+1²úw(r,c)É0Ëì7085­·Ù1:õ¬r,c;n$:ñw(r,c)=t1¼ókÆþ#(û:õ"Now save data/5"#2ø"ar/d5"äq()#7õ"Now save data/6"#<ø"ar/d6"äp()#Aõ"Now save data/7"#Fø"ar/d7"äw()#Hû#Iõ"Replace the GAMES TAPE."#JÙ0:Û1#K5õ¬9	,0;"                                "#L$õ"         START THE TAPE         "#M$õ"                                "#N	Û0#P	ï"flags"t²ñéeêe´±aë¨rcNa	b¡±	¢±Mafgì

’íœ¹±a¹²r¡÷¶÷A Ð—˜ä—ä‘–•aflags     $|&ÿ„ûŽÙ0:Û1è5õ¬9	,0;"                                "ò$õ"         STOP THE TAPE          "ü$õ"                                "	Û0ò400ÐûÚõ"Remove the GAMES TAPE."äõ:õ"Insert the DATA TAPE."î#õ:õ"The data from the last battle"øõ"must now be read."õ:õ"Press ENTER when ready."îz$ï"ar/d5"äq() úq(4)>7Ëì3000¸ û*$õ"Now rewind the tape to start the"/õ"next part of the campaign."4õ:õ"Press ENTER when ready.">îz$Hï"arthur/6"¸ûÂ!õ"Do not rewind the GAMES TAPE."Ç	Û1Ì5õ¬9	,0;"                                "Ö$õ"         START THE TAPE         "à$õ"                                "å	Û0ê
ï"epilog"‘Zepilog    ññóÿ
ûÙ0:Û15õ¬9	,0;"                                "$õ"         STOP THE TAPE          "#$õ"                                "(	Û0-ò300,dûn$õ¬9	,8;"E P I L O G U E"x%õ¬11,8;"***************"‚ò300,Œû–$õ"For twelve  long years  you have" $õ"been  fighting  over the  length"ª$õ"and breadth of Brittain. You are"´$õ"poised to achieve the  dreams of"¾$õ"your   youth,  and  reach   your"Èõ"destiny."ÒõÜ$õ"The battles you have fought have"æ$õ"cost hundreds of lives, the pop-"ð$õ"ulation accept you as their def-"ú$õ"ender, yet the  question of your"$õ"rights to the  crown of Brittain"%õ"is still uncertain, and  ignored" õ"by many jealous nobles.""õ,$õ"You know that before  you can be"6$õ"accepted totally, these warlords"@$õ"must  be   met  in  battle   and"Jõ"vanquished."Tò1000èYû^$õ"This  battle   will  divide  the"h$õ"emerging  nation, father against"r$õ"son,  brother  against  brother."|$õ"Many powerful  warlords  support"†$õ"your claim and offer the fealty."‹
õ:õ:õ:õ:õ$õ"The scene is set, the year 815AD"•õš"õ" - THE BATTLE OF MOUNT BADON -"Ÿõ¤$õ"To the victor Brittain's crown !"®ò1000è¸û½	Û1Â5õ¬9	,0;"                                "Ì$õ"         START THE TAPE         "Ö$õ"                                "à	Û0êò300,ôï"bad/men"Jbad/men   àõÿåép$(4)ZDñp$(1)="h":ñp$(2)="a":ñp$(3)="i":ñp$(4)="k"[ëi=1Ì4\
ñg$=p$(i)]ën=0Ì7^ãa:ôÀg$+n,a_ón`óid	ï"badon"Èâ#(äÄ00010100,Ä001110008,Ä001100113,Ä00010110,Ä01111110~,Ä11111110þ,Ä11001010Ê,Ä10000010‚#2äÄ00100000 ,Ä10101000¨,Ä01100100d,Ä01111110~,Ä01100100d,Ä00101000(,Ä00100000 ,Ä001100000#<äÄ00100010",Ä00100100$,Ä01111000x,Ä01110000p,Ä001100000,Ä01100000`,Ä10100000 ,Ä001100000#FäÄ00010000,Ä001110008,Ä00010000,Ä00101000(,Ä10111010º,Ä11111110þ,Ä10101010ª,Ä11111110þé[î]aþÐhaikGk÷badon     á þvã ÿ@ép$(3):ñp$(1)="—":ñp$(3)="˜":ñp$(2)=""ñt=0:ñrq=0û:Ù0:Û1$õ"                                "$õ"         STOP THE TAPE          "	$õ"                                "
Û0:ò400dTép(13,31):ëi=1Ì13:ëj=1Ì30:ñp(i,j)=0:ój:óieTéw(13,31):ëi=1Ì13:ëj=1Ì30:ñw(i,j)=0:ój:óif$éq(3):év(3):éu(3)?Mû:õ"Now load data/4 from DATA TAPE.":õ"Press any key when ready.":í500ô@ï"ba/d4"äq()J,ëi=1Ì3:ñq(i)=º(q(i)/6):óiK!ëi=1Ì3:ñu(i)=q(i):óiLañv(1)=q(1):ñv(2)=q(2)+º(¥*60<):ñv(3)=q(3)+º(¥*30)óû:ì2000Ðôú¦É""Ëì500ôõú¦=""Ëì501õöþ 1úp(a,b)=114rËñq(1)=q(1)+1!1úp(a,b)=105iËñq(2)=q(2)+1"0úp(a,b)=97aËñq(3)=q(3)+1%þÐì7000XÒña=12:ñb=1Óña$=" "Ôña$=" "ÕÙ0:õ¬a,b;"š"Öña1=a:ñb1=bØ	Ù0Ù#õ¬20,0;"MOVE TROOPS  "Úí500ôäñm$=¦øúm$="f"Ëì9000(#4!úm$="5"Ëñb=b-1:ì2200˜>!úm$="8"Ëñb=b+1:ì2200˜H!úm$="6"Ëña=a+1:ì2200˜R!úm$="7"Ëña=a-1:ì2200˜WGúm$="c"Æ¥<.3™™™Ëñb=b+1:í800 :ñp(a,b)=0:ì2200˜Xúm$="c"Ëì2003Ó\Cúm$="r"Ëña$=p$(1):ñq(1)=q(1)-1:ì2300üfCúm$="i"Ëña$=p$(3):ñq(2)=q(2)-1:ì2301ýpCúm$="a"Ëña$=p$(2):ñq(3)=q(3)-1:ì2302þ—Gõ¬20,0;"WRONG COMMAND":ëj=1Ì200È:ój:ì2003Ó˜"úb<1Ëñb=1:ì2003Ó§$úb>30Ëñb=30:ì2003Ó±$úa>12Ëña=12:ì2003Ó»"úa<1Ëña=1:ì2003ÓÊ5úp(a,b)É0Ëñb=b+1:õ¬a1,b1;" ":ì2003ÓÌúa>12Ëì2260ÔÏ5úw(a,b)É0Ëñb=b+1:õ¬a1,b1;" ":ì2003ÓÔ
õ¬a,b;"š"Þõ¬a1,b1;" "òì2003ÓüHúm$="r"Æq(1)<0Ëñq(1)=0:ñq$="RIDERS":ì2320	ýJúm$="i"Æq(2)<0Ëñq(2)=0:ñq$="INFANTRY":ì2320	þIúm$="a"Æq(3)<0Ëñq(3)=0:ñq$="ARCHERS":ì2320		ì2330		2Ù0:õ¬0,0;"NO MORE ";q$;" LEFT."	ì2003Ó	Ù2:õ¬a,b;a$	ñp(a,b)=¯m$	!í5000ˆ	$ñb=b+1	)úb>30Ëñb=1	.ì2003Óˆúa>12Ëþ‰#ñf=b-1:úf<1Ëñf=1Š#ñg=a-1:úg<1Ëñg=1’ël=gÌa+1œëm=fÌb+1¦úw(l,m)É0Ëì6000p°ómºólÄþpñy1=p(a,b):ñy2=w(l,m)zúy1=y2Ëì6500dÔ1úy1=97aËñaw=1:ñvw=0:ì6800Þ1úy2=97aËñaw=0:ñvw=1:ì6800è+úy1>y2Ëñaw=1:ñvw=0:ì6800ò$ñaw=0:ñvw=1:ì6800d6úy1=114rÆ¥<¥Ëñaw=1:ñvw=0:ì6800n2úy1=114rËñaw=0:ñvw=1:ì6800x6úy1=105iÆ¥>¥Ëñaw=1:ñvw=0:ì6800‚2úy1=105iËñaw=0:ñvw=1:ì6800Œ)ú¥<¥Ëñaw=1:ñvw=0:ì6800–$ñaw=0:ñvw=1:ì68002úvw=0Ëñw(l,m)=0:õ¬l,m;" ":ì6900ôšñp(a,b)=0:õ¬a,b;" "ôñl=a+1:ñm=b+1öúm>30Ëñm=30þþX8ñt=v(1):ñn$=p$(1):ñt1=114r:í7080¨b8ñt=v(2):ñn$=p$(3):ñt1=105i:í7080¨l7ñt=v(3):ñn$=p$(2):ñt1=97a:í7080¨vì2002Ò¨ëk=1Ìt­2ñr=º(¥*11)+1:ñc=º(¥*29)+1²úw(r,c)É0Ëì7085­·Ù1:õ¬r,c;n$:ñw(r,c)=t1¼ókÆþ#(û:õ"Now save data/5"#2ø"ar/d5"äq()#7õ"Now save data/6"#<ø"ar/d6"äp()#Aõ"Now save data/7"#Fø"ar/d7"äw()#Hû#Iõ"Replace the GAMES TAPE."#JÙ0:Û1#K5õ¬9	,0;"                                "#L$õ"         START THE TAPE         "#M$õ"                                "#N	Û0#P	ï"flags"&Ôï"end"t²ñéeêe´±aë! ¨rcNab¡±¢±Mafg
ì’íœ¹±a¹²i¡÷¶÷A Ð—˜ä—ä‘–•end       Ú	M	ØÜ	ÿéq(4)Hñah=0:ñai=0:ñaa=0:ñvh=0:ñvi=0:ñva=0
ì90Z!õ¬6,11;"KING ARTHUR""õ¬10
,11;"***********"'õ¬12,8;"AFTER MOUNT BADON"ò300,ì1000èZ'ña$="                                "dûiÙ0:Û1nõ¬9	,0;a$x$õ"         STOP THE TAPE          "‚õa$‡	Û0Œò300,‘û–
ì20ôú¦É""Ëì500ôõú¦=""Ëì501õ÷þèûíõ"Take out the GAMES TAPE."òõ"Replace the DATA TAPE."üõ:õ"Now load data 5,6 and 7."õ:õ"Press any key when ready."í500ôLï"ar/d5"äq()Vï"ar/d6"äp()`ï"ar/d7"äw()Ðëi=1Ì13Úëj=1Ì30äúp(i,j)=0Ëì2060î!úp(i,j)=114rËñah=ah+1ø!úp(i,j)=105iËñai=ai+1 úp(i,j)=97aËñaa=aa+1úw(i,j)=0Ëì21004!úw(i,j)=114rËñvh=vh+1 !úw(i,j)=105iËñvi=vi+1* úw(i,j)=97aËñva=va+14ój>ói	Zñah=ah*6:ñai=ai*6:ñaa=aa*6:ñvh=vh*6:ñvi=vi*6:ñva=va*6¸û½,õ¬0,0;"FORCES AFTER THE BATTLE"Â%õ¬2,15;"YOU      ENNEMY"Ìõ¬4,2;"RIDERS"Öõ¬6,2;"INFANTRY"àõ¬8,2;"ARCHERS"ê,õ¬4,16;ah:õ¬4,27;vhô,õ¬6,16;ai:õ¬6,27;viþ,õ¬8,16;aa:õ¬8,27;vaõ:õ )úah/2>vhÆai/2>viËì5000ˆ)úvh/2>ahÆvi/2>aiËì6000phúah>vhÆai>viËì7000XÌúah>vhËì8000@0õ"You lost...":%õ:õ"You will have to start all over"Dõ"again.":ò500ô:æˆ"õ"The enemy runs... It's a rout!"’&õ:õ"You are the undisputed master of"œõ"the battle field!"¦$õ"THE CROWN OF THE REALM IS YOURS!"µ@ñq(1)=90Z:ñq(2)=120x:ñq(3)=30ºì9000(#põ"Your army is running!"z&õ:õ"You have no choice but to die on"„"õ"the battle field in a blaze of"Ž"õ"glory and be remembered during"˜Bõ"the coming ages for your courage":õ"and valour...":ò500ô:æXì5000ˆ¼9ëi=1Ì3:ñq(i)=º(q(i)*.6€™™™):ói:ì9000(# ì9000(#@ì5000ˆHTõ"You were strong enough not to be":õ"beaten but not strong enough to":õ"overcome!"#(ò1500Ü#-û#2æ¡è¡é¡á¶è¶é¶áéÐêÚ‘A                                 æ