File: HFILE2.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.05 C HFILE2.RE 01.10 L C FOCAL.TM 01.20 G 5.1 01.70 L R MISCL3.RE 27.1 01.90 G 6.1 02.10 T !!!!!!"A FILE HANDLING PROGRAM:" 02.20 T !!!;W 11 02.25 T !;W 12 02.30 T !;W 13 02.40 T !!!"SIMULATED EXECUTION OF THE PROGRAM:"!!! 02.50 D 12.15 02.60 F X=1,500; 02.70 D 12.7;D 13.1;D 2.6;D 13.3 02.80 F I=1,10;T !"ROOT",%2,I," IS ",%5.04,FSQT(I) 02.90 D 13.6;D 13.8;D 2.6;T ! 05.10 T "OPEN OUTPUT DK":23,"(OPENS 'DK.FD' TO BE WRITTEN ON THE DSK:)"! 05.20 T "O O DTA7: ZZ":23,"(OPENS 'ZZ.FD' FILE TO BE WRITTEN ON DECTAPE)"! 05.30 T "O O DOPE,ECHO":23,"(ECHOES ON TTY: WHILE WRITING 'DOPE.FD' ON DSK:)"! 05.40 T :23,"(BE SURE TO GIVE AN 'OUTPUT CLOSE' WHEN DONE)"!! 05.50 T " * * * " 05.55 T "OPEN OUTPUT FILES WILL BE CLOSED IF THE COMMANDS 'LIBRARY"! 05.60 T :8,"SAVE' OR 'LIBRARY DELETE' ARE GIVEN OR IF 'LIBRARY GOSUB'"! 05.65 T :8,"IS GIVEN BY A VERSION OF A PROGRAM THAT HAS NOT BEEN SAVED. ";D 5.5;T !! 05.70 D 5.5;T "FAILURE TO INSERT A SPACE BETWEEN NEGATIVE NUMBERS 'TYPED'"! 05.80 T :8,"TO A FILE WILL RESULT IN THEIR BEING READ AS POSITIVE."! 05.85 T :8,"FEATURES '4,5' OR 'YES' OF THE INITIAL DIALOGUE PROVIDE"! 05.87 T :8,"AUTOMATIC SPACING.";D 5.5;T !! 05.90 T "*OPEN OUTPUT [DEVICE:][FILE NAME][,ECHO] (PREPARES TO WRITE A FILE)"! 05.95 T !!!! 06.10 T "OPEN RESTORE INPUT":23,"(RESUMES 'ASKING' FOR DATA FROM A PREVIOUSLY"! 06.15 T :25,"OPENED INPUT FILE AFTER USING TTY:"! 06.20 T :25,"INPUT WITH AN 'OPEN INPUT TTY:,ECHO')"! 06.25 T "O R I":23,"(ABBREVIATION)"! 06.30 T "O R I,E":23,"(SAME PLUS ECHO)"!! 06.35 T "*OPEN RESTORE INPUT[,ECHO] (RESUMES INPUT FROM NON-TTY:)"! 06.40 T !!!! 06.50 T "OPEN RESTORE OUTPUT":23,"(RESUMES 'TYPING' ON PREVIOUSLY OPENED"! 06.55 T :25,"OUTPUT DEVICE AFTER USING TTY:)"! 06.60 T "O R O":23,"(ABBREVIATION)"! 06.65 T "O R O,ECHO":23,"(SAME PLUS ECHO)"!! 06.67 T "*OPEN RESTORE OUTPUT[,ECHO] (RESUMES OUTPUT TO NON-TTY:)"! 06.70 T !!!! 08.90 T "*OUTPUT CLOSE":23,"(ENDS FILE WRITING AND SAVES OUTPUT FILE IF DEVICE"! 08.91 T :25"IS FILE STRUCTURED (DISK OR MAGNETIC TAPE).)"! 08.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