TAPE $A0 $A1 $A2 $A3 $A4 $A5 $AR $BRICK CBRICKB CBRICKC CCC $CANNON CCOLUMN2CCOWLMENCDIGONALCDOOR CGIRL CGROUND CCITADEL$CITAT $JARS CKEY CMAN CPIRAT CPLATF CSEAHUNTCSEASW CSPIKED CSPIKEU CSPLASH C1  ( n7 #̠ *T298(7@6S2@1 0/.-@+*"00( @ $    STATUE CTABLE CTORCH CWHEEL CWITCH CROOM $0 (0(+^2yflYKҭhhlMdE\L\?)?_媿VUVUUUUV UZfYUZުϺVjE*DU3@<33E*DU333@U31U?D3U?wU*/s1*/@31E*D U3?D@0U?s?w]w|wQwwUwwU?|?<"???&?V"?????wبٱӱQԬԬXsQPXT9`@XXh8([?  t޿PPPP@ѰаPN?_j׮~~\ǀPPPP**P00000@@@@@@: >8ӏ޽ڽTzuUUU]MPPPPPHHHH P@@@@@@@@C?wkWW<_Wy$WyԬԬHHHHHHHH ??????? O?_U^߿χ"_kUkU|ԬլԬԬッxH((($$$$XXU? 8Ï?W_??jU!WkWkWkW=_wU}WHxԬԬԬԬ __o$}.կW5p[WU]  ?? ? UUUUW}߿U ooWkWkWkWV__ݪ]wUUUUUU]_UwU]UW|ew)_'伻]Uu~v_aӆ5+]zjUUU[__W~~ GA `ի_o:-._j$]H?]E }I4AwnEfouWOu_U_U]͗ߝժ[WoSpdzBnKx8v`@>!m:5~C JUTTU9U+WWWzu/'b_b~U@ @@0 ??|P11#"`TB <"[(D+E }*R\F ?D:u~^_UUU_UUuUUUWUUUUWZjw}uuuHA@ `??7 zVWWUUժUUUU_WWUU_W׫WWժUUu}}}xxx|>>=@  0>80  @68 0")UUUjjUU]UUUUUUUU_UUUWUUUUUUUzzZV <`U=RD   } 5[komUU_WzUUUUUUUUUUUUUUUUUUUUZ[jm?pJMJMKUZ|Ì0@@d$H(:@   !tdH   c9kWkWkWUUjnjWUUuݮUUUUUUUUUUUUUUUU]UUU'VZ 0(D24UT $O7ȑ@ ; c@aVV5АV֫իWkjeU]UUUUuj~_UUUUUUUUUU]]UUU_!4,4kzU@ O 2RRRTTXhhhidT\T\( iݭUUU  گEEե1D`v7W @@@@@@_mZƃ v7ת}WUժUUU]UU]]mU֫}}W??: 0 _:cUUIDd$(P` H)ȆZ7 !F!@>b,q`*,MJ0@@$ U` 5*VU^oUm}UUWUUUU__UUU^ժU_W:`}8'@ClU۪޵VwkUUUU]_}}UUUUWUUUzz֯W_`` ^jZkkkUUUUuuUUUUUUUU}]^Z *<Z*5*ׯׯ׫UUUUUUUUUUUUUUUWUUUEcccpXq0&ppq`ȱpL(ȱpȠpXq0&ppq`ȱpLPBȱpȩeieppqiq`ccccccccccccccccccccccccccccccccccccccccccccccccccc  *FX200,2 c4:=&3000:28,0,30,39,0:A$="____________________":10)A$''10);"Approaching CITADEL";10);A$ (g17,7)"Author"';12);"Michael Jakobsen"'';14);"Title Screen"''':5:400,668:"Lars @sterballe":4 d*LO."CITAT" -TS:A$="???":?&95=(?&3CD &80):A$="???" #23;8202;0;0;0;12,28,0,31,39,27  dtA ):T$="Please stop the Tape":10,2)T$ G129:0::10,1)T$';18);"and"';10)"P r e s s S p a c e":*FX15,1 0A$= T\L "128:26,12,19,0,1;0;19,1,3;0; k1:8,2)"Please select which key":8,3)"Layout you wish to use...":12,5)"1 2 3 4" |X=2:Y=7:X,Y)"LEFT :":X,Y+2)"RIGHT :":X,Y+4)"UP :":X,Y+6)"DOWN :":X,Y+8)"ACTION :":X,Y+10)"SPELL :" X=12 %X,Y)"Z C < W" 'X,Y+2)"X V > E" 'X,Y+4)"* L F K" 'X,Y+6)"? < V M" 'X,Y+8)"Return + D F" (X,Y+10)"--- Space or Shift ----" 28,0,21,39,19:128+1::0:" Alternatively you may select Joystick (by pressing 'J' while in Pause mode) when the game has loadet."; t628,0,24,39,22:128::1:12,1)"Enter 1,2,3 or 4" <:K=(0)-48: K>0 K<5 F:14,1)"Key Layout ";K  TKBK=&C00 E(4390+K*10):X%=0123:A$,Y%:X%!TKBK=("&"+A$):X%?(TKBK+2)=Y%: 0( BFFB,4,B7FF,8,BFF7,8,AFFF,8,BFFD,4 :( BFEF,4,BDFF,8,BFDF,8,BBFF,8,BFF7,4 D( BDFF,4,BFEF,8,BDFF,8,BFDF,8,BBFF,4 N( BFDF,4,BBFF,2,BFBF,8,B7FF,2,BDFF,4 129:28,0,29,39,25,12:0:8,1)"Are you Male or Female ?":11,3)"Please enter M or F":A$=::13,2);:(A$32)=102H=1:"You are Female"H=0:" You are Male" |M128:1:28,0,31,39,30,12:14,1)"Correct Y/N";:A$=:(A$32)<>121txK @<4:TS:?&90=74:?&91=163:?&82=H:X%=015:X%?&70=X%?TKBK: "Press PLAY" l*RUN"CITAL" #(TS:&4200:13,15)"Superior":13,16)"Software":13,17)"Presents":29,28)"C. Michael";31,29);"Jakobsen":19,0,6;0;19,1,4;0;28,10,31,28,26: }^}}m}۽}}_}WE*D U <"E*DUϻ32 U"0 U? *n_s1*n_@31E*DU""Ϩ3 U ??" +U+Z@+U+ @@ U;UTU3? DwuuUWwwww}UW_uUU wUUUUDQ3EwUUuUUwwL}wUWwUUUUwݖ?? M7:X=01:0,X);129;157;131;141;"CITADEL FILE COMPACTOR AND CODER":  =&2400 dOSFILE=&FFDD LOAD '"CODING." CODE , '"Incert Destination Disc" 6"and Hit a Key !":*FX15,1 ^ A$=:  SAVE  PARAM '"NOW SAVED AS :" *INFO CITAM  LOAD:*OPT1,2 !X%=&6480 &64FF:?X%=(256): L*LO."D.FIG" 2400 *LO."D.ROOM" 33A0 *LO."M" 4500  ?&64FF=0 l CODE:X=&70:Y=&71 4I%=022:P%=&C00:[OPTI%  .COMP  LDY#0:STY X .FROM:LDA&2400,Y:STY Y  TAX: Y ..TAA:STA&2400,Y ` TXA: X:STA X  DEY:BNE FROM ( INC FROM+2:INC TAA+2 < LDA TAA+2:CMP#&65:BCC FROM  LDA X:STA&64FF RTS:]: T COMP   SAVE *SAVE"CITAM" 2400 6500 A670 $ PARAM:P=&C00 X=P P+&15:?X=0: ?P=&F0:P?1=&C:$&CF0="CITAM" O Load Add. PP!2=0:P?3=&80 dX%=0:Y%=&C:A%=2: OSFILE   廥jYYZeUUUjZUUjUUUUfUUUUU; Citadel Loader Program ; 07-04-1985 ; 18-11-1985 BBC ; 13-12-1985 Electron ; AR ;______Options__________________________ ; Yes:-1 No:0 ELK EQU -1 ;ELK/BBC DISC EQU 0 ;Disc/Tape TEST EQU 0 ;Protection Off ? ;_______________________________________ IF DISC TAPE EQU 0 ELSE TAPE EQU -1 FI IF ELK BBC EQU 0 ELSE BBC EQU -1 FI ; Values from Basic TRM EQU &80 HERO EQU &82 ERR EQU &95 ; Zero Page Variables DSECT ORG 0 X DS 1 Y DS 9 W DS 8 DEND GILCOL EQU &540 MANCOL EQU &5C4 GILDAT EQU &400 MANDAT EQU &610 ; OS OSB EQU &FFF4 OSFILE EQU &FFDD OSRC EQU &FFE0 OSWC EQU &FFEE OSWD EQU &FFF1 IF BBC CRTC EQU &FE00 CRTC1 EQU &FE01 PAL EQU &FE21 FI ; Load Adress for CITAM LCITAM EQU &F00+&400 ; Assembler ORG &4400+&100+&F00 ;&5400 EXEC START ASC 'CITADEL' ASC ' Please do not copy' ASC ' my Program !' IF ELK ASC ' MJ. 14-12-1985' ELSE ASC ' MJ. 18-11-1985' FI ;[ Fool, Does Nothing START LDA &5527 STA W LDA &55C6 STA W+1 LDY #0 TYA FDNB EOR START,Y DEY BNE FDNB STA W+2 LDA #&60 ;RTS STA FORTS IF BBC LDA #11 ;No.KB Rpt. LDX #0 JSR OSB0 FI LDA #4 ;No Cursor Edit LDX #1 JSR OSB0 LDA #200 ;Break LDX #3 JSR OSB0 LDA #229 ;Escape LDX #255 JSR OSB0 LDA #225 ;Func-K LDX #48 JSR OSB0 IF ELK LDA #8 ;KB Rom STA &F4 STA &FE05 FI JSR FOOL IF TAPE ; Set Timer=0 LDX #4 LDA #0 TIMS STA X,X DEX BPL TIMS LDA #2 JSR OSWD0 ; CITAL Spare Byte LDA &3CD BNE P1OK INC ERR P1OK ; Set CITAM Tape Loader LDA #13 LDX #4 JSR OSB0 LDA #>PTAPE STA &220 PPTAPE LDA #&55 STA &221 LDA #0 STA &3D8 LDA #14 LDX #4 JSR OSB0 FI ; Load Data and Assembly LDX #>LOCM LDY #FPB LDY #DPSA STA &202 LDA #FPB LDY #&2500 STA &220 LDA #<&2500 STA &221 LDA #14 LDX #4 JSR OSB0 IF ELK LDA #178 ;Disable KeyB LDX #0 JSR OSB0 LDA #4 ;Joy Read STA &FC70 FI ERRJP FO44 JMP &3280 ; Set to &4400 in FOOL & ERRT ; From FOOL, Does Nothing, just RTS FORTS CLC ;RTS ADC X STA Y BNE FO44 JMP &3600 OSB0 LDY #0 JMP OSB VDU HEX '141A' HEX '1C001F1308' HEX '1800000000F804C002' HEX '1D0000E0FF' HEX '17000A20000000000000' VDUX ; Parameter Block for load CITAM ; and Disc Protection Test FPB LOCM DW LONF DW LCITAM DS 14 LONF STR 'CITAM' IF TAPE PTAPE LDA &3CA AND #&FE STA &3CA LDX #0 LDA &3C6 TAY LSR BCC PTB LDX #32 PTB STX &3D7 STX X LDX #4 PTNA LDA &3D2,X AND #&FF-&20 ORA X STA &3D2,X DEX BPL PTNA LDA &3CD PTT8 CPY #23 ;Fool BNE PTE STA X+3 PTE STA X+2 PTG RTS FI FOOL LDA &88 ;Cheat Code JSR FORTS ;Just RTS EOR #&17 STA &88 LDA #200 STA FO200+1 LDA #&44 ;Fool STA FO44+2 IF DISC LDA #0 STA ERR LDA #4 STA DPSA4+1 FI LDA #Y ;Fool STA FREORY+1 IF TAPE LDA #8 ;Fool STA PTT8+1 LDA #SOW LDY #FDB STA W+4 LDA #SB0,>SB1,>SB2,>SBBRO,>SBHUNT,>SBHUNT,>SBHUNT,>SBFIRE TSBH DFB B0,>B1,>B2,>BBRO,>BHUNT,>BHMUM,>BHHU,>BFIRE TFTH DFB PT0,>PT1,>PT2,>PT3,>PT4,>PT5,>PT6,>PT7,>PT8,>PT9,>PTA TPTH DFB DROOM STA Q LDA #FDB STA W+4 LDA #FCDB STA W LDA #&6000" Page=&6000":=&6000:"TAPE" P7:Y=01:0,Y)(129+Y*4);157;131;141;" Citadel Master Tape Creator": (28,0,23,39,2 211);"E l e c t r o n" <%134;157;132;15);"12-12-1985" F10)"Use a BBC to Save" d *OPT1,2 &"Press Record on Tape Recorder." )"This Program Automatically Starts" "and Stops the Recorder." '"Press a Key to Start !"':*FX15,1 A$= D *LO."CITADEL" 1900 T !*SAVE"CITADEL" 1900 +7FF 8023 LD V*LO."CITAT" 3000 ` PA:T ~*SAVE"CITAT" 3000 +12A0 d *FX13,4 x" A Pause !"  *MOTOR1 =0::>500  *MOTOR0 D *LO."CITAL" 5400  PB:T *SAVE"CITAL" 5400 +2FF 5436 @D J*LO."CITAM" 1900 ^ PC:T r *SAVE"CITAM" 1900 +4100 1CB0 D T&" Citadel is now saved to Tape !"  PA:*FX13,4 " Protection A On :" " Spare Byte Code" I%=022:P%=&C00:[OPTI% LDA#&80:STA&3CD RTS:]: ?&220=0:?&221=&C:*FX14,4 > PB:*FX13,4 " Protection B On :" !" Locking & Spare Byte Code" I%=022:P%=&C00:[OPTI% hLDA&3CA:A#1:STA&3CA |LDA&3C6:STA&3CD  RTS:]: ?&220=0:?&221=&C:*FX14,4 & / PBL:*FX13,4 " Protection B Load" I%=022:P%=&C00:[OPTI% \LDA&3CA:#&FE:STA&3CA  RTS:]: ?&220=0:?&221=&C:*FX14,4  PC:X=&80:*FX13,4 " Protection C On :" -" Locking, Change Block Names & SP-Byte" I%=022:P%=&C00:[OPTI% O\" Locking PLDA&3CA:A#1:STA&3CA c\" Block Names +/- 32 d*LDX#0:LDA&3C6:TAY:LSR A:BCC P2B:LDX#32 n.P2B:STX&3D7:STX X w\" Block Name CITAM/citam x?LDX#4:.NAME:LDA&3D2,X:#&FF-&20:A X:STA&3D2,X:DEX:BPL NAME \" Block 8 Spare Byte LDA#0:CPY#8:BNEP2E:LDA#&7F .P2E:STA&3CD \" False Load & Exec Add #LDA#&80:STA&3BF:LDA#&A3:STA&3C3 #RTS:]::?&3D8=0:?&3CD=0:?&3C6=0 ,?&220=0:?&221=&C:*FX14,4 r |PCL:X=&80:*FX13,4 " Protection C Load" I%=022:P%=&C00:[OPTI% C\" Block Names +/- 32 DLDA&3CA:#&FE:STA&3CA X+LDX#0:LDA&3C6:TAY:LSR A:BCC P2LB:LDX#32 b.P2LB:STX&3D7:STX X k\" Block Name CITAM/citam l?LDX#4:.NAME:LDA&3D2,X:#&FF-&20:A X:STA&3D2,X:DEX:BPL NAME \" Block 8 Spare Byte  LDA&3CD:CPY#8:BNEP2E:STA X+3 .P2E:STA X+2 .P2G "RTS:]::?&3D8=0:?&3CD=0:!&70=0 ?&220=0:?&221=&C:*FX14,4  @D:*FX13,4 J*D.   T:*T. 132;157;132; *FX138,0,13  TP@ #17  <A=&C00:B$=99," "):DUMY=&70 d;7:TW%=&900:T%=TW%:R%=0:TXT%=&A00:TXP%=TXT%:TN%=0:TL%=0 h?TXP%=0:TXP%=TXP%+1 n%S$="_"+9,"__"):CB2=0:TX$(50) ,$A= F%=("D.ROOM"):dhC bE"Room Data Free #";(&1060-TL%):"Text Data Free #";(&AFF-TXP%) %TL%<&1060X%=TL%&105F:#F%,0: X%=&A00&AFF:#F%,?X%: #F%  N=0 L%DIAM=N:IBASE=N+6:BOTTLE=N+7:N=N+9 VBUCKET=N:BUCKC=N+2:N=N+3 `WATER=N:WICE=N+1:N=N+2 jICECRYS=N:N=N+1 BUTTON=N:ANTENNA=N+1:N=N+2 PYFIG=N:Chain=N+1:N=N+2 CANBALL=N:POWDER=N+1:N=N+2 CHICKEN=N:N=N+2:DISC=N BARREL=N+1:SNOWB=N+2:N=N+3 =CL=N:SKULL=N+1:BONE=N+2:BONEB=N+3:IRON=N+4:GOLD=N+5:N=N+6 3COLUMN=N:CROWN=N+1:WCROWN=N+4:SHACKLE=N+5:N=N+6  STARPT=N:N=N+1 LIFT=N:N=N+1 @5DEMON=N:PIG=N:SORPION=N+1:STARS=N+2:STR=N+2:N=N+3 J SNAKE=N:N=N+1:PULSAR=N:N=N+1 TFIRE=N:N=N+1:SPIEKO=N:N=N+1 ^BROUNCH=N:BROB=N+1:N=N+2 rMETLANT=N:N=N+1 CUF=N:CUD=N+1:N=N+2 &JELLY=N:JELLYB=N+1:MUMMY=N+2:N=N+3 NCHAIR=N:COATARM=N+2:N=N+3 bTRAMPO=N:N=N+1 fLTC=N:PHARO=N+1:N=N+2 hHEAD=N:WULF=N+1:N=N+2 k N>64 lN=64:DOOR=N:N=N+8 vKEY=N:N=N+8 CWM=N:N=N+1 !BC=N:BB=N+7:BRICK=N+11:N=N+15 DIG=N:N=N+2 JARS=N:TABLE=N+1:N=N+2 WHEEL=N:WITCH=N+1:N=N+2 SEAH=N:SEASW=N+1:N=N+2 (COLUMN=N:STATUE=N+1:CANNON=N+2:N=N+3 3GRASS=N:MUD=N+1:ROCK=N+2:SAND=N+3:ICE=N+4:N=N+5 &PLATF=N:PIRAT=N+1:SPLASH=N+2:N=N+3 'SPIKED=N:SPIKEU=N+1:Torch=N+2:N=N+3  L=DUMY R("@ ","BARREL") C("40FF","") S  R("@The Pyramid","SAND"):O 3C("4858:627E:C4C6:CACC:E6EA:A8A8",""):IB(&88) DSO("*030PYFIG:63:6D:_15:*003SPIKED:62:69:_12:*023SPIKEU:72:7C") -L("68","E5013:EB013:F8309"):U("10666A") 1F("MUMMY:SNAKE"):B("08C6:08CC:08A8:42E75C")  EMPTY(2) 4COPY("83") HR("@The Palace","BC4") LC("405F:60CC:B3EE","") PL("","FE002"):S VF("CWM"):B("08D6") \ EMPTY(3)  R("@Central Tower","BRICK") =C("00BC:40FF:0000:87A9:B5BB:C3ED:000C:9898",""):IB(&F3) HL("","E8109"):U("B6BA"):F("STR:BROUNCH"):B("06B9A7FA:4BC6:49E9")  EMPTY(8) tR("The Pyramid","SAND") vO x/C("54E4:5BEB:7DCD:636E:95AA:D3DE:E8F8","") zXSO("*000HEAD:69:A4"):L("94:AB:CD:F8","68304"):F("BROB"):B("0967:0894:067B:0BDD") |L("F8","") R("The Palace","BC4") O !C("67B8:C7EF:4FBF","4FCECF") 2SO("*000CWM:_16:60:_32:90:*000DISC:C0:D0:E0") U("00C9CD") R("The Palace","BC") OB("*000BC:_1A:D0:F0") FC("4084:4B8F:90BF:C0C4:D0D3:E0E2:CBCF:DCDF:EDEF","45944A:454B9B") IB(&B0) SO("*021DISC:72:7D:*200LTC:87:*000STATUE:B1:_31:BE:_32:C1:_33:CE:*200COLUMN:_21:B7:*000COLUMN:_23:D1:DE:*120Chain:_2B:42:4D:_10:*001IBASE:D1:DE:*201IBASE:B7") U("249599") F("Torch"):B("0FA3:0FAC") R("The Palace","BC1") O 5C("40B0:557D:73A5:B4B4:898A:97BD:C0EF","C241C1") NSO("*020TRAMPO:A5:E4:E8:*000PIG:98:C6:E1:ED:_12:E5:E9:*200PIG:_11:D5:D9") DOR(7,&B4):U("C2CE") -F("LIFT:BROUNCH"):B("02CCAF:355A:3693") COPY("93") R("The Palace","BC3"):O %C("577D:72AB:A7BD:C0DF:E2EF","") 0SO("*000HEAD:E2:E5:_12:CD:DD:ED:_31:98:D7") L("","7E006:EB314") U("0076C6AC") 4F("CWM:PIG:LIFT"):B("00BB:61E8DF:62785A:4F9B") R(" ","BRICK") C("40CF:D0FD","") S R("@West Tower","BRICK") O %C("40CF:D3D6:E1F6:004C:68E8","")  IB(&68) qSO("*002PLATF:F5:*100CANNON:C1:_31:CD:*201COATARM:87:*000COATARM:_33:89:*010LTC:88:*000PULSAR:CA:_13:D9:E9") L("F1","FE305"):S 'F("STR:PIRAT"):B("02A767DA:4F69") )R(" ","BRICK"):C("40CF:D2FF",""):S ( EMPTY(2) dCOPY("17") xR("@East Tower","BRICK") zO |%C("408F:90CC:BCDE:0040:D3F3","") ~@SO("*000SHACKLE:D3:*200JARS:DC:*000PLATF:AB:*301CANNON:8D") L("F3","FE007"):S #F("CWM:PIG"):B("08B7:44CEBE") )R(" ","BRICK"):C("408F:92FF",""):S EMPTY(4) COPY("01")  EMPTY(4) |$R(" ","BRICK"):C("40FD",""):S R("West Tower","BRICK") &C("4156:61D3:E1F6:6A8D","6DE1ED") L("E1","8E308:FC113") 7F("FIRE:PULSAR"):B("02D97D:02DBD7:4FC7:467C6C9F") $R(" ","BRICK"):C("42FF",""):S EMPTY(0) R(" ","BRICK") C("40FF","") S EMPTY(0) COPY("27") R("East Tower","BRICK") O *C("4363:81BB:0070C0C0:C1EB","63818B") IB(&A9) SO("_1A:*000WATER:C1") L("A3","FE022")  F("SPLASH:SEAH"):B("21D8") COPY("29") 0 EMPTY(4) R("The Pyramid","SAND") OB("*000BB3:_19:E3") 9C("4858:636E:5DBD:8C8E:C3DC","88C1CE:C1F3C4:CBFDCE") HSO("*110PYFIG:65:6B:*020PHARO:A5:AA:*000MUMMY:D4:DB:*200BC:_11:D6") L("AD","68304") F("BROB"):B("0966") EMPTY(4) COPY("27") R("West Tower","BC4") "O $*C("41A6:5A5B:6A6A:7A9F:AACE:D1EE","") &ASO("*000HEAD:61:66:_15:*000SPIKEU:_32:B1:_11:*000TRAMPO:B2") (L("BA:CC","5C102:F1202") *P(&A0):DOR(1,&5B) 0.F("CWM:SORPION"):B("08D8:428A7C:459CD7") 4R(" ","BRICK") 6O 8C("426F:709F:A4EF","") >S:P(&78) HR(" ","BRICK") JO L%C("40AF:B0E1:B5EF:03FF:B2E4","") NSO("*000JARS:_33:E8"):S VF("LIFT"):B("04ABD8") \R("Central Tower","BRICK") ^O `CC("40EF:F3F3:003C:B1EE:A4AC:769A:6666:6868:6A6A:000C:9898","") bKSO("*110LTC:98:*300CANNON:A1:*001COLUMN:66:68:6A:77:79:_1D:B1:_18:A4") fS:P(&B9) jF("CWM"):B("00DA") pR(" ","BRICK") rO t0C("40E5:46AF:B9EC:E8E8:0333:BFFF","BDFDBE") vSO("*010BUTTON:E8") zS:P(&15) ~#F("SNAKE:BUTTON"):B("03E215") R("@Top of Castle","BRICK") O 4C("408D:90AF:B3DC:E7F7:0333:B0F2:0054:B1F1","") SO("*000SHACKLE:E7") L("F7","") S:F("CWM"):B("08CC") R("East Tower","BC") O *C("627C:7D7D:8285:90AE:B2CE:D4FC","") )SO("*300CANNON:77:*200Chain:_27:66") L("A4:D6:D8:DA:FC","7E006") DOR(2,&7D) 3F("SORPION"):B("02C69E:02B8E9:029A9E:02CC9F") COPY("29") EMPTY(10) AR(" ","BRICK"):O:C("40FD:AEBF",""):SO("*100CANNON:BE"):S R("@West Wing","BB2") O 9C("628C:6D7E:A0A7:B7B7:B0B3:C1F1:C3EE:8E9E:AEBF","")  IB(&F7) 2SO("*230COATARM:63:6A:*030COATARM:_32:64:6B") L("F1:C7","81108:E9012") P(0):U("00656DA2A5C5CB") F("CWM"):B("01D8:0C7A") R("West Wing","BRICK3") O C("82AE:A0B1:B1CF","") SO("*000SPIKEU:_12:D3:DB") #F("SNAKE"):B("03C43D:03CC3D") R("@The Kitchen","BC"):O :C("00D3:4294:5565:0000:566E:739E:B0CF:D2ED","765556")  IB(&A3) WSO("*210TABLE:9A:E2:*200JARS:EC:_32:9D:_33:C0:*010CUD:98:EA:_31:E6:*020CL:_24:43") L("","FE212"):U("00B1BF") 5F("FIRE:CUF"):B("04E84C:4F98:4FE6:4FEA:029538") R("@Thorn Maze","BB") O MC("4343:517E:8195:879A:A4A5:A8AA:B8B9:8CBC:B0C6:D2E6:C8EC:9FCF:EEEF","") nSO("*000SPIKED:52:5A:CA:_31:5C:*023SPIKEU:7B:_16:*020SPIKEU:E2:_10:*000TRAMPO:A2:*020TRAMPO:AA:9C:E5:E9") L("66:59","CE110:FE302") P(0):U("10B19F") F("PULSAR") B("0F75:0FA4:0F89:0F97") R("West Wing","BRICK3") O *C("738E:90CB:E0EB:FBFB:00D3:4FCF","")  IB(&9D) SO("*021SPIKEU:C3:CA") L("FB","")  P(&C1):U("00927C") F("LIFT:FIRE") B("04A97C:34C629") R("*East Fireplace","BC1") O MC("00D3:40B2:A3A3:0053:4191:0000:539F:A1A1:A4AF:B1BF:D2ED:4747:F3F3","") aSO("*000TRAMPO:C7:CD:*021HEAD:67:6D:99:9B:*210TABLE:B4:B8:BE:*200JARS:EA:*020SPIKEU:_12:BA") L("57:F3","E6206") ")F("FIRE"):B("06B241:02B241:04B114") (R("@East Wing","BB3") *O ,$C("44EC:50B1:A2CE",""):IB(&C1) ./SO("*000PLATF:95:_31:BB:_32:7C:C7:_33:78") 0!L("5C","FE005"):U("10A3AD") 63F("SPIEKO:STARS"):B("00E8:478A54FD:439754FD") <COPY("29") P EMPTY(3) R("@The Desert","GRASS") &OB("_16:*000SAND:F0:*020SAND:F0") (C("40DF:E0E6","E7F7ED"):IB(&ED):S R("@Stonehenge","GRASS") 5C("40DF:003C:B3B7:C4D4:C6D6:D9D9:CDDD","C3C8C2")  S:P(1) ,F("PIG:METLANT"):B("02AB9E:2FDA:2FDC") COPY("55")  R("@The Wasteland","GRASS") &C("40DF:00C3:B7B7","00C3:B8E5E9") S:F("CWM"):B("0597")  R("@Witch's House","GRASS") ?C("40DF:000F:B5DA:9696:0032:C9D9:0004:C6C6","00A3:98B4BB")  IB(&ED) S F("METLANT"):B("0FD3") R("The Wasteland","GRASS") C("40DF","") S:F("CWM"):B("08C8") R("The Wasteland","GRASS") O C("40DF","") ESO("*000CANNON:63:*000BC1:73:_12:83:93:A3:B3:D3:_10:*030LTC:95") "S:DOR(0,&C5):U("20C4C6") &F("CWM"):B("0465") ,R("*West Gate","BRICK") ..OB("_19:*000GRASS:E0:F0:*020GRASS:E0:F0") 0MC("409D:A0CF:D0DC:E5EC:5F5F:009C:6F9F","008D:D5E0E5:D5D9E5:001E:6ED8D8") 2KSO("*100CANNON:C5:_23:*100Chain:5F:_17:*000WATER:F5:_16:*001IBASE:D7") 63S:F("STR:SNAKE"):B("03A5A5DE:42C9E5:42CB5E") @R("West Wing","DIG1") BO D/C("4141:517E:8B9E:A0CE:D3DE:E4EE:F7F9","") E IB(&88) F)SO("*330PLATF:E8:*020TRAMPO:_13:EB") HL("61","") JP(0):U("1052565AA2A6AA") NF("PULSAR"):B("01CDFB5F") TR("@FrEeZeR","ICE") VO X4C("00FE:82CF:0000:517F:859F:A6B9:C8D8:E1EF","") \L("","E1314") ^U("16E2E6E9ED") b*F("SNOWB"):B("04965D:02B86A:02ED1F") hR("FrEeZeR","ICE") jO lRC("5F5F:507C:8092:E0EE:00FE:7A7C:A1CE:0000:92AE:B5BE:C3D3:0005:AFAF:EFEF","") m IB(&7B) n#SO("*000SPIKEU:_33:_12:84:C7") pL("","5E202") rU("1493E1E7ED") vF("SNOWB") xB("02E61F:04B8F5:02763A") |R("@Central Castle","BC4") U("00A6A9") B!F("PIG"):B("08B2AE:01D4BE") HR("@The Prison","BB1") JO L7C("4787:4B4B:5B6D:9F9F:ADAF:A2DC","57A2A7:58A8AC") M IB(&E4) NSSO("*210TABLE:D2:*011CHAIR:D5:*000JARS:DB:*001HEAD:A5:A9:*120Chain:_29:47:67") PL("","AE012") RP(0):DOR(6,&AD) VF("CWM"):B("00C6") \R("@On The Beach","BRICK") ^1OB("_1D:*000GRASS:C2:D2:E2:F2:*020GRASS:C2") `+C("42BF:90A1:CFCF:009C:6080","C7CFDF") a IB(&C6) b,SO("*300LTC:50:_1D:*020GRASS:D2:E2:F2") fS pR("On The Beach","GRASS") rO t*C("40CF:D8DF:0070E0F0:E8FF","D0DAE9") v:SO("*300JELLY:DC:_17:*000WATER:E8:*000JELLYB:_22:ED") z+S:F("SPLASH:PIG"):B("24A5AD:24C6AD") R("@The Ocean","BRICK") O C("40DF:0070E0F0:E0FF","") FSO("*100JELLY:D3:D5:DA:*000WATER:_1F:E0:*300JELLYB:_22:E3:E5:EA") S %F("SPLASH:SEASW"):B("22E8E6FB") R("The Island","ROCK") O $C("409F:A0DA:0070E0F0:E0FA","") MSO("*003PLATF:C9:*100JELLY:D2:D7:_1A:*000WATER:E0:_22:*300JELLYB:E2:E7") &S:F("SPLASH:SNAKE"):B("239CBF") R("The Island","ROCK") C("409F:00DC:8698","") S:F("CWM"):B("0567") R("The Island","ROCK"):O C("407B","5C8D8C:80A087") SO("*010SKULL:85") L("5B",""):S  EMPTY(2) R(" ","GRASS") C("535F:637B",""):IB(&87) $R("Witch's House","GRASS") &O (/C("4646:517C:B2DE:7C9F:ACAE:027F:5050","") *BSO("*030HEAD:7C:CD:*020TRAMPO:DC:*010CUD:76:D5:DB:_31:74:D7") ,'L("56","D1012"):U("00535A7DB3BA") 25F("CWM:CUF"):B("0491:4F74:4F76:4FD5:4FD7:4FDB") 8R("Witch's House","GRASS") :O <-C("709E:A9FA:00C1:A3B5","70587E:A7E9AB") >;SO("*010CUD:9D:_32:94:*020SKULL:92:AB:*221SHACKLE:BA") @L("FA","") F;F("FIRE:WITCH:CUF"):B("429E:6F9D:6F94:02B536:02B336") L EMPTY(0) `3R(" ","MUD"):OB("*120BC5:_17:43:53:63:73:83") dC("565F:667C",""):IB(&89) tR("@The Cellar","BC5"):O xGC("676D:62B5:71AE:9FBF:B7CE:C2C2:0070CCF0:D2F2:D7FE:027F:5058","") y IB(&A9) z^SO("*001PULSAR:8B:A8:AA:AD:B7:*330JELLY:BB:_31:E8:*030WATER:C2:_17:C7:*030JELLYB:_25:CC") ~U("00769F") %F("SPLASH:SEASW"):B("22DAD7EC") R("The Cellar","BC5") O C("518B:6E7E:90BF","") OSO("*210BARREL:_12:91:88:*020SPIKEU:_32:B5:*000BARREL:_13:A1:B1:98:A8:B8") L("","7D306:BE207") DOR(5,&7E):U("00909C") !F("PIG"):B("06A78C:04AE9C") R("The Cellar","BRICK2") O HC("515C:6161:7174:8485:6CAE:787A:879A:90B2:A1C5:B7CE:D8DE:EAED","")  IB(&E9) PSO("*000JARS:EA:_33:D8:*020TRAMPO:DE:EB:*030COATARM:79:*330COATARM:_32:79") L("","C3110:C6014:9B208") 4F("SPIEKO:STR:PULSAR"):B("0099:43B1A1D7:8F9C") B("00BD")  EMPTY(0) R("The Well","MUD") OB("*020BB3:_2A:46:49") CC("6062:7293:9494:A4A6:47F8:D9E9:DADB:EBFB:CBCC:ACBC:9C9F","") L("F8","")  P(&35) F("SORPION") B("03985E")  EMPTY(1) PROCR("The Drain","MUD") )PROCC("909A:0053:8BAC:0390:9D9F","") R("The Ocean","MUD"):O *C("007000F8:485F:6FAF","0070:686FBE") SO("*020JELLYB:_26:4D") F("SEASW"):B("067E6C9F") R("The Ocean","MUD") O *C("007000F0:40AF:BCCF","0070:B2ACDB") RSO("*220SKULL:CE:*321JELLY:57:*020JELLYB:_29:68:*320JELLYB:45:_22:43:_2C:4A") "1F("SEAH:SEASW"):B("0197:229493B8:26AC99CD") (R("The Ocean","ROCK") *O ,1C("007000F0:407A:80A9","0070:8B7ABA:B0D0B9") .>SO("*321JELLY:64:*020JELLYB:_26:75:*320JELLYB:47:_2A:42") 6F("SEAH"):B("0185") < EMPTY(3) R("@Star Port","BC6") O oC("00CB:D6FA:0000:42CF:D3D6:DADE:EBEE:0009:E4E5:0003:A8C8","003C:A8B999:A96878:68BBBB:68A9BA:0000:CC6C66")  IB(&F4) $SO("*120ANTENNA:8A:*010LTC:E8") S R(" ","BRICK1"):O C("40CF:D1FF","") SO("*000SHACKLE:D1") L("F1",""):S  EMPTY(0) R("Witch's House","GRASS") O  C("495A:618D:93CD:D7DD","")  IB(&91) &SO("*210TABLE:D9:*230HEAD:93:9C") L("9A","") $F("CWM:LIFT"):B("00B4:44A66D")  EMPTY(1) R("The Cellar","BC5"):O =C("007000F0:4262:476E:729E:A2A4:A8A9:B1BD:C6DE:E8EC","")  #SO("*020JELLYB:_2B:49:_26:4C") U("2075B5B7BA") 1F("SEAH:SEASW"):B("01B1:267B7AAF:229372A5")  EMPTY(2) TR("The Well","MUD") VOB("*020BB3:_2A:46:49") XRC("4778:6062:6374:696B:4B5B:00F0:87F8:83A4:B3F3:A5B6:D9DA:EAFC:CDED:BDBF","") ZSO("_11:*000WATER:83:87") \L("78:F8","") bF("SPLASH:METLANT") dB("2F73:2F77:2F78") h EMPTY(6) R(" ","BRICK1") C("40FE:CFDF","") S !R("*The Sanctuary","BRICK1")  O  C("C0DF","48C1CE") SO("*210DIAM:B3:*210DIAM1:BB:*210DIAM2:95:*210DIAM3:99:*210DIAM4:77:*200COLUMN:_23:C3:CB:_27:A5:A9:_2B:87:_10:*201IBASE:C3:CB:A5:A9:87")  P(6) R("Star Port","BC6") O  aC("00CB:46DA:0000:6385:6B8D:93BD:C0CF:D0D5:DBDF:E3ED:0009:F3F4","66E5C9:ECC76B:0000:CC5985") "7SO("*200STARPT:98:*000SHACKLE:E3:*001IBASE:D8:F8") $$L("F3",""):U("00C1CF26E624E9") 0R(" ","BRICK1") 4C("41FF:C0D0","") 8L("F1","") :S D EMPTY(6) R("@The Drain","MUD") C("505D:6C7C:8C8F","") R("The Well","MUD") OB("*020BB3:_2A:46:49") jC("47F8:4373:8084:92A6:898A:4A5C:6A7A:6C8C:5D6D:8E8F:9CAE:ABBD:CCCD:D9ED:D0D1:E1F1:0070B053:B3B5","") SO("*000WATER:_12:B3") L("F8","") F("SPLASH:PIG:METLANT") B("2898F5:247C6E:4FA4") R("@The lab","BC3") O %C("8083:648F:9BAF:0053:7192","") SO("*000CANNON:_32:87") F("FIRE:CANBALL:Torch") B("5F7D")  R("The lab","BC3") O C("60A2:63D5:568F","") ]SO("*000TRAMPO:E3:_24:*000SORPION:98:99:9A:*000SNAKE:9C:9D:9E:_10:*000BB0:82:_21:62:92") F("DEMON") B("026659:026B95")  R("The lab","BC3") "O $%C("508E:91BD:C1D5:CBDC:C7C9","") % IB(&7C) &wSO("*200STARPT:58:*000PLATF:98:*000HEAD:8C:*000TRAMPO:E5:EB:*110CANBALL:8E:_12:*000SPIEKO:C7:D7:E7:*000STR:C1:D1") .F("PIG:PULSAR") 0#B("0487D5:04685D:0499D5:2F85") 4 EMPTY(3) R("The Island","BRICK1") ,OB("*000ROCK:_1E:E0:F0:*020ROCK:E0:F0") &C("409E:A0AD:B0DB:BCCF","DCDFEC") S:P(&BF) R("@The Temple","BRICK1") O 2C("73DF:B0C2:00C0:9494:A5A8","73B1B3:D0D3E2") kSO("*000STATUE:C3:CA:CD:_32:D3:D6:_33:DA:DD:*210COATARM:8F:*001IBASE:E8:*000DISC:98:*100Chain:_27:78") F("Torch:STATUE:WULF") (B("8298:4FC6:0F93:0F9D"): BBC +3 R("The Temple","BRICK1") O >C("4344:535A:637E:70DB:009C:D5D7","8CEEEC:537173:5B6B6E")  IB(&D6) MSO("*010COATARM:_32:80:*111CHAIR:7D:*000STATUE:C2:_31:CA:_32:D2:_33:DA") L("A3","") F("Torch") B("0F92:0F9A") R("The Island","BRICK1") ,OB("*000ROCK:_1E:E1:F1:*020ROCK:E1:F1") C("41DF","") L("B1","") S:P(&FF) COPY("61") R("The Island","ROCK") C("40DF:E8FF","E2E8F7") S  EMPTY(0) R("*Welcome to..","ROCK") O C("40DF:E2EC","") SO("*330CROWN2:45:*330CROWN1:49:*330CROWN:47:*320WITCH:5E:*200CWM:C0:*000MUMMY:A5:*220COATARM:AD:*020COATARM:_32:AE:*201CANNON:DE:*110CANBALL:EA:*110POWDER:DD:*230HEAD:91:*220CHICKEN1:A9") SO("*000PIG:50:*230BONE:5C:*010CUD:_32:77:*020Chain:_2D:44:74:*320Chain:4B:7B:*000BRICK1:_1E:62:*020BRICK1:62:*100BC5:_15:83:93:*100BC6:B3:C3") (F("Torch:CUF"):B("0F81:0F8E:4F77") $ EMPTY(3) tR("The Well","MUD") vOB("*020BB3:_21:46:49") xGC("4151:6169:4758:7689:93BC:7D7F:8D9D:0070C0F0:C3EC:00D4:B0B2","") y IB(&B4) z(SO("*000BUCKC:A8:_19:*000WATER:C3") |L("98","") (F("SPLASH:METLANT"):B("2FB5:2FBB") R("The Well","MUD"):O 7C("707D:5C6E:0053:6A8B:00708080:8297",""):IB(&7E) 1SO("*000SPIKED:_32:_12:74:_15:*000WATER:82") EMPTY(10) <$DOY:PROCR("*The Crypt","BC3") >O @CC("72DC:008C:70D1:7DDF:0000:72DC:4EAE:BDBE:027F:5059:6969","") A IB(&E6) B?SO("*110TABLE:DA:*330SKULL:CA:*000COATARM:D2:*001JARS:D8") DL("8E","") F P(&8D) O xR("The Island","ROCK") |C("484F:5D9F","585DAC") S COPY("613") R("The Ocean","ROCK") O  C("409F:A9DF:00F0:E9FF","")  IB(&A2) SO("_16:*000WATER:E9") #F("SEAH:DISC"):B("00EC:22BC")  EMPTY(4) R("*The Mountains","ROCK") OB("*000SAND:_12:FD") (C("437F:86BF:CBEF","8376C5:C8CBEA")  IB(&FC) ,COPY("B13") @COPY("B13") TR("The Pyramid","SAND") XuC("40EF:0080:6969:778A:8697:A5AA:BABA:C4CB:D4D4:DBDB:E4EB:0083:E8E8:027E:F8F8","03CF:58F1FE:0000:5851F1:585FFE") ^0S:F("SNAKE:BROB"):B("49C8:02A7B5:02886A") hCOPY("B13") |R("The Desert","SAND") C("40EF","") S 0 PROCR("The Lake","ROCK") 4> PROCC("0070:454C:567C:CDCF","0070:558656:868DDC:7DCECD") :PROCP(&1A) D"DW[:R("*Worlds End","ROCK") HAC("0070:68BD:C0C4:00F0:445F:6EEF","0070:D29FFE:00F0:64976E") N P(&78) RF("SPIEKO") TB("08D8") W XPROCEMPTY(3)  D  (IB(X%):?T%=X%:T%=T%+1:?CB=?CB 2: BDOR(X%,Y%):?CB=?CB &10:?T%=X%7:T%?1=Y%:T%=T%+2:'"DOOR": L+P(X%)::?CB=?CB &40:?T%=X%:T%=T%+1: xS:?CB=?CB 8: @EMPTY(Y%):D JX%=0Y%:T%?X%=1: T40)S$:"Room";R%;"to";(R%+Y%);"is Empty" ^"T%=T%+Y%+1:R%=R%+Y%+1:L=DUMY: q rCOPY($A):D:L=T% |_0)S$:"NO";R%;9);~(R%20);":";~(R%20);15);"COPIED FROM";28);$A,1);":";$A,2,2) )T%?1=("&"+$A,1))*20+("&"+$A,2,2)) T%=T%+2:R%=R%+1:  ."Clear Squares 0,C($A,B$):ST=T%:?T%=0:T%=T%+1:X%=0:Y%=1 ::$A,Y%,1)=":"Y%=Y%+1 D("&"+$A,Y%,1))>0DN` FP?T%=("&"+$A,Y%,2)):T%?1=("&"+$A,Y%+2,2)):T%?1=9T%?1=&CB"STP MASK":7 HWT%?1=&70"WATER":T%?2=("&"+$A,Y%+4,2)):T%?3=("&"+$A,Y%+6,2)):T%=T%+2:Y%=Y%+4 JT%=T%+2:Y%=Y%+4:DX` NL?T%=("&"+$A,Y%,2)):T%?1=("&"+$A,Y%+2,2))-?T%:Y%=Y%+4:T%=T%+2:X%=X%+1 X Y%=$A+1 l?ST=(X%-1)*8 t"Triangles v B$="" z X%=0:Y%=1 | B$,Y%,1)=":"Y%=Y%+1:D|` K?T%=("&"+B$,Y%,2)):T%?1=("&"+B$,Y%+2,2)):?T%=&CC"STP DESTROY":7 c(?T%&F0)=0T%=T%+2:Y%=Y%+4 T%?2=?T%:?T%=T%?1:T%?1=("&"+B$,Y%+4,2)):T%=T%+3:X%=X%+1:Y%=Y%+6 Y%2X%=0:Y%=1$A 2:$A,Y%,1)=":"Y%=Y%-1:DRa !H(?T%=("&"+$A,Y%,2)):T%=T%+1:X%=X%+1 !R !\$?RLO=X%:0)"";X%;"ROPES "; !d"Ladders !fX%=0:B$=""tNa !p%Y%=1(B$)-1:B$,Y%,1)=":"tDa !zS?T%=("&"+B$,Y%,2)):T%?1=B$,Y%+2,1)+(B$,Y%+3,2))*4:Y%=Y%+4:T%=T%+2:X%=X%+1 !+:0)"";X%;"LADDERS":Y%-1<>(B$) !?RLO=?RLO+X%*16: !+U($A):?CB=?CB &20:"Columns":X%=-1 "pA%=T%:?T%=($A,1)3)*&40+($A,2,1)/2 3)*&10:T%=T%+1:Y%=3($A)-12:?T%=("&"+$A,Y%,2)):?T%>&3FX%=X%+1 "$ T%=T%+1: "L?A%=?A%+X%: #(+F($A):?CB=?CB &40:C=T%:T%=T%+1:C%=-1 #<0)"FIGURE SETS :" #ZX%=1 #d*X%=X%+1:$A,X%,1)<>":" X%<=$A Ddc #n.B$=$A,X%-1):?T%=(B$):B$:T%=T%+1:C%=C%+1 #!X%<$A $A=$A,$A-X%):DZc # ?C=C%: #B($A):C%=0 $0X%=1 $A 2:$A,X%,1)=":"X%=X%+1:C%=C%+1 $"?T%=("&"+$A,X%,2)):T%=T%+1: $"?C=?C+C%*16: $3O:?CB=?CB 1:O=T%:?O=0:RO=R%:T%=T%+1:OFC%=1: %&OB($A):O:OBJ($A):?O=C%:C%>7 %& %D"SO($A):OBJ($A):?O=?O+C%*8: %*OBJ($A):RO<>R%"Missing PROCO": %C%=0:X%=1:B$="" %$A,X%,1)=":"X%=X%+1 % $A,X%,1)="*"X%=X%+1:tre %E$A,X%,1)="_"X%=X%+1:?T%=("&"+$A,X%,2)):T%=T%+1:X%=X%+2:tTe %6?T%=("&"+$A,X%,2)):T%=T%+1:X%=X%+2:C%=C%+1:dPe %+?T%=$A,X%,1)+$A,X%+1,1)*4:?T%>&F %,T%=T%+1:X%=X%+2:?T%=$A,X%,1)1:X%=X%+1 %,:B$=B$+$A,X%,1):X%=X%+1:$A,X%,1)<";" %H$A,X%,1)=":"?T%=?T%+(B$)*2 ?T%=?T%+((B$)+$A,X%,1))*2:X%=X%+1 %X%=X%+1:B$="":T%=T%+1 %X%<$A tTe % 'R($A,B$):D 'B0)S$:L=T%:T%=T%+1 'V5"NO";R%;9);~(R%20);":";~(R%20);35);~T% 't$A,1)<>"*"t\g '~ $A=$A,$A-1):"TEXT :";$A 'hX%=$A 1-1:?T%=$A,X%,1):T%=T%+1::?(T%-1)=?(T%-1)+128:$A,3)="The"T%=T%-3:?(T%-1)=0:"[The]" ' T|h '$A,1)="@"dXg 'X%=-1::X%=X%+1:$A=TX$(X%) '6?T%=X%+128:T%=T%+1:"TEXT NO. ";X%;" :";TX$(X%) ' T|h '$$A=$A,$A-1):"NEW TEXT :";$A '-TX$(TN%)=$A:?T%=TN%+128:T%=T%+1:TN%=TN%+1 (rX%=1$A:TXP%?(X%-1)=$A,X%)::?TXP%=?TXP%+128:TXP%=TXP%+$A:$A,3)="The""[The]":TXP%=TXP%-3:?(TXP%-1)=0 (; (<"";B$;"WALL";35);~T% (P4 B$,1)=0?T%=(B$) ?T%=(B$,B$-1))+B$,1) ('T%=T%+1:CB=T%:?T%=0:T%=T%+1:R%=R%+1 ( ."LR:"List Room No."$&900: .MX%=2000+(("&"+$&900,1))*20+("&"+$&900,2,2)))*20:X%<2000X%>9999TZg /'$&B4A=X%+","+(X%+19):*FX138,0,130 / 2D:?L=T%-L:T%=TW%TbsX%=TW%T%-1:#F%,?X%::TL%=TL%+T%-TW%:'" >>>LENGTH ";(T%-TW%);" DATA TO ";~TL%;"<<<":T%=TW% 3" CB2=0: ѠUU PUQPBPB/xZ""" O uxZ"""  @U/AJAU