File D2PLOT.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

PW()0KMF^C-PS/8 FOCAL, 1971?MB.FAT "2-D PLOTTER FOR SERIAL EXPERIMENTAL DATA"!?MCIFBA "NUMBER OF SETS OF DATA",SE,"LARGEST DATUM",LA?MC"FDT !"ENTER DATA IN PLOTTING ORDER"!;S W=70/LA?MC=FJF PL=1,SE;A "NEXT DATUM",DA;S Z(PL)=DA*W;D 6.25?MDIJBT !!;F PL=1,SE
D 6?MD)JDT ! %4.02 "PLOT IS SCALED",W," TO BEST AVAILABLE SPACE"!!?MEHJFT "YOUR DATA WERE PLOTTED AS THE SUBSRIPTED Z	S BELOW"!$?MEOJHT !!!;E?MESJIQ?MELAF PR=1,[X(PL)-PW];T !"="?ME,LBT %4,X(PL),?ME8LFF PR=0,Z(PL);T " "?ME>LHT "*"?MFGLIS PW=X(PL);R?MLYA "B
SE LINE POSITION",BL,!;S X(PL)=BL;R?MGBAT "GROUP ONE INSTRUCTIONS WILL BE ERASED AS EXECUTED SO THAT"!?MGYBBT "2-D PLOTTER FOR SERIL EXPERIMENTAL DATA"!?MG9BCT "WILL HAVE STORAGE FOR UP TO 40 SUBSCRIPTED VARIABLES"!?MH[BDT "REGARD DATA AS RESIDING INREGIO
 OF POSITIV 	Y	 ONLY,AND"!?MH:BET "BASE LINE PARAMETERS OVER ANY INTERVAL OF 	X	,WHICH"!?MIXBFT "MAY THEN,OF COURSE,REFER TO ANY PHYSICAL QUANTITY"!?MI8BGT "THIS PROGRAM WILL SCALE THE DATA TO FIT THE TTY PAGE"!?MJWBHT "AND CAUSE ONE LINE FEED FOR EACH WH
LE COUNT ON THE"!?MJ7BIT "BASE LINE,WHETHER OR NOT THERE ARE DATA TO BE PLOTTED"!?MBTBJT !"<GO> AGAIN FOR THE PROGRAM"!!;E 1?M1?L S 2DPLOT?M?M177,180;S U(Z)=1?MK)HOI (U(177)),4.25?MK2HTS A=1;S =2?MK=HYI (U(178)),4.35?MLIH^S 

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search