File SORT.FC (FOCAL source file)

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

N()0SYDFC-PS/8 FOCAL, 1971?MD3DOI (LI)2.2,2.3,2.4?MB&JIG 5.9?MHNJJG 5.9?MB2JQG 5.9?MB8JRG 5.9?MB>JSG 5.9?MNNJTG 5.9?MCVJWG 5.9?MCPJYG 5.9?MC\JZG 5.9?MCJJXG 5.9?MC"J[G 5.9?MEZJ\G 5.9?MILLJR?MDTKZT !!,"REQUIRED ANALYSIS NOT IMPLEMENTED";G 2.1?MBTDJA !!!!,"A
ALYSIS ",LI;?MC(LEI (!-1)6.1,6.2,6.3?MD,L^O R O;T "0",!;O C;?MJ<L(SET !=0?MD=DTL R STAT 1.87?MFPD^L R STAT 1.1?MEPJAL R STAT1 3.1?MG\JBL R STAT1 4.7?MGBJ]G 5.9?ME&J
G 5.9?ME,J G 5.9?ME2J!G 5.9?ME8J"G 5.9?MM>JG 5.9?MFDJ&G 5.9?MFJJ	G 5.9?MN^J(G 5.9?MK(D(I (51-LI)5.9,5.9;I (LI-30)2.5,2.5;A "  REALLY  ",AN;I (AN-0YES)2.1,2.5,2.1?MEFD<G (5.0+LI/100)?ME J^G 5.9?MC,J2D 6 ;O O TTY:;T !,"GOODBYE",!;L E?MG&JCL R STAT3 4.1?MG0J
L R STAT3 5.3?MG:JEL R STAT3 3.50?MHDJFL R STAT6 4.3?MI&JGL R STAT6 4.46?MHYJKL R STAT11 4.14?MHJLL R STAT12 4.3?MH-JML R STAT13 8.3?MH7JNL R STAT14 5.1?MIBJOL R STAT14 5.12?MB,JPL R STAT16 4.5?MD LTT !,"PUNCH MUST BE ON   ";F I=1,30;S D=FOUT(0)?MB JHL R 
TAT8 2.1?MN*J0G 7.1?MJDTJA X;I (X-1E9)10.1,10.1?MO\TTA X;S =X?MLOTAS KB=;I (KB)10.02,10.02,10.1?MM5POT !,"INPUT AND OUTPUT FILES MUST NOT BE SAME !!";G 8.1?MKGNJI (")7.2,7.2,7.3?MKLNTD 8?MSPN^A " BLOCKS TO SKIP  
  ",LI?ME>J%L R STAT37 1.04?MF8D2I (35-LI)2.6,2.6;I (-N)2.6;T !!,"NO INPUT";G 2.1?MI6TCSET "=0;S I=LI+1;R?MLCTBT !,"PREMATURE END OF FILE AFTER BLOCK NR ",%4.00,I-1?MJ^PJA !,"UNIT  "U;I (U-1)8.1,8.2;I (!-U)8.2,8.15,8.2?MMYN-O I TTY:,E;I ()7.5,7.5,2.1?ML-N
T !,"INPUT FILE END ";S "=0;G 2.1?MI0J/D 8;G 2.1?MJLPTL G STAT 4.1?MK]J$L R STAT6 20.2?MQ4J+G 5.9?MNVJUL R STAT21?MCDJVL R STAT22?MN$J)G 5.9?MNHJ*G 5.9?MGHJ1D 6;O O TTY:,E;O I TTY:,E;L R STAT 1.05?MM-J.G 11.1?MO<VOG 2.1?MOVV^L G STAT 4.2?MQUV(G 2.1?MOGVJI
(!)11.2,11.2;T ! "CLOSE OUTPUT FILE ",%2.00,(!),"  FIRST?MOMVTA !,"UNIT  ",U;I (U-1)11.2,11.3;I ("-U)11.3,8.15,11.3?MR	XTT !,N,"  ROWS IN CORE?MRNXT !,"LISTING DIRECTED TO LPT:"?MQ0X-T !,"NEXT INPUT BLOCK CONTAINS ",()," COLUMNS"?MPZXJT !,%3.00,KB,"  COLU
NS IN CORE?MOAJ-D 12;G 2.1?MQ?X2C?MQ(J,D 12;D 13;G 2.1?MZJD 6;S =0;S "=0;S !=0;E?MP:X(I (")12.5,12.5;T !, " INPUT FROM UNIT ",(")?MP(X^I (!) 12.35,12.4;T "OUTPUT DIRECTED TO UNIT ",(!);G 12.4?MMHN(F I=1,LI;D 10?MSFNS N=0;O R I?MN=L S SORT?M?M?MOUTPUT DIRE
TED TO UNIT ",(!);G 12.4?MCANNOT OPEN AN INPUT FIL

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