Bulls and Cows 303
560 F=F+1
570 NEXT
580 PRINT
590 RETURN
600 IF BLACK<4 THEN 640
610 LOCATE 29,3:PEN 2:PRINT"CORRECT!!":L OCATE 29,5:PRINT"I CHOSE";:PEN 1:LOCATE 29,7
620 FOR X=1 TO 8: ENT 1,100,-X,2:SOUND 1 ,284,50,15,0,1:NEXT
630 GOTO 650
640 LOCATE 29,3:PEN 2:PRINT" HARD LUCK!" :LOCATE 29,5:PRINT" I CHOSE";:PEN 1:LOCA TE 29,7
650 FOR X=1 TO 4
660 PRINT N(X);
670 NEXT
680 LOCATE 33,11:PEN 2:PRINT"AND";:LOCAT E 29,13:PRINT"YOU GUESSED";:PEN 1:LOCATE 29,15
690 FOR X=1 TO 4
700 PRINT A(X);
710 NEXT
720 FOR X=1 TO 30:SOUND 2,(X+100):NEXT 730 LOCATE 1,23:PRINT CHR$(20):LOCATE 9, 24:PRINT"PRESS ANY KEY TO RESTART";
740 IF INKEY$="" THEN GOTO 740 ELSE CLS: LOCATE 1,2:GOTO 100
750 LOCATE 1,1:PRINT CHR$(24);"
BULLS AND COWS	";CHR$(24
):PRINT
760 LOCATE 1,5
770 PRINT:PRINT"The object of Bulls and Cows is toguess a four digit n umber chosen	by the computer."
780 PRINT:PEN 2:PRINT"After each guess
the computer will give you clues.
Each BULL indicates a correct digit in
the correct position"
790 PRINT"and each COW indicates a corre ct digit in the wrong position."
800 LOCATE 9,21:PEN 3:PRINT"PRESS ANY KE Y TO START":PEN 1
810 IF INKEY$="" THEN 810 ELSE CLS 820 GOTO 90