TAXMAN  100 REM *** TAXMAN *** PEOPLE'S COMPUTER COMPANY  102 PRINT   104 PRINT "HI, I'M THE TAXMAN."  106 PRINT "DO YOU WANT THE REGULATIONS (1=YES,0=NO)";  108 INPUT R  110 IF R=1 THEN 900  120 REM *** INITIALIZATION  122 GOSUB 800  124 REM *** THE HUMAN TAKES A NUMBER  126 GOSUB 500  128 REM *** COMPUTE THE H]MAN'S AND TAXMAN'S TOTALS  130 GOSUB 570  132 REM *** PRINT THE NEW LIST  134 GOSUB 600  136 REM *** CHECK IF ANY NUMBERS STILL HAVE FACTORS  138 GOSUB 650  140 IF M=1 THEN 126  142 REM *** FIND THE WINNER  144 GOSUB 700  146 REM *** AGAIN?  148 GOTO 750  496 REM  497 REM *** THE HUMAN MOVES  498 REM  500 PRINT   502 PRINT   504 PRINT "YOU TAKE";  506 INPUT K  508 LET K=INT(K)  510 IF K<=0 THEN 750  512 IF K<=N THEN 518  514 PRINT K;"IS NOT IN THE LIST -- TRY AGAIN."  516 GOTO 502  518 IF L[K]=0 THEN 514  520 REM FIND ALL THE FACTORS  522 IF K>1 THEN 530  524 PRINT "THERE ARE NO FACTORS OF";K;"FOR ME."  526 PRINT "ARE YOU TRYING TO SHORT-CHANGE THE TAXMAN?"  528 GOTO 502  530 LET M=0  532 FOR I=1 TO K/2  534 IF L[I]=0 THEN 544  536 IF K<>I*INT(K/I) THEN 544  538 LET M=M+1  540 LET T[M]=I  542 LET L[I]=0  544 NEXT I  546 REM CHECK WHETHER THERE WERE ANY FACTORS  548 IF M=0 THEN 524  550 LET L[K]=0  552 RETURN   566 REM  567 REM *** COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS  5>8 REM  570 LET Y=Y+K  572 PRINT "YOUR TOTAL IS";Y  574 PRINT "I GET";  576 FOR I=1 TO M  578 PRINT T[I];  580 LET Z=Z+T[I]  582 NEXT I  584 PRINT   586 PRINT "MY TOTAL IS";Z  588 REtURN   596 REM  597 REM *** PRINT THE NEW LIST  598 REM  600 PRINT   602 PRINT "NEW LIST:";  604 LET M=0  60> FOR I=1 TO N  608 IF L[I]=0 THEN 614  610 PRINT I;  612 LET M=1  614 NEXT I  616 RETURN   646 REM  647 REM *** CHECK IF ANY NUMBERS STILL HAVE FACTORS  648 REM  649 REM CHECK IF THE LIST IS EMPTY  650 IF M=0 THEN 690  652 FOR I=N TO 4 STEP -1  654 FOR J=2 TO I/2  656 IF L[J]=0 THEN 664  658 IF I<>J*INT(I/J) THEN 664  660 LET M=1  >62 RETURN   664 NEXT J  666 NEXT I  668 REM THE TAXMAN GETS THE REST OF THE NUMBERS  670 PRINT   672 PRINT "I GET ";  674 FOR I=1 TO N  6?6 IF L[I]=0 THEN 682  678 PRINT I;  680 LET Z=Z+I  682 NEXT I  684 PRINT " BECAUSE NO FACTORS OF ANY NUMBER ARE LEFT."  686 PRINT "My TOTAL IS";Z  688 LET M=0  690 RETURN   696 REM  697 REM *** FIND THE WINNER  698 REM  700 PRINT   702 IF Z>Y THEN 708  704 PRINT "YOU";Y;" TAXMAN";Z;" YOU WIN !"'7"!"'?"!"'7'7'7  706 RETURN   708 PRINt "TAXMAN";Z;" YOU";Y;" THE TAXMAN WINS."  710 RETURN   746 REM  747 REM *** AGAIN?  748 REM  750 PRINT   752 PRINT   754 PRINT "AGAIN (1=YES,0=NO)";  756 INPUT R  758 IF R=0 THEN 999  760 GOTO 122  796 REM  797 REM *** INITIALIZATION  798 REM  800 PRINT   802 PRINT "HOW MANY NUMBERS DO YOU WANT IN THE LIST";  804 INPUT N  806 LET N=INT(N)  808 IF N<=0 THEN 999  810 IF N<=50 THEN 816  812 PRINT "AT THIS TIME, REGULATIONS ALLOW A MAXIMUM OF 50 NUMBERS."  814 GOTO 800  816 DIM L[50]1 THEN 844  836 PRINT   838 PRINT "HOW VERY GENEROUS OF YOU TO FORFEIT ALL TO THE TAXMAN."  840 PRINT "TAXMAN 1 yOU 0 THE TAXMAN wINS."  842 GOTO 750  844 RETURN   896 REM  897 REM *** INSTRUCTIONS  898 REM  900 PRINT   901 PRINT "YOU TRY TO BEAT THE TAXMAN."  902 PRINT   904 PRINT "WE START WITH A LIST OF WHOLE NUMBERS IN NUMERICAL"  906 PRINT "ORDER (YOU DECIDE HOW MANY)>"  908 PRINT   910 PRINT "YOU TAKE A NUMBER FROM THE LIST -- THE TAXMAN GETS"  912 PRINT "ALL THE FACTORS OF YOUR NUMBER THAT ARE STILL LEFT."  914 PRINT "YOUR NUMBER AND ALL ITS FACTORS ARE THEN DELETED"  916 PRINT "FROM THE LIST."  918 PRINT   920 PRINT "FOR EXAMPLE, SUPPOSE YOU WANT 10 NUMBERS TO BE IN THE LIST."  922 PrINT "THEN THE LIST WOULD BE: 1 2 3 4 5 6 7 8 9 10"  924 PRINT   926 PRINT "IF YOU TOOK 8, THE TAXMAN WOULD GET 1, 2, AND 4"  928 PRINT "AND THE NEW LIST WOULD BE: 3 5 6 7 9 10"  930 PRINT   932 PRINT "THE TAXMAN MUST GET SOMETHING EVERY TIME SO YOU CAN"  934 PRINT "ONLY PICK A NUMBER THAT HAS FACTORS LEFT."  936 PRINT   938 PRINT "WHEN NONE OF THE REMAINING NUMBERS HAS ANY FACTORS,"  940 PRINT "THE TAXMAN GETS THEM!!"  942 PRINT   944 PRINT "YOUR SCORE IS THE SUM OF THE NUMBERS yOU TAKE."  946 PRINT "IF YOU WANT TO GIVE UP, TAKE 0."  948 PRINT "GOOD LUCK!"  950 GOTO 122  999 END >