@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
C-FOCAL , 8/68

01.01 T "GROUP ONE INSTRUCTIONS WILL BE ERASED AS EXECUTED SO THAT"!!
01.02 T !!"2- D PLOTTER FOR SERIAL EXPERIMENTAL DATA"!!
01.03 T "WILL HAVE STORAGE FOR UP TO 40 SUBSCRIPTED VARIABLES."!
01.04 T "REGARD DATA AS RESIDING IN REGION OF POS 'Y' ONLY, AND"!
01.05 T "BASE LINE PARAMETERS OVER ANY INTERVAL OF 'X', WHICH"!
01.06 T "MAY THEN, OF COURSE, REFER TO ANY PHYSICAL QUANTITY."!
01.07 T "THIS PROGRAM WILL SCALE THE DATA TO FIT THE TTY PAGE"!
01.08 T "AND CAUSE ONE LINE FEED FOR EACH WHOLE COUNT ON THE"!
01.09 T "BASE LINE, WHETHER OR NOT THERE ARE DATA TO BE PLOTTED."!
01.10 T !"<GO> AGAIN FOR THE PROGRAM"!!!!!;E 1

03.01 T "2- D PLOTTER FOR SERIAL EXPERIMENTAL DATA"!
03.02 A "NUMBER OF SETS OF DATA",SE,"LARGEST DATUM",LA
03.04 T !"ENTER DATA IN PLOTTING ORDER"!;S W=70/LA
03.10 F PL=1,SE;A "NEXT DATUM",DA;S Z(PL)=DA*W;D 6.25

05.02 T !!!;F PL=1,SE;D 6
05.04 T ! %4.02 "PLOT IS SCALED",W," TO BEST USE AVAILABLE SPACE"!!
05.06 T "YOUR DATA WERE PLOTTED AS THE SUBSCRIPTED Z'S BELOW"!$
05.08 T !!!!!!!!!!!!;E
05.09 Q

06.01 F PR=1,[X(PL)-PW];T !"="#
06.02 T %4,X(PL),#
06.06 F PR=0,Z(PL);T " "
06.08 T "*"
06.09 S PW=X(PL);R
06.25 A "BASE LINE POSITION",BL,!;S X(PL)=BL;R
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@