'AS%(257),MP%(16,16),M3%(6,16,16)FP$(256),CL%(256),NE$(256)^53281,0:53280,0:wA,B$,C,D$:A256 9P$(A)B$:CL%(A)C:NE$(A)D$:6 50000:CR$"" DV1:" PLEASE PLACE THE ULTIMA V " BRITANNIA OR UNDERWORLD "@ " DISK IN THE DISK DRIVE AND "h " PRESS A KEY TO CONTINUE"z Z$:Z$""25 Z$""100 " VERIFYING DISK" 15,8,15:5,8,5,"#" #15,"U1:"5;0;18;0:B$"" %60000 (L144161:L14415,"B-P:"5;144( -#5,A$:B$B$A$5 2:5:15P 7VB$"BRITANNIA"(160)l 9VU$"UNDERWORLD"(160) <(B$,10)VB$(B$,11)VU$100 F" THIS DISK IS NOT THE ULTIMA V" K" BRITANNIA OR UNDERWORLD DISK." L" PLEASE INSERT IT INTO THE DRIVE"= P" AND PRESS A KEY."O UA$:A$""85W Z30z dDV0:"ULTIMA V LAND VIEWER" n"" x"1) SMALL MAPPER" }"2) FULL SCREEN MAPPER" "3) WORLD MAP PRINTER" "4) LEGEND" "5) QUIT") "WHICH ONE?"< Z$:Z$""145U (Z$)1(Z$)5145y (Z$)1000,2000,3000,6000,5000  **** SMALL MAPPER ****   "BLOCK MAPPER" "" "LATITUDE LONGITUDE (OR Z TO STOP)? "; ZZ$:ZZ$""1041& ZZ$"Z"100H (ZZ$)65(ZZ$)("P")1041m LT(ZZ$)65:LT$ZZ$:""ZZ$""; ZZ$:ZZ$""1045 (ZZ$)65(ZZ$)("P")1045 LN(ZZ$)65:""ZZ$:LN$ZZ$ "IS "LT$"' "LN$"' CORRECT? ";ZZ$:ZZ$""1049ZZ$"N"1030 ""ZZ$2. NM=LT*16+LNR8 TK=INT(NM/21):SC=NM-TK*21hB TK=TK+1:SC=SC+1L IFSC=21THENTK=TK+1:SC=0V IFTK=>13ANDSC>4THEN1040[TK20LT:SCLN`"--------------------------------------"j""LT$"' "LN$"' TRACK"TK"SECTOR"SC]t"--------------------------------------":15,8,15:5,8,5,"#"t~15,"U1:"5;0;TK;SC60000""10)" ABCDEFGHIJKLMNOP":10)"A";I116:J116:#5,A$A$""A$(0)TR(A$):(CR$,CL%(TR)1,1)P$(TR);::""10)(I65);:&" "75:15:1040V **** FULL SCREEN ****\b~"FULL SCREEN MAPPER""""LATITUDE LONGITUDE (OR Z TO STOP)? ";ZZ$:ZZ$""2041ZZ$"Z"100(ZZ$)65(ZZ$)("P")20416LT(ZZ$)65:LT$ZZ$:""ZZ$"";LZZ$:ZZ$""2045n(ZZ$)65(ZZ$)("P")2045LN(ZZ$)65:""ZZ$:LN$ZZ$"IS "LT$"' "LN$"' CORRECT? ";ZZ$:ZZ$""2049ZZ$"N"20304""'>" ":" "(LT65)"'"(LN65)"'"EH" "WRLN1152190\""16)""14)"":""16)" ";f(LT65)"'"(LN66)"'":""16)""14)""pLN2152190z""32)""5)"":""32)" ";((LT65)"'"(LN67)"'":""32)" ":LT1152240i""14)"":" ";(LT66)"'"(LN65)"'":""14)""LN1152240""16)""14)"":""16)" ";(LT66)"'"(LN66)"'":""16)""14)""!LN2152240V""32)""5)"":""32)" ";(LT66)"'"(LN67)"'":""32)""5)""2450A$:A$""22502030NMLT16LNTK(NM21):SCNMTK21TKTK1:SCSC1  SC21TKTK1:SC0 LT15LN151 TK20LT:SCLNJ 15,8,15:5,8,5,"#1"U$ 60000l. 15,"U1:"5;0;TK;SC8 VT$;:I116:TB);:J116:#5,A$B A$""A$(0)L IVM2430V JHM2410` (CR$,CL%((A$))1,1)P$((A$));j Jt :I~ 60000 5:15:/ VT$"":TB0:VM16:HM169 2280E LNLN1i VT$"":TB16:VM16:HM16:2280u LNLN1 VT$"":TB32:VM16:HM7:2280 LTLT1:LNLN2 VT$"":TB0:VM8:HM16:2280 LNLN1 VT$"":TB16:VM8:HM16:2280) LNLN1[ VT$"":TB32:VM8:HM7:2280e 2250 **** MAP PRINTER **** MF0    "MAP PRINTER":FM0 MF13070 "THIS UTILITY PRINTS OUT A SCALE MAP"# "OF BRITANNIA. IT TAKES 12 PAGES AND"O "APPROX. 4 AND 1/2 HOURS TO COMPLETE."~ " (ASSUMING YOU HAVE AN MPS 801 PRINTER)" "BECAUSE OF THIS, ONLY DO THIS IF YOU" "HAVE LOTS OF TIME AND PRINTER RIBBON" "TO SPARE!"  "LAST CHANCE TO TURN BACK!"( "OK TO PROCEED (Y/N)?"< Z$:Z$""3080L Z$"N"100z "WANT TO PRINT OUT ALL 12 PAGES(Y/N)?" Z$:Z$""3095 Z$"Y"BV1:FV3:BH1:FH4:FM1:3205! "PAGE SELECTION"& "THE PAGES ARE SET UP AS FOLLOWS:"+ "î"0 "ABCD"05 ""A: "EFGH"R? ""cD "IJKL"tI ""N "NW PAGE? ";S Z$:Z$""3155X (Z$)("A")(Z$)("L")3155] ""Z$:NW$Z$:"SE PAGE? ";b Z$:Z$""3170g (Z$)("A")(Z$)("L")3170Rl ""Z$:SE$Z$:(NW$)(SE$)"INVALID.":3150pq NW(NW$)65:SE(SE$)65v BV(NW4):BHNW(BV4):BVBV1:BHBH1{ FV(SE4):FHSE(FV4):FVFV1:FHFH1 3205 "MAKE SURE THE PRINTER IS READY!"# "THE PAGES FIT TOGETHER IN THE"< "FOLLOWING MANNER:"N "î"_ "ABCD"p "" "EFGH" "" "IJKL" "" FM1"FULL MAP IS BEING PRINTED!!":3286 "PAGE(S) "NW$" TO "SE$ "THESE INCLUDE: ";B CT0:ZZBVFV:YYBHFH:CTCT1S CT1",";{ ((((ZZ1)4)YY1)65);:YY:ZZ: "FOR A TOTAL OF"CT"PAGES." FM1SE$"L"3288 3294 "WANT THE LEGEND(Y/N)? "; ZZ$:ZZ$""3289 ZZ$"Y"WL1 ""ZZ$= "IS THIS THE DESIRED OUTPUT(Y/N)?"Q Z$:Z$""3295h Z$"N"MF1:3010r 3320 "PRESS ANY KEY TO CONTINUE." A$:A$""3315 1,4:PC0:TC0 ABVFV:BBHFH Z16 NM(((A1)6)Z1)16((B1)5)D LT$((((A1)6)Z1)65):SL$(((B1)5)65):EL$((SL$)4)y "PROCESSING "LT$"' "SL$"' THRU "LT$"' "EL$"'" TK=INT(NM/21):SC=NM-TK*21 TK=TK+1:SC=SC+1 IFSC=21THENTK=TK+1:SC=0# TK(((A1)6)Z1)20:SC((B1)5)% 3590 * I116:CN15:J116( 4 B434207 > CN13420F H I13800_ R 1," "LT$;:3800m \ A33480{ f Z53480 p Z63471 z I53510 J11,(15)" ";:J:3500 1,(15)((SL$)CN1);:J:3500 B43510 I83510 ! 1,(15)"BY JEFF COUCKUYT":35103! TRM3%(CN,I,J)J! 1,(15)P$(TR);:JR! CNa! 1,(8):I! Z:1," "(8):1,(15)" "(8)! 1,(15)" "(8)! 1:1:1:1:1:1:1! 1:1:1:1:1:1:1! B:A:1:100! ! " **** DISK READER **** " ""15,8,15:5,8,5,"#1"+"CN07"CNCN1T"$(((A1)6)Z1)153740p".((B1)5)CN1153740{"860000"B15,"U1:"5;0;TK;SC"LI116:J116:#5,A$"VA$""A$(0)"`M3%(CN,I,J)(A$)"j:"t60000 #~SCSC1:SC21TKTK1:SC0#CN53740"#3610/#5:15:E#WL0PC1003510S#A33510#PC01,(15)(16)"45ULTIMA V LEGEND";:PC1:3510#PC11,(15)(16)"45----------------";:PC3:3510#PC2(PC2)PCPC1:3510$NE$(TC)"X"NE$(TC)""3830$TCTC1:TC803835($3825h$1,(15)(16)"45"P$(TC)" "NE$(TC);:PCPC1:TCTC1:3510$1,(15)(16)"45"P$(13)P$(14)P$(15)" LORD BRITISH'S CASTLE";$PC100:3510$" GOOD LUCK IN YOUR ADVENTURING!!!"%" AND MAY YOU FIND"2% " LORD BRITISH"]%" BY J COUCKUYT PRODUCTIONS"~%" COURTESY KARLEK"%%pTB0:TB$"":"GRAPHICS LEGEND":""%zA0105:NE$(A)"X"NE$(A)""A:6030 &A20TB19:TB$" ":"";?&TB)TB$;:(CR$,CL%(A)1,1)P$(A)" "NE$(A):Ay& PRINT""P$(13)P$(14)P$(15)" LORD BRITISH'S CASTLE"&"PRESS ANY KEY TO CONTINUE."&A$:A$""6050&TB0:TB$"":"GRAPHICS LEGEND":""'A106255:NE$(A)"X"NE$(A)""A:6130<'A212TB19:TB$" ":"";o'TB)TB$;:(CR$,CL%(A)1,1)P$(A)" "NE$(A):A{'""'"YOU MAY MODIFY THESE GRAPHICS FROM THE"'"PROGRAM. THEY ARE STORED IN DATA"'"STATEMENTS FROM 10000-10250.""("BE NOW WARNED!! DO NOT CHANGE ANY"O("NUMBERS YOU MAY SEE - JUST GRAPHICS!!"s("PRESS ANY KEY TO CONTINUE."(A$:A$""6150(100('(' IF YOU WISH TO CHANGE THE GRAPHICS - THEY'RE THE ONES IN QUOTES!!!%)' DO NOT CHANGE ANYTHING ELSE!! (THIS IS FOR YOUR OWN BENEFIT)o)' 1," ",6,DEEP WATER,2,"Β",6,MEDIUM WATER,3,"֒",6,SHALLOW WATER)$' 4,"+",5,SWAMP,5,":",13,GRASS,6,"!",13,LIGHT BRUSH,7,"-",7,DESSERT).' 8,"*",13,MEDIUM SHRUB,9,"",5,HEAVY SHRUB,10,"",5,FOREST:*8' 11,"",11,HILLS,12,"",11,MOUNTAIN,13,"",11,TALL MOUNTAINw*B' 14,"",11,GRASS/HILL,15,"",11,HILL/GRASS,16,"",1,HUT*L' 17,"",1,CODEX,18,"#",1,KEEP,19,"V",1,VILLAGE*V' 20,"T",1,TOWNE,21,"#",1,X,22,"",1,CAVE/MINE,23,"",1,X2+`' 24,"ђ",1,OPEN DUNGEON,25,"S",1,SHRINE,26,"",1,RUINED SHRINEm+j' 27,"^",1,LIGHTHOUSE,28,"-",7,X,30,"-",7,X,31,"-",7,X+t' 32,"",13,PATH,33,"",13,X,34,"",13,PATH,35,"",13,X,36,"",13,X+~' 37,"",13,X,38,"",13,X,47,"%",13,CACTUS",' 48,"",13,GRASS,49,"",13,GRASS,50,"",13,X,51,"",13,XX,' 52,"",6,X,53,"",6,X,54,"",6,X,55,"ߒ",6,X,' 57,"B",1,BLACK'S CASTLE,58,"",1,CASTLE WALL,59,"",1,X,60,"",1,X,' 61,"",1,X,62,"L",1,BRIT'S CASTLE,63,"",1,CASTLE WALL-' 94,"G",14,GUARDIAN,95,"G",14,XM-' 96,"",6,RIVER,97,"",6,RIVER,98,"",6,RIVER,99,"",6,X,100,"",6,X-' 101,"",6,X,102,"",6,X,103,"",6,X,104,"",6,X,105,"",6,X-' 106,"=",1,BRIDGE,107,"=",1,X,108,"",6,X,109,"",6,X,110,"",6,X".' 111,"",6,X,143,"",2,LAVA,164,"&",1,SIGNPOST,137,"_",1,CROSS].' 138,"_",1,TOMBSTONE,220,"\",3,MOONGATE,221,"-",7,X~.' 223,"ג",1,CLOSED DUNGEON.' 212,"",6,WATERFALL,213,"",6,X,214,"",6,X,215,"",6,X.( 0,"@",4,DARKNESS,255,"@",4,X,222,"F",6,FLAME,71,"",9,DOCK/ ( 256," ",1,X;/PÙ(14):" ****************"]/ZÙ" LTIMA 5 "/dÙ" AND IEWER "/nÙ" ****************"/xÙ" RIGINALLY PROGRAMMED"/Ù" Y EFF OUCKUYT" 0Ù" FOR LTIMA "20Ù" PGRADED FOR LTIMA "T0Ù" Y ARLEK "~0Ù" RESS ANY KEY TO ONTINUE"0áZZ$:ZZ$""500950Ù(142):0_0`15,ZZ$,YY$,XX$,WW$0j(ZZ$)210oI115:I:0t"OPERATION ABORTED.""1~"A DISK ERROR HAS OCCURED:"@1""ZZ$" "YY$" "XX$" "WW$d1"PRESS ANY KEY TO CONTINUE."{1AA$:AA$""600601DV1110011111 **** J COUCKUYT ****11" AUGUST 19871#1$1%1&2'