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