User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:fsemain

Deck FSEMAIN

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.fsemain +++|PROC FSEMAIN;
00002  M01S00002.fsemain +++|BEGIN
00003  M01S00003.fsemain +++|
00004  M01S00004.fsemain +++|#
00005  M01S00005.fsemain +++|***       FSEMAIN -- FILE-BUILD/CTL-CRACK OVERLAY
00006  M01S00006.fsemain +++|*
Line S00007 Modification History
M01 (Added by) fsemain
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COPYRIGHT CONTROL DATA CORPORATION, 1983.
00008  M01S00001.281l803 +++|*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.fsemain +++|*
00010  M01S00009.fsemain +++|*         FSEMAIN PERFORMS CONTROL CARD SCANNING, INITIALIZTION
00011  M01S00010.fsemain +++|*         OF THE EDITOR AND WORKFILE, RESUMPTION OF PREVIOUS WORK
00012  M01S00011.fsemain +++|*         FILES, AND INITIAL/FINAL COPYING OF FILES.  IF THE EDITOR
00013  M01S00012.fsemain +++|*         IS CONVERTED TO AN OVERLAY STRUCTURE AT A FUTURE DATE,
00014  M01S00013.fsemain +++|*         THIS MODULE WOULD BE A CANDIDATE FOR AN OVERLAY.  THIS
00015  M01S00014.fsemain +++|*         MODULE EXISTS ONLY IN THE SINGLE-USER VERSION OF THE
00016  M01S00015.fsemain +++|*         EDITOR, SO IT IS PROGRAMMED NON-REENTRANTLY.
00017  M01S00016.fsemain +++|#
00018  M01S00017.fsemain +++|
00019  M01S00018.fsemain +++|  DEF LISTCON #0#;
00020  M01S00019.fsemain +++|
00021  M01S00020.fsemain +++|CONTROL EJECT;                 # UNIVERSAL DECLARES #
00022  M01S00021.fsemain +++|*IFCALL SINGLE,COMFSGL
00023  M01S00022.fsemain +++|*IFCALL ONLY,COMFONL
00024  M01S00023.fsemain +++|*IFCALL MULTI,COMFMLT
00025  M01S00024.fsemain +++|*CALL COMFFSE
00026  M01S00025.fsemain +++|
00027  M01S00026.fsemain +++|                             # EXTERNALS         #
00028  M01S00027.fsemain +++|
00029  M01S00028.fsemain +++|XDEF PROC BLDINIT;
00030  M01S00029.fsemain +++|XDEF PROC BLDTERM;
00031  M01S00030.fsemain +++|
00032  M01S00031.fsemain +++|XREF
00033  M01S00032.fsemain +++|  BEGIN
00034  M01S00033.fsemain +++|*CALL COMFXFL
00035  M01S00034.fsemain +++|*CALL COMFXFO
00036  M01S00035.fsemain +++|*CALL COMFXTI
00037  M01S00036.fsemain +++|*CALL COMFXVT
00038  M01S00037.fsemain +++|*CALL COMFXSB
00039  M01S00038.fsemain +++|*CALL COMFXWK
00040  M01S00039.fsemain +++|  END
00041  M01S00040.fsemain +++|
00042  M01S00041.fsemain +++|XREF                         # FSELIB  SUPPORT   #
00043  M01S00042.fsemain +++|  BEGIN
00044  M01S00043.fsemain +++|  FUNC LENGTH;
00045  M01S00001.ns2206  +++|  PROC DISSJ;                        # DISABLE/ENABLE SSJ= #
00046  M01S00044.fsemain +++|  PROC MOVEWD;
00047  M01S00045.fsemain +++|  PROC FLDLEN;
00048  M01S00046.fsemain +++|  PROC DISTCON;
Line S00047 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00047.v23l617 ---|  # START OF MODIFY CONDITIONAL SEQUENCE #
Line S00048 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00048.v23l617 ---|*IF UNDEF,RETRO
00051  M01S00049.fsemain +++|  PROC SETNAD;
00052  M01S00050.fsemain +++|  PROC VDTGSL;
00053  M01S00051.fsemain +++|  PROC SETAUC;                       # APPLICATION UNIT CHARGE #
Line S00052 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00052.v23l617 ---|*ENDIF
Line S00053 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00053.v23l617 ---|  # END OF MODIFY CONDITIONAL SEQUENCE #
00056  M01S00054.fsemain +++|  PROC VDTGTN;
00057  M01S00055.fsemain +++|  END
00058  M01S00056.fsemain +++|
00059  M01S00057.fsemain +++|XREF                                 # SRVLIB SUPPORT #
00060  M01S00058.fsemain +++|  BEGIN
00061  M01S00059.fsemain +++|  PROC REWIND;
00062  M01S00060.fsemain +++|  PROC WRITEC;
00063  M01S00061.fsemain +++|  PROC WRITEF;
00064  M01S00062.fsemain +++|  PROC WRITER;
00065  M01S00063.fsemain +++|  PROC READC;
00066  M01S00064.fsemain +++|  PROC MESSAGE;
00067  M01S00065.fsemain +++|  PROC ENDRUN;
00068  M01S00066.fsemain +++|  PROC ABORT;
00069  M01S00067.fsemain +++|  PROC EXCST;
00070  M01S00068.fsemain +++|  PROC TSTATUS;
00071  M01S00069.fsemain +++|  PROC GETJO;
00072  M01S00070.fsemain +++|  PROC RECALL;
00073  M01S00071.fsemain +++|  PROC READ;
00074  M01S00072.fsemain +++|  PROC RETERN;
00075  M01S00001.ns2377  +++|  PROC RTIME;
00076  M01S00073.fsemain +++|  PROC DEFINE;
00077  M01S00074.fsemain +++|  PROC PURGE;
00078  M01S00075.fsemain +++|  PROC GETSS;
00079  M01S00076.fsemain +++|  PROC PF;
00080  M01S00077.fsemain +++|  END
00081  M01S00078.fsemain +++|
00082  M01S00079.fsemain +++|XREF                         # BUFFER MAPPING    #
00083  M01S00080.fsemain +++|  BEGIN
00084  M01S00081.fsemain +++|  ARRAY WORKBUF;;
00085  M01S00082.fsemain +++|  ARRAY BUILDBF;;
00086  M01S00083.fsemain +++|  ITEM MAXADDR;
00087  M01S00084.fsemain +++|  END
00088  M01S00085.fsemain +++|
00089  M01S00086.fsemain +++|
00090  M01S00087.fsemain +++|*CALL COMFDS1
00091  M01S00088.fsemain +++|*CALL COMFVD2
00092  M01S00089.fsemain +++|*CALL COMFDS2
00093  M01S00090.fsemain +++|*CALL COMFTAB
00094  M01S00001.ns2568  +++|*CALL COMSPFM
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  M01S00091.fsemain +++|PAGE                         # INITIAL FILE CONSTRUCTION   #
00112  M01S00092.fsemain +++|
00113  M01S00093.fsemain +++|
00114  M01S00094.fsemain +++|PROC FILBUILD;
00115  M01S00095.fsemain +++|  BEGIN
00116  M01S00096.fsemain +++|#
00117  M01S00097.fsemain +++|**        FILBUILD - READ FIRST SOURCE FILE INTO WORKFILE.
00118  M01S00098.fsemain +++|*
00119  M01S00099.fsemain +++|*         FILBUILD PERFORMS INITIAL FILE COPYING AND CERTAIN OTHER
00120  M01S00100.fsemain +++|*         TASKS TO INITIALIZE THE EDITOR.  FILBUILD IS CALLED IF
00121  M01S00101.fsemain +++|*         THERE IS A FILE SPECIFIED BY THE CONTROL STATEMENT OR IF
00122  M01S00102.fsemain +++|*         THERE WAS NO FILE AND NO RESUMABLE WORKFILE IMAGE.  IN THE
00123  M01S00103.fsemain +++|*         LATTER CASE, FILBUILD ATTEMPTS TO IDENTIFY A PRIMARY FILE
00124  M01S00104.fsemain +++|*         AS THE FILE TO EDIT.
00125  M01S00105.fsemain +++|*
00126  M01S00106.fsemain +++|*         IN ADDITION TO COPYING THE FIRST SOURCE FILE OF THE EDIT
00127  M01S00107.fsemain +++|*         SESSION, FILBUILD ALSO INITIALIZES THE WORKFILE MANAGER,
00128  M01S00108.fsemain +++|*         SETS THE CHARACTER SET FOR LINE-MODE TERMINAL
00129  M01S00109.fsemain +++|*         COMMUNICATIONS, READS IN THE DEFAULT PROCEDURE FILE, AND
00130  M01S00110.fsemain +++|*         INITIALIZES THE RELOCATION VECTOR TO BRACKET THE SOURCE
00131  M01S00111.fsemain +++|*         FILE AND A NEW, EMPTY AUDIT TRAIL IMAGE.
00132  M01S00112.fsemain +++|*
00133  M01S00113.fsemain +++|*         ENTRY  FILENAM[1] - NAME OF FILE TO EDIT OR BLANK.
00134  M01S00114.fsemain +++|*                CHARPARM - FILE CHARACTER SET SPECIFICATION.
00135  M01S00115.fsemain +++|*                GETPARM - PERMANENT FILE ACCESS REQUEST.
00136  M01S00116.fsemain +++|*                ALLASCII - WHETHER DEFAULT CHARACTER SET IS 6/12.
00137  M01S00117.fsemain +++|*
00138  M01S00118.fsemain +++|*         EXIT   FILENAM[1] - NAME OF PRIMARY FILE IF NEEDED.
00139  M01S00119.fsemain +++|*                BUILDCIO - CIO COUNT FOR FILE COPY.
00140  M01S00120.fsemain +++|*                TOPC(), BOTC() - BRACKET FILE DIRECTORY.
00141  M01S00121.fsemain +++|*                TOPF(), BOTF() - BRACKET FILE IMAGES.
00142  M01S00122.fsemain +++|*                TOPA(), BOTA(), CURA() - BRACKET AUDIT TRAIL.
00143  M01S00017.v23l617 +++|*                TOPK(), BOTK() - BRACKET FUNCTION KEY STRINGS.
00144  M01S00123.fsemain +++|*
00145  M01S00124.fsemain +++|*         CALLS  MAKEFET, FATAL, VFYFILE, INITIO, SETCSET,
00146  M01S00125.fsemain +++|*                INSY, ADDFILE, TTSTR, TTLFN, TTBRK, TTLIN, PUSH,
00147  M01S00126.fsemain +++|*                OPENFILE, POP.
00148  M01S00127.fsemain +++|*
00149  M01S00128.fsemain +++|*         USES   FILNUM, READNAM, CURFILE, CHARPARM, GETPARM.
00150  M01S00129.fsemain +++|#
00151  M01S00018.v23l617 +++|  ITEM TMP1;
00152  M01S00130.fsemain +++|
00153  M01S00131.fsemain +++|  INITIO;
00154  M01S00132.fsemain +++|  ONWAYINBLK=BLANKS;
00155  M01S00133.fsemain +++|  SETCSET(TRUE);
00156  M01S00134.fsemain +++|
Line S00135 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00135.v23l617 ---|  TOPC(FILECTL)=PALAST[0];     # FILE DIRECTORY IS 1ST BRACKET  #
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  M01S00136.fsemain +++|  LINE[0]=NULLIN;
00167  M01S00137.fsemain +++|  INSY;
00168  M01S00138.fsemain +++|  BOTC(FILECTL)=PALAST[0];
Line S00139 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00139.v23l617 ---|  INSY;                      # AUDIT NEEDS EXTRA SEPARATOR LINE      #
Line S00140 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00140.v23l617 ---|  TOPA(AUDITCTL)=PALAST[0];    # AUDIT TRAIL MUST BE LAST BRACKET  #
00171  M01S00027.v23l617 +++|  INSY;                              # AUDIT NEEDS EXTRA SEPARATOR #
00172  M01S00028.v23l617 +++|  TOPA(AUDITCTL)=PALAST[0];          # AUDIT MUST BE LAST BRACKET #
00173  M01S00141.fsemain +++|  CURA(AUDITCTL)=PALAST[0];
00174  M01S00142.fsemain +++|  INSY;
00175  M01S00143.fsemain +++|  BOTA(AUDITCTL)=PALAST[0];
00176  M01S00144.fsemain +++|
00177  M01S00145.fsemain +++|  FILNUM=1;                    # ADD FIRST FILE BRACKET      #
00178  M01S00146.fsemain +++|  READNAM=FILENAM[1];
00179  M01S00147.fsemain +++|  FILENAM[1]=" ";
00180  M01S00001.ns2607  +++|  SCNFDINIT = 1;                     # INDICATE INITIAL FILE #
00181  M01S00148.fsemain +++|  ADDFILE;                     # BUILD FIRST FILE  #
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
Line S00149 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2377
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00149.ns2377  ---|  IF BOTF(1) GR TOPF(1)+1 THEN TTSTR("EDIT: $");
Line S00150 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2377
Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00150.ns2377  ---|  ELSE TTSTR("CREATE: $");
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  M01S00151.fsemain +++|  TTLFN(READNAM);
00198  M01S00152.fsemain +++|  IF LOCKED[1] NQ 0 THEN TTSTR(" (READ-ONLY FILE) $");
00199  M01S00153.fsemain +++|  TTBRK;
00200  M01S00154.fsemain +++|  IF NUMBERED[1] NQ 0 THEN TTLIN("SEQUENCE NUMBERED FILE$");
00201  M01S00155.fsemain +++|
00202  M01S00156.fsemain +++|  CURFILE=1;
00203  M01S00157.fsemain +++|  PUSH;                        # HOLD POSITION WHILE INIT PROCS #
Line S00158 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema17
Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00158.fsema17 ---|  READNAM=PROCNAM;                   # TRY TO READ UP PROC LIB #
00205  M01S00159.fsemain +++|  FILNUM=2;
Line S00160 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2530
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00160.ns2530  ---|  CHARPARM=0;
Line S00001 Modification History
M01 (Added by) ns2530
M02 (Updated by) fsema17
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00001.fsema17 ---|  CHARPARM=2;
00208  M01S00161.fsemain +++|  GETPARM=1;
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  M01S00162.fsemain +++|  OPENFILE;
00215  M01S00163.fsemain +++|  POP;
00216  M01S00164.fsemain +++|
00217  M01S00165.fsemain +++|  CONTROL IFEQ METERING,1;
00218  M01S00166.fsemain +++|    BUILDCIO=CIOCOUNT;
00219  M01S00167.fsemain +++|  CONTROL FI;
00220  M01S00168.fsemain +++|
00221  M01S00169.fsemain +++|  END                          # OF FILBUILD       #
00222  M01S00170.fsemain +++|
00223  M01S00171.fsemain +++|
00224  M01S00172.fsemain +++|PROC RESUMEFILES;
00225  M01S00173.fsemain +++|  BEGIN
00226  M01S00174.fsemain +++|#
00227  M01S00175.fsemain +++|**        RESUMEFILES - ATTEMPT TO RESUME PREVIOUS SESSION.
00228  M01S00176.fsemain +++|*
00229  M01S00177.fsemain +++|*         RESUMEFILES ATTEMPTS TO RESUME SOME PREVIOUS EDIT SESSION
00230  M01S00178.fsemain +++|*         FROM A LEFT-OVER WORKFILE.  THIS MAY BE POSSIBLE BECAUSE
00231  M01S00179.fsemain +++|*         WORKFILES CONTAIN NOT ONLY ALL TEXT OF ALL FILES, BUT ALSO
00232  M01S00180.fsemain +++|*         BINARY DATA IMAGES FOR ALL EDITOR DATA.
00233  M01S00181.fsemain +++|*
00234  M01S00182.fsemain +++|*         THE CALLER DECIDES WHETHER TO CALL RESUMEFILES ON THE BASIS
00235  M01S00183.fsemain +++|*         OF CONTROL STATEMENT SYNTAX.  IF RESUMEFILES IS NOT
00236  M01S00184.fsemain +++|*         SUCCESSFUL, THEN IT CLEARS THE TRYRESUME FLAG AS A SIGNAL
00237  M01S00185.fsemain +++|*         TO THE CALLER THAT FILBUILD SHOULD BE CALLED.
00238  M01S00186.fsemain +++|*
Line S00187 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00187.fsema12 ---|*         IF RESUMPTION OCCURRS, THEN RESUMEFILES RE-INITIALIZES SOME
00240  M01S00001.fsema12 +++|*         IF RESUMPTION OCCURS, THEN RESUMEFILES RE-INITIALIZES SOME
00241  M01S00188.fsemain +++|*         OF THE DATA READ UP FROM THE WORKFILE.  THE TERMINAL IS
Line S00189 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00189.v23l617 ---|*         RECONFIGURED (FOR SCREEN MODE) BY CALLING VDTSTM AND
00243  M01S00029.v23l617 +++|*         RECONFIGURED (FOR SCREEN MODE) BY CALLING VDTSTM/STD AND
00244  M01S00190.fsemain +++|*         COPYTABS.  THE COMMAND BUFFER IS CLEARED.  THE MULTI-USER
00245  M01S00191.fsemain +++|*         CONNECTION STATUS IS CLEARED.  THE INTERNAL FILE DIRECTORY
Line S00192 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00192.fsema12 ---|*         IS SEARCHED AND EVERY FILE IS FLAGGED AS UNALTERED AND IS
Line S00193 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00193.fsema12 ---|*         RE-VERIFIED FOR PERMISSIONS.  THE USER'S LAST CURRENT LINE
Line S00194 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00194.fsema12 ---|*         SELECTION IS RESTORED.
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  M01S00195.fsemain +++|*
00253  M01S00196.fsemain +++|*         ENTRY  TRYRESUME - PRESUMED TRUE.
00254  M01S00197.fsemain +++|*
00255  M01S00198.fsemain +++|*         EXIT   TRYRESUME - FORCED FALSE IF NO RESUMPTION OCCURRED.
00256  M01S00199.fsemain +++|*                ALL DATA REDEFINED IF RESUMPTION OCCURRED.
00257  M01S00200.fsemain +++|*
00258  M01S00201.fsemain +++|*         MACROS SETCHAR.
00259  M01S00202.fsemain +++|*
Line S00203 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00203.v23l617 ---|*         CALLS  RESUMIO, TTSYNC, VDTSTM, COPYTABS, SETCSET, POSZ,
Line S00204 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00204.v23l617 ---|*                SCANFDL, VFYFILE, WRITEABLE, REPY, FWDZ.
00262  M01S00030.v23l617 +++|*         CALLS  COPYTABS, FWDZ, POSZ, REPY, RESUMIO, SCANFDL, SETCSET,
00263  M01S00031.v23l617 +++|*                TTSYNC, VDTSTD, VDTSTM, VFYFILE, WRITEABLE.
00264  M01S00205.fsemain +++|#
00265  M01S00032.v23l617 +++|
00266  M01S00033.v23l617 +++|  ITEM TMP1      I;                  # TEMPORARY STORAGE #
00267  M01S00034.v23l617 +++|  ITEM TMP2      I;                  # TEMPORARY STORAGE #
Line S00005 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00005.fsem12a ---|  ITEM QUITSAVED B;                  # TEMPORARY FLAG    #
00269  M01S00035.v23l617 +++|
00270  M01S00206.fsemain +++|  RESUMIO;
00271  M01S00207.fsemain +++|  IF IORESUMED THEN          # THERE IS OLD EDIT #
00272  M01S00208.fsemain +++|    BEGIN
00273  M01S00209.fsemain +++|    #  RESUMED EDIT ACCEPTABLE -- FINAL SETUP FOLLOWS  #
00274  M01S00210.fsemain +++|    # OVERRIDE SOME RESTORED DATA #
Line S00006 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00006.fsem12a ---|    QUITSAVED=EXITSAVE;
Line S00211 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00211.fsem12a ---|    EXITFLAGS=0;
00277  M01S00212.fsemain +++|    CONNECTED=FALSE;
Line S00213 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00213.v23l617 ---|    SCREENMODE=HOLDSCREEN AND INTERACT;
Line S00214 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00214.v23l617 ---|    CMDLINE[0]=NULLIN;
Line S00215 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00215.v23l617 ---|    IF SCREENMODE THEN
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  M01S00216.fsemain +++|      BEGIN
Line S00217 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00217.v23l617 ---|      TTSYNC;
Line S00218 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00218.v23l617 ---|      VDTSTM(MIN(VTXMAX,USRNUMCOL),VTMODEL,1);
Line S00219 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00219.v23l617 ---|      COPYTABS;
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  M01S00220.fsemain +++|      END
00292  M01S00221.fsemain +++|    SETCSET(TRUE);
00293  M01S00222.fsemain +++|    POSZ(TOPC(FILECTL)+1);
00294  M01S00223.fsemain +++|    WHYLE CURRENT LS BOTC(FILECTL) DO  # CHECK ALL FILES IN SESSION  #
00295  M01S00224.fsemain +++|      BEGIN                   # UPDATE LOCKED, CHANGED      #
00296  M01S00225.fsemain +++|      SCANFDL(READNAM);
00297  M01S00226.fsemain +++|      VFYFILE(READNAM,-1);
00298  M01S00227.fsemain +++|      IF NOT WRITEABLE(READNAM) THEN
00299  M01S00228.fsemain +++|        BEGIN
00300  M01S00229.fsemain +++|        SETCHAR(LINE,8,CDIGIT0+1);
00301  M01S00230.fsemain +++|        IF CURRENT EQ FDLF(1) THEN LOCKED[1]=1;
00302  M01S00231.fsemain +++|        IF CURRENT EQ FDLF(2) THEN LOCKED[2]=1;
00303  M01S00232.fsemain +++|        END
Line S00233 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00233.fsema12 ---|      SETCHAR(LINE,10,CDIGIT0);
Line S00007 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00007.fsem12a ---|      IF QUITSAVED THEN
Line S00008 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00008.fsem12a ---|        BEGIN                        # IF LAST EXIT WAS QUIT REPLACE #
Line S00009 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00009.fsem12a ---|        CHANGED[1]=0;
Line S00010 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00010.fsem12a ---|        CHANGED[2]=0;
Line S00011 Modification History
M01 (Added by) fsema12
M02 (Updated by) fsem12a
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00011.fsem12a ---|        END
00310  M01S00001.fsem12a +++|      IF EXITSAVE THEN SETCHAR(LINE,10,CDIGIT0);
00311  M01S00234.fsemain +++|      REPY;                  # UPDATE FILE DESCRIPTOR      #
00312  M01S00235.fsemain +++|      FWDZ;                  # NEXT FILE DESCRIPTOR        #
00313  M01S00236.fsemain +++|      END
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;
Line S00237 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00237.fsema12 ---|    CHANGED[1]=0;
Line S00238 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00238.fsema12 ---|    CHANGED[2]=0;
00322  M01S00239.fsemain +++|    POSZ(SAVECURL);
00323  M01S00240.fsemain +++|    END
00324  M01S00241.fsemain +++|  ELSE TRYRESUME=FALSE;
00325  M01S00242.fsemain +++|  END                         # OF RESUMEFILES    #
00326  M01S00243.fsemain +++|PAGE                         # FINAL FILE RECONSTRUCTION   #
00327  M01S00244.fsemain +++|
00328  M01S00245.fsemain +++|
00329  M01S00246.fsemain +++|PROC FILEWRITE;
00330  M01S00247.fsemain +++|  BEGIN
00331  M01S00248.fsemain +++|#
00332  M01S00249.fsemain +++|**        FILEWRITE - COPY ONE INTERNAL FILE IMAGE TO LOCAL FILE.
00333  M01S00250.fsemain +++|*
00334  M01S00251.fsemain +++|*         ENTRY  FILEFET - INITIALIZED FOR EXTERNAL FILE.
00335  M01S00252.fsemain +++|*                TOPF(1), BOTF(1) - BRACKET INTERNAL FILE IMAGE.
00336  M01S00253.fsemain +++|*
00337  M01S00254.fsemain +++|*         EXIT   FILEFET - EOR WRITTEN, REWOUND.
00338  M01S00255.fsemain +++|*
00339  M01S00256.fsemain +++|*         CALLS  REWIND, POSZ, FWDZ, CONVOUT, WRITER, WRITEF,
00340  M01S00257.fsemain +++|*                WRITEC.
00341  M01S00258.fsemain +++|*
00342  M01S00259.fsemain +++|*         USES   LIN, TMPLIN, CURRENT.
00343  M01S00260.fsemain +++|#
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  M01S00261.fsemain +++|  REWIND(FILEFET,1);
00362  M01S00262.fsemain +++|  POSZ(TOPF(1));
00363  M01S00263.fsemain +++|  WHYLE CURRENT LS BOTF(1)-1 DO
00364  M01S00264.fsemain +++|    BEGIN
00365  M01S00265.fsemain +++|    FWDZ;
00366  M01S00266.fsemain +++|    CONVOUT(LIN,1);
00367  M01S00267.fsemain +++|    IF TMPLINE[0] EQ EORCON THEN WRITER(FILEFET,1);
00368  M01S00268.fsemain +++|    ELSE IF TMPLINE[0] EQ EOFCON THEN WRITEF(FILEFET,1);
00369  M01S00269.fsemain +++|    ELSE
00370  M01S00270.fsemain +++|      BEGIN
00371  M01S00271.fsemain +++|      CONVOUT(LIN,ASCII[1]);
00372  M01S00272.fsemain +++|      WRITEC(FILEFET,TMPLIN);
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  M01S00273.fsemain +++|      END
00394  M01S00274.fsemain +++|    END
00395  M01S00275.fsemain +++|  WRITER(FILEFET,1);
00396  M01S00276.fsemain +++|  REWIND(FILEFET,1);
00397  M01S00277.fsemain +++|  END
00398  M01S00278.fsemain +++|
00399  M01S00279.fsemain +++|
00400  M01S00280.fsemain +++|PROC FILREBUILD;
00401  M01S00281.fsemain +++|  BEGIN
00402  M01S00282.fsemain +++|#
00403  M01S00283.fsemain +++|**        FILREBUILD - REBUILD ALL SOURCE FILES.
00404  M01S00284.fsemain +++|*
00405  M01S00285.fsemain +++|*         FILREBUILD IS CALLED AT THE END OF AN EDIT SESSION.  IT
00406  M01S00286.fsemain +++|*         GOES THRU THE DIRECTORY OF INTERNAL FILE IMAGES.  FOR EVERY
00407  M01S00287.fsemain +++|*         ALTERED FILE, THE LOCAL FILE IS RECONSTRUCTED OUT OF THE
00408  M01S00288.fsemain +++|*         EDITOR'S INTERNAL FILE IMAGE.  IF THE REPLACE OPTION WAS
00409  M01S00289.fsemain +++|*         SELECTED, THEN FILREBUILD ALSO ASSURES THAT PERMANENT FILES
00410  M01S00290.fsemain +++|*         ARE BUILT.  IF THE REPLACE OPTION WAS IGNORED, THEN
00411  M01S00291.fsemain +++|*         FILREBUILD PERFORMS A RETURN MACRO TO ASSURE THAT THE FILE
00412  M01S00292.fsemain +++|*         WRITTEN IS A PURELY LOCAL FILE, AND NOT A PRE-ATTACHED
00413  M01S00293.fsemain +++|*         PERMANENT FILE.
00414  M01S00294.fsemain +++|*
00415  M01S00295.fsemain +++|*         FOR ALL FILES (EVEN THOSE UNALTERED OR READ-ONLY
00416  M01S00296.fsemain +++|*         RESTRICTED) FILREBUILD PRINTS OUT A STATUS MESSAGE.  THE
00417  M01S00297.fsemain +++|*         STATUS MESSAGES, HOWEVER, ARE SUPPRESSED IF THE USER
00418  M01S00298.fsemain +++|*         SELECTED THE QUIET OPTION.
00419  M01S00299.fsemain +++|*
00420  M01S00300.fsemain +++|*         FILREBUILD CLOSES OUT BOTH BRACKETS, AS NEEDED, AND CLEARS
00421  M01S00301.fsemain +++|*         THE COMMAND BUFFER, THEN CHECKPOINTS THE WORKFILE.  IT
00422  M01S00302.fsemain +++|*         IS ABSOLUTELY ESSENTIAL THAT NEITHER FILREBUILD NOR THE
00423  M01S00303.fsemain +++|*         CALLER NOR ANY OTHER ROUTINE PERFORM ANY DESTRUCTIVE
00424  M01S00304.fsemain +++|*         WORKFILE ACCESSES ONCE CHECKIO HAS BEEN CALLED, OTHERWISE
00425  M01S00305.fsemain +++|*         THE USER MAY PERCEIVE A CONFUSING FILE SELECTION SHOULD THE
00426  M01S00306.fsemain +++|*         WORKFILE BE RESUMED INTO A LATER EDIT SESSION.
00427  M01S00307.fsemain +++|*
00428  M01S00308.fsemain +++|*         ENTRY  DONTPRINT - QUIET OPTION.
00429  M01S00309.fsemain +++|*                EXITSAVE - REPLACE OPTION.
00430  M01S00310.fsemain +++|*                FILE DIRECTORY - DESCRIBES ALL INTERNAL IMAGES.
00431  M01S00311.fsemain +++|*
00432  M01S00312.fsemain +++|*         EXIT   FILE WRITTEN, POSSIBLY SAVED.
00433  M01S00313.fsemain +++|*
00434  M01S00314.fsemain +++|*         CALLS  PADNAME, CLOSEFILE, CHECKIO, POSZ, SCANFDL, PUSH,
00435  M01S00315.fsemain +++|*                OPENFILE, TTSTR, TTLFN, MAKEFET, ASSGNFILE,
00436  M01S00316.fsemain +++|*                LOCALFILE, RETERN, FILEWRITE, REPLACE, ATTACH,
00437  M01S00317.fsemain +++|*                TTBRK, POP, FWDZ.
00438  M01S00318.fsemain +++|*
00439  M01S00319.fsemain +++|*         USES   FILNUM, FILENAM[1], FILENAM[2], READNAM, CURRENT,
00440  M01S00320.fsemain +++|*                LIN, CHARPARM, GETPARM, CHANGED[1], LOCKED[1],
00441  M01S00321.fsemain +++|*                ASCII[1], PFMFET.
00442  M01S00322.fsemain +++|#
00443  M01S00323.fsemain +++|  ITEM TMP1, TMP2;
00444  M01S00001.fsema3  +++|  ITEM NOTCHANGED B;                 # NOT CHANGED FLAG #
00445  M01S00324.fsemain +++|
00446  M01S00325.fsemain +++|  CMDLINE[0]=NULLIN;
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  M01S00326.fsemain +++|  FOR FILNUM=1 STEP 1 UNTIL 2 DO
00455  M01S00327.fsemain +++|    BEGIN
Line S00328 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema12
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00328.fsema12 ---|    IF PADNAME(FILENAM[FILNUM]) NQ " " THEN CLOSEFILE;
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  M01S00329.fsemain +++|    END
00466  M01S00330.fsemain +++|  CHECKIO;   # ABSOLUTELY MUST NOT CHANGE WORKFILE AFTER THIS #
00467  M01S00331.fsemain +++|
00468  M01S00002.fsema3  +++|  NOTCHANGED=FALSE;                  # RESET NOT CHANGED FLAG #
00469  M01S00332.fsemain +++|  IF NOT EXITQUIT THEN
00470  M01S00333.fsemain +++|    BEGIN
Line S00001 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00001.fsema5  ---|    IF ZEROCOLIN AND INTERACT THEN
Line S00002 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00002.fsema5  ---|      BEGIN
Line S00003 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00473  M03S00003.fsema5  ---|      TTLIN("WARNING: ONE OR MORE OF YOUR ASCII FILES$");
Line S00004 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00474  M03S00004.fsema5  ---|      TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY $");
Line S00005 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00475  M03S00005.fsema5  ---|      TTLIN("CODE FORMAT OF OCTAL 00 (:), RATHER THAN$");
Line S00006 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00476  M03S00006.fsema5  ---|      TTLIN("THE ASCII FORMAT OF OCTAL 7404 (:).    $");
Line S00007 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00477  M03S00007.fsema5  ---|      TTLIN(" $");
Line S00008 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00478  M03S00008.fsema5  ---|      TTLIN("IF YOU WANT DISPLAY CODE (:) FORMAT REPLY$");
Line S00009 Modification History
M01 (Added by) ns2225
M02 (Updated by) ns2249
M03 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00479  M03S00009.fsema5  ---|      TTSTR("YES, FOR ASCII (:) FORMAT REPLY NO.     $");
Line S00001 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00001.fsema5  ---|      TTLIN("WARNING:ONE OR MORE OF YOUR ASCII FILES$");
Line S00002 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00002.fsema5  ---|      TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY$");
Line S00003 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00003.fsema5  ---|      TTLIN("CODE FORMAT OF OCTAL 00 (:) RATHER THAN$");
Line S00004 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00004.fsema5  ---|      TTLIN("THE ASCII FORMAT OF OCTAL 7404 (@D).  $");
Line S00005 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00005.fsema5  ---|      TTLIN(" $");
Line S00006 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00006.fsema5  ---|      TTLIN("IF YOU WANT YOUR COLONS LEFT IN DISPLAY$");
Line S00007 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00007.fsema5  ---|      TTLIN("CODE FORMAT (:) TYPE YES AT THE PROMPT.$");
Line S00008 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00008.fsema5  ---|      TTLIN("IF YOU WANT THESE COLONS TO BE IN ASCII$");
Line S00009 Modification History
M01 (Added by) ns2249
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00009.fsema5  ---|      TTSTR("FORMAT (@D) TYPE NO. $");
Line S00010 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00010.fsema5  ---|      PROMPT(QCCKWRD);
Line S00011 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00011.fsema5  ---|      CONVIN(CMDLIN,2);
Line S00012 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00012.fsema5  ---|      GETCHAR(CMDLINE,0,TMP1);
Line S00013 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00013.fsema5  ---|      TMP1=XLTINTDSP[TMP1];
Line S00014 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00014.fsema5  ---|      IF TMP1 EQ CLETTERY THEN ZEROCOLOUT=TRUE;
Line S00015 Modification History
M01 (Added by) ns2225
M02 (Updated by) fsema5
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00015.fsema5  ---|    END
00495  M01S00334.fsemain +++|    FILENAM[2]=" ";
00496  M01S00335.fsemain +++|    POSZ(TOPC(FILECTL)+1);
00497  M01S00336.fsemain +++|    WHYLE CURRENT LS BOTC(FILECTL) DO
00498  M01S00337.fsemain +++|      BEGIN
00499  M01S00338.fsemain +++|      SCANFDL(READNAM);
00500  M01S00339.fsemain +++|      IF READNAM NQ "ZZZNULL" THEN
00501  M01S00340.fsemain +++|        BEGIN
00502  M01S00341.fsemain +++|        PUSH;
00503  M01S00342.fsemain +++|        FILENAM[1]=" ";
00504  M01S00343.fsemain +++|        FILNUM=1;
00505  M01S00344.fsemain +++|        CHARPARM=0;
00506  M01S00345.fsemain +++|        GETPARM=0;
00507  M01S00346.fsemain +++|        OPENFILE;
00508  M01S00001.ns2449  +++|        IF ZEROCOLASK THEN ZEROCOLIN = FALSE;  # DO NOT "ASK" TWICE #
Line S00001 Modification History
M01 (Added by) fsema7
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00001.fsema9  ---|        IF B<00,01>MEM[CSMR] EQ 0 THEN
Line S00002 Modification History
M01 (Added by) fsema7
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00002.fsema9  ---|          BEGIN                      # IF SYSTEM CHARACTER SET = 63 #
Line S00003 Modification History
M01 (Added by) fsema7
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00003.fsema9  ---|          ZEROCOLIN = FALSE;         # DO NOT ASK COLON QUESTION #
Line S00004 Modification History
M01 (Added by) fsema7
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00004.fsema9  ---|          ZEROCOLOUT = TRUE;         # DO NOT CHANGE 00 BYTES #
Line S00005 Modification History
M01 (Added by) fsema7
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00005.fsema9  ---|          END
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 #
Line S00001 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema14
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00001.fsema14 ---|      TTLIN("                                        $");
00519  M01S00001.fsema14 +++|          TTLIN("                                        $");
Line S00005 Modification History
M01 (Added by) fsema5
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00005.fsema13 ---|          TTLIN("WARNING:ONE OR MORE OF YOUR ASCII FILES $");
00521  M01S00001.fsema13 +++|          TTLIN("WARNING:  ONE OR MORE OF YOUR ASCII FILES $");
Line S00006 Modification History
M01 (Added by) fsema5
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00006.fsema9  ---|          TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY $");
00523  M01S00001.fsema9  +++|          TTLIN("CONTAINED CHARACTERS CODED IN THE DISPLAY $");
00524  M01S00007.fsema5  +++|          TTLIN("CODE FORMAT OF OCTAL 00 (:) RATHER THAN $");
00525  M01S00008.fsema5  +++|          TTLIN("THE ASCII FORMAT OF OCTAL 7404 (@D).   $");
00526  M01S00002.242l642 +++|  ASKAGAIN:                          # ASK UNTIL Y OR N #
00527  M01S00009.fsema5  +++|          TTLIN("                                        $");
Line S00010 Modification History
M01 (Added by) fsema5
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00010.242l642 ---|          TTLIN("ENTER...                                $");
Line S00003 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema14
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00003.fsema14 ---|      TTLIN("ENTER ...                               $");
00530  M01S00002.fsema14 +++|          TTLIN("ENTER ...                               $");
Line S00011 Modification History
M01 (Added by) fsema5
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00011.fsema9  ---|          TTLIN("YES     COLONS LEFT IN DISPLAY CODE (:) $");
Line S00012 Modification History
M01 (Added by) fsema5
M02 (Updated by) fsema9
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00012.fsema9  ---|          TTLIN("NO      COLONS CHANGED TO ASCII (@D)   $");
Line S00002 Modification History
M01 (Added by) fsema9
M02 (Updated by) fsema14
Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00002.fsema14 ---|          TTLIN("YES     CHARACTERS LEFT IN DISPLAY CODE (:) $");
Line S00003 Modification History
M01 (Added by) fsema9
M02 (Updated by) fsema14
Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00003.fsema14 ---|          TTLIN("NO      CHARACTERS CHANGED TO ASCII (@D)   $");
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)$");
00539  M01S00013.fsema5  +++|          PROMPT(QCCKWRD);
00540  M01S00014.fsema5  +++|          CONVIN(CMDLIN,2);
00541  M01S00015.fsema5  +++|          GETCHAR(CMDLINE,0,TMP1);
00542  M01S00016.fsema5  +++|          TMP1 = XLTINTDSP[TMP1];
00543  M01S00004.242l642 +++|          IF TMP1 NQ CLETTERY AND TMP1 NQ CLETTERN THEN GOTO ASKAGAIN;
00544  M01S00017.fsema5  +++|          IF TMP1 EQ CLETTERY THEN ZEROCOLOUT = TRUE;
00545  M01S00018.fsema5  +++|          END
00546  M01S00347.fsemain +++|        IF NOT DONTPRINT THEN
00547  M01S00348.fsemain +++|          BEGIN
00548  M01S00006.ns2404  +++|          IF NOT INTERACT THEN TTSTR(" $");
00549  M01S00349.fsemain +++|          TTSTR("FILE: $");
00550  M01S00350.fsemain +++|          TTLFN(FILENAM[1]);
Line S00351 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2449
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00351.ns2449  ---|          IF CHANGED[1] EQ 0 THEN TTSTR(" (NO CHANGES)$");
Line S00352 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2449
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00352.ns2449  ---|          IF LOCKED[1] NQ 0 THEN TTSTR(" (READ-ONLY FILE)$");
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  M01S00353.fsemain +++|          END
00566  M01S00354.fsemain +++|        IF CHANGED[1] NQ 0 AND LOCKED[1] EQ 0 THEN
00567  M01S00355.fsemain +++|          BEGIN
00568  M01S00356.fsemain +++|          MAKEFET(FILEFET,FILENAM[1],FILEBUF,DSKSIZ);
Line S00357 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema1
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00357.fsema1  ---|          # GET RID OF PREATTACHED FILE WHEN NO REPLACE OPTION #
Line S00358 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema1
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00358.fsema1  ---|          IF ASSGNFILE(READNAM) AND (NOT LOCALFILE(READNAM))
Line S00359 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema1
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00359.fsema1  ---|            AND (NOT EXITSAVE) THEN RETERN(FILEFET,1);
00572  M01S00360.fsemain +++|          # REWRITE LOCAL OR PREATTACHED FILE #
00573  M01S00361.fsemain +++|          FILEWRITE;
Line S00362 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00362.fsema13 ---|          IF EXITSAVE THEN
Line S00363 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00363.fsema13 ---|            BEGIN
Line S00364 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00364.fsema13 ---|            PFMERROR=0;
Line S00365 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema1
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00577  M03S00365.fsema13 ---|            IF (NOT ASSGNFILE(READNAM))
Line S00366 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema1
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00578  M03S00366.fsema13 ---|              OR (LOCALFILE(READNAM)) THEN
Line S00001 Modification History
M01 (Added by) fsema1
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00001.fsema13 ---|            IF LOCALFILE(READNAM) THEN
Line S00367 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00367.fsema13 ---|              BEGIN                  # NOT PREATTACHED #
Line S00368 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00368.fsema13 ---|              # FILE NEEDS TO BE MADE PERMANENT - TRY INDIRECT FIRST #
Line S00369 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00582  M03S00369.fsema13 ---|              PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,0);
Line S00370 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00583  M03S00370.fsema13 ---|              IF PFMERROR NQ 0 THEN
Line S00002 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00002.fsema13 ---|              PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,"EM",PFMMSG,
Line S00003 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00003.fsema13 ---|                "EL","40",0);
Line S00004 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00004.fsema13 ---|              IF PFMERROR EQ FNF THEN
Line S00371 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00371.fsema13 ---|                BEGIN                # RESORT TO ATTACH, REWRITE #
Line S00372 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00588  M03S00372.fsema13 ---|                PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,
Line S00373 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2189
M03 (Updated by) ns2568
M04 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00589  M04S00373.fsema13 ---|                  "M","W","NA","YES",0);
Line S00001 Modification History
M01 (Added by) ns2189
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00590  M03S00001.fsema13 ---|                  "M","W","NA","YES","SR","NF",0);
Line S00005 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00005.fsema13 ---|                PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W",
Line S00006 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00006.fsema13 ---|                  "NA","YES","SR","NF","EM",PFMMSG,"EL","40",0);
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  M01S00374.fsemain +++|                FILEWRITE;
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  M01S00375.fsemain +++|                END
Line S00007 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00007.fsema13 ---|              ELSE
Line S00008 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00008.fsema13 ---|                BEGIN
Line S00009 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00009.fsema13 ---|                IF PFMERROR EQ FTL THEN
Line S00010 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00010.fsema13 ---|                  BEGIN               # IF FILE TOO LONG #
Line S00011 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00011.fsema13 ---|                  # SAVE FIRST ERROR, RETURN LOCAL FILE, TRY DEFINE #
Line S00012 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00012.fsema13 ---|                  PFMMS2=PFMMSG;
Line S00013 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00013.fsema13 ---|                  RETERN(FILEFET,1);
Line S00014 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00014.fsema13 ---|                  PF("DEFINE",READNAM,READNAM,"RC",PFMERROR,
Line S00015 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00015.fsema13 ---|                    "EM",PFMMSG,"EL","40",0);
Line S00016 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00016.fsema13 ---|                  FILEWRITE;
Line S00017 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00017.fsema13 ---|                  IF PFMERROR NQ 0 THEN
Line S00018 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00018.fsema13 ---|                    BEGIN             # IF DEFINE FAILED #
Line S00019 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00019.fsema13 ---|                    PFMMSG=PFMMS2;    # REPLACE ERROR MESSAGE #
Line S00020 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00020.fsema13 ---|                    END
Line S00021 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00021.fsema13 ---|                  END
Line S00022 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00022.fsema13 ---|                END
Line S00023 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00023.fsema13 ---|              IF PFMERROR NQ 0 THEN
Line S00024 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00024.fsema13 ---|                BEGIN
Line S00025 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00025.fsema13 ---|                TMP1=39;
Line S00026 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00026.fsema13 ---|                WHYLE C<TMP1,1>PFMMSG EQ " " DO TMP1=TMP1-1;
Line S00027 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00027.fsema13 ---|                C<0,1>PFMMSG="(";
Line S00028 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00028.fsema13 ---|                C<TMP1,2>PFMMSG=")$";
Line S00029 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00029.fsema13 ---|                END
00642  M01S00376.fsemain +++|              END
Line S00377 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00377.fsema13 ---|            IF NOT DONTPRINT THEN
00644  M01S00026.fsema13 +++|            IF PFMERROR NQ 0 THEN
Line S00378 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00378.fsema13 ---|              BEGIN
00646  M01S00027.fsema13 +++|              BEGIN                  # IF FILE NOT MADE PERMANENT #
Line S00379 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00379.fsema13 ---|              IF PFMERROR EQ 0 THEN TTSTR(" (PERMANENT)$");
Line S00380 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema1
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00648  M03S00380.fsema13 ---|              ELSE TTSTR(" (LOCAL FILE)$");
Line S00002 Modification History
M01 (Added by) fsema1
M02 (Updated by) fsema3
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00649  M03S00002.fsema13 ---|              ELSE TTSTR(" (LOCAL)$");
Line S00003 Modification History
M01 (Added by) fsema3
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00003.fsema13 ---|              ELSE
Line S00004 Modification History
M01 (Added by) fsema3
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00004.fsema13 ---|                BEGIN
Line S00005 Modification History
M01 (Added by) fsema3
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00652  M03S00005.fsema13 ---|                TTSTR(" (LOCAL - COULD NOT BE SAVED)$");
Line S00030 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00030.fsema13 ---|                TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
Line S00031 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00031.fsema13 ---|                TTSTR("               $");
Line S00032 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00032.fsema13 ---|                TTSTR(PFMMSG);
Line S00006 Modification History
M01 (Added by) fsema3
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00006.fsema13 ---|                NOTCHANGED=TRUE;     # SET NOT CHANGED FLAG #
Line S00007 Modification History
M01 (Added by) fsema3
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00007.fsema13 ---|                END
Line S00381 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00381.fsema13 ---|              END
Line S00001 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00001.fsema13 ---|            ELSE
Line S00002 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00002.fsema13 ---|              BEGIN                  # QUIET OPTION #
Line S00003 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00003.fsema13 ---|              IF PFMERROR NQ 0 THEN
Line S00004 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00004.fsema13 ---|                BEGIN                # IF PFM ERROR, OVERRIDE QUIET #
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 #
00669  M01S00005.fsema6  +++|                IF NOT INTERACT THEN TTSTR(" $");
00670  M01S00006.fsema6  +++|                TTSTR("FILE: $");
00671  M01S00007.fsema6  +++|                TTLFN(FILENAM[1]);
Line S00008 Modification History
M01 (Added by) fsema6
M02 (Updated by) ns2568
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00008.ns2568  ---|                TTSTR(" (LOCAL - COULD NOT BE SAVED)$");
Line S00033 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00033.fsema13 ---|                TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
Line S00034 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00034.fsema13 ---|                TTSTR("               $");
Line S00035 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00035.fsema13 ---|                TTSTR(PFMMSG);
Line S00009 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00009.fsema13 ---|                NOTCHANGED=TRUE;     # TRIGGER WARNING MESSAGE #
Line S00010 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00010.fsema13 ---|                TTBRK;
00678  M01S00011.fsema6  +++|                END
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;
00684  M01S00012.fsema6  +++|              END
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
00689  M01S00003.fsema1  +++|            END
Line S00004 Modification History
M01 (Added by) fsema1
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00004.fsema13 ---|          ELSE                       # NOT EXITSAVE #
00691  M01S00043.fsema13 +++|          ELSE                       # IF NOT TO BE MADE PERMANENT #
00692  M01S00005.fsema1  +++|            BEGIN
00693  M01S00006.fsema1  +++|            IF NOT DONTPRINT THEN
Line S00007 Modification History
M01 (Added by) fsema1
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00007.fsema13 ---|              BEGIN
00695  M01S00044.fsema13 +++|              BEGIN                  # IF NOT QUIET OPTION #
00696  M01S00008.fsema1  +++|              IF LOCALFILE(READNAM) THEN TTSTR(" (LOCAL)$");
00697  M01S00045.fsema13 +++|              ELSE IF FILINFFT EQ 2 THEN TTSTR(" (QUEUED)$");
00698  M01S00009.fsema1  +++|              ELSE TTSTR(" (PERMANENT)$");
00699  M01S00010.fsema1  +++|              END
00700  M01S00382.fsemain +++|            END
00701  M01S00383.fsemain +++|          END
00702  M01S00384.fsemain +++|        IF NOT DONTPRINT THEN TTBRK;
00703  M01S00385.fsemain +++|        POP;
00704  M01S00386.fsemain +++|        END
00705  M01S00387.fsemain +++|      FWDZ;
00706  M01S00388.fsemain +++|      END
00707  M01S00016.ns2225  +++|    ZEROCOLOUT=FALSE;
00708  M01S00389.fsemain +++|    END
00709  M01S00008.fsema3  +++|
00710  M01S00009.fsema3  +++|    IF NOTCHANGED AND INTERACT THEN  # IF FILE NOT CHANGED #
00711  M01S00010.fsema3  +++|      BEGIN
Line S00011 Modification History
M01 (Added by) fsema3
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00011.242l642 ---|      TTLIN("WARNING: ONE OR MORE OF YOUR FILES IS NOW$");
Line S00012 Modification History
M01 (Added by) fsema3
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00012.242l642 ---|      TTLIN("TOO LONG TO BE SAVED AND HAS BEEN LEFT AS$");
Line S00013 Modification History
M01 (Added by) fsema3
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00013.242l642 ---|      TTLIN("A LOCAL FILE BY THE EDITOR.$");
Line S00014 Modification History
M01 (Added by) fsema3
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00014.242l642 ---|      TTLIN(" $");
Line S00015 Modification History
M01 (Added by) fsema3
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00015.242l642 ---|      TTSTR("PLEASE ENTER CARRIAGE RETURN TO CONTINUE. $");
00717  M01S00005.242l642 +++|      TTLIN("                                        $");
Line S00006 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema6
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00006.fsema6  ---|      TTLIN("WARNING:ONE OR MORE OF YOUR FILES COULD $");
Line S00007 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema6
Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00007.fsema6  ---|      TTLIN("NOT BE SAVED BECAUSE OF YOUR VALIDATION $");
Line S00008 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema6
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00008.fsema6  ---|      TTLIN("LIMITS (THE FILE IS NOW TOO LONG OR YOU $");
Line S00009 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema6
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00009.fsema6  ---|      TTLIN("HAVE EXCEEDED YOUR LIMITS FOR NUMBER OF $");
Line S00010 Modification History
M01 (Added by) 242l642
M02 (Updated by) fsema6
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00010.fsema6  ---|      TTLIN("FILES) AND HAS BEEN LEFT LOCAL BY FSE.  $");
Line S00013 Modification History
M01 (Added by) fsema6
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00013.fsema13 ---|      TTLIN("WARNING:ONE OR MORE OF YOUR FILES COULD NOT $");
Line S00014 Modification History
M01 (Added by) fsema6
M02 (Updated by) ns2568
M03 (Updated by) fsema10
M04 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00724  M04S00014.fsema13 ---|      TTLIN("BE SAVED.  A SYSTEM ERROR HAS OCCURED, OR A $");
Line S00001 Modification History
M01 (Added by) fsema10
M02 (Updated by) ns2568a
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00725  M03S00001.fsema13 ---|      TTLIN("BE SAVED.  A SYSTEM ERROR HAS OCCURRED, OR A $");
Line S00015 Modification History
M01 (Added by) fsema6
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00726  M03S00015.fsema13 ---|      TTLIN("USER VALIDATION LIMIT (FOR LENGTH OF A FILE $");
Line S00016 Modification History
M01 (Added by) fsema6
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00727  M03S00016.fsema13 ---|      TTLIN("OR FOR THE TOTAL NUMBER OF FILES PERMITTED) $");
Line S00017 Modification History
M01 (Added by) fsema6
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00728  M03S00017.fsema13 ---|      TTLIN("HAS BEEN EXCEEDED.  THE FILE LIST ABOVE HAS $");
Line S00018 Modification History
M01 (Added by) fsema6
M02 (Updated by) ns2568
M03 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00729  M03S00018.fsema13 ---|      TTLIN("INDICATED WHICH FILE OR FILES ARE INVOLVED. $");
Line S00036 Modification History
M01 (Added by) ns2568
M02 (Updated by) fsema13
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00036.fsema13 ---|      TTLIN("BE SAVED.  $");
00731  M01S00046.fsema13 +++|      TTLIN("WARNING:  ONE OR MORE OF YOUR FILES $");
00732  M01S00047.fsema13 +++|      TTLIN("COULD NOT BE SAVED.                 $");
00733  M01S00011.242l642 +++|      TTLIN("                                        $");
00734  M01S00012.242l642 +++|      TTLIN("ENTER ...  CARRIAGE RETURN TO CONTINUE. $");
00735  M01S00016.fsema3  +++|      PROMPT(QCCKWRD);
00736  M01S00017.fsema3  +++|      END
00737  M01S00390.fsemain +++|
00738  M01S00391.fsemain +++|  END                          # OF FILREBUILD     #
00739  M01S00392.fsemain +++|PAGE                         # INITIATION ROUTINE          #
00740  M01S00393.fsemain +++|
00741  M01S00394.fsemain +++|
00742  M01S00395.fsemain +++|PROC CRACKCTL;
00743  M01S00396.fsemain +++|  BEGIN
00744  M01S00397.fsemain +++|#
00745  M01S00398.fsemain +++|**        CRACKCTL - CRACK CONTROL STATEMENT.
00746  M01S00399.fsemain +++|*
00747  M01S00400.fsemain +++|*         ENTRY  RA+2, RA+3, ETC - PARAMETERS, EITHER FORMAT.
00748  M01S00401.fsemain +++|*                FILENAM[1] - BLANK.
Line S00402 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00402.ns2623  ---|*                INPTNAM, OUTPNAM, PROCNAM, WORKNAM - DEFAULTS.
Line S00403 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00403.ns2623  ---|*                GETPARM, CHARPARM - DEFAULTS.
00751  M01S00001.ns2623  +++|*                INPTNAM, OUTPNAM, PROCNAM, WORKNAM, - DEFAULTS.
00752  M01S00002.ns2623  +++|*                GETPARM, CHARPARM, ECHOOFF - DEFAULTS.
00753  M01S00404.fsemain +++|*
00754  M01S00405.fsemain +++|*         EXIT   TRYRESUME - WHETHER RESUMPTION SHOULD BE TRIED.
00755  M01S00406.fsemain +++|*                FILENAM[1] - FILLED IN IF SUPPLIED.
00756  M01S00407.fsemain +++|*                INPTNAM - CHANGED IF SUPPLIED.
00757  M01S00408.fsemain +++|*                OUTPNAM - CHANGED IF SUPPLIED.
00758  M01S00409.fsemain +++|*                PROCNAM - CHANGED IF SUPPLIED.
00759  M01S00410.fsemain +++|*                WORKNAM - CHANGED IF SUPPLIED.
00760  M01S00411.fsemain +++|*                GETPARM - 2 IF "GET" PARAMETER SPECIFIED.
00761  M01S00412.fsemain +++|*                CHARPARM - 1, 2, OR 3 IF SPECIFIED.
00762  M01S00003.ns2623  +++|*                ECHOOFF - TRUE IF *E=NO* SPECIFIED, FALSE IF *E=YES*.
00763  M01S00413.fsemain +++|*
00764  M01S00414.fsemain +++|*         CALLS  PADNAME, MATCHKEY.
00765  M01S00415.fsemain +++|*
00766  M01S00416.fsemain +++|*         USES   TOKENSYM, KEYWDNDX, KEYWDTYPE, TOKENLEN.
00767  M01S00417.fsemain +++|#
00768  M01S00418.fsemain +++|
00769  M01S00419.fsemain +++|  # PARMKEYS AND PARMSW MUST MATCH #
Line S00420 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00420.ns2623  ---|  DEF MAXPARMS #7#;
00771  M01S00004.ns2623  +++|  DEF MAXPARMS #8#;
00772  M01S00421.fsemain +++|  ARRAY PARMKEYS [0:MAXPARMS]; ITEM PARMKEY C(0,0,7) = [ "*NULL*",
Line S00422 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00422.ns2623  ---|    "FN", "I", "L", "IP", "CS", "OP", "WF" ];
00774  M01S00005.ns2623  +++|    "FN", "I", "L", "IP", "CS", "OP", "WF", "E" ];
00775  M01S00423.fsemain +++|  SWITCH KEYPARMSW PSDFLT, PSFILE, PSINP, PSLST, PSPROC,
Line S00424 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00776  M02S00424.ns2623  ---|                   PSCHAR, PSOP, PSWORK;
Line S00425 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00425.ns2623  ---|  SWITCH POSPARMSW PSOP, PSFILE, PSOP, PSINP, PSLST, PSPROC, PSWORK;
Line S00426 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00426.ns2623  ---|
00779  M01S00006.ns2623  +++|                   PSCHAR, PSOP, PSWORK, PSECHO;
00780  M01S00007.ns2623  +++|  SWITCH POSPARMSW PSOP, PSFILE, PSOP, PSINP, PSLST, PSPROC, PSWORK,
00781  M01S00008.ns2623  +++|                   PSECHO;
00782  M01S00427.fsemain +++|  ITEM TMP1, TMP2, TMP3, TMP4, QUIT B, KEYPARM, POSPARM;
00783  M01S00428.fsemain +++|
00784  M01S00429.fsemain +++|  TRYRESUME=TRUE;
00785  M01S00430.fsemain +++|  KEYPARM=0;
00786  M01S00431.fsemain +++|  POSPARM=0;
Line S00432 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema2
Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00432.fsema2  ---|  TMP1=2;
Line S00433 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema2
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00433.fsema2  ---|  WHYLE MEM[TMP1] NQ 0 AND TMP1 LS O"63" DO
00789  M01S00001.fsema2  +++|  FOR TMP1=2 STEP 1 UNTIL 1+B<42,18>MEM[O"64"] DO
Line S00434 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema8
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00434.fsema8  ---|    BEGIN
00791  M01S00001.fsema8  +++|    BEGIN                            # UNTIL PARAMETERS EXHAUSTED #
00792  M01S00435.fsemain +++|    TOKENSYM=PADNAME(MEM[TMP1]);
00793  M01S00436.fsemain +++|    IF B<42,18>MEM[TMP1] EQ 2 OR B<42,18>MEM[TMP1] EQ O"54" THEN
Line S00437 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema8
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00437.fsema8  ---|      BEGIN                 # KEYWORD ASSIGNMENT          #
Line S00438 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema8
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00438.fsema8  ---|      FOR TMP2=0 STEP 1 UNTIL MAXPARMS DO IF TOKENSYM EQ
Line S00439 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema8
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00439.fsema8  ---|        PARMKEY[TMP2] THEN KEYPARM=TMP2;
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  M01S00440.fsemain +++|      END
Line S00441 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema8
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00441.fsema8  ---|    ELSE                   # STANDALONE PARAMETER        #
Line S00442 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema8
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00442.fsema8  ---|      BEGIN
00816  M01S00018.fsema8  +++|    ELSE
00817  M01S00019.fsema8  +++|      BEGIN                          # PARAMETER #
00818  M01S00443.fsemain +++|      IF KEYPARM NQ 0 THEN GOTO KEYPARMSW[KEYPARM];
00819  M01S00444.fsemain +++|      POSPARM=POSPARM+1;
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  M01S00445.fsemain +++|      IF B<0,42>MEM[TMP1] NQ 0 THEN GOTO POSPARMSW[POSPARM];
00830  M01S00446.fsemain +++|      GOTO NEXTPARM;
00831  M01S00447.fsemain +++|
00832  M01S00448.fsemain +++|PSFILE:
00833  M01S00449.fsemain +++|      FILENAM[1]=C<0,7>MEM[TMP1];
00834  M01S00450.fsemain +++|      TRYRESUME=FALSE;
00835  M01S00451.fsemain +++|      GOTO NEXTPARM;
00836  M01S00452.fsemain +++|
00837  M01S00453.fsemain +++|PSINP:
00838  M01S00454.fsemain +++|      INPTNAM=C<0,7>MEM[TMP1];
00839  M01S00455.fsemain +++|      GOTO NEXTPARM;
00840  M01S00456.fsemain +++|
00841  M01S00457.fsemain +++|PSLST:
00842  M01S00458.fsemain +++|      OUTPNAM=C<0,7>MEM[TMP1];
00843  M01S00459.fsemain +++|      GOTO NEXTPARM;
00844  M01S00460.fsemain +++|
00845  M01S00461.fsemain +++|PSPROC:
00846  M01S00462.fsemain +++|      PROCNAM=C<0,7>MEM[TMP1];
00847  M01S00463.fsemain +++|      GOTO NEXTPARM;
00848  M01S00464.fsemain +++|
00849  M01S00465.fsemain +++|PSWORK:
00850  M01S00466.fsemain +++|      WORKNAM=C<0,7>MEM[TMP1];
00851  M01S00467.fsemain +++|      GOTO NEXTPARM;
00852  M01S00468.fsemain +++|
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  M01S00469.fsemain +++|PSDFLT:  PSCHAR:  PSOP:
00868  M01S00470.fsemain +++|      FOR TOKENLEN=7 STEP -1 WHILE TOKENLEN GR 0 DO
00869  M01S00471.fsemain +++|        BEGIN
00870  M01S00472.fsemain +++|        IF C<TOKENLEN-1,1>TOKENSYM NQ " " THEN GOTO PSOP2;
00871  M01S00473.fsemain +++|        END
00872  M01S00474.fsemain +++|PSOP2:
00873  M01S00475.fsemain +++|      KEYWDNDX=-1;
00874  M01S00476.fsemain +++|      KEYWDTYPE=4;
00875  M01S00477.fsemain +++|      MATCHKEY(TMP2);
00876  M01S00478.fsemain +++|      IF KEYWDNDX EQ KEYST"XGET" THEN GETPARM=2;
00877  M01S00479.fsemain +++|      ELSE IF KEYWDNDX EQ KEYST"XDIS" OR KEYWDNDX EQ KEYST"XNOR"
00878  M01S00480.fsemain +++|        THEN CHARPARM=1;
00879  M01S00481.fsemain +++|      ELSE IF KEYWDNDX EQ KEYST"XASC" THEN CHARPARM=2;
00880  M01S00482.fsemain +++|      ELSE IF KEYWDNDX EQ KEYST"XASC8" OR KEYWDNDX EQ KEYST"XA8"
00881  M01S00483.fsemain +++|        THEN CHARPARM=3;
00882  M01S00484.fsemain +++|      ELSE MORTAL(" UNKNOWN FSE COMMAND OPTION.$");
00883  M01S00485.fsemain +++|      TOKENSYM=C<TMP2,10-TMP2>TOKENSYM;
00884  M01S00486.fsemain +++|      TOKENLEN=TOKENLEN-TMP2;
00885  M01S00487.fsemain +++|      IF TOKENLEN GR 0 THEN GOTO PSOP2;
00886  M01S00488.fsemain +++|
00887  M01S00489.fsemain +++|NEXTPARM:
00888  M01S00490.fsemain +++|      KEYPARM=0;
00889  M01S00491.fsemain +++|
00890  M01S00492.fsemain +++|      END
Line S00493 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema2
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00493.fsema2  ---|    TMP1=TMP1+1;
00892  M01S00494.fsemain +++|    END
00893  M01S00495.fsemain +++|
00894  M01S00496.fsemain +++|  END                         # OF CRACKCTL       #
00895  M01S00497.fsemain +++|
00896  M01S00498.fsemain +++|
00897  M01S00499.fsemain +++|PROC BLDINIT;
00898  M01S00500.fsemain +++|  BEGIN
00899  M01S00501.fsemain +++|#
00900  M01S00502.fsemain +++|**        BLDINIT - INITIALIZE EDIT SESSION.
00901  M01S00503.fsemain +++|*
00902  M01S00504.fsemain +++|*         ENTRY  EVERYTHING DEFAULTED.
00903  M01S00505.fsemain +++|*
Line S00506 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema15
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00506.fsema15 ---|*         EXIT   OLD SESION RESUMED OR NEW SESSION STARTED.
00905  M01S00001.fsema15 +++|*         EXIT   OLD SESSION RESUMED OR NEW SESSION STARTED.
00906  M01S00507.fsemain +++|*                ERRSTRING - ANNOUNCEMENT OF THE DAY.
00907  M01S00508.fsemain +++|*                P<CORE> - ZERO.
00908  M01S00509.fsemain +++|*                NUMMODE - CONTROLS EMPTY FILE SEQUENCE ASSUMPTION.
00909  M01S00510.fsemain +++|*                P<FET,OBF,READLST,BFPRU,DISK,FILEBUF> - INIT.
00910  M01S00511.fsemain +++|*                CONTROL STATEMENT SCANNED.
00911  M01S00512.fsemain +++|*                FILENAM[1] - FIRST FILE TO EDIT.
00912  M01S00513.fsemain +++|*                INPTNAM, OUTPNAM, WORKNAM, PROCNAM - FILE NAMES.
00913  M01S00514.fsemain +++|*                IORESUMED - TRUE.
00914  M01S00515.fsemain +++|*                NULLINPUT - WHETHER THERE IS ANY INPUT FILE.
00915  M01S00516.fsemain +++|*                INTERACT - WHETHER TRUE INTERACTIVE SESSION.
00916  M01S00517.fsemain +++|*                ALLASCII - WHETHER DISPLAY CODE OR 6/12 ASCII DEFAULT.
00917  M01S00518.fsemain +++|*                TTYINPUT - WHETHER INPUT IS FROM A TERMINAL.
00918  M01S00519.fsemain +++|*                WORKFILE ACCESS VALIDATED.
00919  M01S00520.fsemain +++|*                DEFAULT PROCEDURE FILE ACCESSED IF NEEDED.
00920  M01S00521.fsemain +++|*                SINGLEONLY - WHETHER TO SUPPRESS MULTI-USER.
00921  M01S00522.fsemain +++|*                CMDLIN - CLEARED OR BUILT-IN FIRST COMMAND.
00922  M01S00523.fsemain +++|*                SCANPOS, TOKENPOS - SET TO START SYNTAX SCAN.
00923  M01S00524.fsemain +++|*                SMALLFIELD - TRUE, AND FIELD LENGTH REDUCED.
00924  M01S00525.fsemain +++|*                USER BREAKS DISABLED IF INTERACT.
00925  M01S00526.fsemain +++|*
00926  M01S00527.fsemain +++|*         MACROS SETCHAR.
00927  M01S00528.fsemain +++|*
00928  M01S00529.fsemain +++|*         CALLS  GETSS, GETJO, CRACKCTL, TSTATUS, TTEQUIP,
00929  M01S00530.fsemain +++|*                VDTOPN, TTINIT, WRITEABLE, FATAL, VFYFILE,
00930  M01S00531.fsemain +++|*                ASSGNFILE, MAKEFET, GET, READ, LOCALFILE,
00931  M01S00532.fsemain +++|*                RESUMEFILES, FILBUILD, PAUSEIO, FLDLEN, STARTCMD,
00932  M01S00533.fsemain +++|*                DISTCON.
00933  M01S00534.fsemain +++|*
00934  M01S00535.fsemain +++|*         USES   PFMFET, CHARPARM, GETPARM, DSKSIZ, SETCMD(INTERNAL).
00935  M01S00536.fsemain +++|#
00936  M01S00537.fsemain +++|  ITEM TMP1, TMP2, TMP3;
00937  M01S00538.fsemain +++|
Line S00539 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00539.v23l617 ---|
Line S00540 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00540.v23l617 ---|  PROC SETCMD(STR,LEN,OFFSET);
Line S00541 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00541.v23l617 ---|    BEGIN
Line S00542 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00542.v23l617 ---|    ITEM STR C(40);
Line S00543 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00543.v23l617 ---|    ITEM LEN, OFFSET;
Line S00544 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00544.v23l617 ---|    ITEM TMP1, TMP2;
Line S00545 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00944  M02S00545.v23l617 ---|    TMP2=0;
Line S00546 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00546.v23l617 ---|    FOR TMP1=1 STEP 1 UNTIL LEN DO
Line S00547 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00547.v23l617 ---|      BEGIN
Line S00548 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00548.v23l617 ---|      C<9,1>TMP2=C<TMP1-1,1>STR;
Line S00549 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00549.v23l617 ---|      IF TMP2 EQ 0 THEN C<9,1>TMP2=" ";
Line S00550 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00949  M02S00550.v23l617 ---|      SETCHAR(CMDLINE,OFFSET+TMP1-1,TMP2);
Line S00551 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00551.v23l617 ---|      END
Line S00552 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00552.v23l617 ---|    END                              # OF SETCMD #
Line S00553 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00952  M02S00553.v23l617 ---|
Line S00554 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00554.v23l617 ---|
Line S00555 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00555.v23l617 ---|  # MAIN CODE STARTS HERE #
Line S00556 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00556.v23l617 ---|
00956  M01S00557.fsemain +++|  ERRSTRING="NOS FULL SCREEN EDITOR$";
00957  M01S00558.fsemain +++|  P<CORE>=0;
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  M01S00559.fsemain +++|  NUMMODE=NUMST"INTERPRET";
00971  M01S00560.fsemain +++|  GETSS(TMP1);
00972  M01S00561.fsemain +++|  GETJO(ORIGIN);
00973  M01S00562.fsemain +++|  IF TMP1 EQ BASIC THEN NUMMODE=NUMST"PREFER";
00974  M01S00563.fsemain +++|  IF TMP1 EQ FORTRAN OR TMP1 EQ FTNTS THEN
00975  M01S00564.fsemain +++|    BEGIN
00976  M01S00565.fsemain +++|    NUMMODE=NUMST"PREFER";
00977  M01S00566.fsemain +++|    BLANKS=0;
00978  M01S00567.fsemain +++|    END
00979  M01S00568.fsemain +++|  P<FET>=LOC(SNGLFET);
00980  M01S00569.fsemain +++|  P<OBF>=LOC(SNGLOBF);
00981  M01S00570.fsemain +++|  P<READLST>=LOC(SNGLLST);
00982  M01S00571.fsemain +++|  P<BFPRU>=LOC(SNGLPRU);
00983  M01S00572.fsemain +++|  P<DISK>=LOC(WORKBUF);
00984  M01S00573.fsemain +++|  P<FILEBUF>=LOC(BUILDBF);
00985  M01S00574.fsemain +++|  LINE[0]=NULLIN;
00986  M01S00575.fsemain +++|  CMDLINE[0]=NULLIN;
00987  M01S00576.fsemain +++|  TTYLINE[0]=NULLIN;
00988  M01S00577.fsemain +++|  CRACKCTL;
00989  M01S00578.fsemain +++|
00990  M01S00579.fsemain +++|  IF OUTPNAM EQ DEFOUTNAM AND FILENAM[1] EQ DEFOUTNAM
00991  M01S00580.fsemain +++|    THEN B<0,42>OUTPNAM=0;
00992  M01S00581.fsemain +++|  IF OUTPNAM EQ NULLNAM THEN B<0,42>OUTPNAM=0;
00993  M01S00582.fsemain +++|  IF INPTNAM EQ NULLNAM THEN
00994  M01S00583.fsemain +++|    BEGIN
00995  M01S00584.fsemain +++|    B<0,42>INPTNAM=0;
00996  M01S00585.fsemain +++|    NULLINPUT=TRUE;
00997  M01S00586.fsemain +++|    END
00998  M01S00587.fsemain +++|  IF FILENAM[1] EQ NULLNAM
00999  M01S00588.fsemain +++|    OR (GETPARM EQ 3 AND NOT TRYRESUME) THEN TRYRESUME=TRUE;
01000  M01S00589.fsemain +++|
01001  M01S00590.fsemain +++|  INTERACT=FALSE;
01002  M01S00591.fsemain +++|  IF ORIGIN EQ TXOT THEN
01003  M01S00592.fsemain +++|    BEGIN
01004  M01S00593.fsemain +++|    INTERACT=TRUE;
01005  M01S00594.fsemain +++|    TSTATUS(TSTATAREA);
01006  M01S00595.fsemain +++|    FORMERASCII=CURRENTASC;
01007  M01S00596.fsemain +++|    ALLASCII=INITASCII;
01008  M01S00597.fsemain +++|    END
01009  M01S00598.fsemain +++|  TTYINPUT=INTERACT AND TTEQUIP(INPTNAM);
Line S00599 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2132
Seq #  *Modification Id* Act 
----------------------------+
01010  M02S00599.ns2132  ---|  INTERACT=INTERACT AND TTYINPUT AND TTEQUIP(OUTPNAM);
01011  M01S00001.ns2132  +++|  TTYOUTPUT=INTERACT AND TTEQUIP(OUTPNAM);
01012  M01S00002.ns2132  +++|  INTERACT=INTERACT AND TTYINPUT AND TTYOUTPUT;
01013  M01S00600.fsemain +++|  VDTOPN;
01014  M01S00601.fsemain +++|  TTINIT;
01015  M01S00602.fsemain +++|  IF NOT (WRITEABLE(WORKNAM) AND WRITEABLE("ZZZMOVE"))
Line S00603 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema4
Seq #  *Modification Id* Act 
----------------------------+
01016  M02S00603.fsema4  ---|    THEN MORTAL(" FILE MUST BE ON DISK.$");
01017  M01S00001.fsema4  +++|    THEN MORTAL(" WORKFILE MUST BE WRITABLE.$");
Line S00001 Modification History
M01 (Added by) ns2626
M02 (Updated by) fsema16
Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00001.fsema16 ---|  WORKORG = WORKNAM;                 # SAVE FOR USE IN &Z MICRO #
Line S00604 Modification History
M01 (Added by) fsemain
M02 (Updated by) fsema15
Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00604.fsema15 ---|  VFYFILE(FILENAM[1],-1);
01020  M01S00002.fsema15 +++|  IF FILENAM[1] NQ " " THEN VFYFILE(FILENAM[1],-1);
01021  M01S00605.fsemain +++|
01022  M01S00606.fsemain +++|  IF NOT ASSGNFILE(PROCNAM) THEN
01023  M01S00607.fsemain +++|    BEGIN
01024  M01S00608.fsemain +++|    PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,0);
01025  M01S00609.fsemain +++|    IF PROCNAM EQ "FSEPROC" AND PFMERROR NQ 0 THEN
01026  M01S00610.fsemain +++|      BEGIN
Line S00611 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2247
Seq #  *Modification Id* Act 
----------------------------+
01027  M02S00611.ns2247  ---|      PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,"UN",HELPUSERNUM,0);
01028  M01S00001.ns2247  +++|  PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,"UN",HELPUSERNUM,"PN","0",0);
01029  M01S00612.fsemain +++|      END
01030  M01S00613.fsemain +++|    IF PFMERROR NQ 0 THEN
01031  M01S00614.fsemain +++|      BEGIN
01032  M01S00615.fsemain +++|      MAKEFET(PFMFET,PROCNAM,UTILBUF,MINIBUFSIZ);
01033  M01S00616.fsemain +++|      READ(PFMFET,1);       # ASSIGN NULL FILE #
01034  M01S00617.fsemain +++|      END
01035  M01S00618.fsemain +++|    END
01036  M01S00619.fsemain +++|
01037  M01S00620.fsemain +++|  DSKSIZ=INIDSKSIZ;            # NOW BUILD OR RESUME         #
01038  M01S00621.fsemain +++|
01039  M01S00622.fsemain +++|  # NOTE RESUMEFILES WILL CLEAR TRYRESUME IF UNABLE, THUS IT #
01040  M01S00623.fsemain +++|  # IS NECESSARY TO INTERROGATE TRYRESUME AGAIN AFTERWARDS #
01041  M01S00624.fsemain +++|  IF TRYRESUME THEN RESUMEFILES;
01042  M01S00625.fsemain +++|  IF NOT TRYRESUME THEN
01043  M01S00626.fsemain +++|    BEGIN                    # NO RESUME ATTEMPT OR ATTEMPT FAILED #
Line S00627 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2132
Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00627.ns2132  ---|    IF FILENAM[1] EQ " " THEN
01045  M01S00003.ns2132  +++|    IF FILENAM[1] EQ " " AND INTERACT THEN
01046  M01S00628.fsemain +++|      BEGIN
01047  M01S00629.fsemain +++|      TTSTR("WHICH FILE$");
01048  M01S00630.fsemain +++|      PROMPT(QCCKWRD);
01049  M01S00631.fsemain +++|      CONVIN(TTYLIN,2);
01050  M01S00632.fsemain +++|      TRIM(TTYLIN,0);
01051  M01S00633.fsemain +++|      TMP3=0;
01052  M01S00634.fsemain +++|      FOR TMP1=0 STEP 1 UNTIL LENGTH(TTYLIN)-1 DO
01053  M01S00635.fsemain +++|        BEGIN
01054  M01S00636.fsemain +++|        GETCHAR(TTYLINE,TMP1,TMP2);
01055  M01S00637.fsemain +++|        # CODE ASSUMES INTERNAL CHARSET EQUALS DISPLAY CODE #
01056  M01S00638.fsemain +++|        CONTROL IFNQ CLETTERA,1; DEFERROR; CONTROL FI;
01057  M01S00639.fsemain +++|        CONTROL IFNQ CDIGIT0,O"33"; DEFERROR; CONTROL FI;
01058  M01S00640.fsemain +++|        IF TMP2 GQ CLOWERA AND TMP2 LQ CLOWERZ
01059  M01S00641.fsemain +++|          THEN TMP2=TMP2-CLOWERA+CLETTERA;
01060  M01S00642.fsemain +++|        IF NOT DELIMITER[TMP2] AND TMP3 LQ 6 THEN
01061  M01S00643.fsemain +++|          BEGIN
01062  M01S00644.fsemain +++|          C<TMP3,1>FILENAM[1]=C<9,1>TMP2;
01063  M01S00645.fsemain +++|          TMP3=TMP3+1;
01064  M01S00646.fsemain +++|          END
01065  M01S00647.fsemain +++|        ELSE IF TMP2 NQ CBLANK THEN MORTAL("INVALID FILE NAME$");
01066  M01S00648.fsemain +++|        END
Line S00649 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2132
Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00649.ns2132  ---|      IF FILENAM[1] EQ " " THEN
Line S00650 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2132
Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00650.ns2132  ---|        BEGIN
Line S00651 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2132
Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00651.ns2132  ---|        MORTAL(" NO FILE NAME ON FSE COMMAND.$");
Line S00652 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2132
Seq #  *Modification Id* Act 
----------------------------+
01070  M02S00652.ns2132  ---|        END
01071  M01S00653.fsemain +++|      VFYFILE(FILENAM[1],-1);
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  M01S00654.fsemain +++|      END
01077  M01S00655.fsemain +++|    FILBUILD;
Line S00656 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00656.v23l617 ---|    FOR TMP1=0 STEP 1 UNTIL 27 DO SETCHAR(CMDLINE,TMP1,CBLANK);
Line S00657 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00657.v23l617 ---|    SETCHAR(CMDLINE,28,CENDLINE);
01080  M01S00042.v23l617 +++|    FOR TMP1=0 STEP 1 UNTIL 20 DO SETCHAR(CMDLINE,TMP1,CBLANK);
01081  M01S00043.v23l617 +++|    SETCHAR(CMDLINE,21,CENDLINE);
Line S00658 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00658.v23l617 ---|    # START OF MODIFY CONDITIONAL SEQUENCE #
Line S00659 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00659.v23l617 ---|*IF UNDEF,RETRO
01084  M01S00660.fsemain +++|    IF INTERACT THEN
Line S00661 Modification History
M01 (Added by) fsemain
M02 (Updated by) ns2404
Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00661.ns2404  ---|      BEGIN
01086  M01S00007.ns2404  +++|      BEGIN                          # IF INTERACTIVE #
01087  M01S00662.fsemain +++|      VDTGSL(TMP1,TMP2);             # GET SCREEN/LINE MODE #
01088  M01S00663.fsemain +++|      IF TMP2 NQ 0 THEN              # SCREEN MODE #
01089  M01S00664.fsemain +++|        BEGIN
Line S00665 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00665.v23l617 ---|        VDTGTN(TMP1,TMP2);           # GET TERMINAL NAME #
Line S00666 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00666.v23l617 ---|        SETCMD("SET SCREEN ",11,0);  # CONSTRUCT SETSCREEN COMMAND #
Line S00667 Modification History
M01 (Added by) fsemain
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01092  M02S00667.v23l617 ---|        SETCMD(TMP2,7,11);
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/fsemain.txt ยท Last modified: by 127.0.0.1