Camelot sdsud0:0:0: n"" x0,0;"                                            " g14,0;" ";"   ";:" ";"   ";:" ";"              " 10 ,26;" ";11 ,25;" ";12 ,23;" ";13 ,23;" ";14,23;" ";15,23;"";16,26;"";17,25;" ";18,25;"";19,26;" ";20,30;"" 314,23;1;8;8;"'" 13 ,5;2;4;"";14,4;"";15,3;" ";16,2;"";17,1;" ";18,1;"";19,2;"" c20,2;0;4;"1983"; 21,0;" C.P.M.Chapman and G.R.Brooks " %5:5:4,0; "" IC X???~~~~~~$<~$$$$<<~?pp?C ZZfZJ= 236099\,240 :8520H!: A$="00000000000" #0,0;"FLASHING > MEANS ";0;"PRESS ANY LETTER TO CONTINUE.";4,0;"PRESS N,S,E,OR W TO MOVE IN THE";0;"REQUIRED DIRECTION WHEN THE";0;"MAP IS DISPLAYED.";9,0;"PRESS I TO OBTAIN A STATUS ";0;"REPORT WHEN THE MAP IS SHOWN.";13P,0;"PRESS R TO RETREAT DURING BATTLE";16,0;"ALL ACTIVITIES CONSUME FOOD." ( 904 ) F="10" * A="10" + FL=0 , G="50" - B="16" 0 W="10" 2@0,0;" YOU ARE ARTHUR PENDRAGON, BANISHED FROM CAMELOT BY THE WICKED BLACK KNIGHT.";4,0;" AN UNKNOWN ALLY HAS LOANED YOU FIFTY BAGS OF GOLD PIECES.";7`,0;" ON YOUR TRAVELS YOU WILL HAVE TO COLLECT THE SEVEN ITEMS THAT ARE HIDDEN IN THE COUNTRIESSHOWN ON THE MAP." 712@,0;" THE SEVEN ITEMS ARE:-";14`,8;"1.EXCALIBUR";8;"2.THE GOLD KEY";8;"3.THE SILVER KEY";8;"4.THE IRON KEY";8;"5.A CYGNET RING";8;"6.A GOLDEN CROWN";8;"7.A ROYAL SEAL" < 904 A0,0;" THERE ARE THREE BAZAARS AT WHICH YOU MAY BUY ITEMS TO HELP YOU ON YOUR WAY, OR BUY FOOD.";5 ,0;" THERE ARE ALSO ITEMS HIDDEN THAT MAY HELP YOU TO OVERCOME ENEMIES OR OBSTACLES." F9,0;" YOUR OBJECTIVE IS TO COLLECT THE SEVEN ITEMS,RE-ENTER CAMELOTAND TO BE CROWNED KING.";16,6@;"--GOOD LUCK--" G 904 IV$="" J0,0;"SELECT SKILL LEVEL, PRESS:";3@,2;"1 - EASY";5 ,2;"2 - HARD";7`,2;"3 - IMPOSSIBLE?" K="1"Ŧ="2"Ŧ="3"V$= LV$=""75 NV=V$ PV$="" U 114d \!21,27;1;">" b/15:.05|L,-15:=""98b d f r'S$=" " tH= uM=ç zF$(110,14`) {F$(1)="EXCALIBUR" |F$(2)="THE GOLD KEY" }F$(3@)="THE SILVER KEY" ~F$(4)="THE IRON KEY" F$(5 )="A CYGNET RING" F$(6@)="A GOLDEN CROWN" F$(7`)="A ROYAL SEAL" F$(8)="THE MAGIC RING" F$(9)="DRAGONS BANE" F$(10 )="THE HEALER" F$(110)="THE GUIDE" 149 FL=19000(# FL=29050Z# FL=39100# 19150#*(fm=1)+9200#*(fm=2) f0w0 4000: D= &D$=" WHAT DO YOU WANT TO DO ? " )E$=" RUN OR FIGHT:- PRESS R or F " 0:7:7: D=2170 D=ç S=ç X=A*B 8400 c1,3;6;"";13 ,2;6;"";5,26;6;"" A,B;0;1;"" 0A*BXF=(F-)-(W>"14"):a1,b1;0;" " FçWç8200 =P=(A*B)*H:fm=(*2)+1:FL=(*3)+1 &P="84"P="156"P="12"6000; A*B="160"7000Z A*BXH= 6A*BX7::0:((*"9")*"100")+"200" a1=a:b1=b 0B=B+"10"*(="E"B<"26")-"10"*(="W"B>"6") 0B=B+"10"*(="e"B<"26")-"10"*(="w"B>"6") ="I"5000 ="i"5000 .A=A+"4"*(="s"A<"18")-"4"*(="n"A>"2") .A=A+"4"*(="S"A<"18")-"4"*(="N"A>"2") .008zn,40( .008zn,10  1804 , .M=ç 1 142 3502:44000 4HFL=37,20;3;"";8,20;"" 6Hfl37,20;5;"";8,20;"" 817,1;"A BAND OF BRIGANDS IS BARRING";18,12 ;"YOUR PATH";20,0;D$;21,0;1;E$ @ 770@  M=ç A$(9)="1"S="10" A$(9)="0"  142 502:44000 17,4;"A FIERY DRAGON IS BARRING";18,12 ;"YOUR PATH";20,0;D$;21,0;1;E$  9450$  770@  M=ç  142 502:44000 #fl=1fl=29300T$ fl=39250"$ 17,2;"THE CASTLE OF AN EVIL KNIGHT";18,6;"IS BLOCKING YOUR WAY";20,0;D$;21,0;1;E$  770 X ZM=ç [ 142 \502:44000 ]?17,0;2;" YOU HAVE BEEN HIT BY A PLAGUE " b;A$(10 )="1"18,6;"YOU HAVE THE HEALER" lA$(10 )="1"680* vP=(*"4")+V*"2" W=W-P  WçW=ç G>W*("15"/V)G=W*("15"/V) o19,0;2;" YOU HAVE LOST SOME WARRIORS ";20,4;"YOU NOW HAVE ";W;" WARRIORS" W=20,26;" " W>ç680* 21,0;S$  250  8200 A$(10 )="0" 221,6;1;"PRESS R FOR THE MAP" ="R"Ŧ="r"150  680  M=ç A$(8)="1"S="10" A$(8)="0"  142 502:44000 #fl=1fl=29400$ fl=39350$ :17,0;" AN EVIL MAGICIAN HAS BLOCKED ";18,12 ;"YOUR PATH";20,0;D$;21,0;1;E$ ="R"Ŧ="r"2000  ="F"Ŧ="f"3000  770 R(V=((*4)+3)*100d L NM>"2"300 QO=(*("2"*V))+ S 142 T 502 Vp17,2;"NOTHING IS BARRING YOUR PATH";20,0;1;"PRESS S TO SEARCH, R FOR THE MAP" [M=M+ `="S"O<"2"8000z a="s"O<"2"8000@ e="S"OȰ"2"8090 f="s"OȰ"2"8090 j="R"150 l="r"150 t 1120` P=(*"2")+"2" X=(*"5")+"5" A$(110)="1"2090 W=W-P  W<çW=ç 20,0;S$;S$  X20,0;"YOU LOST SOME WARRIORS WHEN YOU FLED YOU NOW HAVE ";W;" WARRIORS" W=21,29;" " z=1150:z %W=ç8200 *G=G-X 4G>W*("15"/V)G=W*("15"/V) > GçG=ç Hm20,0;S$;S$;20,0;"YOU HAVE LOST SOME BAGS OF GOLD YOU NOW HAVE ";G;" BAGS LEFT" RG=21,21;" " Wz=1150:z f 2170 p 150 zP=(*"4")+ .A=A+"4"*(P=A<"18")-"4"*(P="2"A>"2") 0B=B+"10"*(P=B<"26")-"10"*(P="4"B>"6")  N=(W*"5")+((S*"10")/V) } 20,0;S$;20,0;"ENEMY BATTLE POINTS ";21,0;S$;21,0;"YOUR BATTLE POINTS " N1=N P=(*"100")+"50" Q=((P/"100")*(W*"5")) Q=çQ="10" Q1=Q 520,22;Q;" ";21,22;N;" " +R=(*("12"/(V+1-(V=3))))+ >K=19 :.01z# =,-1:.01z# =,-1:K T=(*"8")+W R=N=N-T RɼQ=Q-T  W=(N/"5")  W<çW=ç  W=ç21(,220;"0 " W=ç8200  Qç20 ,220;"0 " Qç3125CP 10 &="R"Ŧ="r"2000 0 3030 5G=(G+"8")+((G*(Q1/N1))) :G>"200"G="200" ; Z=̰"30" <Z = 142 >117,0;S$;S$;20 ,0;S$;S$ ?G>W*("15"/V)G=W*("15"/V) Ad17,3;"YOU HAVE BEATEN YOUR ENEMY";18,2;"YOU NOW HAVE ";G;" BAGS OF GOLD" BS$ Fp20,4;"YOU NOW HAVE ";W;" WARRIORS";21,0; 1;"PRESS S TO SEARCH, R FOR THE MAP" HW=20,26;" " N="S"Ŧ="s"8000@ X="R"Ŧ="r"150 b 3150N  SOUNDS u.05|L,15:.05|L,15:.3,15:.05|L,12 :.3,12 :.05|L,8 m.05|L,8:.3,8:.1}L,5:.1}L,5:.1}L,5:.2~L,3 ].1}L,15:.1}L,15:.1}L,15:.1}L,8:1,12  o.1}L,8:.1}L,8:.1}L,8:.1}L,12 :.1}L,12 :.1}L,12 h Success iQ=13 j.K=40(28-1:.06|u\,K:K m-K=2840(1:.06|u\,K:K rQ { Bazaar Sound p.2~L,7:.2~L,11 :.2~L,9 :.1}L,12 :.1}L,11 :.1}L,14 o.1}L,11 :.2~L,7:.2~L,7:.1}L,11 :.2~L,9 :.1}L,11 %.3,11 :.3,7 / 0Warning :K=12 ?'.25~,30:.5,10 AK M  Success .K=60<480-1:.04|# =,K:K  )l.1}L,0:.1}L,2:.5,3:.5,2:.1}L,0:.1}L,0 .l.1}L,2:.5,3:.5,2:.1}L,0:.1}L,3:.1}L,5 3l.2~L,7:.1}L,3:.1}L,5:.2~L,7:.1}L,3:.1}L,5 8\.2~L,7:.75@,7:.25~,8:.2~L,7:.2~L,7 U V Failure Wn.75@,7:.25~,8:.5,7:.5,5:.5,3:.5,2 [y1,0:1,0:1,-5:2,0:1,0:1,-5:2,0 ]n.75@,7:.25~,8:.5,7:.5,5:.5,3:.5,2 `y1,0:1,0:1,-5:2,0:1,0:1,-5:2,0   F=F- Fç8200  5110  151   Z=ç̰"6" "2*Z,0;F$(Z+1) .A$(Z+1)="1"2*Z,15p;"YES"  -A$(Z+1)="0"2*Z,15p;"NO"  Z Z="7"̰"10" >A$(Z+1)="1"(Z*2),0;F$(Z+1);" YES" Z # FçF=ç % WçW=ç (i0,19;"FOOD-";F;" BAGS";4,19;"GOLD-";G;" BAGS";8,19;"WARRIORS-";W *F=0,29h;" " -G=4,29h;" " 2 904 i p 6600 rF1=F tW1=W vG1=G zH="2" T18,0;0;7;" (Move dot to item wanted by ";19,0;0;7;" KEYING 6 OR 7 ) ";20,0;"KEY N to indicate Number wanted ";21,0;"KEY R to Return to the map ";8,0;7;2;"o";8,3;7;1;"ITEM PRICE NO WANTED";8,31;2;"o";9 ,ç;"o";9 ,31;"o";10 ,0;"o";10 ,3;7;1;"FOOD";10 ,31;2;"o";11 ,0;"o";11 ,31;"o";12 ,0;2;"o";12 ,3;1;"WARRIORS";12 ,31;2;"o";13 ,0;2;"o";13 ,31;2;"o";14,0;2;"o";14,3;1;"HEALER";14,31;2;"o";15,0;2;"o";15,31;2;"o";16,0;2;"o";16,3;1;"GUIDE";16,31;2;"o" 7,0;7;2;"o";7,31;"o":17,0;" ============================== " P=(*"5")+"5" Q=(*"7")+"8" R=(*"7")+"20" W10 ,13P;"1";12@,13P;P;14`,13P;Q;16,13P;R  4300 ;V=14,5;"BAGS OF GOLD:";G;" FOOD:";F  L="10" K=ç L1=L  Z=̺ L,1;"" Z L,1;" " ;L=L+2*(="6"L<16)-2*(="7"L>10 )  LL1K=ç kLL110 ,24@;" ";12@,24@;" ";14`,24@;" ";16,24@;" " K=K+(="N")+(="n")  L>"12"K= ="N"Ŧ="n"L,24;K ="R"Ŧ="r"62008  6070= 86000;+(L*"30") G=G-K F=F+K  6500K  G=G-(K*P) W=W+K  6500K G=G-Q A$(10 )="1" ( 6500K PG=G-R ZA$(110)="1" dGç150 nZ:18,2;"YOU CANNOT AFFORD THAT";19,6;1;"BAZAAR CLOSED" xL="14"A$(10 )="0" L="16"A$(110)="0" G=G1 F=F1 W=W1  904  150  BAZAAR GRAPHICS 1:7:2: E0,0;"  " a1,0;"   " a3,0;"   " =5,0;" " 96,0;" "  X$A$(7`)="1111111"7141_(  2170  ڮ1,0;"YOU TRIED TO RE-ENTER CAMELOT.";3,0;"YOU MAY NOT ENTER BECAUSE";5,0;"YOU DO NOT HAVE ALL THE ";7,0;"REQUIRED ITEMS" 4GȰ"5"12@,3@;"FORFEIT 5 BAGS OF GOLD"  904 GȰ"5"G=G-"5"  150  D$="GISGSISGISIGIGSISG" F$(1,1) P=((*"6")+)*  H=̺ ,12 +h,2;"TRY NUMBER ";H:k$="" 0,0;"TO ENTER, INSERT THE THREE KEYS IN THE CORRECT ORDER.";4,0;"YOU ONLY HAVE THREE ATTEMPTS.";7,0;" PRESS G,S OR I" ""7149 =""7150 "x$=:x$>"Z"x$=(x$-32 )  x$="S"x$="G"x$="I"K$=K$+x$ 12@+H,15p;K$ K$<7149  T=ç  Z=̺ !K$(Z)=D$((P-3@)+Z)T=T+ Z T<7260b :4200h T1,6@;"CONGRATULATIONS";4,0;"YOU HAVE RE-ENTERED CAMELOT."  250 +6,8;"--HOWEVER--":250 f9,0;"YOUR ALLY, SIR RICHARD DEVILLE";110,0;"REQUIRES YOU TO REPAY HIS LOAN" GȰ"50"7200a  250  15p,0;"YOU ONLY HAVE ";G;" BAGS OF GOLD";17,0;"YOU WILL BE BANISHED FROM ";S$;"CAMELOT IN DISGRACE." A$="00000000000"  904  114d  Z=̰"50" "Z %]15p,0;"YOU HAVE ";G;" BAGS OF GOLD";18,0;"HE HAS ACCEPTED PAYMENT" * 904 4 >/4,2;"YOU HAVE BEEN CROWNED KING" ?+H=((("100"/J)-F)*(V/)+(G-"50")/"4") @H>"100"H="100" A H<çH=ç B410 ,0;"YOUR SKILL FACTOR IS ";H;"/100" C~12@,0;"YOU HAVE ";G-50H;" BAGS OF GOLD";14`,9;W;" WARRIORS";16,9;F;" BAGS OF FOOD" HO19,0;"PRESS R FOR ANOTHER GO";21(,0;"PRESS E TO END" MJ= R 8260 a,12 +H,15;K$;" ";T;" CORRECT" f C=̰"15" pC u10 ,0;S$ zH D$="" `18,0;"YOU HAVE FAILED TO ENTER CAMELOT";20 ,0;"FORFEIT ALL YOUR KEYS" J=J+  904 A$(7`)="1000111" D=  114d @Z= BF=(F-)-(W>"14") DFç8200 F"17,0;S$;S$;S$;S$;S$ JX=(*"9")+ TA$(X)="1"Z=Z+ ^#Vç17,1;2;"YOU DID NOT HAVE ANY FOOD LEFT";18,3;"YOU ALL DIED OF STARVATION" 0wWç17,2;2;"YOU DO NOT HAVE ANY WARRIORS";18,3;"LEFT TO DEFEND YOU-R.I.P." 1v20,0;1;"PRESS I TO SEE HOW WELL YOU DID ";21,0;S$;21,6;"C TO CONTINUE" 2="C"Ŧ="c"8250: 4="I"Ŧ="i"82477 6 8242 7 5110 8 142 9p14,0;4;1;" ";13 ,0;" ";12 ,0;"  " :r20,0;1;"BAD LUCK-PRESS R FOR ANOTHER GO ";21,0;S$;21,15;"E TO END" ?A$="" AJ=J+ D="R"Ŧ="r"30 N="E"Ŧ="e"8290b X 8260 Y 5110 Z 8250 b l10 ,12@;"BYE-BYE" v 8300 Г4: :9 ,14;2;"";10 ,14;2;" ";11 ,14;2;"" b17,3;0;"N":18,2;0;"W^E":19,3;0;"S" 0 a0,175:255,0:0,-175:-255,0:0,175 502,0:20,-20:10 ,-5:20,-10 :60<,3:12 ,8:-5,24 !88X,0:-18,-28:-43+,-14:-19,5:-13 ,5:-16,-43+:42*,17:21,-9 :46.,-7 ! t0,-22:-25,8:-40(,-9 :-15,9 :-17,-6:-14,6 !_33!,-502:8,8:23,-5:33!,22:13 ,-12 ! 150,0:7,23:-10 ,12 :17,19:-33!,-10 :-22,9 :2,-12 :-8,-33!:2,-7 !*0,546:10 ,5:44,,-7:22,14:33!,-16:-4,20:9 ,8:-33!,10 :-32 ,-8:-22,8:-25,-5 !40,120x:10 ,-15:44,,-7:22,14:33!,-16:-4,20:13 ,8:-22,16:-27,1:-44,,-15:-15,13 :-8,3 !> 7: !H0:0:7: !R24,7;"PUBLISHED BY ";1;"" !\!5,22;1;"" !f&9 ,7;"COPYRIGHT WARNING" !p,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of CAMELOT. Please note":"unauthorised copying, hiring,":"and lending of this software is":"strictly prohibited." !zA21,2;6;1;"Press any key to continue" !=""8580! ! #( 0,0;"                 l             " #A #Z[0,0;"   " #s #?0,0;"                                         " # #X9 ,0;" ";1;"  ";:"";" ";1;"  ";:"  ";1;"  ";:"  ";1;"  ";:"  ";1;"  ";:"  ";1;"  ";:"  ";1;"  ";:" ";1;"  ";:" " # #9 ,0;" ";1;"   ";:" ";1;"   ";:" ";1;"              " $  $"N2,18;" ";3,18;"  ";4,18;" ";5,18;"  ";6,18;"++";7,18;" ++ ";8,18;" ++ ": $TK2,18;0;" ";3,18;" ";4,18;" ";5,18;"  ";6,18;"++";7,18;" ++ ";8,18;" ++ ": $V0,19;"";1,18;" *  ";2,18;"";3,18;"";4,18;" V ";5,18;" _ ";6,19;" ";7,19;" ";8,20;"": $0,21;"";1,20;"* ";2,20;"";3,20;" ";4,20;" V ";5,21;" _ ";6,21;" ";7,21;" ": $ 9 ,4;;2;8;"";10 ,3;"";11 ,2;1;" ";12 ,1;"";13 ,0;" ";14,0;"";15,1;"" %