C-FOCAL,1969

09.10 TYPE "NORMALIZED DATA PLOT"
09.20 ASK,!!,"SIZE OF DATA FIELD",N
09.30 TYPE "ENTER DATA"
09.40 FOR I=1,N;ASK X(I)
09.50 ASK "LARGEST VALUE IN DATA FIELD",L
09.60 FOR I=1,N;TYPE "*",!;FOR J=0,<X(I)/L>*60;TYPE " "
*~