C-PS/8 FOCAL, 1971
 1.01 T "GROUP ONE INSTRUCTIONS WILL BE ERASED AS EXECUTED SO THAT"!
 1.02 T "2-D PLOTTER FOR SERIL EXPERIMENTAL DATA"!
 1.03 T "WILL HAVE STORAGE FOR UP TO 40 SUBSCRIPTED VARIABLES"!
 1.04 T "REGARD DATA AS RESIDING INREGION OF POSITIV 	Y	 ONLY,AND"!
 1.05 T "BASE LINE PARAMETERS OVER ANY INTERVAL OF 	X	,WHICH"!
 1.06 T "MAY THEN,OF COURSE,REFER TO ANY PHYSICAL QUANTITY"!
 1.07 T "THIS PROGRAM WILL SCALE THE DATA TO FIT THE TTY PAGE"!
 1.08 T "AND CAUSE ONE LINE FEED FOR EACH WHOLE COUNT ON THE"!
 1.09 T "BASE LINE,WHETHER OR NOT THERE ARE DATA TO BE PLOTTED"!
 1.10 T !"<GO> AGAIN FOR THE PROGRAM"!!;E 1
 3.01 T "2-D PLOTTER FOR SERIAL EXPERIMENTAL DATA"!
 3.02 A "NUMBER OF SETS OF DATA",SE,"LARGEST DATUM",LA
 3.04 T !"ENTER DATA IN PLOTTING ORDER"!;S W=70/LA
 3.10 F PL=1,SE;A "NEXT DATUM",DA;S Z(PL)=DA*W;D 6.25
 5.02 T !!;F PL=1,SE;D 6
 5.04 T ! %4.02 "PLOT IS SCALED",W," TO BEST AVAILABLE SPACE"!!
 5.06 T "YOUR DATA WERE PLOTTED AS THE SUBSRIPTED Z	S BELOW"!$
 5.08 T !!!;E
 5.09 Q
 6.01 F PR=1,[X(PL)-PW];T !"="
 6.02 T %4,X(PL),
 6.06 F PR=0,Z(PL);T " "
 6.08 T "*"
 6.09 S PW=X(PL);R
 6.25 A "BASE LINE POSITION",BL,!;S X(PL)=BL;R