Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.fsemain +++|PROC FSEMAIN;
00002  M00S00002.fsemain +++|BEGIN
00003  M00S00003.fsemain +++|
00004  M00S00004.fsemain +++|#
00005  M00S00005.fsemain +++|***       FSEMAIN -- FILE-BUILD/CTL-CRACK OVERLAY
00006  M00S00006.fsemain +++|*

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|*         COPYRIGHT CONTROL DATA CORPORATION, 1983.

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.fsemain +++|*
00010  M00S00009.fsemain +++|*         FSEMAIN PERFORMS CONTROL CARD SCANNING, INITIALIZTION
00011  M00S00010.fsemain +++|*         OF THE EDITOR AND WORKFILE, RESUMPTION OF PREVIOUS WORK
00012  M00S00011.fsemain +++|*         FILES, AND INITIAL/FINAL COPYING OF FILES.  IF THE EDITOR
00013  M00S00012.fsemain +++|*         IS CONVERTED TO AN OVERLAY STRUCTURE AT A FUTURE DATE,
00014  M00S00013.fsemain +++|*         THIS MODULE WOULD BE A CANDIDATE FOR AN OVERLAY.  THIS
00015  M00S00014.fsemain +++|*         MODULE EXISTS ONLY IN THE SINGLE-USER VERSION OF THE
00016  M00S00015.fsemain +++|*         EDITOR, SO IT IS PROGRAMMED NON-REENTRANTLY.
00017  M00S00016.fsemain +++|#
00018  M00S00017.fsemain +++|
00019  M00S00018.fsemain +++|  DEF LISTCON #0#;
00020  M00S00019.fsemain +++|
00021  M00S00020.fsemain +++|CONTROL EJECT;                 # UNIVERSAL DECLARES #
00022  M00S00021.fsemain +++|*IFCALL SINGLE,COMFSGL
00023  M00S00022.fsemain +++|*IFCALL ONLY,COMFONL
00024  M00S00023.fsemain +++|*IFCALL MULTI,COMFMLT
00025  M00S00024.fsemain +++|*CALL COMFFSE
00026  M00S00025.fsemain +++|
00027  M00S00026.fsemain +++|                             # EXTERNALS         #
00028  M00S00027.fsemain +++|
00029  M00S00028.fsemain +++|XDEF PROC BLDINIT;
00030  M00S00029.fsemain +++|XDEF PROC BLDTERM;
00031  M00S00030.fsemain +++|
00032  M00S00031.fsemain +++|XREF
00033  M00S00032.fsemain +++|  BEGIN
00034  M00S00033.fsemain +++|*CALL COMFXFL
00035  M00S00034.fsemain +++|*CALL COMFXFO
00036  M00S00035.fsemain +++|*CALL COMFXTI
00037  M00S00036.fsemain +++|*CALL COMFXVT
00038  M00S00037.fsemain +++|*CALL COMFXSB
00039  M00S00038.fsemain +++|*CALL COMFXWK
00040  M00S00039.fsemain +++|  END
00041  M00S00040.fsemain +++|
00042  M00S00041.fsemain +++|XREF                         # FSELIB  SUPPORT   #
00043  M00S00042.fsemain +++|  BEGIN
00044  M00S00043.fsemain +++|  FUNC LENGTH;

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00001.ns2206  +++|  PROC DISSJ;                        # DISABLE/ENABLE SSJ= #
00046  M00S00044.fsemain +++|  PROC MOVEWD;
00047  M00S00045.fsemain +++|  PROC FLDLEN;
00048  M00S00046.fsemain +++|  PROC DISTCON;

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00047.v23l617 ---|  # START OF MODIFY CONDITIONAL SEQUENCE #
00050  M01S00048.v23l617 ---|*IF UNDEF,RETRO
00051  M00S00049.fsemain +++|  PROC SETNAD;
00052  M00S00050.fsemain +++|  PROC VDTGSL;
00053  M00S00051.fsemain +++|  PROC SETAUC;                       # APPLICATION UNIT CHARGE #

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00052.v23l617 ---|*ENDIF
00055  M01S00053.v23l617 ---|  # END OF MODIFY CONDITIONAL SEQUENCE #
00056  M00S00054.fsemain +++|  PROC VDTGTN;
00057  M00S00055.fsemain +++|  END
00058  M00S00056.fsemain +++|
00059  M00S00057.fsemain +++|XREF                                 # SRVLIB SUPPORT #
00060  M00S00058.fsemain +++|  BEGIN
00061  M00S00059.fsemain +++|  PROC REWIND;
00062  M00S00060.fsemain +++|  PROC WRITEC;
00063  M00S00061.fsemain +++|  PROC WRITEF;
00064  M00S00062.fsemain +++|  PROC WRITER;
00065  M00S00063.fsemain +++|  PROC READC;
00066  M00S00064.fsemain +++|  PROC MESSAGE;
00067  M00S00065.fsemain +++|  PROC ENDRUN;
00068  M00S00066.fsemain +++|  PROC ABORT;
00069  M00S00067.fsemain +++|  PROC EXCST;
00070  M00S00068.fsemain +++|  PROC TSTATUS;
00071  M00S00069.fsemain +++|  PROC GETJO;
00072  M00S00070.fsemain +++|  PROC RECALL;
00073  M00S00071.fsemain +++|  PROC READ;
00074  M00S00072.fsemain +++|  PROC RETERN;

Seq #  *Modification Id* Act 
----------------------------+
00075  M01S00001.ns2377  +++|  PROC RTIME;
00076  M00S00073.fsemain +++|  PROC DEFINE;
00077  M00S00074.fsemain +++|  PROC PURGE;
00078  M00S00075.fsemain +++|  PROC GETSS;
00079  M00S00076.fsemain +++|  PROC PF;
00080  M00S00077.fsemain +++|  END
00081  M00S00078.fsemain +++|
00082  M00S00079.fsemain +++|XREF                         # BUFFER MAPPING    #
00083  M00S00080.fsemain +++|  BEGIN
00084  M00S00081.fsemain +++|  ARRAY WORKBUF;;
00085  M00S00082.fsemain +++|  ARRAY BUILDBF;;
00086  M00S00083.fsemain +++|  ITEM MAXADDR;
00087  M00S00084.fsemain +++|  END
00088  M00S00085.fsemain +++|
00089  M00S00086.fsemain +++|
00090  M00S00087.fsemain +++|*CALL COMFDS1
00091  M00S00088.fsemain +++|*CALL COMFVD2
00092  M00S00089.fsemain +++|*CALL COMFDS2
00093  M00S00090.fsemain +++|*CALL COMFTAB

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00001.ns2568  +++|*CALL COMSPFM

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00001.v23l617 +++|PAGE                                 # COMMAND BUFFER MANIPULATION #
00096  M01S00002.v23l617 +++|
00097  M01S00003.v23l617 +++|
00098  M01S00004.v23l617 +++|PROC SETCMD(STR,LEN,OFFSET);
00099  M01S00005.v23l617 +++|  BEGIN
00100  M01S00006.v23l617 +++|  ITEM STR C(40);
00101  M01S00007.v23l617 +++|  ITEM LEN, OFFSET;
00102  M01S00008.v23l617 +++|  ITEM TMP1, TMP2;
00103  M01S00009.v23l617 +++|  TMP2=0;
00104  M01S00010.v23l617 +++|  FOR TMP1=1 STEP 1 UNTIL LEN DO
00105  M01S00011.v23l617 +++|    BEGIN
00106  M01S00012.v23l617 +++|    C<9,1>TMP2=C<TMP1-1,1>STR;
00107  M01S00013.v23l617 +++|    IF TMP2 EQ 0 THEN C<9,1>TMP2=" ";
00108  M01S00014.v23l617 +++|    SETCHAR(CMDLINE,OFFSET+TMP1-1,TMP2);
00109  M01S00015.v23l617 +++|    END
00110  M01S00016.v23l617 +++|  END                                # OF SETCMD #
00111  M00S00091.fsemain +++|PAGE                         # INITIAL FILE CONSTRUCTION   #
00112  M00S00092.fsemain +++|
00113  M00S00093.fsemain +++|
00114  M00S00094.fsemain +++|PROC FILBUILD;
00115  M00S00095.fsemain +++|  BEGIN
00116  M00S00096.fsemain +++|#
00117  M00S00097.fsemain +++|**        FILBUILD - READ FIRST SOURCE FILE INTO WORKFILE.
00118  M00S00098.fsemain +++|*
00119  M00S00099.fsemain +++|*         FILBUILD PERFORMS INITIAL FILE COPYING AND CERTAIN OTHER
00120  M00S00100.fsemain +++|*         TASKS TO INITIALIZE THE EDITOR.  FILBUILD IS CALLED IF
00121  M00S00101.fsemain +++|*         THERE IS A FILE SPECIFIED BY THE CONTROL STATEMENT OR IF
00122  M00S00102.fsemain +++|*         THERE WAS NO FILE AND NO RESUMABLE WORKFILE IMAGE.  IN THE
00123  M00S00103.fsemain +++|*         LATTER CASE, FILBUILD ATTEMPTS TO IDENTIFY A PRIMARY FILE
00124  M00S00104.fsemain +++|*         AS THE FILE TO EDIT.
00125  M00S00105.fsemain +++|*
00126  M00S00106.fsemain +++|*         IN ADDITION TO COPYING THE FIRST SOURCE FILE OF THE EDIT
00127  M00S00107.fsemain +++|*         SESSION, FILBUILD ALSO INITIALIZES THE WORKFILE MANAGER,
00128  M00S00108.fsemain +++|*         SETS THE CHARACTER SET FOR LINE-MODE TERMINAL
00129  M00S00109.fsemain +++|*         COMMUNICATIONS, READS IN THE DEFAULT PROCEDURE FILE, AND
00130  M00S00110.fsemain +++|*         INITIALIZES THE RELOCATION VECTOR TO BRACKET THE SOURCE
00131  M00S00111.fsemain +++|*         FILE AND A NEW, EMPTY AUDIT TRAIL IMAGE.
00132  M00S00112.fsemain +++|*
00133  M00S00113.fsemain +++|*         ENTRY  FILENAM[1] - NAME OF FILE TO EDIT OR BLANK.
00134  M00S00114.fsemain +++|*                CHARPARM - FILE CHARACTER SET SPECIFICATION.
00135  M00S00115.fsemain +++|*                GETPARM - PERMANENT FILE ACCESS REQUEST.
00136  M00S00116.fsemain +++|*                ALLASCII - WHETHER DEFAULT CHARACTER SET IS 6/12.
00137  M00S00117.fsemain +++|*
00138  M00S00118.fsemain +++|*         EXIT   FILENAM[1] - NAME OF PRIMARY FILE IF NEEDED.
00139  M00S00119.fsemain +++|*                BUILDCIO - CIO COUNT FOR FILE COPY.
00140  M00S00120.fsemain +++|*                TOPC(), BOTC() - BRACKET FILE DIRECTORY.
00141  M00S00121.fsemain +++|*                TOPF(), BOTF() - BRACKET FILE IMAGES.
00142  M00S00122.fsemain +++|*                TOPA(), BOTA(), CURA() - BRACKET AUDIT TRAIL.

Seq #  *Modification Id* Act 
----------------------------+
00143  M01S00017.v23l617 +++|*                TOPK(), BOTK() - BRACKET FUNCTION KEY STRINGS.
00144  M00S00123.fsemain +++|*
00145  M00S00124.fsemain +++|*         CALLS  MAKEFET, FATAL, VFYFILE, INITIO, SETCSET,
00146  M00S00125.fsemain +++|*                INSY, ADDFILE, TTSTR, TTLFN, TTBRK, TTLIN, PUSH,
00147  M00S00126.fsemain +++|*                OPENFILE, POP.
00148  M00S00127.fsemain +++|*
00149  M00S00128.fsemain +++|*         USES   FILNUM, READNAM, CURFILE, CHARPARM, GETPARM.
00150  M00S00129.fsemain +++|#

Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00018.v23l617 +++|  ITEM TMP1;
00152  M00S00130.fsemain +++|
00153  M00S00131.fsemain +++|  INITIO;
00154  M00S00132.fsemain +++|  ONWAYINBLK=BLANKS;
00155  M00S00133.fsemain +++|  SETCSET(TRUE);
00156  M00S00134.fsemain +++|

Seq #  *Modification Id* Act 
----------------------------+
00157  M01S00135.v23l617 ---|  TOPC(FILECTL)=PALAST[0];     # FILE DIRECTORY IS 1ST BRACKET  #

Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00019.v23l617 +++|  TOPK(FKEYS)=PALAST[0];             # FUNCTION KEYS ARE 1ST BRACKET #
00159  M01S00020.v23l617 +++|  LINE[0]=NULLIN;
00160  M01S00021.v23l617 +++|  FOR TMP1=1 STEP 1 UNTIL NUMFKEYS DO
00161  M01S00022.v23l617 +++|    BEGIN
00162  M01S00023.v23l617 +++|    INSY;                            # INSERT BLANK LINE FOR EACH KEY #
00163  M01S00024.v23l617 +++|    END
00164  M01S00025.v23l617 +++|  BOTK(FKEYS)=PALAST[0];             # FKEY BRACKET NEVER CHANGE SIZE #
00165  M01S00026.v23l617 +++|  TOPC(FILECTL)=PALAST[0];           # FILE DIRECTORY IS 2ND BRACKET #
00166  M00S00136.fsemain +++|  LINE[0]=NULLIN;
00167  M00S00137.fsemain +++|  INSY;
00168  M00S00138.fsemain +++|  BOTC(FILECTL)=PALAST[0];

Seq #  *Modification Id* Act 
----------------------------+
00169  M01S00139.v23l617 ---|  INSY;                      # AUDIT NEEDS EXTRA SEPARATOR LINE      #
00170  M01S00140.v23l617 ---|  TOPA(AUDITCTL)=PALAST[0];    # AUDIT TRAIL MUST BE LAST BRACKET  #

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00027.v23l617 +++|  INSY;                              # AUDIT NEEDS EXTRA SEPARATOR #
00172  M01S00028.v23l617 +++|  TOPA(AUDITCTL)=PALAST[0];          # AUDIT MUST BE LAST BRACKET #
00173  M00S00141.fsemain +++|  CURA(AUDITCTL)=PALAST[0];
00174  M00S00142.fsemain +++|  INSY;
00175  M00S00143.fsemain +++|  BOTA(AUDITCTL)=PALAST[0];
00176  M00S00144.fsemain +++|
00177  M00S00145.fsemain +++|  FILNUM=1;                    # ADD FIRST FILE BRACKET      #
00178  M00S00146.fsemain +++|  READNAM=FILENAM[1];
00179  M00S00147.fsemain +++|  FILENAM[1]=" ";

Seq #  *Modification Id* Act 
----------------------------+
00180  M01S00001.ns2607  +++|  SCNFDINIT = 1;                     # INDICATE INITIAL FILE #
00181  M00S00148.fsemain +++|  ADDFILE;                     # BUILD FIRST FILE  #

Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00001.ns2404  +++|  IF NOT INTERACT THEN
00183  M01S00002.ns2404  +++|    BEGIN
00184  M01S00003.ns2404  +++|    TTLIN("1$");                     # CARRIAGE CONTROL #
00185  M01S00004.ns2404  +++|    TTSTR(" $");                     # MOVE EDIT/CREATE #
00186  M01S00005.ns2404  +++|    END

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00149.ns2377  ---|  IF BOTF(1) GR TOPF(1)+1 THEN TTSTR("EDIT: $");
00188  M01S00150.ns2377  ---|  ELSE TTSTR("CREATE: $");

Seq #  *Modification Id* Act 
----------------------------+
00189  M01S00002.ns2377  +++|  IF BOTF(1) GR TOPF(1)+1 THEN
00190  M01S00003.ns2377  +++|    BEGIN                            # IF NON-EMPTY FILE #
00191  M01S00004.ns2377  +++|    TTSTR("EDIT:     $");
00192  M01S00005.ns2377  +++|    END
00193  M01S00006.ns2377  +++|  ELSE
00194  M01S00007.ns2377  +++|    BEGIN                            # NEW FILE #
00195  M01S00008.ns2377  +++|    TTSTR("CREATE:   $");
00196  M01S00009.ns2377  +++|    END
00197  M00S00151.fsemain +++|  TTLFN(READNAM);
00198  M00S00152.fsemain +++|  IF LOCKED[1] NQ 0 THEN TTSTR(" (READ-ONLY FILE) $");
00199  M00S00153.fsemain +++|  TTBRK;
00200  M00S00154.fsemain +++|  IF NUMBERED[1] NQ 0 THEN TTLIN("SEQUENCE NUMBERED FILE$");
00201  M00S00155.fsemain +++|
00202  M00S00156.fsemain +++|  CURFILE=1;
00203  M00S00157.fsemain +++|  PUSH;                        # HOLD POSITION WHILE INIT PROCS #

Seq #  *Modification Id* Act 
----------------------------+
00204  M01S00158.fsema17 ---|  READNAM=PROCNAM;                   # TRY TO READ UP PROC LIB #
00205  M00S00159.fsemain +++|  FILNUM=2;

Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00160.ns2530  ---|  CHARPARM=0;

Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00001.fsema17 ---|  CHARPARM=2;
00208  M00S00161.fsemain +++|  GETPARM=1;

Seq #  *Modification Id* Act 
----------------------------+
00209  M01S00001.fsema17 +++|  IF PROCNAM NQ READNAM THEN
00210  M01S00002.fsema17 +++|    BEGIN                      # IF PROCEDURE FILE IS NOT EDIT FILE #
00211  M01S00003.fsema17 +++|    CHARPARM=2;                # FORCE PROCEDURE FILE TO ASCII MODE #
00212  M01S00004.fsema17 +++|    READNAM=PROCNAM;
00213  M01S00005.fsema17 +++|    END
00214  M00S00162.fsemain +++|  OPENFILE;
00215  M00S00163.fsemain +++|  POP;
00216  M00S00164.fsemain +++|
00217  M00S00165.fsemain +++|  CONTROL IFEQ METERING,1;
00218  M00S00166.fsemain +++|    BUILDCIO=CIOCOUNT;
00219  M00S00167.fsemain +++|  CONTROL FI;
00220  M00S00168.fsemain +++|
00221  M00S00169.fsemain +++|  END                          # OF FILBUILD       #
00222  M00S00170.fsemain +++|
00223  M00S00171.fsemain +++|
00224  M00S00172.fsemain +++|PROC RESUMEFILES;
00225  M00S00173.fsemain +++|  BEGIN
00226  M00S00174.fsemain +++|#
00227  M00S00175.fsemain +++|**        RESUMEFILES - ATTEMPT TO RESUME PREVIOUS SESSION.
00228  M00S00176.fsemain +++|*
00229  M00S00177.fsemain +++|*         RESUMEFILES ATTEMPTS TO RESUME SOME PREVIOUS EDIT SESSION
00230  M00S00178.fsemain +++|*         FROM A LEFT-OVER WORKFILE.  THIS MAY BE POSSIBLE BECAUSE
00231  M00S00179.fsemain +++|*         WORKFILES CONTAIN NOT ONLY ALL TEXT OF ALL FILES, BUT ALSO
00232  M00S00180.fsemain +++|*         BINARY DATA IMAGES FOR ALL EDITOR DATA.
00233  M00S00181.fsemain +++|*
00234  M00S00182.fsemain +++|*         THE CALLER DECIDES WHETHER TO CALL RESUMEFILES ON THE BASIS
00235  M00S00183.fsemain +++|*         OF CONTROL STATEMENT SYNTAX.  IF RESUMEFILES IS NOT
00236  M00S00184.fsemain +++|*         SUCCESSFUL, THEN IT CLEARS THE TRYRESUME FLAG AS A SIGNAL
00237  M00S00185.fsemain +++|*         TO THE CALLER THAT FILBUILD SHOULD BE CALLED.
00238  M00S00186.fsemain +++|*

Seq #  *Modification Id* Act 
----------------------------+
00239  M01S00187.fsema12 ---|*         IF RESUMPTION OCCURRS, THEN RESUMEFILES RE-INITIALIZES SOME

Seq #  *Modification Id* Act 
----------------------------+
00240  M01S00001.fsema12 +++|*         IF RESUMPTION OCCURS, THEN RESUMEFILES RE-INITIALIZES SOME
00241  M00S00188.fsemain +++|*         OF THE DATA READ UP FROM THE WORKFILE.  THE TERMINAL IS

Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00189.v23l617 ---|*         RECONFIGURED (FOR SCREEN MODE) BY CALLING VDTSTM AND

Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00029.v23l617 +++|*         RECONFIGURED (FOR SCREEN MODE) BY CALLING VDTSTM/STD AND
00244  M00S00190.fsemain +++|*         COPYTABS.  THE COMMAND BUFFER IS CLEARED.  THE MULTI-USER
00245  M00S00191.fsemain +++|*         CONNECTION STATUS IS CLEARED.  THE INTERNAL FILE DIRECTORY

Seq #  *Modification Id* Act 
----------------------------+
00246  M01S00192.fsema12 ---|*         IS SEARCHED AND EVERY FILE IS FLAGGED AS UNALTERED AND IS
00247  M01S00193.fsema12 ---|*         RE-VERIFIED FOR PERMISSIONS.  THE USER'S LAST CURRENT LINE
00248  M01S00194.fsema12 ---|*         SELECTION IS RESTORED.

Seq #  *Modification Id* Act 
----------------------------+
00249  M01S00002.fsema12 +++|*         IS SEARCHED AND EACH FILE IS RE-VERIFIED FOR PERMISSIONS.
00250  M01S00003.fsema12 +++|*         IF THE LAST EXIT WAS A *QUIT REPLACE*, EACH FILE IS FLAGGED
00251  M01S00004.fsema12 +++|*         AS UNALTERED.  THE LAST CURRENT LINE SELECTION IS RESTORED.
00252  M00S00195.fsemain +++|*
00253  M00S00196.fsemain +++|*         ENTRY  TRYRESUME - PRESUMED TRUE.
00254  M00S00197.fsemain +++|*
00255  M00S00198.fsemain +++|*         EXIT   TRYRESUME - FORCED FALSE IF NO RESUMPTION OCCURRED.
00256  M00S00199.fsemain +++|*                ALL DATA REDEFINED IF RESUMPTION OCCURRED.
00257  M00S00200.fsemain +++|*
00258  M00S00201.fsemain +++|*         MACROS SETCHAR.
00259  M00S00202.fsemain +++|*

Seq #  *Modification Id* Act 
----------------------------+
00260  M01S00203.v23l617 ---|*         CALLS  RESUMIO, TTSYNC, VDTSTM, COPYTABS, SETCSET, POSZ,
00261  M01S00204.v23l617 ---|*                SCANFDL, VFYFILE, WRITEABLE, REPY, FWDZ.

Seq #  *Modification Id* Act 
----------------------------+
00262  M01S00030.v23l617 +++|*         CALLS  COPYTABS, FWDZ, POSZ, REPY, RESUMIO, SCANFDL, SETCSET,
00263  M01S00031.v23l617 +++|*                TTSYNC, VDTSTD, VDTSTM, VFYFILE, WRITEABLE.
00264  M00S00205.fsemain +++|#

Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00032.v23l617 +++|
00266  M01S00033.v23l617 +++|  ITEM TMP1      I;                  # TEMPORARY STORAGE #
00267  M01S00034.v23l617 +++|  ITEM TMP2      I;                  # TEMPORARY STORAGE #

Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00005.fsem12a ---|  ITEM QUITSAVED B;                  # TEMPORARY FLAG    #

Seq #  *Modification Id* Act 
----------------------------+
00269  M01S00035.v23l617 +++|
00270  M00S00206.fsemain +++|  RESUMIO;
00271  M00S00207.fsemain +++|  IF IORESUMED THEN          # THERE IS OLD EDIT #
00272  M00S00208.fsemain +++|    BEGIN
00273  M00S00209.fsemain +++|    #  RESUMED EDIT ACCEPTABLE -- FINAL SETUP FOLLOWS  #
00274  M00S00210.fsemain +++|    # OVERRIDE SOME RESTORED DATA #

Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00006.fsem12a ---|    QUITSAVED=EXITSAVE;

Seq #  *Modification Id* Act 
----------------------------+
00276  M01S00211.fsem12a ---|    EXITFLAGS=0;
00277  M00S00212.fsemain +++|    CONNECTED=FALSE;

Seq #  *Modification Id* Act 
----------------------------+
00278  M01S00213.v23l617 ---|    SCREENMODE=HOLDSCREEN AND INTERACT;
00279  M01S00214.v23l617 ---|    CMDLINE[0]=NULLIN;
00280  M01S00215.v23l617 ---|    IF SCREENMODE THEN

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00036.v23l617 +++|    FOR TMP1=0 STEP 1 UNTIL 10 DO SETCHAR(CMDLINE,TMP1,CBLANK);
00282  M01S00037.v23l617 +++|    SETCHAR(CMDLINE,11,CENDLINE);
00283  M01S00038.v23l617 +++|    IF INTERACT THEN
00284  M00S00216.fsemain +++|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00285  M01S00217.v23l617 ---|      TTSYNC;
00286  M01S00218.v23l617 ---|      VDTSTM(MIN(VTXMAX,USRNUMCOL),VTMODEL,1);
00287  M01S00219.v23l617 ---|      COPYTABS;

Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00039.v23l617 +++|      VDTGSL(TMP1,TMP2);             # GET SCREEN/LINE MODE #
00289  M01S00040.v23l617 +++|      IF TMP2 NQ 0 THEN SETCMD("SET SCREEN",10,0);
00290  M01S00041.v23l617 +++|      ELSE SETCMD("SET LINE",8,0);
00291  M00S00220.fsemain +++|      END
00292  M00S00221.fsemain +++|    SETCSET(TRUE);
00293  M00S00222.fsemain +++|    POSZ(TOPC(FILECTL)+1);
00294  M00S00223.fsemain +++|    WHYLE CURRENT LS BOTC(FILECTL) DO  # CHECK ALL FILES IN SESSION  #
00295  M00S00224.fsemain +++|      BEGIN                   # UPDATE LOCKED, CHANGED      #
00296  M00S00225.fsemain +++|      SCANFDL(READNAM);
00297  M00S00226.fsemain +++|      VFYFILE(READNAM,-1);
00298  M00S00227.fsemain +++|      IF NOT WRITEABLE(READNAM) THEN
00299  M00S00228.fsemain +++|        BEGIN
00300  M00S00229.fsemain +++|        SETCHAR(LINE,8,CDIGIT0+1);
00301  M00S00230.fsemain +++|        IF CURRENT EQ FDLF(1) THEN LOCKED[1]=1;
00302  M00S00231.fsemain +++|        IF CURRENT EQ FDLF(2) THEN LOCKED[2]=1;
00303  M00S00232.fsemain +++|        END

Seq #  *Modification Id* Act 
----------------------------+
00304  M01S00233.fsema12 ---|      SETCHAR(LINE,10,CDIGIT0);

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00007.fsem12a ---|      IF QUITSAVED THEN
00306  M02S00008.fsem12a ---|        BEGIN                        # IF LAST EXIT WAS QUIT REPLACE #
00307  M02S00009.fsem12a ---|        CHANGED[1]=0;
00308  M02S00010.fsem12a ---|        CHANGED[2]=0;
00309  M02S00011.fsem12a ---|        END

Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00001.fsem12a +++|      IF EXITSAVE THEN SETCHAR(LINE,10,CDIGIT0);
00311  M00S00234.fsemain +++|      REPY;                  # UPDATE FILE DESCRIPTOR      #
00312  M00S00235.fsemain +++|      FWDZ;                  # NEXT FILE DESCRIPTOR        #
00313  M00S00236.fsemain +++|      END

Seq #  *Modification Id* Act 
----------------------------+
00314  M01S00002.fsem12a +++|    IF EXITSAVE THEN
00315  M01S00003.fsem12a +++|      BEGIN                    # IF REPLACED ON EXIT #
00316  M01S00004.fsem12a +++|      CHANGED[1]=0;
00317  M01S00005.fsem12a +++|      CHANGED[2]=0;
00318  M01S00006.fsem12a +++|      END
00319  M01S00007.fsem12a +++|    EXITFLAGS=0;

Seq #  *Modification Id* Act 
----------------------------+
00320  M01S00237.fsema12 ---|    CHANGED[1]=0;
00321  M01S00238.fsema12 ---|    CHANGED[2]=0;
00322  M00S00239.fsemain +++|    POSZ(SAVECURL);
00323  M00S00240.fsemain +++|    END
00324  M00S00241.fsemain +++|  ELSE TRYRESUME=FALSE;
00325  M00S00242.fsemain +++|  END                         # OF RESUMEFILES    #
00326  M00S00243.fsemain +++|PAGE                         # FINAL FILE RECONSTRUCTION   #
00327  M00S00244.fsemain +++|
00328  M00S00245.fsemain +++|
00329  M00S00246.fsemain +++|PROC FILEWRITE;
00330  M00S00247.fsemain +++|  BEGIN
00331  M00S00248.fsemain +++|#
00332  M00S00249.fsemain +++|**        FILEWRITE - COPY ONE INTERNAL FILE IMAGE TO LOCAL FILE.
00333  M00S00250.fsemain +++|*
00334  M00S00251.fsemain +++|*         ENTRY  FILEFET - INITIALIZED FOR EXTERNAL FILE.
00335  M00S00252.fsemain +++|*                TOPF(1), BOTF(1) - BRACKET INTERNAL FILE IMAGE.
00336  M00S00253.fsemain +++|*
00337  M00S00254.fsemain +++|*         EXIT   FILEFET - EOR WRITTEN, REWOUND.
00338  M00S00255.fsemain +++|*
00339  M00S00256.fsemain +++|*         CALLS  REWIND, POSZ, FWDZ, CONVOUT, WRITER, WRITEF,
00340  M00S00257.fsemain +++|*                WRITEC.
00341  M00S00258.fsemain +++|*
00342  M00S00259.fsemain +++|*         USES   LIN, TMPLIN, CURRENT.
00343  M00S00260.fsemain +++|#

Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00010.ns2377  +++|  DEF  AVERAGE    #500#;             # AVERAGE FILE SIZE #
00345  M01S00011.ns2377  +++|  DEF  TWOANAHALF #2500#;            # TWO AND A HALF SECONDS #
00346  M01S00012.ns2377  +++|  ITEM COUNTER    I;                 # LINE COUNTER #
00347  M01S00013.ns2377  +++|  ITEM SAMPLE     I;                 # LINE SAMPLE RATE #
00348  M01S00014.ns2377  +++|  ITEM STARTTIME  I;                 # REAL TIME CLOCK (START) #
00349  M01S00015.ns2377  +++|  ITEM CHECKTIME  I;                 # REAL TIME CLOCK (CHECK) #
00350  M01S00016.ns2377  +++|  IF DONTPRINT OR NOT INTERACT THEN
00351  M01S00017.ns2377  +++|    BEGIN                            # IF NO MESSAGE SHOULD BE SENT #
00352  M01S00018.ns2377  +++|    COUNTER = 0;
00353  M01S00019.ns2377  +++|    END
00354  M01S00020.ns2377  +++|  ELSE
00355  M01S00021.ns2377  +++|    BEGIN                            # MESSAGE MAY BE SENT #
00356  M01S00022.ns2377  +++|    COUNTER = 1;
00357  M01S00023.ns2377  +++|    SAMPLE = AVERAGE;
00358  M01S00024.ns2377  +++|    RTIME(STARTTIME);
00359  M01S00025.ns2377  +++|    STARTTIME = B<24,36>STARTTIME;
00360  M01S00026.ns2377  +++|    END
00361  M00S00261.fsemain +++|  REWIND(FILEFET,1);
00362  M00S00262.fsemain +++|  POSZ(TOPF(1));
00363  M00S00263.fsemain +++|  WHYLE CURRENT LS BOTF(1)-1 DO
00364  M00S00264.fsemain +++|    BEGIN
00365  M00S00265.fsemain +++|    FWDZ;
00366  M00S00266.fsemain +++|    CONVOUT(LIN,1);
00367  M00S00267.fsemain +++|    IF TMPLINE[0] EQ EORCON THEN WRITER(FILEFET,1);
00368  M00S00268.fsemain +++|    ELSE IF TMPLINE[0] EQ EOFCON THEN WRITEF(FILEFET,1);
00369  M00S00269.fsemain +++|    ELSE
00370  M00S00270.fsemain +++|      BEGIN
00371  M00S00271.fsemain +++|      CONVOUT(LIN,ASCII[1]);
00372  M00S00272.fsemain +++|      WRITEC(FILEFET,TMPLIN);

Seq #  *Modification Id* Act 
----------------------------+
00373  M01S00027.ns2377  +++|      IF COUNTER NQ 0 THEN
00374  M01S00028.ns2377  +++|        BEGIN                        # IF MESSAGE STILL TO ISSUE #
00375  M01S00029.ns2377  +++|        COUNTER = COUNTER + 1;
00376  M01S00030.ns2377  +++|        IF COUNTER GR SAMPLE THEN
00377  M01S00031.ns2377  +++|          BEGIN                      # IF SAMPLE SIZE REACHED #
00378  M01S00032.ns2377  +++|          RTIME(CHECKTIME);
00379  M01S00033.ns2377  +++|          CHECKTIME = B<24,36>CHECKTIME - STARTTIME;
00380  M01S00034.ns2377  +++|          IF CHECKTIME GR TWOANAHALF THEN
00381  M01S00035.ns2377  +++|            BEGIN                    # IF ENOUGH TIME HAS PASSED #
00382  M01S00036.ns2377  +++|            TTLIN(" (REBUILDING) $");
00383  M01S00037.ns2377  +++|            TTSTR("              $");
00384  M01S00038.ns2377  +++|            COUNTER = 0;             # ONE MESSAGE IS ENOUGH #
00385  M01S00039.ns2377  +++|            VDTCLO(COUNTER);         # FLUSH OUTPUT, NO RECALL #
00386  M01S00040.ns2377  +++|            END
00387  M01S00041.ns2377  +++|          ELSE
00388  M01S00042.ns2377  +++|            BEGIN                    # COMPUTE PROBABLE SAMPLE COUNT #
00389  M01S00043.ns2377  +++|            SAMPLE = (SAMPLE*TWOANAHALF)/CHECKTIME;
00390  M01S00044.ns2377  +++|            END
00391  M01S00045.ns2377  +++|          END
00392  M01S00046.ns2377  +++|        END
00393  M00S00273.fsemain +++|      END
00394  M00S00274.fsemain +++|    END
00395  M00S00275.fsemain +++|  WRITER(FILEFET,1);
00396  M00S00276.fsemain +++|  REWIND(FILEFET,1);
00397  M00S00277.fsemain +++|  END
00398  M00S00278.fsemain +++|
00399  M00S00279.fsemain +++|
00400  M00S00280.fsemain +++|PROC FILREBUILD;
00401  M00S00281.fsemain +++|  BEGIN
00402  M00S00282.fsemain +++|#
00403  M00S00283.fsemain +++|**        FILREBUILD - REBUILD ALL SOURCE FILES.
00404  M00S00284.fsemain +++|*
00405  M00S00285.fsemain +++|*         FILREBUILD IS CALLED AT THE END OF AN EDIT SESSION.  IT
00406  M00S00286.fsemain +++|*         GOES THRU THE DIRECTORY OF INTERNAL FILE IMAGES.  FOR EVERY
00407  M00S00287.fsemain +++|*         ALTERED FILE, THE LOCAL FILE IS RECONSTRUCTED OUT OF THE
00408  M00S00288.fsemain +++|*         EDITOR'S INTERNAL FILE IMAGE.  IF THE REPLACE OPTION WAS
00409  M00S00289.fsemain +++|*         SELECTED, THEN FILREBUILD ALSO ASSURES THAT PERMANENT FILES
00410  M00S00290.fsemain +++|*         ARE BUILT.  IF THE REPLACE OPTION WAS IGNORED, THEN
00411  M00S00291.fsemain +++|*         FILREBUILD PERFORMS A RETURN MACRO TO ASSURE THAT THE FILE
00412  M00S00292.fsemain +++|*         WRITTEN IS A PURELY LOCAL FILE, AND NOT A PRE-ATTACHED
00413  M00S00293.fsemain +++|*         PERMANENT FILE.
00414  M00S00294.fsemain +++|*
00415  M00S00295.fsemain +++|*         FOR ALL FILES (EVEN THOSE UNALTERED OR READ-ONLY
00416  M00S00296.fsemain +++|*         RESTRICTED) FILREBUILD PRINTS OUT A STATUS MESSAGE.  THE
00417  M00S00297.fsemain +++|*         STATUS MESSAGES, HOWEVER, ARE SUPPRESSED IF THE USER
00418  M00S00298.fsemain +++|*         SELECTED THE QUIET OPTION.
00419  M00S00299.fsemain +++|*
00420  M00S00300.fsemain +++|*         FILREBUILD CLOSES OUT BOTH BRACKETS, AS NEEDED, AND CLEARS
00421  M00S00301.fsemain +++|*         THE COMMAND BUFFER, THEN CHECKPOINTS THE WORKFILE.  IT
00422  M00S00302.fsemain +++|*         IS ABSOLUTELY ESSENTIAL THAT NEITHER FILREBUILD NOR THE
00423  M00S00303.fsemain +++|*         CALLER NOR ANY OTHER ROUTINE PERFORM ANY DESTRUCTIVE
00424  M00S00304.fsemain +++|*         WORKFILE ACCESSES ONCE CHECKIO HAS BEEN CALLED, OTHERWISE
00425  M00S00305.fsemain +++|*         THE USER MAY PERCEIVE A CONFUSING FILE SELECTION SHOULD THE
00426  M00S00306.fsemain +++|*         WORKFILE BE RESUMED INTO A LATER EDIT SESSION.
00427  M00S00307.fsemain +++|*
00428  M00S00308.fsemain +++|*         ENTRY  DONTPRINT - QUIET OPTION.
00429  M00S00309.fsemain +++|*                EXITSAVE - REPLACE OPTION.
00430  M00S00310.fsemain +++|*                FILE DIRECTORY - DESCRIBES ALL INTERNAL IMAGES.
00431  M00S00311.fsemain +++|*
00432  M00S00312.fsemain +++|*         EXIT   FILE WRITTEN, POSSIBLY SAVED.
00433  M00S00313.fsemain +++|*
00434  M00S00314.fsemain +++|*         CALLS  PADNAME, CLOSEFILE, CHECKIO, POSZ, SCANFDL, PUSH,
00435  M00S00315.fsemain +++|*                OPENFILE, TTSTR, TTLFN, MAKEFET, ASSGNFILE,
00436  M00S00316.fsemain +++|*                LOCALFILE, RETERN, FILEWRITE, REPLACE, ATTACH,
00437  M00S00317.fsemain +++|*                TTBRK, POP, FWDZ.
00438  M00S00318.fsemain +++|*
00439  M00S00319.fsemain +++|*         USES   FILNUM, FILENAM[1], FILENAM[2], READNAM, CURRENT,
00440  M00S00320.fsemain +++|*                LIN, CHARPARM, GETPARM, CHANGED[1], LOCKED[1],
00441  M00S00321.fsemain +++|*                ASCII[1], PFMFET.
00442  M00S00322.fsemain +++|#
00443  M00S00323.fsemain +++|  ITEM TMP1, TMP2;

Seq #  *Modification Id* Act 
----------------------------+
00444  M01S00001.fsema3  +++|  ITEM NOTCHANGED B;                 # NOT CHANGED FLAG #
00445  M00S00324.fsemain +++|
00446  M00S00325.fsemain +++|  CMDLINE[0]=NULLIN;

Seq #  *Modification Id* Act 
----------------------------+
00447  M01S00012.fsema12 +++|  IF EXITSAVE THEN
00448  M01S00013.fsema12 +++|    BEGIN                            # IF QUIT WITH REPLACE REQUESTED #
00449  M01S00014.fsema12 +++|    TMP1=CURFILE;
00450  M01S00015.fsema12 +++|    IF FILENAM[TMP1] EQ "FSEHELP"
00451  M01S00016.fsema12 +++|      AND CHANGED[TMP1] EQ 0 THEN TMP1=3 LXR TMP1;
00452  M01S00017.fsema12 +++|    END
00453  M01S00018.fsema12 +++|  ELSE TMP1=0;
00454  M00S00326.fsemain +++|  FOR FILNUM=1 STEP 1 UNTIL 2 DO
00455  M00S00327.fsemain +++|    BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00328.fsema12 ---|    IF PADNAME(FILENAM[FILNUM]) NQ " " THEN CLOSEFILE;

Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00019.fsema12 +++|    IF PADNAME(FILENAM[FILNUM]) NQ " " THEN
00458  M01S00020.fsema12 +++|      BEGIN                          # IF A FILE IN THIS SPLIT #
00459  M01S00021.fsema12 +++|      IF FILNUM EQ TMP1 THEN
00460  M01S00022.fsema12 +++|        BEGIN                        # IF CURRENT FILE TO BE REPLACED #
00461  M01S00023.fsema12 +++|        IF FILENAM[FILNUM] NQ "FSTEACH" THEN CHANGED[FILNUM]=1;
00462  M01S00024.fsema12 +++|        END
00463  M01S00025.fsema12 +++|      CLOSEFILE;
00464  M01S00026.fsema12 +++|      END
00465  M00S00329.fsemain +++|    END
00466  M00S00330.fsemain +++|  CHECKIO;   # ABSOLUTELY MUST NOT CHANGE WORKFILE AFTER THIS #
00467  M00S00331.fsemain +++|

Seq #  *Modification Id* Act 
----------------------------+
00468  M01S00002.fsema3  +++|  NOTCHANGED=FALSE;                  # RESET NOT CHANGED FLAG #
00469  M00S00332.fsemain +++|  IF NOT EXITQUIT THEN
00470  M00S00333.fsemain +++|    BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00001.fsema5  ---|    IF ZEROCOLIN AND INTERACT THEN
00472  M02S00002.fsema5  ---|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00473  M03S00003.fsema5  ---|      TTLIN("WARNING: ONE OR MORE OF YOUR ASCII FILES$");
00474  M03S00004.fsema5  ---|      TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY $");
00475  M03S00005.fsema5  ---|      TTLIN("CODE FORMAT OF OCTAL 00 (:), RATHER THAN$");
00476  M03S00006.fsema5  ---|      TTLIN("THE ASCII FORMAT OF OCTAL 7404 (:).    $");
00477  M03S00007.fsema5  ---|      TTLIN(" $");
00478  M03S00008.fsema5  ---|      TTLIN("IF YOU WANT DISPLAY CODE (:) FORMAT REPLY$");
00479  M03S00009.fsema5  ---|      TTSTR("YES, FOR ASCII (:) FORMAT REPLY NO.     $");

Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00001.fsema5  ---|      TTLIN("WARNING:ONE OR MORE OF YOUR ASCII FILES$");
00481  M02S00002.fsema5  ---|      TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY$");
00482  M02S00003.fsema5  ---|      TTLIN("CODE FORMAT OF OCTAL 00 (:) RATHER THAN$");
00483  M02S00004.fsema5  ---|      TTLIN("THE ASCII FORMAT OF OCTAL 7404 (@D).  $");
00484  M02S00005.fsema5  ---|      TTLIN(" $");
00485  M02S00006.fsema5  ---|      TTLIN("IF YOU WANT YOUR COLONS LEFT IN DISPLAY$");
00486  M02S00007.fsema5  ---|      TTLIN("CODE FORMAT (:) TYPE YES AT THE PROMPT.$");
00487  M02S00008.fsema5  ---|      TTLIN("IF YOU WANT THESE COLONS TO BE IN ASCII$");
00488  M02S00009.fsema5  ---|      TTSTR("FORMAT (@D) TYPE NO. $");

Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00010.fsema5  ---|      PROMPT(QCCKWRD);
00490  M02S00011.fsema5  ---|      CONVIN(CMDLIN,2);
00491  M02S00012.fsema5  ---|      GETCHAR(CMDLINE,0,TMP1);
00492  M02S00013.fsema5  ---|      TMP1=XLTINTDSP[TMP1];
00493  M02S00014.fsema5  ---|      IF TMP1 EQ CLETTERY THEN ZEROCOLOUT=TRUE;
00494  M02S00015.fsema5  ---|    END
00495  M00S00334.fsemain +++|    FILENAM[2]=" ";
00496  M00S00335.fsemain +++|    POSZ(TOPC(FILECTL)+1);
00497  M00S00336.fsemain +++|    WHYLE CURRENT LS BOTC(FILECTL) DO
00498  M00S00337.fsemain +++|      BEGIN
00499  M00S00338.fsemain +++|      SCANFDL(READNAM);
00500  M00S00339.fsemain +++|      IF READNAM NQ "ZZZNULL" THEN
00501  M00S00340.fsemain +++|        BEGIN
00502  M00S00341.fsemain +++|        PUSH;
00503  M00S00342.fsemain +++|        FILENAM[1]=" ";
00504  M00S00343.fsemain +++|        FILNUM=1;
00505  M00S00344.fsemain +++|        CHARPARM=0;
00506  M00S00345.fsemain +++|        GETPARM=0;
00507  M00S00346.fsemain +++|        OPENFILE;

Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00001.ns2449  +++|        IF ZEROCOLASK THEN ZEROCOLIN = FALSE;  # DO NOT "ASK" TWICE #

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00001.fsema9  ---|        IF B<00,01>MEM[CSMR] EQ 0 THEN
00510  M02S00002.fsema9  ---|          BEGIN                      # IF SYSTEM CHARACTER SET = 63 #
00511  M02S00003.fsema9  ---|          ZEROCOLIN = FALSE;         # DO NOT ASK COLON QUESTION #
00512  M02S00004.fsema9  ---|          ZEROCOLOUT = TRUE;         # DO NOT CHANGE 00 BYTES #
00513  M02S00005.fsema9  ---|          END

Seq #  *Modification Id* Act 
----------------------------+
00514  M01S00001.fsema5  +++|        IF ZEROCOLIN AND INTERACT AND CHANGED[1] NQ 0
00515  M01S00002.fsema5  +++|          AND FILENAM[1] NQ "FSEPROC" THEN
00516  M01S00003.fsema5  +++|          BEGIN                      # IF MESSAGE TO SEND #
00517  M01S00004.fsema5  +++|          ZEROCOLIN = FALSE;         # ONCE IS ENOUGH #

Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00001.fsema14 ---|      TTLIN("                                        $");

Seq #  *Modification Id* Act 
----------------------------+
00519  M01S00001.fsema14 +++|          TTLIN("                                        $");

Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00005.fsema13 ---|          TTLIN("WARNING:ONE OR MORE OF YOUR ASCII FILES $");

Seq #  *Modification Id* Act 
----------------------------+
00521  M01S00001.fsema13 +++|          TTLIN("WARNING:  ONE OR MORE OF YOUR ASCII FILES $");

Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00006.fsema9  ---|          TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY $");

Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00001.fsema9  +++|          TTLIN("CONTAINED CHARACTERS CODED IN THE DISPLAY $");

Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00007.fsema5  +++|          TTLIN("CODE FORMAT OF OCTAL 00 (:) RATHER THAN $");
00525  M01S00008.fsema5  +++|          TTLIN("THE ASCII FORMAT OF OCTAL 7404 (@D).   $");

Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00002.242l642 +++|  ASKAGAIN:                          # ASK UNTIL Y OR N #

Seq #  *Modification Id* Act 
----------------------------+
00527  M01S00009.fsema5  +++|          TTLIN("                                        $");

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00010.242l642 ---|          TTLIN("ENTER...                                $");

Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00003.fsema14 ---|      TTLIN("ENTER ...                               $");

Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00002.fsema14 +++|          TTLIN("ENTER ...                               $");

Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00011.fsema9  ---|          TTLIN("YES     COLONS LEFT IN DISPLAY CODE (:) $");
00532  M02S00012.fsema9  ---|          TTLIN("NO      COLONS CHANGED TO ASCII (@D)   $");

Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00002.fsema14 ---|          TTLIN("YES     CHARACTERS LEFT IN DISPLAY CODE (:) $");
00534  M02S00003.fsema14 ---|          TTLIN("NO      CHARACTERS CHANGED TO ASCII (@D)   $");

Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00003.fsema14 +++|          TTLIN
00536  M01S00004.fsema14 +++|          ("YES     DISPLAY(:) AND ASCII(@D) CHANGED TO DISPLAY(:)$");
00537  M01S00005.fsema14 +++|          TTLIN
00538  M01S00006.fsema14 +++|          ("NO      DISPLAY(:) AND ASCII(@D) CHANGED TO ASCII(@D)$");

Seq #  *Modification Id* Act 
----------------------------+
00539  M01S00013.fsema5  +++|          PROMPT(QCCKWRD);
00540  M01S00014.fsema5  +++|          CONVIN(CMDLIN,2);
00541  M01S00015.fsema5  +++|          GETCHAR(CMDLINE,0,TMP1);
00542  M01S00016.fsema5  +++|          TMP1 = XLTINTDSP[TMP1];

Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00004.242l642 +++|          IF TMP1 NQ CLETTERY AND TMP1 NQ CLETTERN THEN GOTO ASKAGAIN;

Seq #  *Modification Id* Act 
----------------------------+
00544  M01S00017.fsema5  +++|          IF TMP1 EQ CLETTERY THEN ZEROCOLOUT = TRUE;
00545  M01S00018.fsema5  +++|          END
00546  M00S00347.fsemain +++|        IF NOT DONTPRINT THEN
00547  M00S00348.fsemain +++|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00548  M01S00006.ns2404  +++|          IF NOT INTERACT THEN TTSTR(" $");
00549  M00S00349.fsemain +++|          TTSTR("FILE: $");
00550  M00S00350.fsemain +++|          TTLFN(FILENAM[1]);

Seq #  *Modification Id* Act 
----------------------------+
00551  M01S00351.ns2449  ---|          IF CHANGED[1] EQ 0 THEN TTSTR(" (NO CHANGES)$");
00552  M01S00352.ns2449  ---|          IF LOCKED[1] NQ 0 THEN TTSTR(" (READ-ONLY FILE)$");

Seq #  *Modification Id* Act 
----------------------------+
00553  M01S00002.ns2449  +++|          IF LOCKED[1] NQ 0 THEN
00554  M01S00003.ns2449  +++|            BEGIN
00555  M01S00004.ns2449  +++|            TTSTR(" (READ-ONLY) $");
00556  M01S00005.ns2449  +++|            END
00557  M01S00006.ns2449  +++|          ELSE
00558  M01S00007.ns2449  +++|            BEGIN
00559  M01S00008.ns2449  +++|            IF CHANGED[1] EQ 0 THEN TTSTR(" (NO CHANGES)$");
00560  M01S00009.ns2449  +++|            END
00561  M01S00010.ns2449  +++|          IF EXITSAVE AND CHANGED[1] EQ 0 THEN
00562  M01S00011.ns2449  +++|            BEGIN                    # IF QUIT REPLACE OPTION #
00563  M01S00012.ns2449  +++|            TTSTR(" (NOT REPLACED)$");
00564  M01S00013.ns2449  +++|            END
00565  M00S00353.fsemain +++|          END
00566  M00S00354.fsemain +++|        IF CHANGED[1] NQ 0 AND LOCKED[1] EQ 0 THEN
00567  M00S00355.fsemain +++|          BEGIN
00568  M00S00356.fsemain +++|          MAKEFET(FILEFET,FILENAM[1],FILEBUF,DSKSIZ);

Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00357.fsema1  ---|          # GET RID OF PREATTACHED FILE WHEN NO REPLACE OPTION #
00570  M01S00358.fsema1  ---|          IF ASSGNFILE(READNAM) AND (NOT LOCALFILE(READNAM))
00571  M01S00359.fsema1  ---|            AND (NOT EXITSAVE) THEN RETERN(FILEFET,1);
00572  M00S00360.fsemain +++|          # REWRITE LOCAL OR PREATTACHED FILE #
00573  M00S00361.fsemain +++|          FILEWRITE;

Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00362.fsema13 ---|          IF EXITSAVE THEN
00575  M01S00363.fsema13 ---|            BEGIN
00576  M01S00364.fsema13 ---|            PFMERROR=0;

Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00365.fsema13 ---|            IF (NOT ASSGNFILE(READNAM))
00578  M02S00366.fsema13 ---|              OR (LOCALFILE(READNAM)) THEN

Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00001.fsema13 ---|            IF LOCALFILE(READNAM) THEN

Seq #  *Modification Id* Act 
----------------------------+
00580  M01S00367.fsema13 ---|              BEGIN                  # NOT PREATTACHED #
00581  M01S00368.fsema13 ---|              # FILE NEEDS TO BE MADE PERMANENT - TRY INDIRECT FIRST #

Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00369.fsema13 ---|              PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,0);
00583  M02S00370.fsema13 ---|              IF PFMERROR NQ 0 THEN

Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00002.fsema13 ---|              PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,"EM",PFMMSG,
00585  M02S00003.fsema13 ---|                "EL","40",0);
00586  M02S00004.fsema13 ---|              IF PFMERROR EQ FNF THEN

Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00371.fsema13 ---|                BEGIN                # RESORT TO ATTACH, REWRITE #

Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00372.fsema13 ---|                PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,

Seq #  *Modification Id* Act 
----------------------------+
00589  M03S00373.fsema13 ---|                  "M","W","NA","YES",0);

Seq #  *Modification Id* Act 
----------------------------+
00590  M03S00001.fsema13 ---|                  "M","W","NA","YES","SR","NF",0);

Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00005.fsema13 ---|                PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W",
00592  M02S00006.fsema13 ---|                  "NA","YES","SR","NF","EM",PFMMSG,"EL","40",0);

Seq #  *Modification Id* Act 
----------------------------+
00593  M01S00002.fsema13 +++|          IF EXITSAVE AND LOCALFILE(READNAM) THEN
00594  M01S00003.fsema13 +++|            BEGIN                    # IF FILE TO BE MADE PERMANENT #
00595  M01S00004.fsema13 +++|            # FILE NEEDS TO BE MADE PERMANENT - TRY INDIRECT FIRST #
00596  M01S00005.fsema13 +++|            PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,"EM",PFMMSG,
00597  M01S00006.fsema13 +++|              "EL","40",0);
00598  M01S00007.fsema13 +++|            IF PFMERROR EQ FNF THEN
00599  M01S00008.fsema13 +++|              BEGIN                  # IF NOT INDIRECT TRY ATTACH #
00600  M01S00009.fsema13 +++|              PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W",
00601  M01S00010.fsema13 +++|                "NA","YES","SR","NF","EM",PFMMSG,"EL","40",0);
00602  M01S00011.fsema13 +++|              FILEWRITE;
00603  M01S00012.fsema13 +++|              END
00604  M01S00013.fsema13 +++|            ELSE
00605  M01S00014.fsema13 +++|              BEGIN
00606  M01S00015.fsema13 +++|              IF PFMERROR EQ FTL THEN
00607  M01S00016.fsema13 +++|                BEGIN                # IF FILE TOO LONG #
00608  M01S00017.fsema13 +++|                # SAVE FIRST ERROR, RETURN LOCAL FILE, TRY DEFINE #
00609  M01S00018.fsema13 +++|                PFMMS2=PFMMSG;
00610  M01S00019.fsema13 +++|                RETERN(FILEFET,1);
00611  M01S00020.fsema13 +++|                PF("DEFINE",READNAM,READNAM,"RC",PFMERROR,
00612  M01S00021.fsema13 +++|                  "EM",PFMMSG,"EL","40",0);
00613  M00S00374.fsemain +++|                FILEWRITE;

Seq #  *Modification Id* Act 
----------------------------+
00614  M01S00022.fsema13 +++|                IF PFMERROR NQ 0 THEN
00615  M01S00023.fsema13 +++|                  BEGIN              # IF DEFINE FAILED #
00616  M01S00024.fsema13 +++|                  PFMMSG=PFMMS2;     # REPLACE ERROR MESSAGE #
00617  M01S00025.fsema13 +++|                  END
00618  M00S00375.fsemain +++|                END

Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00007.fsema13 ---|              ELSE
00620  M02S00008.fsema13 ---|                BEGIN
00621  M02S00009.fsema13 ---|                IF PFMERROR EQ FTL THEN
00622  M02S00010.fsema13 ---|                  BEGIN               # IF FILE TOO LONG #
00623  M02S00011.fsema13 ---|                  # SAVE FIRST ERROR, RETURN LOCAL FILE, TRY DEFINE #
00624  M02S00012.fsema13 ---|                  PFMMS2=PFMMSG;
00625  M02S00013.fsema13 ---|                  RETERN(FILEFET,1);
00626  M02S00014.fsema13 ---|                  PF("DEFINE",READNAM,READNAM,"RC",PFMERROR,
00627  M02S00015.fsema13 ---|                    "EM",PFMMSG,"EL","40",0);
00628  M02S00016.fsema13 ---|                  FILEWRITE;
00629  M02S00017.fsema13 ---|                  IF PFMERROR NQ 0 THEN
00630  M02S00018.fsema13 ---|                    BEGIN             # IF DEFINE FAILED #
00631  M02S00019.fsema13 ---|                    PFMMSG=PFMMS2;    # REPLACE ERROR MESSAGE #
00632  M02S00020.fsema13 ---|                    END
00633  M02S00021.fsema13 ---|                  END
00634  M02S00022.fsema13 ---|                END
00635  M02S00023.fsema13 ---|              IF PFMERROR NQ 0 THEN
00636  M02S00024.fsema13 ---|                BEGIN
00637  M02S00025.fsema13 ---|                TMP1=39;
00638  M02S00026.fsema13 ---|                WHYLE C<TMP1,1>PFMMSG EQ " " DO TMP1=TMP1-1;
00639  M02S00027.fsema13 ---|                C<0,1>PFMMSG="(";
00640  M02S00028.fsema13 ---|                C<TMP1,2>PFMMSG=")$";
00641  M02S00029.fsema13 ---|                END
00642  M00S00376.fsemain +++|              END

Seq #  *Modification Id* Act 
----------------------------+
00643  M01S00377.fsema13 ---|            IF NOT DONTPRINT THEN

Seq #  *Modification Id* Act 
----------------------------+
00644  M01S00026.fsema13 +++|            IF PFMERROR NQ 0 THEN

Seq #  *Modification Id* Act 
----------------------------+
00645  M01S00378.fsema13 ---|              BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00027.fsema13 +++|              BEGIN                  # IF FILE NOT MADE PERMANENT #

Seq #  *Modification Id* Act 
----------------------------+
00647  M01S00379.fsema13 ---|              IF PFMERROR EQ 0 THEN TTSTR(" (PERMANENT)$");

Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00380.fsema13 ---|              ELSE TTSTR(" (LOCAL FILE)$");

Seq #  *Modification Id* Act 
----------------------------+
00649  M03S00002.fsema13 ---|              ELSE TTSTR(" (LOCAL)$");

Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00003.fsema13 ---|              ELSE
00651  M02S00004.fsema13 ---|                BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00652  M03S00005.fsema13 ---|                TTSTR(" (LOCAL - COULD NOT BE SAVED)$");

Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00030.fsema13 ---|                TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
00654  M02S00031.fsema13 ---|                TTSTR("               $");
00655  M02S00032.fsema13 ---|                TTSTR(PFMMSG);

Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00006.fsema13 ---|                NOTCHANGED=TRUE;     # SET NOT CHANGED FLAG #
00657  M02S00007.fsema13 ---|                END

Seq #  *Modification Id* Act 
----------------------------+
00658  M01S00381.fsema13 ---|              END

Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00001.fsema13 ---|            ELSE
00660  M02S00002.fsema13 ---|              BEGIN                  # QUIET OPTION #
00661  M02S00003.fsema13 ---|              IF PFMERROR NQ 0 THEN
00662  M02S00004.fsema13 ---|                BEGIN                # IF PFM ERROR, OVERRIDE QUIET #

Seq #  *Modification Id* Act 
----------------------------+
00663  M01S00028.fsema13 +++|              TMP1=39;
00664  M01S00029.fsema13 +++|              WHYLE C<TMP1,1>PFMMSG EQ " " DO TMP1=TMP1-1;
00665  M01S00030.fsema13 +++|              C<0,1>PFMMSG="(";
00666  M01S00031.fsema13 +++|              C<TMP1,2>PFMMSG=")$";
00667  M01S00032.fsema13 +++|              IF DONTPRINT THEN
00668  M01S00033.fsema13 +++|                BEGIN                # IF QUIET OPTION, OVERRIDE #

Seq #  *Modification Id* Act 
----------------------------+
00669  M01S00005.fsema6  +++|                IF NOT INTERACT THEN TTSTR(" $");
00670  M01S00006.fsema6  +++|                TTSTR("FILE: $");
00671  M01S00007.fsema6  +++|                TTLFN(FILENAM[1]);

Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00008.ns2568  ---|                TTSTR(" (LOCAL - COULD NOT BE SAVED)$");

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00033.fsema13 ---|                TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
00674  M02S00034.fsema13 ---|                TTSTR("               $");
00675  M02S00035.fsema13 ---|                TTSTR(PFMMSG);

Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00009.fsema13 ---|                NOTCHANGED=TRUE;     # TRIGGER WARNING MESSAGE #
00677  M02S00010.fsema13 ---|                TTBRK;

Seq #  *Modification Id* Act 
----------------------------+
00678  M01S00011.fsema6  +++|                END

Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00034.fsema13 +++|              TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
00680  M01S00035.fsema13 +++|              TTSTR("               $");
00681  M01S00036.fsema13 +++|              TTSTR(PFMMSG);
00682  M01S00037.fsema13 +++|              NOTCHANGED=TRUE;       # SET NOT CHANGED FLAG #
00683  M01S00038.fsema13 +++|              IF DONTPRINT THEN TTBRK;

Seq #  *Modification Id* Act 
----------------------------+
00684  M01S00012.fsema6  +++|              END

Seq #  *Modification Id* Act 
----------------------------+
00685  M01S00039.fsema13 +++|            ELSE
00686  M01S00040.fsema13 +++|              BEGIN                  # IF FILE WAS MADE PERMANENT #
00687  M01S00041.fsema13 +++|              IF NOT DONTPRINT THEN TTSTR(" (PERMANENT)$");
00688  M01S00042.fsema13 +++|              END

Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00003.fsema1  +++|            END

Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00004.fsema13 ---|          ELSE                       # NOT EXITSAVE #

Seq #  *Modification Id* Act 
----------------------------+
00691  M01S00043.fsema13 +++|          ELSE                       # IF NOT TO BE MADE PERMANENT #

Seq #  *Modification Id* Act 
----------------------------+
00692  M01S00005.fsema1  +++|            BEGIN
00693  M01S00006.fsema1  +++|            IF NOT DONTPRINT THEN

Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00007.fsema13 ---|              BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00695  M01S00044.fsema13 +++|              BEGIN                  # IF NOT QUIET OPTION #

Seq #  *Modification Id* Act 
----------------------------+
00696  M01S00008.fsema1  +++|              IF LOCALFILE(READNAM) THEN TTSTR(" (LOCAL)$");

Seq #  *Modification Id* Act 
----------------------------+
00697  M01S00045.fsema13 +++|              ELSE IF FILINFFT EQ 2 THEN TTSTR(" (QUEUED)$");

Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00009.fsema1  +++|              ELSE TTSTR(" (PERMANENT)$");
00699  M01S00010.fsema1  +++|              END
00700  M00S00382.fsemain +++|            END
00701  M00S00383.fsemain +++|          END
00702  M00S00384.fsemain +++|        IF NOT DONTPRINT THEN TTBRK;
00703  M00S00385.fsemain +++|        POP;
00704  M00S00386.fsemain +++|        END
00705  M00S00387.fsemain +++|      FWDZ;
00706  M00S00388.fsemain +++|      END

Seq #  *Modification Id* Act 
----------------------------+
00707  M01S00016.ns2225  +++|    ZEROCOLOUT=FALSE;
00708  M00S00389.fsemain +++|    END

Seq #  *Modification Id* Act 
----------------------------+
00709  M01S00008.fsema3  +++|
00710  M01S00009.fsema3  +++|    IF NOTCHANGED AND INTERACT THEN  # IF FILE NOT CHANGED #
00711  M01S00010.fsema3  +++|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00011.242l642 ---|      TTLIN("WARNING: ONE OR MORE OF YOUR FILES IS NOW$");
00713  M02S00012.242l642 ---|      TTLIN("TOO LONG TO BE SAVED AND HAS BEEN LEFT AS$");
00714  M02S00013.242l642 ---|      TTLIN("A LOCAL FILE BY THE EDITOR.$");
00715  M02S00014.242l642 ---|      TTLIN(" $");
00716  M02S00015.242l642 ---|      TTSTR("PLEASE ENTER CARRIAGE RETURN TO CONTINUE. $");

Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00005.242l642 +++|      TTLIN("                                        $");

Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00006.fsema6  ---|      TTLIN("WARNING:ONE OR MORE OF YOUR FILES COULD $");
00719  M02S00007.fsema6  ---|      TTLIN("NOT BE SAVED BECAUSE OF YOUR VALIDATION $");
00720  M02S00008.fsema6  ---|      TTLIN("LIMITS (THE FILE IS NOW TOO LONG OR YOU $");
00721  M02S00009.fsema6  ---|      TTLIN("HAVE EXCEEDED YOUR LIMITS FOR NUMBER OF $");
00722  M02S00010.fsema6  ---|      TTLIN("FILES) AND HAS BEEN LEFT LOCAL BY FSE.  $");

Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00013.fsema13 ---|      TTLIN("WARNING:ONE OR MORE OF YOUR FILES COULD NOT $");

Seq #  *Modification Id* Act 
----------------------------+
00724  M04S00014.fsema13 ---|      TTLIN("BE SAVED.  A SYSTEM ERROR HAS OCCURED, OR A $");

Seq #  *Modification Id* Act 
----------------------------+
00725  M03S00001.fsema13 ---|      TTLIN("BE SAVED.  A SYSTEM ERROR HAS OCCURRED, OR A $");

Seq #  *Modification Id* Act 
----------------------------+
00726  M03S00015.fsema13 ---|      TTLIN("USER VALIDATION LIMIT (FOR LENGTH OF A FILE $");
00727  M03S00016.fsema13 ---|      TTLIN("OR FOR THE TOTAL NUMBER OF FILES PERMITTED) $");
00728  M03S00017.fsema13 ---|      TTLIN("HAS BEEN EXCEEDED.  THE FILE LIST ABOVE HAS $");
00729  M03S00018.fsema13 ---|      TTLIN("INDICATED WHICH FILE OR FILES ARE INVOLVED. $");

Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00036.fsema13 ---|      TTLIN("BE SAVED.  $");

Seq #  *Modification Id* Act 
----------------------------+
00731  M01S00046.fsema13 +++|      TTLIN("WARNING:  ONE OR MORE OF YOUR FILES $");
00732  M01S00047.fsema13 +++|      TTLIN("COULD NOT BE SAVED.                 $");

Seq #  *Modification Id* Act 
----------------------------+
00733  M01S00011.242l642 +++|      TTLIN("                                        $");
00734  M01S00012.242l642 +++|      TTLIN("ENTER ...  CARRIAGE RETURN TO CONTINUE. $");

Seq #  *Modification Id* Act 
----------------------------+
00735  M01S00016.fsema3  +++|      PROMPT(QCCKWRD);
00736  M01S00017.fsema3  +++|      END
00737  M00S00390.fsemain +++|
00738  M00S00391.fsemain +++|  END                          # OF FILREBUILD     #
00739  M00S00392.fsemain +++|PAGE                         # INITIATION ROUTINE          #
00740  M00S00393.fsemain +++|
00741  M00S00394.fsemain +++|
00742  M00S00395.fsemain +++|PROC CRACKCTL;
00743  M00S00396.fsemain +++|  BEGIN
00744  M00S00397.fsemain +++|#
00745  M00S00398.fsemain +++|**        CRACKCTL - CRACK CONTROL STATEMENT.
00746  M00S00399.fsemain +++|*
00747  M00S00400.fsemain +++|*         ENTRY  RA+2, RA+3, ETC - PARAMETERS, EITHER FORMAT.
00748  M00S00401.fsemain +++|*                FILENAM[1] - BLANK.

Seq #  *Modification Id* Act 
----------------------------+
00749  M01S00402.ns2623  ---|*                INPTNAM, OUTPNAM, PROCNAM, WORKNAM - DEFAULTS.
00750  M01S00403.ns2623  ---|*                GETPARM, CHARPARM - DEFAULTS.

Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00001.ns2623  +++|*                INPTNAM, OUTPNAM, PROCNAM, WORKNAM, - DEFAULTS.
00752  M01S00002.ns2623  +++|*                GETPARM, CHARPARM, ECHOOFF - DEFAULTS.
00753  M00S00404.fsemain +++|*
00754  M00S00405.fsemain +++|*         EXIT   TRYRESUME - WHETHER RESUMPTION SHOULD BE TRIED.
00755  M00S00406.fsemain +++|*                FILENAM[1] - FILLED IN IF SUPPLIED.
00756  M00S00407.fsemain +++|*                INPTNAM - CHANGED IF SUPPLIED.
00757  M00S00408.fsemain +++|*                OUTPNAM - CHANGED IF SUPPLIED.
00758  M00S00409.fsemain +++|*                PROCNAM - CHANGED IF SUPPLIED.
00759  M00S00410.fsemain +++|*                WORKNAM - CHANGED IF SUPPLIED.
00760  M00S00411.fsemain +++|*                GETPARM - 2 IF "GET" PARAMETER SPECIFIED.
00761  M00S00412.fsemain +++|*                CHARPARM - 1, 2, OR 3 IF SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
00762  M01S00003.ns2623  +++|*                ECHOOFF - TRUE IF *E=NO* SPECIFIED, FALSE IF *E=YES*.
00763  M00S00413.fsemain +++|*
00764  M00S00414.fsemain +++|*         CALLS  PADNAME, MATCHKEY.
00765  M00S00415.fsemain +++|*
00766  M00S00416.fsemain +++|*         USES   TOKENSYM, KEYWDNDX, KEYWDTYPE, TOKENLEN.
00767  M00S00417.fsemain +++|#
00768  M00S00418.fsemain +++|
00769  M00S00419.fsemain +++|  # PARMKEYS AND PARMSW MUST MATCH #

Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00420.ns2623  ---|  DEF MAXPARMS #7#;

Seq #  *Modification Id* Act 
----------------------------+
00771  M01S00004.ns2623  +++|  DEF MAXPARMS #8#;
00772  M00S00421.fsemain +++|  ARRAY PARMKEYS [0:MAXPARMS]; ITEM PARMKEY C(0,0,7) = [ "*NULL*",

Seq #  *Modification Id* Act 
----------------------------+
00773  M01S00422.ns2623  ---|    "FN", "I", "L", "IP", "CS", "OP", "WF" ];

Seq #  *Modification Id* Act 
----------------------------+
00774  M01S00005.ns2623  +++|    "FN", "I", "L", "IP", "CS", "OP", "WF", "E" ];
00775  M00S00423.fsemain +++|  SWITCH KEYPARMSW PSDFLT, PSFILE, PSINP, PSLST, PSPROC,

Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00424.ns2623  ---|                   PSCHAR, PSOP, PSWORK;
00777  M01S00425.ns2623  ---|  SWITCH POSPARMSW PSOP, PSFILE, PSOP, PSINP, PSLST, PSPROC, PSWORK;
00778  M01S00426.ns2623  ---|

Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00006.ns2623  +++|                   PSCHAR, PSOP, PSWORK, PSECHO;
00780  M01S00007.ns2623  +++|  SWITCH POSPARMSW PSOP, PSFILE, PSOP, PSINP, PSLST, PSPROC, PSWORK,
00781  M01S00008.ns2623  +++|                   PSECHO;
00782  M00S00427.fsemain +++|  ITEM TMP1, TMP2, TMP3, TMP4, QUIT B, KEYPARM, POSPARM;
00783  M00S00428.fsemain +++|
00784  M00S00429.fsemain +++|  TRYRESUME=TRUE;
00785  M00S00430.fsemain +++|  KEYPARM=0;
00786  M00S00431.fsemain +++|  POSPARM=0;

Seq #  *Modification Id* Act 
----------------------------+
00787  M01S00432.fsema2  ---|  TMP1=2;
00788  M01S00433.fsema2  ---|  WHYLE MEM[TMP1] NQ 0 AND TMP1 LS O"63" DO

Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00001.fsema2  +++|  FOR TMP1=2 STEP 1 UNTIL 1+B<42,18>MEM[O"64"] DO

Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00434.fsema8  ---|    BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00791  M01S00001.fsema8  +++|    BEGIN                            # UNTIL PARAMETERS EXHAUSTED #
00792  M00S00435.fsemain +++|    TOKENSYM=PADNAME(MEM[TMP1]);
00793  M00S00436.fsemain +++|    IF B<42,18>MEM[TMP1] EQ 2 OR B<42,18>MEM[TMP1] EQ O"54" THEN

Seq #  *Modification Id* Act 
----------------------------+
00794  M01S00437.fsema8  ---|      BEGIN                 # KEYWORD ASSIGNMENT          #
00795  M01S00438.fsema8  ---|      FOR TMP2=0 STEP 1 UNTIL MAXPARMS DO IF TOKENSYM EQ
00796  M01S00439.fsema8  ---|        PARMKEY[TMP2] THEN KEYPARM=TMP2;

Seq #  *Modification Id* Act 
----------------------------+
00797  M01S00002.fsema8  +++|      BEGIN                          # KEYWORD ASSIGNMENT #
00798  M01S00003.fsema8  +++|      IF KEYPARM NQ 0 THEN
00799  M01S00004.fsema8  +++|        BEGIN                        # IF BAD ASSIGNMENT #
00800  M01S00005.fsema8  +++|        MORTAL(" UNRECOGNIZED FSE COMMAND SYNTAX.$");
00801  M01S00006.fsema8  +++|        END
00802  M01S00007.fsema8  +++|      FOR TMP2=0 STEP 1 UNTIL MAXPARMS DO
00803  M01S00008.fsema8  +++|        BEGIN                        # SEARCH FOR MATCH #
00804  M01S00009.fsema8  +++|        IF TOKENSYM EQ PARMKEY[TMP2] THEN KEYPARM=TMP2;
00805  M01S00010.fsema8  +++|        END
00806  M01S00011.fsema8  +++|      IF KEYPARM EQ 0 THEN
00807  M01S00012.fsema8  +++|        BEGIN                        # NO MATCH FOUND #
00808  M01S00013.fsema8  +++|        ERRSTRING = " UNKNOWN FSE OPTION : ";
00809  M01S00014.fsema8  +++|        C<22,7>ERRSTRING = C<0,7>TOKENSYM;
00810  M01S00015.fsema8  +++|        C<29,1>ERRSTRING = "$";
00811  M01S00016.fsema8  +++|        MORTAL(ERRSTRING);
00812  M01S00017.fsema8  +++|        END
00813  M00S00440.fsemain +++|      END

Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00441.fsema8  ---|    ELSE                   # STANDALONE PARAMETER        #
00815  M01S00442.fsema8  ---|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
00816  M01S00018.fsema8  +++|    ELSE
00817  M01S00019.fsema8  +++|      BEGIN                          # PARAMETER #
00818  M00S00443.fsemain +++|      IF KEYPARM NQ 0 THEN GOTO KEYPARMSW[KEYPARM];
00819  M00S00444.fsemain +++|      POSPARM=POSPARM+1;

Seq #  *Modification Id* Act 
----------------------------+
00820  M01S00020.fsema8  +++|      IF POSPARM GR MAXPARMS - 1 THEN
00821  M01S00021.fsema8  +++|        BEGIN                        # IF TOO MANY PARAMETERS #
00822  M01S00022.fsema8  +++|        MORTAL(" TOO MANY FSE COMMAND PARAMETERS.$");
00823  M01S00023.fsema8  +++|        END
00824  M01S00024.fsema8  +++|      TMP2 = B<42,18>MEM[TMP1];
00825  M01S00025.fsema8  +++|      IF TMP2 NQ 0 AND TMP2 NQ 1 AND TMP2 NQ 2 AND TMP2 NQ O"17" THEN
00826  M01S00026.fsema8  +++|        BEGIN                        # IF BAD SYNTAX #
00827  M01S00027.fsema8  +++|        MORTAL(" UNRECOGNIZED FSE COMMAND SYNTAX.$");
00828  M01S00028.fsema8  +++|        END
00829  M00S00445.fsemain +++|      IF B<0,42>MEM[TMP1] NQ 0 THEN GOTO POSPARMSW[POSPARM];
00830  M00S00446.fsemain +++|      GOTO NEXTPARM;
00831  M00S00447.fsemain +++|
00832  M00S00448.fsemain +++|PSFILE:
00833  M00S00449.fsemain +++|      FILENAM[1]=C<0,7>MEM[TMP1];
00834  M00S00450.fsemain +++|      TRYRESUME=FALSE;
00835  M00S00451.fsemain +++|      GOTO NEXTPARM;
00836  M00S00452.fsemain +++|
00837  M00S00453.fsemain +++|PSINP:
00838  M00S00454.fsemain +++|      INPTNAM=C<0,7>MEM[TMP1];
00839  M00S00455.fsemain +++|      GOTO NEXTPARM;
00840  M00S00456.fsemain +++|
00841  M00S00457.fsemain +++|PSLST:
00842  M00S00458.fsemain +++|      OUTPNAM=C<0,7>MEM[TMP1];
00843  M00S00459.fsemain +++|      GOTO NEXTPARM;
00844  M00S00460.fsemain +++|
00845  M00S00461.fsemain +++|PSPROC:
00846  M00S00462.fsemain +++|      PROCNAM=C<0,7>MEM[TMP1];
00847  M00S00463.fsemain +++|      GOTO NEXTPARM;
00848  M00S00464.fsemain +++|
00849  M00S00465.fsemain +++|PSWORK:
00850  M00S00466.fsemain +++|      WORKNAM=C<0,7>MEM[TMP1];
00851  M00S00467.fsemain +++|      GOTO NEXTPARM;
00852  M00S00468.fsemain +++|

Seq #  *Modification Id* Act 
----------------------------+
00853  M01S00009.ns2623  +++|PSECHO:
00854  M01S00010.ns2623  +++|      FOR TOKENLEN=7 STEP -1 WHILE TOKENLEN GR 0 DO
00855  M01S00011.ns2623  +++|        BEGIN
00856  M01S00012.ns2623  +++|        IF C<TOKENLEN-1,1>TOKENSYM NQ " " THEN GOTO PSECH2;
00857  M01S00013.ns2623  +++|        END
00858  M01S00014.ns2623  +++|PSECH2:
00859  M01S00015.ns2623  +++|      KEYWDNDX=-1;
00860  M01S00016.ns2623  +++|      KEYWDTYPE=3;
00861  M01S00017.ns2623  +++|      MATCHKEY(TMP2);
00862  M01S00018.ns2623  +++|      IF KEYWDNDX EQ KEYST"STNO" THEN ECHOOFF=TRUE;
00863  M01S00019.ns2623  +++|      ELSE IF KEYWDNDX EQ KEYST"SYES" THEN ECHOOFF=FALSE;
00864  M01S00020.ns2623  +++|      ELSE MORTAL(" UNKNOWN FSE COMMAND OPTION.$");
00865  M01S00021.ns2623  +++|      GOTO NEXTPARM;
00866  M01S00022.ns2623  +++|
00867  M00S00469.fsemain +++|PSDFLT:  PSCHAR:  PSOP:
00868  M00S00470.fsemain +++|      FOR TOKENLEN=7 STEP -1 WHILE TOKENLEN GR 0 DO
00869  M00S00471.fsemain +++|        BEGIN
00870  M00S00472.fsemain +++|        IF C<TOKENLEN-1,1>TOKENSYM NQ " " THEN GOTO PSOP2;
00871  M00S00473.fsemain +++|        END
00872  M00S00474.fsemain +++|PSOP2:
00873  M00S00475.fsemain +++|      KEYWDNDX=-1;
00874  M00S00476.fsemain +++|      KEYWDTYPE=4;
00875  M00S00477.fsemain +++|      MATCHKEY(TMP2);
00876  M00S00478.fsemain +++|      IF KEYWDNDX EQ KEYST"XGET" THEN GETPARM=2;
00877  M00S00479.fsemain +++|      ELSE IF KEYWDNDX EQ KEYST"XDIS" OR KEYWDNDX EQ KEYST"XNOR"
00878  M00S00480.fsemain +++|        THEN CHARPARM=1;
00879  M00S00481.fsemain +++|      ELSE IF KEYWDNDX EQ KEYST"XASC" THEN CHARPARM=2;
00880  M00S00482.fsemain +++|      ELSE IF KEYWDNDX EQ KEYST"XASC8" OR KEYWDNDX EQ KEYST"XA8"
00881  M00S00483.fsemain +++|        THEN CHARPARM=3;
00882  M00S00484.fsemain +++|      ELSE MORTAL(" UNKNOWN FSE COMMAND OPTION.$");
00883  M00S00485.fsemain +++|      TOKENSYM=C<TMP2,10-TMP2>TOKENSYM;
00884  M00S00486.fsemain +++|      TOKENLEN=TOKENLEN-TMP2;
00885  M00S00487.fsemain +++|      IF TOKENLEN GR 0 THEN GOTO PSOP2;
00886  M00S00488.fsemain +++|
00887  M00S00489.fsemain +++|NEXTPARM:
00888  M00S00490.fsemain +++|      KEYPARM=0;
00889  M00S00491.fsemain +++|
00890  M00S00492.fsemain +++|      END

Seq #  *Modification Id* Act 
----------------------------+
00891  M01S00493.fsema2  ---|    TMP1=TMP1+1;
00892  M00S00494.fsemain +++|    END
00893  M00S00495.fsemain +++|
00894  M00S00496.fsemain +++|  END                         # OF CRACKCTL       #
00895  M00S00497.fsemain +++|
00896  M00S00498.fsemain +++|
00897  M00S00499.fsemain +++|PROC BLDINIT;
00898  M00S00500.fsemain +++|  BEGIN
00899  M00S00501.fsemain +++|#
00900  M00S00502.fsemain +++|**        BLDINIT - INITIALIZE EDIT SESSION.
00901  M00S00503.fsemain +++|*
00902  M00S00504.fsemain +++|*         ENTRY  EVERYTHING DEFAULTED.
00903  M00S00505.fsemain +++|*

Seq #  *Modification Id* Act 
----------------------------+
00904  M01S00506.fsema15 ---|*         EXIT   OLD SESION RESUMED OR NEW SESSION STARTED.

Seq #  *Modification Id* Act 
----------------------------+
00905  M01S00001.fsema15 +++|*         EXIT   OLD SESSION RESUMED OR NEW SESSION STARTED.
00906  M00S00507.fsemain +++|*                ERRSTRING - ANNOUNCEMENT OF THE DAY.
00907  M00S00508.fsemain +++|*                P<CORE> - ZERO.
00908  M00S00509.fsemain +++|*                NUMMODE - CONTROLS EMPTY FILE SEQUENCE ASSUMPTION.
00909  M00S00510.fsemain +++|*                P<FET,OBF,READLST,BFPRU,DISK,FILEBUF> - INIT.
00910  M00S00511.fsemain +++|*                CONTROL STATEMENT SCANNED.
00911  M00S00512.fsemain +++|*                FILENAM[1] - FIRST FILE TO EDIT.
00912  M00S00513.fsemain +++|*                INPTNAM, OUTPNAM, WORKNAM, PROCNAM - FILE NAMES.
00913  M00S00514.fsemain +++|*                IORESUMED - TRUE.
00914  M00S00515.fsemain +++|*                NULLINPUT - WHETHER THERE IS ANY INPUT FILE.
00915  M00S00516.fsemain +++|*                INTERACT - WHETHER TRUE INTERACTIVE SESSION.
00916  M00S00517.fsemain +++|*                ALLASCII - WHETHER DISPLAY CODE OR 6/12 ASCII DEFAULT.
00917  M00S00518.fsemain +++|*                TTYINPUT - WHETHER INPUT IS FROM A TERMINAL.
00918  M00S00519.fsemain +++|*                WORKFILE ACCESS VALIDATED.
00919  M00S00520.fsemain +++|*                DEFAULT PROCEDURE FILE ACCESSED IF NEEDED.
00920  M00S00521.fsemain +++|*                SINGLEONLY - WHETHER TO SUPPRESS MULTI-USER.
00921  M00S00522.fsemain +++|*                CMDLIN - CLEARED OR BUILT-IN FIRST COMMAND.
00922  M00S00523.fsemain +++|*                SCANPOS, TOKENPOS - SET TO START SYNTAX SCAN.
00923  M00S00524.fsemain +++|*                SMALLFIELD - TRUE, AND FIELD LENGTH REDUCED.
00924  M00S00525.fsemain +++|*                USER BREAKS DISABLED IF INTERACT.
00925  M00S00526.fsemain +++|*
00926  M00S00527.fsemain +++|*         MACROS SETCHAR.
00927  M00S00528.fsemain +++|*
00928  M00S00529.fsemain +++|*         CALLS  GETSS, GETJO, CRACKCTL, TSTATUS, TTEQUIP,
00929  M00S00530.fsemain +++|*                VDTOPN, TTINIT, WRITEABLE, FATAL, VFYFILE,
00930  M00S00531.fsemain +++|*                ASSGNFILE, MAKEFET, GET, READ, LOCALFILE,
00931  M00S00532.fsemain +++|*                RESUMEFILES, FILBUILD, PAUSEIO, FLDLEN, STARTCMD,
00932  M00S00533.fsemain +++|*                DISTCON.
00933  M00S00534.fsemain +++|*
00934  M00S00535.fsemain +++|*         USES   PFMFET, CHARPARM, GETPARM, DSKSIZ, SETCMD(INTERNAL).
00935  M00S00536.fsemain +++|#
00936  M00S00537.fsemain +++|  ITEM TMP1, TMP2, TMP3;
00937  M00S00538.fsemain +++|

Seq #  *Modification Id* Act 
----------------------------+
00938  M01S00539.v23l617 ---|
00939  M01S00540.v23l617 ---|  PROC SETCMD(STR,LEN,OFFSET);
00940  M01S00541.v23l617 ---|    BEGIN
00941  M01S00542.v23l617 ---|    ITEM STR C(40);
00942  M01S00543.v23l617 ---|    ITEM LEN, OFFSET;
00943  M01S00544.v23l617 ---|    ITEM TMP1, TMP2;
00944  M01S00545.v23l617 ---|    TMP2=0;
00945  M01S00546.v23l617 ---|    FOR TMP1=1 STEP 1 UNTIL LEN DO
00946  M01S00547.v23l617 ---|      BEGIN
00947  M01S00548.v23l617 ---|      C<9,1>TMP2=C<TMP1-1,1>STR;
00948  M01S00549.v23l617 ---|      IF TMP2 EQ 0 THEN C<9,1>TMP2=" ";
00949  M01S00550.v23l617 ---|      SETCHAR(CMDLINE,OFFSET+TMP1-1,TMP2);
00950  M01S00551.v23l617 ---|      END
00951  M01S00552.v23l617 ---|    END                              # OF SETCMD #
00952  M01S00553.v23l617 ---|
00953  M01S00554.v23l617 ---|
00954  M01S00555.v23l617 ---|  # MAIN CODE STARTS HERE #
00955  M01S00556.v23l617 ---|
00956  M00S00557.fsemain +++|  ERRSTRING="NOS FULL SCREEN EDITOR$";
00957  M00S00558.fsemain +++|  P<CORE>=0;

Seq #  *Modification Id* Act 
----------------------------+
00958  M01S00001.ns2167  +++|  IF B<00,01>MEM[CSMR] EQ 0 THEN     # IF SYSTEM CHARACTER SET = 63 #
00959  M01S00002.ns2167  +++|    BEGIN
00960  M01S00003.ns2167  +++|    XLTINTXP[O"00"]=O"4045";         # COLON = PERCENT #
00961  M01S00004.ns2167  +++|    XLTINTXP[O"63"]=O"4072";         # PERCENT = COLON #
00962  M01S00005.ns2167  +++|    XLTDSPXP[O"00"]=O"4045";         # COLON = PERCENT #
00963  M01S00006.ns2167  +++|    XLTDSPXP[O"63"]=O"4072";         # PERCENT = COLON #
00964  M01S00007.ns2167  +++|    XLTDSPINT[O"00"]=O"0063";        # COLON = PERCENT #
00965  M01S00008.ns2167  +++|    XLTDSPINT[O"63"]=O"0000";        # PERCENT = COLON #
00966  M01S00009.ns2167  +++|    XLTXPINT[O"45"]=O"0000";         # PERCENT = COLON #
00967  M01S00010.ns2167  +++|    XLTXPINT[O"72"]=O"0063";         # COLON = PERCENT #
00968  M01S00011.ns2167  +++|    XLTINTDSP[O"00"]=O"0055";        # COLON = BLANK #
00969  M01S00012.ns2167  +++|    END
00970  M00S00559.fsemain +++|  NUMMODE=NUMST"INTERPRET";
00971  M00S00560.fsemain +++|  GETSS(TMP1);
00972  M00S00561.fsemain +++|  GETJO(ORIGIN);
00973  M00S00562.fsemain +++|  IF TMP1 EQ BASIC THEN NUMMODE=NUMST"PREFER";
00974  M00S00563.fsemain +++|  IF TMP1 EQ FORTRAN OR TMP1 EQ FTNTS THEN
00975  M00S00564.fsemain +++|    BEGIN
00976  M00S00565.fsemain +++|    NUMMODE=NUMST"PREFER";
00977  M00S00566.fsemain +++|    BLANKS=0;
00978  M00S00567.fsemain +++|    END
00979  M00S00568.fsemain +++|  P<FET>=LOC(SNGLFET);
00980  M00S00569.fsemain +++|  P<OBF>=LOC(SNGLOBF);
00981  M00S00570.fsemain +++|  P<READLST>=LOC(SNGLLST);
00982  M00S00571.fsemain +++|  P<BFPRU>=LOC(SNGLPRU);
00983  M00S00572.fsemain +++|  P<DISK>=LOC(WORKBUF);
00984  M00S00573.fsemain +++|  P<FILEBUF>=LOC(BUILDBF);
00985  M00S00574.fsemain +++|  LINE[0]=NULLIN;
00986  M00S00575.fsemain +++|  CMDLINE[0]=NULLIN;
00987  M00S00576.fsemain +++|  TTYLINE[0]=NULLIN;
00988  M00S00577.fsemain +++|  CRACKCTL;
00989  M00S00578.fsemain +++|
00990  M00S00579.fsemain +++|  IF OUTPNAM EQ DEFOUTNAM AND FILENAM[1] EQ DEFOUTNAM
00991  M00S00580.fsemain +++|    THEN B<0,42>OUTPNAM=0;
00992  M00S00581.fsemain +++|  IF OUTPNAM EQ NULLNAM THEN B<0,42>OUTPNAM=0;
00993  M00S00582.fsemain +++|  IF INPTNAM EQ NULLNAM THEN
00994  M00S00583.fsemain +++|    BEGIN
00995  M00S00584.fsemain +++|    B<0,42>INPTNAM=0;
00996  M00S00585.fsemain +++|    NULLINPUT=TRUE;
00997  M00S00586.fsemain +++|    END
00998  M00S00587.fsemain +++|  IF FILENAM[1] EQ NULLNAM
00999  M00S00588.fsemain +++|    OR (GETPARM EQ 3 AND NOT TRYRESUME) THEN TRYRESUME=TRUE;
01000  M00S00589.fsemain +++|
01001  M00S00590.fsemain +++|  INTERACT=FALSE;
01002  M00S00591.fsemain +++|  IF ORIGIN EQ TXOT THEN
01003  M00S00592.fsemain +++|    BEGIN
01004  M00S00593.fsemain +++|    INTERACT=TRUE;
01005  M00S00594.fsemain +++|    TSTATUS(TSTATAREA);
01006  M00S00595.fsemain +++|    FORMERASCII=CURRENTASC;
01007  M00S00596.fsemain +++|    ALLASCII=INITASCII;
01008  M00S00597.fsemain +++|    END
01009  M00S00598.fsemain +++|  TTYINPUT=INTERACT AND TTEQUIP(INPTNAM);

Seq #  *Modification Id* Act 
----------------------------+
01010  M01S00599.ns2132  ---|  INTERACT=INTERACT AND TTYINPUT AND TTEQUIP(OUTPNAM);

Seq #  *Modification Id* Act 
----------------------------+
01011  M01S00001.ns2132  +++|  TTYOUTPUT=INTERACT AND TTEQUIP(OUTPNAM);
01012  M01S00002.ns2132  +++|  INTERACT=INTERACT AND TTYINPUT AND TTYOUTPUT;
01013  M00S00600.fsemain +++|  VDTOPN;
01014  M00S00601.fsemain +++|  TTINIT;
01015  M00S00602.fsemain +++|  IF NOT (WRITEABLE(WORKNAM) AND WRITEABLE("ZZZMOVE"))

Seq #  *Modification Id* Act 
----------------------------+
01016  M01S00603.fsema4  ---|    THEN MORTAL(" FILE MUST BE ON DISK.$");

Seq #  *Modification Id* Act 
----------------------------+
01017  M01S00001.fsema4  +++|    THEN MORTAL(" WORKFILE MUST BE WRITABLE.$");

Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00001.fsema16 ---|  WORKORG = WORKNAM;                 # SAVE FOR USE IN &Z MICRO #

Seq #  *Modification Id* Act 
----------------------------+
01019  M01S00604.fsema15 ---|  VFYFILE(FILENAM[1],-1);

Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00002.fsema15 +++|  IF FILENAM[1] NQ " " THEN VFYFILE(FILENAM[1],-1);
01021  M00S00605.fsemain +++|
01022  M00S00606.fsemain +++|  IF NOT ASSGNFILE(PROCNAM) THEN
01023  M00S00607.fsemain +++|    BEGIN
01024  M00S00608.fsemain +++|    PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,0);
01025  M00S00609.fsemain +++|    IF PROCNAM EQ "FSEPROC" AND PFMERROR NQ 0 THEN
01026  M00S00610.fsemain +++|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01027  M01S00611.ns2247  ---|      PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,"UN",HELPUSERNUM,0);

Seq #  *Modification Id* Act 
----------------------------+
01028  M01S00001.ns2247  +++|  PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,"UN",HELPUSERNUM,"PN","0",0);
01029  M00S00612.fsemain +++|      END
01030  M00S00613.fsemain +++|    IF PFMERROR NQ 0 THEN
01031  M00S00614.fsemain +++|      BEGIN
01032  M00S00615.fsemain +++|      MAKEFET(PFMFET,PROCNAM,UTILBUF,MINIBUFSIZ);
01033  M00S00616.fsemain +++|      READ(PFMFET,1);       # ASSIGN NULL FILE #
01034  M00S00617.fsemain +++|      END
01035  M00S00618.fsemain +++|    END
01036  M00S00619.fsemain +++|
01037  M00S00620.fsemain +++|  DSKSIZ=INIDSKSIZ;            # NOW BUILD OR RESUME         #
01038  M00S00621.fsemain +++|
01039  M00S00622.fsemain +++|  # NOTE RESUMEFILES WILL CLEAR TRYRESUME IF UNABLE, THUS IT #
01040  M00S00623.fsemain +++|  # IS NECESSARY TO INTERROGATE TRYRESUME AGAIN AFTERWARDS #
01041  M00S00624.fsemain +++|  IF TRYRESUME THEN RESUMEFILES;
01042  M00S00625.fsemain +++|  IF NOT TRYRESUME THEN
01043  M00S00626.fsemain +++|    BEGIN                    # NO RESUME ATTEMPT OR ATTEMPT FAILED #

Seq #  *Modification Id* Act 
----------------------------+
01044  M01S00627.ns2132  ---|    IF FILENAM[1] EQ " " THEN

Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00003.ns2132  +++|    IF FILENAM[1] EQ " " AND INTERACT THEN
01046  M00S00628.fsemain +++|      BEGIN
01047  M00S00629.fsemain +++|      TTSTR("WHICH FILE$");
01048  M00S00630.fsemain +++|      PROMPT(QCCKWRD);
01049  M00S00631.fsemain +++|      CONVIN(TTYLIN,2);
01050  M00S00632.fsemain +++|      TRIM(TTYLIN,0);
01051  M00S00633.fsemain +++|      TMP3=0;
01052  M00S00634.fsemain +++|      FOR TMP1=0 STEP 1 UNTIL LENGTH(TTYLIN)-1 DO
01053  M00S00635.fsemain +++|        BEGIN
01054  M00S00636.fsemain +++|        GETCHAR(TTYLINE,TMP1,TMP2);
01055  M00S00637.fsemain +++|        # CODE ASSUMES INTERNAL CHARSET EQUALS DISPLAY CODE #
01056  M00S00638.fsemain +++|        CONTROL IFNQ CLETTERA,1; DEFERROR; CONTROL FI;
01057  M00S00639.fsemain +++|        CONTROL IFNQ CDIGIT0,O"33"; DEFERROR; CONTROL FI;
01058  M00S00640.fsemain +++|        IF TMP2 GQ CLOWERA AND TMP2 LQ CLOWERZ
01059  M00S00641.fsemain +++|          THEN TMP2=TMP2-CLOWERA+CLETTERA;
01060  M00S00642.fsemain +++|        IF NOT DELIMITER[TMP2] AND TMP3 LQ 6 THEN
01061  M00S00643.fsemain +++|          BEGIN
01062  M00S00644.fsemain +++|          C<TMP3,1>FILENAM[1]=C<9,1>TMP2;
01063  M00S00645.fsemain +++|          TMP3=TMP3+1;
01064  M00S00646.fsemain +++|          END
01065  M00S00647.fsemain +++|        ELSE IF TMP2 NQ CBLANK THEN MORTAL("INVALID FILE NAME$");
01066  M00S00648.fsemain +++|        END

Seq #  *Modification Id* Act 
----------------------------+
01067  M01S00649.ns2132  ---|      IF FILENAM[1] EQ " " THEN
01068  M01S00650.ns2132  ---|        BEGIN
01069  M01S00651.ns2132  ---|        MORTAL(" NO FILE NAME ON FSE COMMAND.$");
01070  M01S00652.ns2132  ---|        END
01071  M00S00653.fsemain +++|      VFYFILE(FILENAM[1],-1);

Seq #  *Modification Id* Act 
----------------------------+
01072  M01S00004.ns2132  +++|      END
01073  M01S00005.ns2132  +++|    IF FILENAM[1] EQ " " THEN
01074  M01S00006.ns2132  +++|      BEGIN
01075  M01S00007.ns2132  +++|      MORTAL(" NO FILE NAME ON FSE COMMAND.$");
01076  M00S00654.fsemain +++|      END
01077  M00S00655.fsemain +++|    FILBUILD;

Seq #  *Modification Id* Act 
----------------------------+
01078  M01S00656.v23l617 ---|    FOR TMP1=0 STEP 1 UNTIL 27 DO SETCHAR(CMDLINE,TMP1,CBLANK);
01079  M01S00657.v23l617 ---|    SETCHAR(CMDLINE,28,CENDLINE);

Seq #  *Modification Id* Act 
----------------------------+
01080  M01S00042.v23l617 +++|    FOR TMP1=0 STEP 1 UNTIL 20 DO SETCHAR(CMDLINE,TMP1,CBLANK);
01081  M01S00043.v23l617 +++|    SETCHAR(CMDLINE,21,CENDLINE);

Seq #  *Modification Id* Act 
----------------------------+
01082  M01S00658.v23l617 ---|    # START OF MODIFY CONDITIONAL SEQUENCE #
01083  M01S00659.v23l617 ---|*IF UNDEF,RETRO
01084  M00S00660.fsemain +++|    IF INTERACT THEN

Seq #  *Modification Id* Act 
----------------------------+
01085  M01S00661.ns2404  ---|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00007.ns2404  +++|      BEGIN                          # IF INTERACTIVE #
01087  M00S00662.fsemain +++|      VDTGSL(TMP1,TMP2);             # GET SCREEN/LINE MODE #
01088  M00S00663.fsemain +++|      IF TMP2 NQ 0 THEN              # SCREEN MODE #
01089  M00S00664.fsemain +++|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01090  M01S00665.v23l617 ---|        VDTGTN(TMP1,TMP2);           # GET TERMINAL NAME #
01091  M01S00666.v23l617 ---|        SETCMD("SET SCREEN ",11,0);  # CONSTRUCT SETSCREEN COMMAND #
01092  M01S00667.v23l617 ---|        SETCMD(TMP2,7,11);
01093  M01S00668.v23l617 ---|        SETCMD(";",1,18);

Seq #  *Modification Id* Act 
----------------------------+
01094  M01S00044.v23l617 +++|        SETCMD("SET SCREEN",10,0);   # CONSTRUCT SETSCREEN COMMAND #
01095  M01S00045.v23l617 +++|        SETCMD(";",1,10);
01096  M00S00669.fsemain +++|        END

Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00001.ns2139  +++|      ELSE                           # PUT OUT HEADER MESSAGE #
01098  M01S00002.ns2139  +++|        BEGIN
01099  M01S00003.ns2139  +++|        TTLIN(ERRSTRING);
01100  M01S00004.ns2139  +++|        ERRSTRING=" $";
01101  M01S00005.ns2139  +++|        END

Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00008.ns2404  +++|      SETCMD("-STARTUP",8,12);       # ADD "-STARTUP" COMMAND #

Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00006.ns2139  +++|      END

Seq #  *Modification Id* Act 
----------------------------+
01104  M02S00007.ns2404  ---|    ELSE                             # PUT OUT HEADER MESSAGE #
01105  M02S00008.ns2404  ---|      BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01106  M01S00009.ns2404  +++|    ELSE
01107  M01S00010.ns2404  +++|      BEGIN                          # BATCH MODE #
01108  M01S00011.ns2404  +++|      TTSTR(" $");                   # PUT OUT SHIFTED HEADER MESSAGE #

Seq #  *Modification Id* Act 
----------------------------+
01109  M01S00009.ns2139  +++|      TTLIN(ERRSTRING);
01110  M01S00010.ns2139  +++|      ERRSTRING=" $";

Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00012.ns2404  +++|      SETCMD("-STARTUP",8,0);        # "-STARTUP" COMMAND #
01112  M00S00670.fsemain +++|      END

Seq #  *Modification Id* Act 
----------------------------+
01113  M01S00001.ns2622  +++|    FLOAT = TRUE;                    # CLEAR *SET NUMBERS NONE* #

Seq #  *Modification Id* Act 
----------------------------+
01114  M02S00046.ns2404  ---|    SETCMD("-STARTUP",8,12);         # ADD "-STARTUP" COMMAND #

Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00671.v23l617 ---|*ENDIF

Seq #  *Modification Id* Act 
----------------------------+
01116  M02S00011.v23l617 ---|*IF DEF,RETRO
01117  M02S00012.v23l617 ---|    TTLIN(ERRSTRING);
01118  M02S00013.v23l617 ---|    ERRSTRING=" $";
01119  M02S00014.v23l617 ---|*ENDIF

Seq #  *Modification Id* Act 
----------------------------+
01120  M01S00672.v23l617 ---|    # END OF MODIFY CONDITIONAL SEQUENCE #
01121  M01S00673.v23l617 ---|    SETCMD("-STARTUP",8,20);         # ADD "-STARTUP" COMMAND #
01122  M00S00674.fsemain +++|    END
01123  M00S00675.fsemain +++|
01124  M00S00676.fsemain +++|  PAUSEIO;                   # TO ACCEPT NEW DSKSIZ        #
01125  M00S00677.fsemain +++|  DSKSIZ=DISKSIZE;
01126  M00S00678.fsemain +++|  FLDLEN(LOC(WORKBUF)+DSKSIZ+4);
01127  M00S00679.fsemain +++|  SMALLFIELD=TRUE;
01128  M00S00680.fsemain +++|  STARTCMD;
01129  M00S00681.fsemain +++|  IF INTERACT THEN DISTCON(USRBRK);
01130  M00S00682.fsemain +++|

Seq #  *Modification Id* Act 
----------------------------+
01131  M01S00001.fsema16 +++|  WORKORG = WORKNAM;                 # SAVE FOR USE IN &Z MICRO #
01132  M00S00683.fsemain +++|  IF NOT LOCALFILE(WORKNAM) THEN SINGLEONLY=TRUE;
01133  M00S00684.fsemain +++|
01134  M00S00685.fsemain +++|  IF PALAST[0] GR MAXLMULTI   OR   (NOT INTERACT)   OR
01135  M00S00686.fsemain +++|    B<41,1>MEM[LWPR] EQ 0   OR   TSTATUSTN GR MAXCONNECT
01136  M00S00687.fsemain +++|    THEN SINGLEONLY=TRUE;
01137  M00S00688.fsemain +++|
01138  M00S00689.fsemain +++|  END                          # OF BLDINIT       #
01139  M00S00690.fsemain +++|PAGE                         # TERMINATION ROUTINE         #
01140  M00S00691.fsemain +++|
01141  M00S00692.fsemain +++|PROC BLDTERM;
01142  M00S00693.fsemain +++|  BEGIN
01143  M00S00694.fsemain +++|#
01144  M00S00695.fsemain +++|**        BLDTERM - TERMINATE EDIT SESSION.
01145  M00S00696.fsemain +++|*
01146  M00S00697.fsemain +++|*         ENTRY  PAUSEIO MUST HAVE BEEN CALLED TO IDLE WORKIO.
01147  M00S00698.fsemain +++|*                EXITEXCST, TTYLIN - USER'S CONTROL STATEMENT.
01148  M00S00699.fsemain +++|*
01149  M00S00700.fsemain +++|*         EXIT   ALL FILES REWRITTEN AS APPROPRIATE.
01150  M00S00701.fsemain +++|*                FIELD LENGTH ENLARGED.
01151  M00S00702.fsemain +++|*                WORKFILE HAS NO-AUTO-DROP STATUS.
01152  M00S00703.fsemain +++|*                TERMINAL OUTPUT DRAINED FROM BUFFERS.
01153  M00S00704.fsemain +++|*                IAF CHARACTER SET RESTORED.
01154  M00S00705.fsemain +++|*                B-DISPLAY MESSAGE CLEARED.
01155  M00S00706.fsemain +++|*                USER-SPECIFIED CONTROL STATEMENT INVOKED.
01156  M00S00707.fsemain +++|*

Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00708.ns2206  ---|*         CALLS  FLDLEN, FILREBUILD, SETNAD, TTSYNC, VDTCLO,
01158  M01S00709.ns2206  ---|*                SETCSET, MESSAGE, CONVOUT, EXCST, ENDRUN.

Seq #  *Modification Id* Act 
----------------------------+
01159  M01S00002.ns2206  +++|*         CALLS  CONVOUT, DISSJ, ENDRUN, EXCST, FILREBUILD, FLDLEN,
01160  M01S00003.ns2206  +++|*                MESSAGE, SETCSET, SETNAD, TTSYNC, VDTCLO.
01161  M00S00710.fsemain +++|*
01162  M00S00711.fsemain +++|*         USES   TMPLIN.
01163  M00S00712.fsemain +++|#

Seq #  *Modification Id* Act 
----------------------------+
01164  M01S00713.v23l617 ---|*IF UNDEF,RETRO
01165  M00S00714.fsemain +++|  IF ACCTPRU NQ 0 THEN               # ACCOUNT FOR MULTI USER WORK #
01166  M00S00715.fsemain +++|    BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01167  M01S00004.ns2206  +++|    DISSJ(3);                        # ENABLE SSJ= #
01168  M00S00716.fsemain +++|    SETAUC(ACCTCIO,ACCTPRU,ACCTOUT);  # COMPUTE AND APPLY CHARGES #

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00005.ns2206  +++|    DISSJ(2);                        # DISABLE SSJ= #
01170  M00S00717.fsemain +++|
01171  M00S00718.fsemain +++|    # CLEAR ACCUMULATORS IN CASE THIS SESSION IS RESUMED. #
01172  M00S00719.fsemain +++|
01173  M00S00720.fsemain +++|    ACCTPRU=0;
01174  M00S00721.fsemain +++|    ACCTCIO=0;
01175  M00S00722.fsemain +++|    ACCTTRANS=0;
01176  M00S00723.fsemain +++|    ACCTOUT=0;
01177  M00S00724.fsemain +++|    END

Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00725.v23l617 ---|*ENDIF
01179  M00S00726.fsemain +++|  DSKSIZ=INIDSKSIZ;
01180  M00S00727.fsemain +++|  FLDLEN(LOC(MAXADDR)+4);
01181  M00S00728.fsemain +++|  SMALLFIELD=FALSE;
01182  M00S00729.fsemain +++|  FILREBUILD;                # CANNOT ALTER WORKFILE AFTER THIS      #

Seq #  *Modification Id* Act 
----------------------------+
01183  M01S00730.v23l617 ---|  # START OF MODIFY CONDITIONAL SEQUENCE #
01184  M01S00731.v23l617 ---|*IF UNDEF,RETRO
01185  M00S00732.fsemain +++|  SETNAD(FET);

Seq #  *Modification Id* Act 
----------------------------+
01186  M01S00733.v23l617 ---|*ENDIF
01187  M01S00734.v23l617 ---|  # END OF MODIFY CONDITIONAL SEQUENCE #
01188  M00S00735.fsemain +++|  TTSYNC;
01189  M00S00736.fsemain +++|  VDTCLO(0);
01190  M00S00737.fsemain +++|  SETCSET(FORMERASCII);
01191  M00S00738.fsemain +++|  MESSAGE(0,1,1);
01192  M00S00739.fsemain +++|  IF EXITEXCST THEN
01193  M00S00740.fsemain +++|    BEGIN
01194  M00S00741.fsemain +++|    CONVOUT(TTYLIN,1);
01195  M00S00742.fsemain +++|    EXCST(TMPLIN);
01196  M00S00743.fsemain +++|    END
01197  M00S00744.fsemain +++|  ELSE ENDRUN;
01198  M00S00745.fsemain +++|
01199  M00S00746.fsemain +++|  END                          # OF BLDTERM       #
01200  M00S00747.fsemain +++|
01201  M00S00748.fsemain +++|
01202  M00S00749.fsemain +++|END TERM