File VAR20.FC (FOCAL source file)

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

()0M2BTC-PS/8 FOCAL, 1971?MFBEE?MCCB(T !!;F A=1,1,RO,;T !,;S SR=0;S QR=0;D 5?MBXBTF A=1,1,RO;T !;F B=1,1,KO;T !;D 3?MCVB2T !;F B=1,1,KO;S SS=0;S SV=0;D 8?MM\B<S SS=0;S SV=0;F A=1,1,KO*RO;D 9.4?MC1CKT %8.04?MDBCPS SR=0;F A=1,1,RO;S X=0;D 10?MDSCZS QR=0;F B
1,1,KO;S X=0;D 11?MD)DES SV=0;S SS=0;S B=0;F A=1,1,RO*KO;D 12?MD5DJS SV=SV^2/OB*RO*KO?MEHDTS SR=SR-SV;S QR=QR-SV;S SS=SS-SV?MEZDYS B=B-SV;S SV=SS-B;S X=B-SR-QR?ME+D2T !!!!,"R",SR,RO-1,SR/(RO-1)?MFMD7T RO*KO*(OB-1)*SR/SV*(RO-1),!,"K",QR?MB/BJA 
KO  RO 
,!,
OB 
?MF&D<T KO-1,QR/(KO-1),RO*KO*(OB-1)*QR/SV*(KO-1),!?MF=EFT ,"I",,X,(KO-1)*(RO-1),X/(KO-1)*(RO-1)?MGUEKT X*RO*KO*(OB-1)/(KO-1)*(RO-1)*SV,!,"S",B?MG$EPT ,KO*RO-1,,B/(KO*RO-1),?MG8EUT B*RO*KO*(OB-1)/SV*(KO*RO-1),!,"W?MMLEZT SV,KO*RO*(OB-1),SV/KO*RO*(OB-1),!?M
WFES D=(A-1)*KO+B?MH2FJF C=1,1,OB;A X;S SV(D)=SV(D)+X;S SS(D)=SS(D)+X*X?MLVJJF B=1,1,KO;D 6?MIQLJD 3.05;S SV=SV(D);S SS=SS(D);S C=OB?MI
LTS SR=SR+SV;S QR=QR+SS?MI0L^T %2.00,!,A,",",B,"   ";D 7?MK?NJT %8.04?ML5PJF A=1,1,RO;D 9.3?MJVR^D 3.05;S SS=SS+SS(D);S SV=SV+SV(D)?MJ	R(S SS=SS(A)+SS;S SV=SV(A)+SV?MJ9TJF B=1,1,KO;D 3.05;S X=X+SV(D)?MKETTS SR=SR+X*X/OB*KO?MKWVJF A=1,1,RO;D 3.05;S X=X+SV(
)?MKVTS QR=QR+X*X/OB*RO?MK4XJS SV=SV+SV(A);S SS=SS+SS(A)?MXTS B=B+SV(A)^2/OB?MI7N^T SV/C,FSQT((SS-SV^2/C)/C*(C-1)),%3.00,C?MH<JTS SV=SR;S SS=QR;S C=OB*KO;T !, "R",%2.00,A,"       ";D 7?MJBPTS C=OB*RO;T !,"K",%2.00,B,"       ";D 7?MHME
T "T",,SS,,KO*RO*OB-1,!!;Q?MC*CFS C=OB*KO*RO;T !!, "T           ";D 7?MS L S VAR1?M?M?M?M "T       

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