Listing of file='MOOCOW' on disk='vmedia/games.wvd.zip'
# Sector 494, program filename = 'MOOCOW' 0005 REM MOOCOW MATTHEW LOURIE 5/24/75 0010 PRINT HEX(03);"THIS GAME IS CALLED COWS AND MOOS. THE WANG 2200" 0020 PRINT "PICKS A RANDOM NUMBER OF 5 DIFFERENT DIGITS." 0030 PRINT "YOUR OBJECTIVE IS TO DETERMINE THIS NUMBER." : PRINT 0040 PRINT "THE WANG 2200 WILL ASK YOU FOR A GUESS. " 0050 PRINT "YOUR GUESS MUST BE FIVE DIGITS LONG." 0060 PRINT "THE WANG 2200 WILL THEN INDICATE THE NUMBER OF COWS AND MOOS." 0070 PRINT "THE MOO NUMBER INDICATES CORRECT DIGITS CORRECTLY PLACED." 0080 PRINT "THE COW NUMBER INDICATES CORRECT DIGITS, BUT INCORRECTLY PLACED." : PRINT 0090 PRINT "SUPPOSE THE WANG 2200 PICKS ----04375" 0100 PRINT "IF YOUR GUESS IS ---------------06589 COW= 1 MOO= 1" 0110 PRINT "IF YOUR GUESS IS ---------------22333 COW= 2 MOO= 1" 0120 PRINT "IF YOUR GUESS IS ---------------33222 COW= 2 MOO= 0" 0800 PRINT "TO PLAY PUSH RETURN" 0810 KEYIN M$,820,810 : GOTO 810 0820 PRINT HEX(030A0A0A) : DIM R(5) : FOR A=1 TO 5 0830 R(A)=INT(RND(1)*10) : FOR B=1 TO A 0840 IF R(B)=R(A) THEN 850 : NEXT B : NEXT A 0850 IF B<>A THEN 830 : NEXT A 0860 INPUT "GUESS",G$ : IF LEN(G$)=5 THEN 870 : PRINT "FIVE DIGITS NEEDED!" : GOTO 860 0870 CONVERT G$ TO G : IF G<>INT(G) THEN 860 : G=G/(10^5) : C=0 : O=G : M=0 0880 IF G<0THEN 860 : P=P+1 : FOR A=1 TO 5 0890 G=G*10 : N=INT(G) : G=G-N : FOR B=1TO 5 : IF N=R(B)THEN 910 0900 NEXT B : NEXT A : GOTO 920 0910 C=C+1 : NEXT B : NEXT A : M=0 0920 FOR A=1TO 5 : O=O*10 : IF R(A)=INT(O)THEN 950 : O=O-INT(O) : NEXT A 0930 PRINT HEX(0C0909090909090909090909090909);"COW=";C;"MOO=";M 0940 IF C<>0THEN 860 : IF M=5THEN 960 : GOTO 860 0950 M=M+1 : C=C-1 : O=O-INT(O) : NEXT A : GOTO 930 0960 PRINT "RIGHT AND IT TOOK YOU";P;"TURNS!" : F=F+P : T=T+1 0970 PRINT "YOUR AVERAGE SCORE FOR";T;"GAMES IS";F/T 0980 PRINT "TO PLAY AGAIN PUSH THE RUN KEY" 0990 PRINT "TO PLAY AGAIN AND CLEAR YOUR AVERAGE PUSH THE CLEAR KEY" 1000 KEYIN A$,1010,1000 : GOTO 1000 1010 IF A$<>HEX(81) THEN 1020 : F=0 : T=0 : P=0 : GOTO 1030 1020 IF A$<>HEX(82) THEN 1000 : P=0 : GOTO 1030 1030 PRINT HEX(030A0A0A) : GOTO 820