()0X$BTC-PS/8 FOCAL, 1971?MB]BEC HFILE2.RE?MB&BJL C FOCAL.TM?MB,BTG 5.1?MB8CFL R MISCL3.RE 27.1?MB>CZG 6.1?MCRDJT !!!!!!"A FILE HANDLING PROGRAM:"?MCZDTT !!!;W 11?MC!DYT !;W 12?MC(D^T !;W 13?MDBD(T !!!"SIMULATED EXECUTION OF THE PROGRAM:"!!!?MDID2D 12.15?
DQD<F X=1,500;?MD!EFD 12.7;D 13.1;D 2.6;D 13.3?MD;EPF I=1,10;T !"ROOT",%2,I,"  IS ",%5.04,FSQT(I)?MRAEZD 13.6;D 13.8;D 2.6;T !?ME)J(T :23,"(BE SURE TO GIVE AN 	OUTPUT CLOSE	 WHEN DONE)"!!?MS1J2T " * * * "?MU<KFD 5.5;T "FAILURE TO INSERT A SPACE BETWEEN NE
ATIVE NUMBERS 	TYPED	"!?MGAKZT "*OPEN OUTPUT [DEVICE:][FILE NAME][,ECHO]    (PREPARES TO WRITE A FILE)"!?MGGK
T !!!!?MG/LJT "OPEN RESTORE INPUT":23,"(RESUMES 	ASKING	 FOR DATA FROM A PREVIOUSLY"!?MHHLOT :25,"OPENED INPUT FILE AFTER USING TTY:"!?MTSLTT :25,"INPUT WITH AN 	OPEN INPUT TTY:,ECHO	)"!?MH7L^T "O R I,E":23,"(SAME PLUS ECHO)"!!?MI[LT "*OPEN RESTORE INPUT[
ECHO]     (RESUMES INPUT FROM NON-TTY:)"!?MI!L(T !!!!?MJFL2T "OPEN RESTORE OUTPUT":23,"(RESUMES 	TYPING	 ON PREVIOUSLY OPENED"!?MT%L7T :25,"OUTPUT DEVICE AFTER USING TTY:)"!?MJ3MAT "O R O,ECHO":23,"(SAME PLUS ECHO)"!!?MKVMCT "*OPEN RESTORE OUTPUT[,ECHO]  
 (RESUMES OUTPUT TO NON-TTY:)"!?MT7MFT !!!!?MK"Q\T !!!!?MK*TED 2;G 15.1?MLMXJC-SETUP OUTPUT FILE (.FD IS ASSUMED EXTENSION, DSK: THE DEVICE)?ML/XOTYPE "LINE 12.20 WILL NOW OPEN 	NUMBRZ	 FILE AND WRITE IN IT"!?ML;XTOPEN OUTPUT NUMBRZ?MMIX-FOR I=1,10;TYPE %
,I,!?MM(X2COMMENT-NOW SAVE OUTPUT FILE AND RESTORE OUTPUT TO TTY:?MM1X<OUTPUT CLOSE?MNLYFTYPE "LINE 12.60 JUST CLOSED THE 	NUMBRZ	 FILE"!?MN+ZJTYPE "LINE 13.20 WILL NOW OPEN THE 	NUMBRZ	 INPUT FILE"!?MN7ZTOPEN INPUT NUMBRZ?MOYZ^TYPE "LINE 13.50 WILL NOW R
AD IN NUMBERS AND COMPUTE ROOTS"!?MO8Z2FOR I=1,10;ASK A;TYPE !"ROOT",%2,A,"  IS ",%5.04,FSQT(A)?MPSZ<TYPE !!"LINE 13.70 RESTORES INPUT TO TERMINAL"!?MP [FOPEN INPUT TTY:,ECHO?MQD[PTYPE "LINE 13.90 WILL NOW DELETE 	NUMBRZ.FD	 FROM THE DIRECTORY"!!?MQS[ZLIB
ARY DELETE NUMBRZ.FD?MQY^JG 15+Q?MQ%^TL R SYMBO1.RE 1.2?MQ1^^L R SYMBO1.RE 1.2?MQ8^
G 15.34?M^"L R HELP 4.7?MR%JJT "OPEN OUTPUT DK":23,"(OPENS 	DK.FD	 TO BE WRITTEN ON THE DSK:)"!?MSJJTT "O O DTA7: ZZ":23,"(OPENS 	ZZ.FD	 FILE TO BE WRITTEN ON DECTAPE)"!?MEJJ^T "O O DOPE,ECHO":23,"(ECHOES ON TTY: WHILE WRITING 	DOPE.FD	 ON DSK:)"!?MV^J7T 
OPEN OUTPUT FILES WILL BE CLOSED IF THE COMMANDS 	LIBRARY"!?MH"LYT "O R I":23,"(ABBREVIATION)"!?MJ]L<T "O R O":23,"(ABBREVIATION)"!?MU
QZT "*OUTPUT CLOSE":23,"(ENDS FILE WRITING AND SAVES OUTPUT FILE IF DEVICE"!?MK\Q[T :25"IS FILE STRUCTURED (DISK OR MAGNETIC TAPE).)"!?MW,KPT :8,"TO A FILE WILL RESULT IN THEIR BEING READ AS POSITIVE."!?MWBJ<T :8,"SAVE	 OR 	LIBRARY DELETE	 ARE GIVEN OR IF
	LIBRARY GOSUB	"!?ME2KAT :8,"IS GIVEN BY A VERSION OF A PROGRAM THAT HAS NOT BEEN SAVED. ";D 5.5;T !!?MXOKUT :8,"FEATURES 	4,5	 OR 	YES	 OF THE INITIAL DIALOGUE PROVIDE"!?MFXKWT :8,"AUTOMATIC SPACING.";D 5.5;T !!?M	 L S HFILE2.RE;L C DTA2:COMMA1.RE?M?MHE 
NITIAL DIALOGUE PROVIDE"!?";D 5.5;T !!?MC  THEIR SQUARE ROOTS ON THE TERMINAL?MYPE S IN TYPING THE NUMBERS AND?MMLV^C  THEIR SQUARE ROOTS ON

Note: Lines longer than 256 characters were wrapped