Directory of image this file is from
This file as a plain text file
()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