100 PRINT

50 DIM L(50),T(10)
100 PRINT
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 GOSUB 900
120 REM *** INITIALIZATION
122 GOSUB 800
124 REM *** THE HUMAN TAKES A NUMBER
126 GOSUB 500
128 REM *** COOMPUTE THE HUMAN'S AND TAXMAN'S TOTALS
130 GOSUB 570
132 REM *** PRINT THE NEW LIST
134 GOSUB 600
136 REM *** CHECK �F ANY NUMBERS STILL HAVE FACTORS
138 GOSUB 650
140 �F 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 K=INT(K)
510 �F K <= 0 THEN 750
512 �F K <= N THEN 518
514 PRINT K;"IS NOT ON THE LIST -- TRY AGAINN."
516 GOTO 502
518 �F L(K)=0 THEN 514
520 REM *** FIND ALL THE FACTORS
522 �F 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 M=0
532 FOR I=1 TO K/2
534 �F L(I)=0 THEN 544
536 �F K <> I*INT(K/I) THEN 544
538 M=M+1
540 T(M)=I
542 L(I)=0
544 NEXT I
546 !
548 �F M=0 THEN 524
550 L(K)=0
552 RETURN
566 REM
567 REM *** COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS
568 REM
570 Y=Y+K
572 PRINT "YOUR TOTAL IS";Y
574 PRINT "I GET";
576 FOR I=1 TO M
578 PRINT T(I);
580 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 M=0
606 FOR I=1 TO N
608 �F L(I)=0 THEN 614
610 PRINT I;
612 M=1
614 NEXT I
616 RETURN
646 REM
647 REM *** CHECK �F ANY NUMBERS STILL HAVE FACTORS
648 REM
649 REM *** FIRST SEE �F THERE ARE ANY NUMBERS LEFT IN THE LIST
650 �F M=0 THEN 690
652 FOR I=N TO 4 STEP -1
654 FOR J=2 TO I/2
656 �F L(J)=0 THEN 664
658 �F I <> J*INT(I/J) THEN 664
660 M=1
662 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
676 �F L(I)=0 THEN 682
678 PRINT I;
680 Z=Z+I
682 NEXT I
684 PRINT "BECAUSE NO FACTORS OF ANY NUMBERS ARE LEFT."
686 PRINT "MY TOTAL IS";Z
688 M=0
690 RETURN
696 REM
697 REM *** FIND THE WINNER
698 REM
700 PRINT
702 �F Z>Y THEN 708
704 PRINT "YOU";Y,"TAAXMAN";Z,"YOU WIN!!!"
706 RETURN
708 PRINT "TAXMAN";Z,"YOU";Y,"THE TAXMAN WINS."
710 RETURN
746 REM
747 REM *** AGAIIN?
748 REM
750 PRINT
752 PRINT
754 PRINT "AGAIN (1=YES,0=NO)";
756 INPUT R
758 �F R=1 THEN 122
760 END
796 !
797 REM *** INITIALIZATION
798 REM
800 PRINT
802 PRINT "HOW MANY NUMBERS DO YOU WANT ON THE LIST";
804 INPUT N
806 N=INT(N)
808 �F N <=0 THEN 999
810 �F N <=50 THEN 816
812 PRINT "AT THIS TIME, REGULATIONS ALLOW A MAXIMUM OF 50 NUMMBERS."
814 GOTO 800
816 PRINT
818 Y=0
820 Z=0
822 PRINT
824 PRINT "THE LIST IS:";
826 FOR I=1 TO N
828 PRINT I;
830 L(I)=1
832 NEXT I
834 �F N>1 THEN 844
836 PRINT
838 PRINT "HOW VERY GENEROUS OF YOU TO FORFEIT ALL TO THE TAXMA"
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 INN 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 FACTORS OF YOUR NUMBER THAT ARE STILL LEFT."
914 PRINT "YOUR NUMBER AND ALL ITS FACTORS ARE THEN DELEETED"
916 PRINT "FROM THE LIST."
918 PRINT
920 PRINT "FOR EXAMPLE, SUPPOSE YOU WANT 10 NUMBERS TO BE ON THE LIST."
922 PRINT "THEN THE LIST WOULD BE: 1 2 3 4 5 6 7 8 9 10"
924 PRINT
926 PRINT "�F YOU TOOK 8, THE TAXMAN WOULD GET 11, 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 THEE REMAINING NUMBERS HAS ANY FACTORS,"
940 PRINT "THE TAXMAN GETS THEM!!"
942 PRINT
944 PRINT "YOUR SCORE IS THE SUM OF THHE NUMBERS YOU TAKE."
946 PRINT "�F YOU WANT TO GIVE UP, TAKE 0."
948 PRINT "GOOD LUCK!"
950 RETURN
999 END