FIG $BARREL CBONE CBOTTEL CBROUNCHCBUCKET CBUTTON CC CCANBALLCCAUFIRECCAULDONCCHAIN CCHAIR CCHICKENCCOATARMCCOLUM1ACCOLUM1BCCROWN CDIAMONDCFIRE CHEAD CIBASE CICECRYSCJELLY CJELLYB CLIFT CMETLANTCMUMMY CPHARO CPIG CPULSAR C1 2"(! (   (P   (((((PYRAFIGCSHACKLECSKULL CSNAKE CSORPIONCSPIKO CSTARPT CSTARS CTRAMPO CCTX99 $CTXTI $WATER CWCROWN Ch ihg(fPePdc<baB\W V(UEEUݺf_wwfZwwT@TUQQ@ DUdUUh3|ϙ"DEZ""Ź11111P11/ "iVeZZZZZ!写fIpI$Ia $C` /]֖^Y[UP@@W7s>ȦfUiUfUU 4Ȫ7̪Ue3VfUU311Ĉ1"1UUD UUDUwUUGUTfefQ̌VQ|W_\S LwUUZZuQw RUQE_Z23廻fbUVUTUU&f`UEUUU̪ UUϪ  ̶fu?w2ǠQ\U |*UQ@HQwwuDDwuJ???UUR ww{UZUVwUffwZUfUAקקקקקׄԧק# F"Figure Data and SOUND Data from &600 to &10FF "19-02-1985 "11-12-1985 *KEY0MO.7|ML.0,999|M *KEY1MO.7|ML.1000,1999|M *KEY2MO.7|ML.2000,3099|M *KEY3MO.7|ML.3000,3999|M *KEY4MO.7|ML.4000,4999|M *KEY5MO.7|ML.5000,5999|M *KEY6MO.7|ML.6000,6999|M *KEY7MO.7|ML.7000,8999|M *KEY8MO.7|ML.9000,29999|M *KEY9RUN|M "BBC/ELK ELK=-1 ( *FX12,5 2 S=&900 d7:=&4800 nOSFILE=&FFDD T%=&4A00:Q%=&600 -X%=T%+&150T%+&300:?X%=0:: CLEAR SOUND ,XSIF=&4A00-&600+&590:MANCOL=&4A00-&600+&5C4:TXSD=&4A00-&600+&5D4:TCOL=&4A00-&600+&5F8 6PTDRN=&4A00+&150:TITX=&4600+&170:SIR=&4A00+&280:TBR=&4A00+&2B0:TBP=&4A00+&2F0 @-TXRP=&4A00+&343:DGIRL=&4800:GIRLCOL=&4940 :'"FIGURE DATA COMPACTOR"':ELK "Electron""BBC" !"Press a key to start":A$=  dhC X%=TE% &5804 4:!X%=0:  R'';"Actual Data from ";~&5A0;" to ";~(TE%-&4A00+&5A0):" Length ";~TE%-&4A00 *MX%=&DA0-(TE%-&4A00):'"DATA in5B0TO13FF Free #";X%:X%<01,-15,9,9 4:'"Press a Key to :":"SAVED.FIG49C8 5800":*FX15,1 >A$= R*SAVE"D.FIG" 4800 57A0  *FX15,1 '"Press T to RUN":A$= A$="T""T"   PTXSD  TX99L  TXTIL $ PTXRP L dPG  HERO  BOTTEL x ENVEL  DEMO @ HEROCOL r TXCOL  ITEMS  !'"FIGURE DATA BASE IN &900" Q%=&943:T%=&4A00+&355 FL=T%:N%=0:N=-1 j" Name,Type,PL,Mask,Deadly,FDP,FDPS C1,C2,C3,Blocks,Length,CB 6S("C.DIAMOND",0,0,0,0,0,0):F(1,0,5,2,4,1):DIAM=N S("J",0,0,0,0,0,0):F(3,0,7,2,4,3):S("J",0,0,0,0,0,0):F(6,0,5,2,4,3):S("J",0,0,0,0,0,0):F(6,0,2,2,4,3):S("J",0,0,0,0,0,0):F(2,0,3,2,4,3) 'S("J",0,0,0,1,0,0):F(3,5,3,2,3,3) 4=S("C.IBASE",0,0,3,0,0,0):F(1,3,0,0,4,1):F(2,6,0,0,4,0) >RS("C.BOTTEL",0,0,0,0,0,0):F(2,4,6,3,2,1):S("J",0,0,0,0,0,0):F(1,4,5,3,2,3) HS("C.BUCKET",0,0,0,0,0,0):F(2,0,2,3,4,1):BUCKET=N:S("J",0,0,0,0,0,0):F(2,0,4,3,4,3):S("J",0,0,1,0,0,3):F(1,1,5,3,4,3) RQS("C.WATER",0,0,0,0,0,0):F(4,6,0,1,4,1):S("J",0,0,3,0,0,0):F(6,7,0,1,4,3) f9S("C.ICECRYS",0,0,0,0,0,0):F(7,0,0,3,4,1):ICECRYS=N  dJH ZS("C.P0",0,0,0,0,0,0):F(2,1,3,3,4,1):F(6,5,3,3,4,0):F(2,1,3,3,4,2):F(3,2,6,3,4,0) ZS("C.P1",0,0,0,0,0,0):F(5,2,3,3,4,1):F(2,1,3,3,4,0):F(6,5,3,3,4,2):F(3,6,5,3,4,0) ZS("C.P2",0,0,0,1,0,0):F(1,5,5,2,4,1):F(5,5,3,2,4,0):F(2,6,5,2,4,2):F(3,6,6,2,4,0) ZS("C.P3",0,0,0,1,0,0):F(5,0,0,2,4,1):F(3,0,0,2,4,0):F(2,0,0,2,4,2):F(6,0,0,2,4,0) >S("C.BUTTON",0,0,0,0,0,0):F(2,0,5,1,1,1):F(2,0,5,1,1,1) 'S("J",0,0,0,0,0,0):F(3,6,7,1,1,3) 9S("C.PYRAFIG",0,0,0,0,0,0):F(2,0,0,2,3,1):PYRAFIG=N -S("C.CHAIN",0,0,1,0,0,0):F(6,0,2,0,2,1) 9S("C.CANBALL",0,0,1,0,0,0):F(6,0,6,2,3,1):CANBALL=N 0S("J",0,0,0,0,0,0):F(3,1,5,2,3,3):POWDER=N ]S("C.CHICKEN",0,0,0,0,0,0):F(3,0,0,1,4,1):CHICKEN=N:S("J",0,0,0,0,0,0):F(1,0,0,1,4,3) $>S("C.BARREL",4,0,0,1,2,0):F(5,1,1,3,4,1):F(6,2,2,3,4,0) &0S("J",0,0,1,0,0,0):F(2,4,6,3,4,3):BARREL=N ('S("J",0,0,0,1,0,7):F(7,7,6,3,4,3) .5S("C.SKULL",0,0,0,0,0,0):F(0,0,0,1,2,1):EMPTY=N 0/S("J",0,0,0,0,0,0):F(2,0,0,1,2,3):SKULL=N 23S("C.BONE",0,0,0,0,0,0):F(6,0,0,0,2,1):BONE=N 4/S("J",0,0,0,0,0,0):F(5,0,0,0,2,3):BONEB=N 6.S("J",0,0,1,0,0,0):F(6,6,0,0,2,3):IRON=N 8.S("J",0,0,1,0,0,0):F(3,3,0,0,2,3):GOLD=N BbS("C.COLUM1A",0,0,0,0,0,0):F(2,0,6,0,4,1):F(6,0,3,0,4,1):L("C.COLUM1B",F%):F(1,0,5,0,2,1) L5S("C.CROWN",0,0,0,0,0,0):F(3,5,1,3,4,1):CROWN=N N'S("J",0,0,0,0,0,0):F(2,3,3,3,4,3) P'S("J",0,0,0,0,0,0):F(1,5,5,3,4,3) j7S("C.WCROWN",0,0,0,0,0,0):F(1,3,5,3,4,1):WCROWN=N t?S("C.SHACKLE",0,0,1,0,0,0):F(1,3,5,2,2,1):F(1,3,5,2,2,2) ~.S("C.STARPT",0,0,0,0,2,0):F(3,0,0,2,1,1) LS("C.LIFT",1,1,3,1,7,1):F(1,3,5,0,4,1):F(3,5,1,0,4,0):F(5,1,3,0,4,0) (;S("C.PIG",1,0,0,1,2,4):F(6,2,3,3,4,1):F(6,2,3,3,4,2) 2?S("C.SORPION",1,0,0,1,8,2):F(1,3,6,3,4,1):F(0,7,7,3,4,2) <]S("C.STARS",2,0,0,1,6,0):F(2,5,1,2,4,1):F(7,2,3,2,4,2):F(1,5,1,2,4,1):F(6,3,2,2,4,2) F]S("C.SNAKE",0,0,0,1,3,4):F(2,0,0,3,4,1):F(0,7,0,3,4,2):F(0,7,0,3,4,1):F(0,7,0,3,4,2) PNS("C.PULSAR",2,0,0,1,9,1):F(1,4,3,3,4,1):F(3,1,2,3,4,0):F(4,3,1,3,4,0) Z\S("C.FIRE",7,0,0,1,3,1):F(3,1,5,3,4,1):F(0,7,7,3,4,2):F(0,7,7,3,4,1):F(0,7,7,3,4,2) d]S("C.SPIKO",4,0,0,1,3,1):F(3,1,2,3,4,1):F(0,7,7,3,4,2):F(3,1,6,3,4,1):F(0,7,7,3,4,2) nOS("C.BROUNCH",3,0,0,1,5,0):F(3,5,0,3,4,1):F(3,1,0,3,4,0):F(3,6,0,3,4,0) r'S("J",3,0,3,1,0,0):F(6,4,0,3,4,3) ?S("C.METLANT",0,0,0,1,2,2):F(6,2,3,3,4,1):F(6,2,3,3,4,2) _S("C.CAUFIRE",0,0,0,1,6,1):F(5,0,0,0,4,1):F(6,0,0,0,4,2):F(1,0,0,0,4,1):F(2,0,0,0,4,2) OS("C.CAULDON",0,0,0,1,0,0):F(1,5,3,2,4,1):F(2,6,3,2,4,0):F(3,7,7,2,4,0) =S("C.JELLY",0,0,0,1,0,0):F(5,0,0,3,7,1):F(5,4,0,3,7,0) .S("C.JELLYB",0,0,0,1,0,0):F(6,4,0,1,3,1) ]S("C.MUMMY",5,0,3,1,4,3):F(6,0,7,3,4,1):F(0,7,7,3,4,2):F(6,7,7,3,4,0):F(0,7,7,3,4,2) iS("C.CHAIR",0,0,1,0,0,0):F(2,0,0,2,2,1):F(3,0,0,2,2,2):S("J",0,0,1,0,0,0):F(6,0,0,2,2,3):CHAIR=N _S("C.COATARM",0,0,0,0,0,0):F(6,5,2,3,2,1):F(2,2,2,3,2,0):F(6,3,1,3,2,2):F(2,2,2,3,2,0) "7S("C.TRAMPO",0,0,1,0,0,0):F(7,2,3,1,4,1):TRAMPO=N ,/S("C.C",0,0,0,0,0,0):F(6,0,7,1,3,1):LTC=N 65S("C.PHARO",0,0,0,0,0,0):F(5,2,7,3,4,1):PHARO=N @`S("C.HEAD",0,0,0,1,0,0):F(3,0,0,3,4,1):F(5,0,0,3,4,0):S("J",4,0,0,1,0,0):F(1,0,0,3,4,3) TN%>64 N%=64DZK V?X%=063-N%:?FL=T%-FL:FL=T%:T%=T%+1:Q%=Q%+1:N=N+1:N%=N%+1: Z'''"INSERT DISC CODE II"'':*FX15,1 \A$= ^,S("C.DOOR",0,0,1,0,0,0):F(5,7,0,3,4,1) boS("J",0,0,1,0,0,0):F(2,3,0,3,4,3):S("J",0,0,1,0,0,0):F(1,3,0,3,4,3):S("J",0,0,1,0,0,0):F(2,6,0,3,4,3) dS("J",0,0,1,0,0,0):F(6,7,0,3,4,3):S("J",0,0,1,0,0,0):F(1,5,0,3,4,3):S("J",0,0,1,0,0,0):F(4,6,0,3,4,3):S("J",0,0,1,0,0,0):F(1,7,0,3,4,3) h1S("C.KEY",0,0,0,0,0,0):F(5,0,7,3,2,1):KEY=N loS("J",0,0,0,0,0,0):F(2,3,3,3,2,3):S("J",0,0,0,0,0,0):F(1,3,3,3,2,3):S("J",0,0,0,0,0,0):F(2,6,6,3,2,3) nS("J",0,0,0,0,0,0):F(6,0,7,3,2,3):S("J",0,0,0,0,0,0):F(1,0,5,3,2,3):S("J",0,0,0,0,0,0):F(6,4,4,3,2,3):S("J",0,0,0,0,0,0):F(1,1,7,3,2,3) r_S("C.COWLMEN",6,0,0,1,3,2):F(1,3,5,7,4,1):F(2,3,3,7,4,2):F(6,3,7,7,4,1):F(2,3,6,7,4,2) |.S("C.BRICKC",8,0,3,0,0,0):F(1,3,5,3,7,1) oS("J",0,0,3,0,0,0):F(1,0,5,3,7,3):S("J",0,0,3,0,0,0):F(6,4,6,3,7,3):S("J",0,0,3,0,0,0):F(2,3,2,3,7,3) oS("J",0,0,3,0,0,0):F(3,6,2,3,7,3):S("J",0,0,3,0,0,0):F(6,0,2,3,7,3):S("J",0,0,3,0,0,0):F(5,1,5,3,7,3) .S("C.BRICKB",8,0,3,0,0,0):F(1,3,5,3,4,1) oS("J",1,0,3,0,0,0):F(2,3,1,3,4,3):S("J",2,0,3,0,0,0):F(5,4,2,3,4,3):S("J",0,0,3,0,0,0):F(6,0,2,3,4,3) -S("C.BRICK",0,0,3,0,0,0):F(1,3,0,1,3,1) oS("J",1,0,3,0,0,0):F(5,1,0,1,3,3):S("J",2,0,3,0,0,0):F(2,6,0,1,3,3):S("J",0,0,3,0,0,0):F(6,4,0,1,3,3) SS("C.DIGONAL",0,0,3,0,0,0):F(4,6,0,1,3,1):S("J",0,0,3,0,0,0):F(6,2,0,1,3,3) lS("C.JARS",0,0,1,0,0,0):F(5,3,1,3,4,1):F(2,3,2,3,4,2):F(2,2,6,3,4,0):F(7,7,3,3,4,0):F(3,1,3,3,4,0) -S("C.TABLE",0,0,1,0,0,0):F(6,0,0,2,7,1) ]S("C.WHEEL",0,0,1,0,0,0):F(2,0,0,2,3,1):F(0,7,0,2,3,2):F(0,7,0,2,3,1):F(0,7,0,2,3,2) =S("C.WITCH",4,0,0,1,0,0):F(3,2,5,3,4,1):F(7,0,6,3,4,0) ?S("C.SEAHUNT",4,0,0,1,2,1):F(1,0,0,1,3,1):F(5,0,0,1,3,2) =S("C.SEASW",2,0,0,1,2,1):F(2,0,0,1,3,1):F(6,0,0,1,3,2) OS("C.COLUMN2",0,0,1,0,0,0):F(6,7,0,1,4,1):F(3,5,0,1,4,0):F(2,2,0,1,4,0) `S("C.STATUE",0,0,0,0,&A,&4):F(5,0,0,3,4,1):F(0,7,0,3,4,2):F(1,0,0,3,4,1):F(0,7,0,3,4,2) NS("C.CANNON",0,0,1,0,0,0):F(1,5,2,3,7,1):F(6,2,3,3,7,2):F(7,3,6,3,7,0) .S("C.GROUND",0,0,3,0,0,0):F(3,3,2,1,4,1) ГS("J",0,0,3,0,0,0):F(2,6,6,1,4,3):S("J",0,0,3,0,0,0):F(1,0,5,1,4,3):S("J",0,0,3,0,0,0):F(3,0,3,1,4,3):S("J",0,0,3,0,0,0):F(6,7,7,1,4,3) ]S("C.PLATF",0,0,1,0,0,0):F(1,5,5,1,4,1):F(3,2,2,1,4,0):F(7,6,6,1,4,2):F(5,3,3,1,4,0) >S("C.PIRAT",0,0,0,0,2,&F):F(6,4,2,2,5,1):F(0,7,7,2,5,2) >S("C.SPLASH",0,0,0,0,2,0):F(6,0,0,0,4,1):F(0,7,0,0,4,1) ^S("C.SPIKED",0,0,0,1,6,2):F(5,1,3,1,4,1):F(3,2,1,1,4,2):F(2,6,1,1,4,0):F(7,6,6,1,4,2) ^S("C.SPIKEU",0,0,0,1,6,2):F(1,0,0,1,4,1):F(5,0,0,1,4,2):F(3,0,0,1,4,0):F(6,0,0,1,4,2) ]S("C.TORCH",0,0,0,1,6,1):F(1,2,3,3,2,1):F(0,7,7,3,2,2):F(5,2,3,3,2,1):F(0,7,7,3,2,2) ?FL=T%-FL:TE%=T%: BOTTEL '"BOTTELS" T%=0 X%=0&F:TBR?X%=0: BO("4B","BC") BO("5A","E8") BO("5D","81") BO("68","8E") BO("711","B5") BO("83","C2") BO("89","DE") BO("B10","E5") BO("01","CA") BO("AD","EC") T%=10:BO("2E","E6") BO("28","D3") BO("76","9E") %BO("9F","8F") *BO("3C","92") /BO("6E","89") < T%>16 > HBO(A$,B$) R+T%?TBR=("&"+A$,1))*20+("&"+A$,2,2)) \&T%?TBP=("&"+B$):(T%?TBP 15)=0 T%=T%+1:  ITEMS X%=0&27:X%?SIR=0::T%=0 B("5E","PHARO") B("AD","PHARO") B("7B","ICECRYS") "B("5A","CHICKEN") ,B("01","BONE") 6B("4E","BONEB") @B("18","SKULL") JB("5B","DIAM") TB("0B","DIAM1") ^ AUTO hB("86","DIAM3") rB("910","DIAM4") |B("6C","KEY") B("54","KEY1") B("69","KEY2") B("2E","KEY3") B("58","KEY4") B("6F","KEY5") B("79","KEY6") B("05","KEY7") B("6E","") B("6D","BUCKET") B("4C","POWDER") B("50","") B("6A","BARREL") B("A3","TRAMPO") B("B8","PYRAFIG") B("BE","CANBALL") B("13","WCROWN") &B("5C","") 0B("B5","") :B("48","TRAMPO") DB("6B","IRON") NB("83","IRON") XB("21","IRON") bB("4A","IRON") lB("74","CROWN") vB("78","CROWN1") B("AE","CROWN2") **No in 4190** "OBJECTS : 0-";(T%-1)  T%>38 /SIR?38=0:SIR?39=0:SIF?38=EMPTY:SIF?39=EMPTY R \B(A$,B$) f+T%?SIR=("&"+A$,1))*20+("&"+A$,2,2)) jT%=0DpR l:X%=0T%-1:SIR?X%=SIR?T%"Two Items in Room ";A$: n pT%?SIR=0"ROOM 0": zB$=""T%?SIF=&FF:tNR ";"T%?SIF=(B$) T%?SIF=(B$,B$-1))+(B$,1)) E"NO.";T%;7);" ROOM ";A$;17)"ITEM";B$;32);"F: ";T%?SIF  T%=T%+1: "START NEW FIGURE SET S(A$,T,L,M,D,P,S):N=N+1  End last F-Set, Set length ?FL=T%-FL:FL=T% :'"Figure Set :";A$;" No.";N%;35)"";~Q%:N%=N%+1 7"TYPE: ";T;" Colour Byte Mask: ";M:T>15M>3  8"Display Pattern: ";P;" Speed: ";S:P>15S>15 PT%?1=T+L*&10+M*&20+D*&80 ZT%?2=P+S*16 nT%=T%+3:Q%=Q%+3 A$="J"D|U ,F%=&A00:L(A$,F%) |  TX99L "TEXT 99":X%=!&4D43 *LO."T.TX99" 4D00 !&4D43<>X% : D TXTIL N"TEXT TITLE" v*LO."T.TXTI" 4B70  zF(C1,C2,C3,B,L,C) C=0" Same Pixels"; C=1" New Pixels"; C=2" Rewerse Figure"; C=3" Relativ Jump";  36)~Q% 8"Blocks: ";B;" "; BC1=0C2>0"Same "; L&C3=0"2 Colours" "4 Colours" j4C3=0"Colour 0: ";C1;" ";"Colour 1: ";C2 tQC3>0"Colour 0: 0 Colour 1: ";C1:"Colour 2: ";C2;" Colour 3: ";C3 C1>7C2>7C3>7 9"Length Code : ";L;" Pixles : ";((L+1)*2):L>7 ?T%=(B 4)+C1*4+C2*32 B>3T%=T%+1:Q%=Q%+1:?T%=0 2$T%?1=C+C3*4+L*32:T%=T%+2:Q%=Q%+2  C<>1TlZ  A%=(B+1)*(L+1):C3>0A%=A%*2 76:"Pixel Length : ";~A%;" (";A%;")";36)~Q%; X%=0A%-1:T%?X%=F%?X%: F%=&A00PQ%=Q% T%=T%+A%:Q%=Q%+A%:F%=F%+A% " dtZ + ,C<>3dtZ @:X%=Q%-PQ%:"Relativ Jump to";~(PQ%);"Dist :";~X% T$?T%=X%:T%=T%+1:Q%=Q%+1:X%>255  : @L($&980,X%) J/!&900=&980:!&902=X%:!&906=0:!&90A=0:!&90E=0 ^X%=0:Y%=&9:A%=&FF:OSFILE  ENVEL:ELK Tz` )1,8,0,0,0,0,0,0,126,0,-1,-10,126,126 (2,1,2,0,0,100,0,0,126,-1,0,-8,126,0 &&3,4,2,-2,0,6,5,0,126,0,0,-5,126,0 0 DX` :*1,1,5,9,0,5,30,0,126,0,0,-126,126,126 D*2,1,4,-9,0,5,4,0,126,0,0,-126,126,126 N+3,1,1,0,0,200,0,0,126,0,0,-126,126,126 X#X%=0&2C 4:X%!&4CC0=X%!&8C0: b lPTXSD:th` vFX%=0&22:A$:A$>47A$<58TXSD?(&22-X%)=A$ TXSD?(&22-X%)=A$   O31,6,7,S,t,a,r,P,o,r,t,31,6,9,D,e,s,t,r,o,y,e,d,31,6,14,W,e,l,l,32,D,o,n,e PTXRP:Tja CX%=017:A$:A$>47A$<58TXRP?(17-X%)=A$ TXRP?(17-X%)=A$  ! !**17,5,31,4,9,R,e,P,r,o,g,r,a,m,m,i,n,g #' A, ,B #(DEMO:tLc #<9X%=031:A$:X%?TDRN=("&"+A$,1))*20+("&"+A$,2,2)) #FX%=0DZc #P"Y%=0X%-1:X%?TDRN=Y%?TDRN #T #Z # #A2,18,68,79,13,910,5A,56 #5D,01,83,AD,76,4D,3B,B11 #78,28,A3,711,16,3E,54,5E #57,4A,93,51,7B,11,75,4C # HEROCOL $&X%=015:A$:X%?MANCOL=("&"+A$): $"'X%=015:A$:X%?GIRLCOL=("&"+A$): $6 $@0,5,11,14,A,F,1B,1E $D22,27,33,36,28,2D,39,3C $J0,14,5,11,28,3C,2D,39 $NA,1E,F,1B,22,36,27,33 $TXCOL:TRe $X%=07:Y%:X%?TCOL=Y%: % %$&E2,&EC,&F2,&C2,&F8,&E3,&E0,&E1 %HERO:T%=&4A00:Q%=&600 %& 35);~Q% %0UX%=07:T%?X%=(Q%+X%*40+&10)256:T%?(X%+8)=(Q%+X%*40+&10)256::T%=T%+16:Q%=Q%+16 %:"HERO FIGURE";35);~Q% %DL("C.MAN",T%) %NL("C.GIRL",DGIRL) %v 'dxj:G%(4) 'X%=03:Y%:G%(X%)=Y%: 'tA%=03:B%=03 '!"&";~(G%(A%)*2+G%(B%));","; (<: )h *0,&14,5,&11 != U"}|1U@ U^2吐 d2:=&2D00 x?&30B=8:6:0,0)20,"@") X%=07:19,8+X%,X%;0;: 20,128+4:24,&140-&80;&230;&3C0+&80;&270;16,26 ?&30B=8 24,0;0;1272;32*22;29,0;-32; T%=&2EF3 ,A$:A$="END"DXB @A$,1)="'"tPA ^?T%=A$:T%=T%-1:dtA (X%=2A$-1:?T%=A$,X%,1):T%=T%-1:  TlA XT%<&2E6F lX%=T%&2E6F -1:?X%=0: X%=&2EF3&2E70-1:?X%:  S(5,7,7)  L26:128:5:0,1)"LENGTH ";~(&2EF3-T%);" From &F3 to ";~(T%+1-&2E00) *'"Press Y to save";:A$=:A$<>"Y" 4*SAVE"T.TXTI" 2E70 2EF4  5 / 5,18,0,0,25,4,&D8,0,&70,2,'C I T A D E L' ,18,0,7,25,4,&E8,0,&70,2,'C I T A D E L' ,18,0,6,25,4,&E0,0,&70,2,'C I T A D E L' 4 L117,128+8+2,17,8+4,31,2,23,'Michael Jakobsen' ` 17,128 17,3,31,6,10,'Superior' 31,6,11,'Software'  17,6,31,4,20,'Press Action' x17,2,31,5,16,'High Score' 31,9,17,'00' lEND ?:X=-48:3,0)X;"=";:Y=-48:Y:19,X,Y;0;:1,-10,30,1:0 S(A%,B%,L%) !C%=&3000+8*1280+B%*64+A%*1280 h4X%=C%+L%*64C%-8-8:Y%=08:X%?(Y%+8)=X%?Y%::  *KEY0MO.7|ML.0,999|M *KEY1MO.7|ML.1000,1999|M *KEY9RUN|M '"BBCorELK ( ELK=-1 d2:=&2D00 x?&30B=8:6:0,0)20,"@") X%=07:19,8+X%,X%;0;: 20,128+4:24,&140-&80;&230;&3C0+&80;&270;16,26 ?&30B=8 24,0;0;1272;32*22;29,0;-32; .TT%=&2E42:T%=TT%:X%=0&FC 4:X%!&2E00=0: ,A$:A$="END"DXB @A$,1)="'"tPA ^?T%=A$:T%=T%-1:dtA 1ELK A$="'Incredible !'"A$="'Marvellous !'" (X%=2A$-1:?T%=A$,X%,1):T%=T%-1:  TlA XT%<&2DFF X%=TT%T%+1-1:?X%:  W26:128:5:0,1)"LENGTH ";~(TT%-T%):"From ";~(TT%-&2E00);" to ";~(T%+1-&2E00) *&"Press Y to save":A$=:A$<>"Y" R "Coding" \>X%=T%+1 TT%:Y%=?X%:Y%=Y% &A5:Y%=Y% (X%-&2E00):?X%=Y%: *SAVE"T.TX99" 2E00 2E43  28,3,8+18,16,8+9 17,128+1,17,3,12 28,0,31,19,8 L31,4,10,'Incredible !' V31,4,13,'You Are Now' 31,5,17,'of Citadel' 31,7,15,'Ruler'  17,128 lEND ?:X=-48:3,0)X;"=";:Y=-48:Y:19,X,Y;0;:1,-10,30,1:0 S(A%,B%,L%) !C%=&3000+8*1280+B%*64+A%*1280 h4X%=C%+L%*64C%-8-8:Y%=08:X%?(Y%+8)=X%?Y%::  ,҂( ,E@ ?0  0T ?0T  0}̐331 HHiiihii!!@) i0 1<5]@TD KiiE!KKiiOi3iKKiiHQii`D@uG @ /_Bh_@/_+*oo}}oo1@}|_E*