1 ONSTOPGOSUB8:STOPON:COLOR 2,1,1:SCREEN2,2,0:FORI=14336TO14463:READD$:VPOKEI,VAL("&h"+D$):NEXT:DEFUSR=&H41:A=USR(0):OPEN"GRP:"AS#1:FORI=40TO41:PRESET(I,124):PRINT#1,"THE CLOCKWORK & JOS'B":NEXT:FORI=94TO95:PRESET(I,64):PRINT#1,"KNIGHT'08":NEXT
2 FORI=1TO6:READA,B,C,D:LINE(A,B)-(C,D),10,BF:NEXT:FORJ=10TO100STEP10:LINE(J,5)-(5,J),10:NEXT:LINE(5,5)-(250,186),10,B:DEFUSR=&H44:A=USR(0):A$=INPUT$(1):DEFUSR=&H41:A=USR(0):CLS:FORY=0TO7:C=-7*(C=0)-0*(C=7)
3 FORX=0TO7:C=-7*(C=0)-0*(C=7):LINE(X*16+64,Y*16+32)-((X+1)*16+64,(Y+1)*16+32),C,BF:NEXTX,Y:LINE (56,24)-(200,168),7,B:FORI=56TO57:PRESET(75+I,178):PRINT#1,"KNIGHT'08":NEXT:DEFUSR=&H44:A=USR(0)
4 FORI=0TO7:S(I)=INT(RND(TIME)*8):NEXT:IFS(0)=S(1)ORS(0)=S(2)ORS(0)=S(3)ORS(1)=S(2)ORS(1)=S(3)ORS(2)=S(3)THEN4ELSE6
5 PUTSPRITE0,(S(0)*16+64,S(4)*16+32),15,0:D=STICK(0):S(0)=S(0)+(D>1ANDD<5)*(S(0)<7)-(D>5ANDD<9)*(S(0)>0):S(4)=S(4)+(D>3ANDD<7)*(S(4)<7)-(D=8ORD=1ORD=2)*(S(4)>0):K=O-S(0):H=U-S(4):IF(T(S(0),S(4))<>1)*STRIG(0)*((H*H+K*K)=5)THEN6ELSE5
6 FORI=1TO3:T(S(I),S(I+4))=I+1:M(I)=M(I)+(S(0)=S(I)ANDS(4)=S(I+4)):C(I)=-4*(M(I)=0):PUTSPRITEI,(S(I)*16+64,S(I+4)*16+32),C(I),I:NEXT
7 O=S(0):U=S(4):FORI=1TO2:CIRCLE(S(0)*16+72,S(4)*16+40),I,15:NEXT:P=P+T(S(0),S(4))*P+10:T(S(0),S(4))=1:LINE(106,8)-(255,17),0,BF:FORI=56TO57:PRESET(I,8):PRINT#1,"SCORE ";P:NEXT:GOTO5
8 FORI=0TO3:PUTSPRITEI,(0,0),0,I:NEXT:DEFUSR=&H41:A=USR(0):CLS:FORI=80TO81:PRESET(I,100):PRINT#1,"SCORE ";P:PRESET(I,110):PRINT#1,"AGAIN(S/N)?":NEXT:DEFUSR=&H44:A=USR(0):A$=INPUT$(1):IFA$="S"ORA$="s"THENRUNELSESCREEN0:PRINT"TheClockWork.WordPress.Com"
9 DATA 0,0,0,7,f,1f,3f,3b,1b,7,7,f,f,1f,0,0,0,0,70,f0,60,e0,c0,c0,e0,e0,e0,f0,f0,f8,0,0,0,0,1,3,6,e,18,18,e,6,3,1,1f,39,0,0,0,0,80,c0,60,70,18,18,70,60,c0,80,f8,9c,0,0,0,0,36,1f,f,f,f,f,f,f,f,f
10 DATA 1f,3f,0,0,0,0,6c,f8,f0,f0,f0,f0,f0,f0,f0,f0,f8,fc,0,0,0,0,8,1c,48,68,48,7f,40,7f,20,3f,10,1f,0,0,0,0,10,38,12,16,12,fe,02,fe,04,fc,08,f8,0,0,120,88,136,91,121,91,124,105,132,91,135,100,126,93,130,96,126,95,129,105,128,102,136,105