image of READY prompt

Wang2200.org

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)