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)