Q%),-2-B%):GSTO(A%,B%,4+Q%+(Q%>A%),-1-W%(Q%)) FH%=GRCL(A%,B%,9)+GRCL(A%,B%,10)-GRCL(Q%,W%(Q%)-1,9)-GRCL(Q%,W%(Q%)-1,10):E%=GRCL(A%,B%,2)+H%:F%=GRCL(Q%,W%(Q%)-1,2)-H% HAH%=F%+2*C%+D%+2+(6)-(6):GSTO(Q%,W%(Q%)-1,A%+12+(A%>Q%),H%) KsZAP(1):H%<0"The "S$(Q%)" is dead.":SPLODGE(0):FM:G%=:KILL(A%,B%+1,Q%,W%(Q%),0)"The "S$(Q%)" survives." M;H%=E%+2*D%+C%+2+(6)-(6):GSTO(A%,B%,Q%+12+(Q%>A%),H%) PnZAP(0):H%<0"The "S$(A%)" is dead.":SPLODGE(1):FM:KILL(Q%,W%(Q%),A%,B%+1,0)"The "S$(A%)" survives." Z%G%H%<0GIVE(A%,B%,Q%,W%(Q%)-1) d%G%H%>=0GIVE(Q%,W%(Q%)-1,A%,B%) nPAUSE:PAUSE:*FX21 sG%A%=4:A%:T\B x2,:G%ZONE(Q%,X%,Y%,X%,Y%)26::PRINTUP(Q%) M%=P%=0:N%=:O%=:dzA wTT%(Q%)=TT%(Q%)-1:A%=P%(Q%,0):B%=TZ%(Q%,0):T%(A%,B%,0)=Q%:T%(A%,B%,1)=X%:T%(A%,B%,2)=Y%:ZONE(Q%,A%,B%,A%,B%):dzA @5A%=Z%P%:O%(A%)=O%(A%+1)::Z%=Z%-1:P%=P%-1:T\B J:A%=0:B%=04:C%=RCL(0,P%(Q%,1),TZ%(Q%,1),B%,0):C%M%(A%)=B%:A%=A%+1 .:"Which?";:B%=-49:B%>=0B%=0N%<>B%'""P$(ACTR(0,RCL(0,P%(Q%,1),TZ%(Q%,1),N%,4)))'"execute you as a traitor":FM:D@F yN%=B%:A%=M%(B%):D%=P%(Q%,0):E%=TZ%(Q%,0):F%=P%(Q%,1):G%=TZ%(Q%,1):B%=RCL(0,F%,G%,A%,0)-1:C%=-1:ZONE(Q%,D%,E%,D%,E%) C%=C%+1:SCANLINE(D%,E%-C%) "RACE(-1,D%,E%-C%,A%,F%,G%-C%) !RCL(0,F%,G%-C%,A%,2)H%=-1:H%=H%+1:RCL(0,F%,G%-C%,H%,2)H%<>A%:RACE(-1,D%,E%-C%,H%,F%,G%-C%):I%=04:STO(Q%+1,D%,E%-C%,H%,I%,RCL(0,F%,G%-C%,H%,I%)): &oH%=04:STO(Q%+1,D%,E%-C%,A%,H%,RCL(0,F%,G%-C%,A%,H%))::C%=B%RCL(0,F%,G%-C%,A%,1)=1G%=C%E%=C%:dzA l:A%=P%(Q%,1):B%=TZ%(Q%,1):C%=-1:C%=C%+1:RCL(0,A%,B%,C%,2):D%=C%:D%=D%+1:RCL(0,A%,B%,D%,2):E%=ACTR(0,RCL(0,A%,B%,C%,4)):F%=ACTR(0,RCL(0,A%,B%,D%,4)) q("1."P$(E%)'"2."P$(F%)''"Which?"; v=0I%<=IP%(Q%):IP%(Q%)=IP%(Q%)-I%:I%=0dzA H%<0'"Nobody won!":thG NJ%=I%(H%):I%(H%)=I%(H%)+G%*I%:GSTO(Q%,W%(Q%)-1,3,G%*I%):I%(H%)=J%t^G +WARALTER(Q%,A%,B%):WARALTER(-1,A%,B%) eG%=RCL(0,A%,B%+1,C%,4)-5:G%>=0R%(0,G%)=RCL(0,A%,B%,C%,4)-5'""P$(E%)" won"'""P$(F%)" won" O%=:PAUSE:dyA iB%(Q%,0)=1:B%(Q%,1)=P%(Q%,0):B%(Q%,2)=TZ%(Q%,0):ZONE(Q%,P%(Q%,0),TZ%(Q%,0),P%(Q%,0),TZ%(Q%,0)):dzA 4d:A%=03:P%(Q%,1)<>KP%(A%)TZ%(Q%,1)<>KTZ%(A%)KF%(A%):TP%(Q%)=-(TP%(Q%)>9)*(TP%(Q%)-5):txK >KF%(A%)=:A%=3::GSTO(Q%,W%(Q%)-1,11,GRCL(Q%,W%(Q%)-1,11)+1):"You find a segment.":PAUSE:KF%(0)KF%(1)KF%(2)KF%(3)dzA H'"It's the"'"last one." R}A%=0P%:B%=O%(A%):GRCL(B%,W%(B%)-1,11)C%=04:D%=014:E%=04:F%=04:STO(B%+1,C%,D%,E%,F%,RCL(0,C%,D%,E%,F%)):,,, \:dyA H:C%=:A%=04:P%(Q%,1)<>CP%(A%)TZ%(Q%,1)<>CTZ%(A%)CF%(A%):d@H +C%=:"You find a "CP$(A%,3)"."13"" cB%=910:GRCL(Q%,W%(Q%)-1,B%):A%=4::"But you already have2 companions":PAUSE:dzA 3GSTO(Q%,W%(Q%)-1,B%,A%+1):CF%(A%)=:PAUSE:A% C%dzA $TP%(Q%)=-(TP%(Q%)>1)*(TP%(Q%)-2) 3"You don't find"'"anything.":PAUSE:dzA '#STO(M%,P%,T%,L%,R%,V%)2309: '&ݤRCL(M%,P%,T%,L%,R%)V%:2304:=V% 'ݤRND(A%)A%=1=1=(A%) 'ݤCIVINC(B%)B%=0=0 '%C%:C%=(6)-2:C%>3C%=2C%>1C%=1 '4B%=C%+B%+(A%>8):B%<1A%>5=0B%<1=1B%>9=9=B% '0GSTO(A%,B%,C%,D%)V%?(450*A%+18*B%+C%)=D%: 'BݤGRCL(A%,B%,C%)D%:D%=V%?(450*A%+18*B%+C%):D%>128=D%-256=D% ';ݤACTR(A%,B%)B%<5=B%B%=B%-5:B%=R%(A%,B%):B%<0:=B%+5 ''PRINTUP(A%)B%,C%:28,0,24,26,0: 'B%=04:B%=X%"";1; 'W$(B%),3)"";: '0ON:B%=-22:ZONE(A%,X%,Y%+B%,X%,Y%+B%):: '(ZONE(A%,B%,C%,D%,E%):OUT(D%,E%) '*F%:F%=04:RACE(A%,B%,C%,F%,D%,E%): 'ɋ0,11-5*(C%-Y%));:A%<0"";B%=P%(A%,0)C%=TZ%(A%,0)1;F%=0W%(A%)-1:B%=GRCL(A%,F%,16)C%=GRCL(A%,F%,17)"";:F%=99: :""; '5;C%+1:A%>=0T%(D%,E%,0)=A%23,11-5*(C%-Y%))TT$ '\A%>=0B%(A%,0)B%(A%,1)=D%B%(A%,2)=E%?&D0=?&D02:23,13-5*(E%-Y%))TB$:?&D0=?&D0 253 ' '.RACE(A%,B%,C%,D%,E%,F%)26:OUT(B%,C%) '3G%,H%,I%:A%=A%+1:G%=RCL(A%,E%,F%,D%,0):G%=0 'GH%=3+4*D%:I%=11-5*(C%-Y%):H%,I%+3);:RCL(A%,E%,F%,D%,2)136137 'J;G%;:G%=RCL(A%,E%,F%,D%,1):G%2*G%+89:W$(RCL(A%,E%,F%,D%,3)),1); 'C"";:G%=02:H%,G%+I%)R$(ACTR(A%,RCL(A%,E%,F%,D%,4)),G%): ' 0,1:4: 'B:0,-15,0,10: 'CODE(A%)OP% '`B%,C%,A$:S$(A%)",enter your code word:"21;:B%=:C%=:B%,C%)A$:A$<>C$(A%)16,-15,0,255 (A$=C$(A%):6::*FX15 ( ( LOGO:A%:A%=(-):*TV255,1 (S22,7:23;8202;0;0;0;:"Time Lords ":28,0,24,39,2: (/STRIPE(A$)B%=B%+1:B%>9;"f";B%-9""A$: (B%2"";" "; ((;B%"."A$: (F"SCANLINE(A%,B%)OUT(A%,B%) (KlC%,D%,E%:26:0,10-5*(B%-Y%));:A%=135:C%=03:13,10:D%=(&FFF4 65535)256:157:E%=0799::8,D%:: (PPUTIN:A%,B%,C%:A%=04:B%=04:STO(Q%+1,X%,Y%,A%,B%,RCL(0,R%,S%,A%,B%))::C%=RCL(0,R%,S%,A%,4)-5:C%>=0R%(Q%+1,C%)=R%(0,C%) (U: (ZWUPDATE(Q%)X%,Y%,R%,S%:X%=P%(Q%,0):Y%=TZ%(Q%,0):R%=P%(Q%,1):S%=TZ%(Q%,1):PUTIN: (d*ݤYN:A%:A%=:A%=89A%=78:A%:=A%=89 (n'WARALTER(A%,B%,C%)A%=A%+1:C%=14 (xD%,E%,F%,G%,H%,I%,J%,K%:D%=-1:D%=D%+1:RCL(0,B%,C%,D%,2):E%=D%:E%=E%+1:RCL(0,B%,C%,E%,2):F%=RCL(0,B%,C%+1,E%,4)-5:F%>=0R%(0,F%)=RCL(0,B%,C%,E%,4)-5F%=E%:E%=D%:D%=F% ( =0K%=R%(0,K%):K%<0K%=F%:K%=F%B%(G%,0)=0:J%=4 (,:E% 3 J%=WARNo(B%,F%):J%>=0I%(J%)=-I%(J%):G%=E%: G%=E%: (jG%=04:H%=RCL(A%,B%,F%,D%,G%):STO(A%,B%,F%,D%,G%,RCL(A%,B%,F%,E%,G%)):STO(A%,B%,F%,E%,G%,H%):,: (ݤWARNo(A%,B%)C%,D%:C%=-1:C%=C%+1:D%=RCL(0,A%,B%+1,C%,4)-5:D%>=0RCL(0,A%,B%+1,C%,0)C%=5:C%=5:=-1R%(0,D%)=RCL(0,A%,B%,C%,4)-5:=D% (=RCL(0,A%,B%+1,C%,4)-5 (KILL(K%,L%,A%,B%,I%)D%,E%,F%,G%,H%,M%:GSTO(K%,L%-1,A%+4+(A%>K%),-1):M%=GRCL(A%,B%-1,K%+4+(K%>A%)):GSTO(A%,B%-1,K%+4+(K%>A%),0) (I%tyhGSTO(A%,B%-1,8,):F%=W%(A%):W%(A%)=B%:D%=-1:D%=D%+1:O%(D%)=A%D%=P%:O%(D%)=A%E%=D%P%:O%(E%)=O%(E%+1)::P%=P%-1:X%(A%)=F%:Z%=Z%+(Z%>=D%):t~ht~h (UGSTO(A%,B%-1,8,):D%=0X%(A%)-1:GRCL(A%,D%,8)D%=X%(A%): :P%=P%+1:O%(P%)=A% (I%=I%:D%=B%-1:E%=GRCL(A%,D%,0):F%=GRCL(A%,D%,1):GRCL(A%,D%,3)G%=WARNo(E%,F%):H%=I%(G%):I%(G%)=H%+2*(I%+.5)*GRCL(A%,D%,3):H%<>I%(G%)WARALTER(-1,E%,F%) (!T%(E%,F%,0)=A%T%(E%,F%,0)=-1 (VG%=47:H%=GRCL(A%,D%,G%):H%>0KILL(A%,B%,G%-4-(G%-3>A%),H%,I%)H%=-1paradox: (k:D%=D%+1:GRCL(A%,D%+1,8)D%>X%(A%)-1:GSTO(A%,B%-1,K%+4+(K%>A%),M%):GSTO(K%,L%-1,A%+4+(A%>K%),B%): (-ݤOUT(A%,B%)=A%<>X%(B%-Y%)>2B%>14B%<0 )ݤMOVE(A%,B%,C%)F% ) *FX21 )+F%=:F%=136X%=(X%+4)5:PRINTUP(A%): )&F%=137X%=(X%+1)5:PRINTUP(A%): )"WF%=138Y%>0OFF:28,0,24,26,1:0,23)'''':ON:Y%=Y%-1:ZONE(A%,X%,Y%-2,X%,Y%-2): ),^F%=139Y%<14OFF:28,0,24,26,1,30,11,11,11,11,11:ON:Y%=Y%+1:ZONE(A%,X%,Y%+2,X%,Y%+2): )1F%>127F%=176-F% )6F%>=B%F%<=C%:*FX21 );428,27,24,39,12:R%=X%:S%=Y%:F%>48F%<49D%=2=F% )@[T%(R%,S%,0)>=0B%=R%:C%=S%:R%=T%(R%,S%,1):S%=T%(B%,C%,2):T%(B%,C%,0)=-1:T%(R%,S%,0)<0 )J=F% )hPAUSE A%:A%=07999:: )r6ON 26:26,10)""26,15)""0,10)""0,15)"": )|!OFF 26:0,10)10,15)1: )COMP(A%,B%,C%)D%,E%:GRCL(A%,B%,9)D%=0:E%=03:C%,9+E%+5*D%)CP$(GRCL(A%,B%,D%+9)-1,E%)::D%=D%+1:GRCL(A%,B%,D%+9)=0D%=11 ) )8GIVE(A%,B%,C%,D%)E%,F%,G%,H%,I%,J%,K%:I%=A%:J%=B% )I%=A%J%=B%K% )"K%=:G%=TRANSFER(A%,B%,C%,D%) )MGRCL(A%,B%,12+C%+(C%>A%))<0DEADCLR(A%,B%,C%,D%)ALIVECLR(A%,B%,C%,D%) )D%=D%+1:D%>=W%(C%) *G%=TRANSFER(C%,D%-1,C%,D%) *2A%=47:B%=(GRCL(C%,D%,A%)+.5)-.5:B%=0Tfj * gE%=GRCL(C%,D%,A%+8):F%=A%-4-(A%-3>C%):GSTO(C%,D%,A%+8,E%+G%):E%<0E%>=-G%KILL(F%,B%,C%,D%+1,-1) *H%=C%+12+(C%>F%):E%=GRCL(F%,B%-1,H%):GSTO(F%,B%-1,H%,E%-G%):E%>=0E% J%),-1):M%=GRCL(A%,B%,J%+4+(J%>A%)):GSTO(A%,B%,J%+4+(J%>A%),0) *N E%=911:GSTO(A%,B%,E%,0): *XB%=0Dlj *bD%=TRANSFER(A%,B%-1,A%,B%) *l/E%=47:F%=GRCL(A%,B%,E%):-1=F%E%=7:t|j *qF%=(F%+.5)-.5:F%=0t|j *v!G%=E%-4-(E%-3>A%):G%=J%t|j *.C%E%=7::ALIVECLR(G%,F%-1,A%,B%):UNDO: *kH%=GRCL(A%,B%,E%+8):GSTO(A%,B%,E%+8,H%-D%):H%>=0H% G%):I%=GRCL(G%,F%-1,H%):GSTO(G%,F%-1,H%,I%+D%):I%<0I%>=-D%KILL(A%,B%+1,G%,F%,-1) *\GRCL(A%,B%,E%+8)<0I%>=-D%E%=7::ALIVECLR(G%,F%-1,A%,B%):UNDO:GIVE(A%,B%,G%,F%-1): *BGRCL(A%,B%,E%+8)>=0I% A%),M%):GSTO(L%,K%,A%+4+(A%>L%),N%+1): *'ݤTRANSFER(A%,B%,C%,D%)E%,F%,G%,H% **E%=910:F%=GRCL(A%,B%,E%):F%=0d_j *ځH%=910:GRCL(C%,D%,H%):CP%(F%-1)=GRCL(A%,B%,0):CTZ%(F%-1)=GRCL(A%,B%,1):CF%(F%-1)= H%=10::GSTO(C%,D%,E%,F%):G%=G%+1 *9:GSTO(C%,D%,11,GRCL(C%,D%,11)+GRCL(A%,B%,11)):=G% *tardis A%,B%,C% +28,3,15,22,11: +/" _$"'"(999"'"bff$"'"8991" +04,4,0,0,0,0,0,1,3,1,-1,-1,30,110:0,4,5,156 + ?A%=15:A%=330" h4"'"n="'"j5"'"zu" +*A%<4B%=B%+40B%=B%-40 +4'1,1,-4,4,-4,5,5,5,B%,0,0,-B%,B%,B% +>'2,1,-6,6,-6,5,5,5,B%,0,0,-B%,B%,B% +H'3,1,-2,2,-2,5,5,5,B%,0,0,-B%,B%,B% +R*&401,1,20,3:&402,2,30,3:&403,3,25,3 +\4C%=14:&401,1,74,3:&402,2,55,3:&403,3,80,3: +f4C%=12:&401,1,20,3:&402,2,50,3:&403,3,80,3: +pA%=430:1'2'2'2 +zC%=05999:,:: +paradox A$,A%,B% +-26::A$="TIME PARADOX":11,11)A$11)A$ + A%=0245 +531,10,11,129,8,10,129:B%=099::8,131,11,8,131 +6&201,-15,A%,1: &202,-15,A%+5,1:&203,-15,A%+10,1 + +(1,6,0,0,0,0,0,1,126,0,-2,-3,126,126 + 0,1,5,50 +5?&72=0:A%=125:?&72=157-?&72:2609:B%=099:,: + +SFM A%,B%,C%,D%,E%:drk:A%=129:B%,C%,D%,E%:B%,C%,D%,E%::PAUSE:PAUSE: +&201,-10,81,16,&202,-10,65,35,&203,-10,53,35,1,0,0,1,1,-10,81,12,1,0,0,1,1,-10,81,4,1,0,0,1,&201,-10,81,16,&202,-10,61,35,&203,-10,45,35,1,0,0,1,1,-10,93,12,1,0,0,1,1,-10,89,4,1,0,0,1 +&201,-10,89,8,&202,-10,81,36,&203,-10,65,36,1,0,0,1,1,-10,81,8,1,0,0,1,1,-10,81,12,1,0,0,1,1,-10,77,4,1,0,0,1,&201,-10,81,32,&202,-10,61,32,&203,-10,45,32 ,ZAP(A%)B%,C%,D%,E%,F%:F%=:12,5)"";:B%=A%*26+(1-A%)*13:C%=A%*13+(1-A%)*26:D%=1-2*A%:A%=B%C%D%:A%,5)"p":E%=029:, ,;1,129,-1,-1,-1,15,15,15,127,-2,0,-127,126,0:1,1,140,6 ,>A%=B%C%D%:A%,5)" ":E%=029:,:A%=0699::0,F%);: ,$SPLODGE(A%)0,-15,5,20:B%,C%,D%,E%:E%=:B%=010:C%=19*A%+919*A%+11:D%=46:C%,D%)((32)+(2)*64+95):,,:0,E%);: 5%);: pr qsrpqssXpX0 LM TIME LORDS M FATIME LORDS