C-PS/8 FOCAL, 1971
 1.05 C HFILE2.RE
 1.10 L C FOCAL.TM
 1.20 G 5.1
 1.70 L R MISCL3.RE 27.1
 1.90 G 6.1
 2.10 T !!!!!!"A FILE HANDLING PROGRAM:"
 2.20 T !!!;W 11
 2.25 T !;W 12
 2.30 T !;W 13
 2.40 T !!!"SIMULATED EXECUTION OF THE PROGRAM:"!!!
 2.50 D 12.15
 2.60 F X=1,500;
 2.70 D 12.7;D 13.1;D 2.6;D 13.3
 2.80 F I=1,10;T !"ROOT",%2,I,"  IS ",%5.04,FSQT(I)
 2.90 D 13.6;D 13.8;D 2.6;T !
 5.10 T "OPEN OUTPUT DK":23,"(OPENS 	DK.FD	 TO BE WRITTEN ON THE DSK:)"!
 5.20 T "O O DTA7: ZZ":23,"(OPENS 	ZZ.FD	 FILE TO BE WRITTEN ON DECTAPE)"!
 5.30 T "O O DOPE,ECHO":23,"(ECHOES ON TTY: WHILE WRITING 	DOPE.FD	 ON DSK:)"!
 5.40 T :23,"(BE SURE TO GIVE AN 	OUTPUT CLOSE	 WHEN DONE)"!!
 5.50 T " * * * "
 5.55 T "OPEN OUTPUT FILES WILL BE CLOSED IF THE COMMANDS 	LIBRARY"!
 5.60 T :8,"SAVE	 OR 	LIBRARY DELETE	 ARE GIVEN OR IF 	LIBRARY GOSUB	"!
 5.65 T :8,"IS GIVEN BY A VERSION OF A PROGRAM THAT HAS NOT BEEN SAVED. ";D 5.5;T !!
 5.70 D 5.5;T "FAILURE TO INSERT A SPACE BETWEEN NEGATIVE NUMBERS 	TYPED	"!
 5.80 T :8,"TO A FILE WILL RESULT IN THEIR BEING READ AS POSITIVE."!
 5.85 T :8,"FEATURES 	4,5	 OR 	YES	 OF THE INITIAL DIALOGUE PROVIDE"!
 5.87 T :8,"AUTOMATIC SPACING.";D 5.5;T !!
 5.90 T "*OPEN OUTPUT [DEVICE:][FILE NAME][,ECHO]    (PREPARES TO WRITE A FILE)"!
 5.95 T !!!!
 6.10 T "OPEN RESTORE INPUT":23,"(RESUMES 	ASKING	 FOR DATA FROM A PREVIOUSLY"!
 6.15 T :25,"OPENED INPUT FILE AFTER USING TTY:"!
 6.20 T :25,"INPUT WITH AN 	OPEN INPUT TTY:,ECHO	)"!
 6.25 T "O R I":23,"(ABBREVIATION)"!
 6.30 T "O R I,E":23,"(SAME PLUS ECHO)"!!
 6.35 T "*OPEN RESTORE INPUT[,ECHO]     (RESUMES INPUT FROM NON-TTY:)"!
 6.40 T !!!!
 6.50 T "OPEN RESTORE OUTPUT":23,"(RESUMES 	TYPING	 ON PREVIOUSLY OPENED"!
 6.55 T :25,"OUTPUT DEVICE AFTER USING TTY:)"!
 6.60 T "O R O":23,"(ABBREVIATION)"!
 6.65 T "O R O,ECHO":23,"(SAME PLUS ECHO)"!!
 6.67 T "*OPEN RESTORE OUTPUT[,ECHO]    (RESUMES OUTPUT TO NON-TTY:)"!
 6.70 T !!!!
 8.90 T "*OUTPUT CLOSE":23,"(ENDS FILE WRITING AND SAVES OUTPUT FILE IF DEVICE"!
 8.91 T :25"IS FILE STRUCTURED (DISK OR MAGNETIC TAPE).)"!
 8.92 T !!!!
10.05 D 2;G 15.1
12.10 C-SETUP OUTPUT FILE (.FD IS ASSUMED EXTENSION, DSK: THE DEVICE)
12.15 TYPE "LINE 12.20 WILL NOW OPEN 	NUMBRZ	 FILE AND WRITE IN IT"!
12.20 OPEN OUTPUT NUMBRZ
12.45 FOR I=1,10;TYPE %3,I,!
12.50 COMMENT-NOW SAVE OUTPUT FILE AND RESTORE OUTPUT TO TTY:
12.60 OUTPUT CLOSE
12.70 TYPE "LINE 12.60 JUST CLOSED THE 	NUMBRZ	 FILE"!
13.10 TYPE "LINE 13.20 WILL NOW OPEN THE 	NUMBRZ	 INPUT FILE"!
13.20 OPEN INPUT NUMBRZ
13.30 TYPE "LINE 13.50 WILL NOW READ IN NUMBERS AND COMPUTE ROOTS"!
13.50 FOR I=1,10;ASK A;TYPE !"ROOT",%2,A,"  IS ",%5.04,FSQT(A)
13.60 TYPE !!"LINE 13.70 RESTORES INPUT TO TERMINAL"!
13.70 OPEN INPUT TTY:,ECHO
13.80 TYPE "LINE 13.90 WILL NOW DELETE 	NUMBRZ.FD	 FROM THE DIRECTORY"!!
13.90 LIBRARY DELETE NUMBRZ.FD
15.10 G 15+Q
15.20 L R SYMBO1.RE 1.2
15.30 L R SYMBO1.RE 1.2
15.31 G 15.34
15.34 L R HELP 4.7