C DATAPLAN-FOCAL73
 1.01 C BEERS FOR TORRE
 1.05 T !!!!!
 1.10 A "HOW MANY BEERS DO YOU WANT
 " B
 1.20 F I=0,B-1-I; D 3
 1.25 T %10.0,B-I," BEERS ON THE WALL",!
 1.30 T "YOU	RE DRUNK!!!",!!
 1.50 Q
 3.01 C LOOP OVER BEERS
 3.10 T %10.0,B-I
 3.20 T " BEERS ON THE WALL",!
 3.30 T "PASS ONE AROUND ...",!