302 Bulls and Cows
210 ' IF BLACK >3 THEN FOR X=I TO 300:NE XT X:GOTO 4000
220 ' NEXT
230 LOCATE 9,25:PRINT"YOU HAVE HAD";Q;"T RIES";:FOR X=1 TO 300:NEXT X:GOTO 600 240 REM *** CHECK GUESS
250 BLACK=0:WHITE=0
260 FOR X=1 TO 4 : A(X)=0:H(X)=0:J(X)=0: NEXT X
270 FOR X=1 TO 4
280 A(X)=VAL(MIDS(G$,X,1)):NEXT X
290 FOR X=1 TO 4
300 IF A(X)=N(X) THEN BLACK=BLACK+1:H(X) =1:J(X)=1
310 NEXT X
320 FOR X=1 TO 4
330 FOR Y=1 TO 4
340 IF A(X)=N(Y) AND H(Y)=0 AND J(X)=0 THEN WHITE=WHITE+I:H(Y)=1:J(X)=1:GOTO 36 0
350 NEXT Y 360 NEXT X 370 RETURN 380 REM
390 FOR X= 1 TO 4
400 N(X)=INT(RND*9)+1
410 NEXT X 420 RETURN
430 ENT 1,50,2,2:SOUND 1,284,50,15,0,1: CLS
440 PRINT"GUESSES	BULLS	COWS"
450 RETURN
460 LN=LN+1:LOCATE 1,LN:PRINT G$;: IF BL ACK=0 THEN 520
470 F=14
480 FOR X=1 TO BLACK
490 LOCATE F,LN:PEN 3:PRINT CHR$(251);: PEN 1
500 F=F+1 510 NEXT X
520 IF WHITE=0 THEN 580
530 F=23
540 FOR X=1 TO WHITE
550 LOCATE F,LN:PEN 3:PRINT CHR$(252);:P EN 1