Listing of file='CLOWN3' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 421, program filename = 'CLOWN3' 0000 PRINT HEX(06) 0010 DEFFNF(X)=((X-1)^2+2*(X-1)+1) : H=4.4 : A3=((H-3.5)*10)/3+2.4 : PRINT HEX(030A0A0A06) : GOSUB '22("PLAYER NO. ?") : GOSUB '23(13,100) : P1$=A1$ : U=0 0020 DIM A$(16)64,B$(3)64,U$(2),S(2),B1$(3)64,B2$64 : INIT(80)A$() : U$(1)=HEX(2D2D2D2D2EA0A0A0A020) : U$(2)=HEX(A0A0A0A02E2D2D2D2D) : STR(A$(1),1,1)=HEX(01) : PRINT HEX(0305) : S,C=1 : D=1 : C1=2 : P=-1 : S(1),S(2)=6 0030 DIM S1(2) 0040 STR(A$(1),2,6)="SCORE=" : STR(A$(1),20,9)="PLAYER #" : B$(1),B$(2),B$(3),B1$(1),B1$(2),B1$(3)="\81oOoOoOoOoOo\81oOoOoOoOoOo\81oO oOoOoOoOo\81oOoOoOoOoOo\81oOoOoOoOoOo\81oOo" : STR(A$(1),30,9)=":CLOWNS =" 0050 X=-7 : X1=1 : A=0 : CONVERT (P+3)/2TO STR(A$(1),28,1),(#) : S((P+3)/2)=S((P+3)/2)-1 : CONVERT S((P+3)/2)TO STR(A$(1),40,1),(#) : IF S((P+3)/2)<1THEN 240 0060 A=0 0070 A=A+1 : IF A>63THEN 60 : FOR B=0TO 2 : MAT COPY B$()<B*64+A,64-A>TO A$()<1+64*B+64,64-A> : MAT COPY B$()<B*64+1,A>TO A$()<64-A+64*B+64,A> : NEXT B : STR(A$(16),C,10)=U$((S+3)/2) : STR(A$(16),C+C1,1)=HEX(DE) : STR(A$((FNF(X))/H+A3),X*U+D,1)="^" 0080 CONVERT S1((P+3)/2)TO STR(A$(1),9,4),(####) : STR(A$(16),64,1)=HEX(01) : MAT PRINT A$; : PRINT HEX(01) 0090 KEYIN A$,90,90 : ON VAL(A$)-12GOSUB 180 : STR(A$(16),C,10)=" " : ON VAL(A$)-51GOSUB 160,190,170 0100 IF X<-7THEN 110 : IF X>7THEN 110 : STR(A$((FNF(X))/H+A3),X*U+D,1)=HEX(80) 0110 X=X+X1/2 : IF X*U+D>64THEN 210 : IF X*U+D<1THEN 210 : IF STR(A$((FNF(X))/H+A3),X*U+D,1)<>HEX(80)THEN 140 0120 IF X-7*X1<>0THEN 70 : IF X*U+D>(C+((S+1)/2)*5+3)THEN 220 : IF X*U+D<(C+((S+1)/2)*5)THEN 220 : H=4.4-.3*((ABS(C1+C-(X*U+D))-2)/2) : A3=((H-3.5)*10)/3+2.4 : E=D : C2=C1 : C1=X*U+E-C : X=-7*X1 : E=0 : S=-S 0121 U1=U : U=-(H-4.4)*2 : D=C+C2+U*7*X1 0130 IF X*U+D>64THEN 220 : IF X*U+D<1THEN 220 : GOTO 70 0140 IF (FNF(X))/H+A3>14THEN 120 : IF SGN(X*X1)<>-1THEN 70 0141 STR(B$((FNF(X))/H+A3-1),INT((X*U+D+A+(-64*((SGN(X*U+D+A-64)+1))/2))/2)*2+ 1,2)=HEX(8080) 0142 X=-X : D=D-((2*ABS(X*U))*X1) : S1((P+3)/2)=S1((P+3)/2)+40-(INT((FNF(X))/H+A3-1)*10) 0150 GOTO 70 0160 IF C<3THEN 190 : C=C-2 : RETURN 0170 IF C>53THEN 190 : C=C+2 : RETURN 0180 C1=8-C1 : S=-S : A$=" " : RETURN 0190 RETURN 0200 INPUT K,H,A3 : PRINT FNF(K)/H+A3 : END 0201 PRINT ((FNF(X))/H+A3-1),INT((X*2+D+A+(-64*((SGN(X*2+D+A-64)+1))/2))/2)*2 : END 0210 D=128*(((X1+3)/2)-1)-D : X1=-X1 : X=-X : GOTO 110 0220 STR(A$(16),C,10)=U$((S+3)/2) : STR(A$(16),C+C1,1)=HEX(DE) : STR(A$((FNF(X))/H+A3),X*U+D,1)="\85" : STR(A$(16),64,1)=HEX(01) : MAT PRINT A$; : PRINT HEX(010A0A0A0A0A0A0A);TAB(25);'s p l a t !!!!' : STR(A$((FNF(X))/H+A3),X*U+D,1)=HEX(80) 0230 D=33 : FOR I=1TO 100 : NEXT I : IF P1$<>"2"THEN 50 : P=-P : FOR I=1TO 3 : B2$=B$(I) : B$(I)=B1$(I) : B1$(I)=B2$ : B2$=" " : NEXT I : GOTO 50 0240 PRINT HEX(010A0A0A0A0A0A0A);TAB(20);"PLAYER NO.";(P+3)/2;"GAME OVER" : IF P1$<>"2"THEN 250 : IF S((-P+3)/2)>1THEN 230 0250 END 0260 DEFFN'22(X2$) : E8=E8+1 : ON ((E8/2)-INT(E8/2))*2GOTO 280 0270 FOR X3=1TO LEN(X2$) : PRINT STR(X2$,X3,1); : NEXT X3 : PRINT : RETURN 0280 FOR X3=LEN(X2$)TO 1STEP -1 : PRINT TAB(X3-1);STR(X2$,X3,1);HEX(0808);HEX(0C) : NEXT X3 : PRINT : RETURN 0290 DEFFN'23(X2,X3) : KEYIN A1$,300,290 : PRINT TAB(X2);HEX(0C8B) : FOR I2=1TO 50 : NEXT I2 : PRINT TAB(X2);HEX(0C20) : FOR I2=1TO 50 : NEXT I2 : GOTO 290 0300 PRINT TAB(X2);HEX(0C);A1$ : FOR I2=1TO X3 : NEXT I2 : RETURN 0310 DEFFN'0 HEX(05)