User Tools

Site Tools


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

Deck FSEPROC

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.fseproc +++|*NOSEQ
00002  M01S00002.fseproc +++|*WIDTH 132
00003  M01S00003.fseproc +++|STARTUP
00004  M01S00004.fseproc +++|  -- THIS IS AN EMPTY STARTUP PROCEDURE SO THAT FSE FINDS ONE AND
00005  M01S00005.fseproc +++|  -- DOES NOT HAVE TO SEARCH THROUGH THIS ENTIRE FILE AT STARTUP.
00006  M01S00006.fseproc +++|QP
00007  M01S00007.fseproc +++|
00008  M01S00008.fseproc +++|CUT
00009  M01S00009.fseproc +++|  -- CUT MOVES THE MARKED AREA OF THE SCREEN TO FILE ZZZZCUT.
00010  M01S00010.fseproc +++|  -CUT2 &F
00011  M01S00011.fseproc +++|QP
00012  M01S00012.fseproc +++|
00013  M01S00013.fseproc +++|CUT2
00014  M01S00014.fseproc +++|  -- CUT2 IS USED BY CUT.
00015  M01S00015.fseproc +++|  DA(ZZZZCUT)
00016  M01S00016.fseproc +++|  SNN
00017  M01S00017.fseproc +++|  MMTL(ZZZZCUT)
00018  M01S00018.fseproc +++|  F &1
00019  M01S00019.fseproc +++|  SA/TEXT MOVED TO FILE ZZZZCUT/
00020  M01S00020.fseproc +++|QP
00021  M01S00021.fseproc +++|
00022  M01S00022.fseproc +++|PASTE
00023  M01S00023.fseproc +++|  -- PASTE INSERTS A COPY OF THE CUT TEXT AT THE CURRENT LOCATION.
00024  M01S00024.fseproc +++|  CA(ZZZZCUT)TP
00025  M01S00025.fseproc +++|  SA/TEXT COPIED FROM FILE ZZZZCUT/
00026  M01S00026.fseproc +++|QP
00027  M01S00027.fseproc +++|
00028  M01S00028.fseproc +++|EXTRACT
00029  M01S00029.fseproc +++|  -- EXTRACT COPIES LINES CONTAINING A STRING TO ZZZTEMP.
00030  M01S00030.fseproc +++|  SX
00031  M01S00031.fseproc +++|  L1/&?/; -EXTRAC2 &F
00032  M01S00032.fseproc +++|QP
00033  M01S00033.fseproc +++|
00034  M01S00034.fseproc +++|EXTRAC2
00035  M01S00035.fseproc +++|  -- EXTRAC2 IS USED BY EXTRACT.
00036  M01S00036.fseproc +++|  C TO L(ZZZTEMP); F &1; PN; L; -EXTRAC2 &1
00037  M01S00037.fseproc +++|  VX
00038  M01S00038.fseproc +++|  SA/LINES COPIED TO FILE ZZZTEMP/
00039  M01S00039.fseproc +++|QP
00040  M01S00040.fseproc +++|
00041  M01S00041.fseproc +++|REMOVE
00042  M01S00042.fseproc +++|  -- REMOVE DELETES LINES CONTAINING A SPECIFIED STRING.
00043  M01S00043.fseproc +++|  SX
00044  M01S00044.fseproc +++|  L/&?/1; -REMOVE2
00045  M01S00045.fseproc +++|QP
00046  M01S00046.fseproc +++|
00047  M01S00047.fseproc +++|REMOVE2
00048  M01S00048.fseproc +++|  -- REMOVE2 IS USED BY REMOVE.
00049  M01S00049.fseproc +++|  D; PN; L; -REMOVE2
00050  M01S00050.fseproc +++|  VX
00051  M01S00051.fseproc +++|  SA/LINES REMOVED FROM FILE/
00052  M01S00052.fseproc +++|QP
00053  M01S00053.fseproc +++|
00054  M01S00054.fseproc +++|FINDWID
00055  M01S00055.fseproc +++|  -- FINDWID FINDS THE NEXT LINE IN THE FILE WHICH IS WIDER THAN THE
00056  M01S00056.fseproc +++|  -- WIDTH SPECIFIED IN THE PROCEDURE CALL, I.E., "-FINDWID 72"
00057  M01S00057.fseproc +++|  SET VIEW WARN &1
00058  M01S00058.fseproc +++|  PCL
00059  M01S00059.fseproc +++|  SET VIEW WARN 160
00060  M01S00060.fseproc +++|QP
00061  M01S00061.fseproc +++|
00062  M01S00062.fseproc +++|FINDBLK
00063  M01S00063.fseproc +++|  -- FINDBLK FINDS THE NEXT LINE FROM THE CURRENT POSITION WHICH IS
00064  M01S00064.fseproc +++|  -- BLANK (EMPTY).  IT ONLY WORKS FOR UNSEQUENCED (NON-BASIC) FILES.
00065  M01S00065.fseproc +++|  -- IT USES THE X AND Y REGISTERS.
00066  M01S00066.fseproc +++|  PC; .P2; SXW
00067  M01S00067.fseproc +++|  .END; SYW
00068  M01S00068.fseproc +++|  QP XY; PN; -FINDBLK
00069  M01S00069.fseproc +++|QP
00070  M01S00070.fseproc +++|
00071  M01S00071.fseproc +++|NEXTBLK
00072  M01S00072.fseproc +++|  -- FINDBLK FINDS THE NEXT BLANK LINE NOT INCLUDING THE CURRENT LINE.
00073  M01S00073.fseproc +++|  PN; -FINDBLK
00074  M01S00074.fseproc +++|QP
00075  M01S00075.fseproc +++|
00076  M01S00076.fseproc +++|FINDNOT
00077  M01S00077.fseproc +++|  -- FINDNOT FINDS THE FIRST LINE THAT DOES NOT CONTAIN A STRING.
00078  M01S00078.fseproc +++|  SX; L/&?/
00079  M01S00079.fseproc +++|  SY; PX; QP YX; PN; -FNDNOT2
00080  M01S00080.fseproc +++|QP
00081  M01S00081.fseproc +++|
00082  M01S00082.fseproc +++|FINDREP
00083  M01S00083.fseproc +++|  -- FINDREP FINDS THE NEXT LINE THAT DOES NOT CONTAIN A STRING.
00084  M01S00084.fseproc +++|  PN;
00085  M01S00085.fseproc +++|  SX; L
00086  M01S00086.fseproc +++|  SY; PX; QP YX; PN; -FNDNOT2
00087  M01S00087.fseproc +++|QP
00088  M01S00088.fseproc +++|
00089  M01S00089.fseproc +++|FNDNOT2
00090  M01S00090.fseproc +++|  -- FNDNOT2 IS USED BY FINDNOT.
00091  M01S00091.fseproc +++|  SX; L
00092  M01S00092.fseproc +++|  SY; PX; QP YX; PN; -FNDNOT2
00093  M01S00093.fseproc +++|QP
00094  M01S00094.fseproc +++|
00095  M01S00095.fseproc +++|INDENT
00096  M01S00096.fseproc +++|  -- INDENT MOVES THE MARKED AREA OF THE SCREEN RIGHT TWO POSITIONS.
00097  M01S00097.fseproc +++|  AM/  #/
00098  M01S00098.fseproc +++|QP
00099  M01S00099.fseproc +++|
00100  M01S00100.fseproc +++|DEDENT
00101  M01S00101.fseproc +++|  -- DEDENT MOVES THE MARKED AREA OF THE SCREEN LEFT TWO POSITIONS.
00102  M01S00102.fseproc +++|  AM/##/
00103  M01S00103.fseproc +++|QP
00104  M01S00104.fseproc +++|
00105  M01S00105.fseproc +++|UPPER
00106  M01S00106.fseproc +++|  -- UPPER CONVERTS ALL LOWER CASE ALPHABETIC CHARACTERS
00107  M01S00107.fseproc +++|  -- ON THE CURRENT LINE TO UPPER CASE IF HAVE SPECIFIED
00108  M01S00108.fseproc +++|  -- ASCII AS YOUR DEFAULT CHARACTER SET TO THE SYSTEM.
00109  M01S00109.fseproc +++|  RCCQ/a/A/
00110  M01S00110.fseproc +++|  RCCQ/b/B/
00111  M01S00111.fseproc +++|  RCCQ/c/C/
00112  M01S00112.fseproc +++|  RCCQ/d/D/
00113  M01S00113.fseproc +++|  RCCQ/e/E/
00114  M01S00114.fseproc +++|  RCCQ/f/F/
00115  M01S00115.fseproc +++|  RCCQ/g/G/
00116  M01S00116.fseproc +++|  RCCQ/h/H/
00117  M01S00117.fseproc +++|  RCCQ/i/I/
00118  M01S00118.fseproc +++|  RCCQ/j/J/
00119  M01S00119.fseproc +++|  RCCQ/k/K/
00120  M01S00120.fseproc +++|  RCCQ/l/L/
00121  M01S00121.fseproc +++|  RCCQ/m/M/
00122  M01S00122.fseproc +++|  RCCQ/n/N/
00123  M01S00123.fseproc +++|  RCCQ/o/O/
00124  M01S00124.fseproc +++|  RCCQ/p/P/
00125  M01S00125.fseproc +++|  RCCQ/q/Q/
00126  M01S00126.fseproc +++|  RCCQ/r/R/
00127  M01S00127.fseproc +++|  RCCQ/s/S/
00128  M01S00128.fseproc +++|  RCCQ/t/T/
00129  M01S00129.fseproc +++|  RCCQ/u/U/
00130  M01S00130.fseproc +++|  RCCQ/v/V/
00131  M01S00131.fseproc +++|  RCCQ/w/W/
00132  M01S00132.fseproc +++|  RCCQ/x/X/
00133  M01S00133.fseproc +++|  RCCQ/y/Y/
00134  M01S00134.fseproc +++|  RCCQ/z/Z/
00135  M01S00135.fseproc +++|  PC
00136  M01S00136.fseproc +++|  SA/CHARACTERS CONVERTED TO UPPER CASE/
00137  M01S00137.fseproc +++|QP
00138  M01S00138.fseproc +++|
00139  M01S00139.fseproc +++|LOWER
00140  M01S00140.fseproc +++|  -- LOWER CONVERTS ALL UPPER CASE ALPHABETIC CHARACTERS
00141  M01S00141.fseproc +++|  -- ON THE CURRENT LINE TO LOWER CASE IF HAVE SPECIFIED
00142  M01S00142.fseproc +++|  -- ASCII AS YOUR DEFAULT CHARACTER SET TO THE SYSTEM.
00143  M01S00143.fseproc +++|  RCCQ/A/a/
00144  M01S00144.fseproc +++|  RCCQ/B/b/
00145  M01S00145.fseproc +++|  RCCQ/C/c/
00146  M01S00146.fseproc +++|  RCCQ/D/d/
00147  M01S00147.fseproc +++|  RCCQ/E/e/
00148  M01S00148.fseproc +++|  RCCQ/F/f/
00149  M01S00149.fseproc +++|  RCCQ/G/g/
00150  M01S00150.fseproc +++|  RCCQ/H/h/
00151  M01S00151.fseproc +++|  RCCQ/I/i/
00152  M01S00152.fseproc +++|  RCCQ/J/j/
00153  M01S00153.fseproc +++|  RCCQ/K/k/
00154  M01S00154.fseproc +++|  RCCQ/L/l/
00155  M01S00155.fseproc +++|  RCCQ/M/m/
00156  M01S00156.fseproc +++|  RCCQ/N/n/
00157  M01S00157.fseproc +++|  RCCQ/O/o/
00158  M01S00158.fseproc +++|  RCCQ/P/p/
00159  M01S00159.fseproc +++|  RCCQ/Q/q/
00160  M01S00160.fseproc +++|  RCCQ/R/r/
00161  M01S00161.fseproc +++|  RCCQ/S/s/
00162  M01S00162.fseproc +++|  RCCQ/T/t/
00163  M01S00163.fseproc +++|  RCCQ/U/u/
00164  M01S00164.fseproc +++|  RCCQ/V/v/
00165  M01S00165.fseproc +++|  RCCQ/W/w/
00166  M01S00166.fseproc +++|  RCCQ/X/x/
00167  M01S00167.fseproc +++|  RCCQ/Y/y/
00168  M01S00168.fseproc +++|  RCCQ/Z/z/
00169  M01S00169.fseproc +++|  PC
00170  M01S00170.fseproc +++|  SA/CHARACTERS CONVERTED TO LOWER CASE/
00171  M01S00171.fseproc +++|QP
00172  M01S00172.fseproc +++|
00173  M01S00173.fseproc +++|SWITCH
00174  M01S00174.fseproc +++|  -- SWITCH SWAPS THE CASE OF ALL ALPHABETIC CHARACTERS
00175  M01S00175.fseproc +++|  -- ON THE CURRENT LINE IF HAVE SPECIFIED ASCII AS THE
00176  M01S00176.fseproc +++|  -- DEFAULT CHARACTER SET TO THE SYSTEM.
00177  M01S00177.fseproc +++|  RCCQ/A/~a/
00178  M01S00178.fseproc +++|  RCCQ/a/A/
00179  M01S00179.fseproc +++|  RCCQ/~A/a/
00180  M01S00180.fseproc +++|  RCCQ/B/~b/
00181  M01S00181.fseproc +++|  RCCQ/b/B/
00182  M01S00182.fseproc +++|  RCCQ/~B/b/
00183  M01S00183.fseproc +++|  RCCQ/C/~c/
00184  M01S00184.fseproc +++|  RCCQ/c/C/
00185  M01S00185.fseproc +++|  RCCQ/~C/c/
00186  M01S00186.fseproc +++|  RCCQ/D/~d/
00187  M01S00187.fseproc +++|  RCCQ/d/D/
00188  M01S00188.fseproc +++|  RCCQ/~D/d/
00189  M01S00189.fseproc +++|  RCCQ/E/~e/
00190  M01S00190.fseproc +++|  RCCQ/e/E/
00191  M01S00191.fseproc +++|  RCCQ/~E/e/
00192  M01S00192.fseproc +++|  RCCQ/F/~f/
00193  M01S00193.fseproc +++|  RCCQ/f/F/
00194  M01S00194.fseproc +++|  RCCQ/~F/f/
00195  M01S00195.fseproc +++|  RCCQ/G/~g/
00196  M01S00196.fseproc +++|  RCCQ/g/G/
00197  M01S00197.fseproc +++|  RCCQ/~G/g/
00198  M01S00198.fseproc +++|  RCCQ/H/~h/
00199  M01S00199.fseproc +++|  RCCQ/h/H/
00200  M01S00200.fseproc +++|  RCCQ/~H/h/
00201  M01S00201.fseproc +++|  RCCQ/I/~i/
00202  M01S00202.fseproc +++|  RCCQ/i/I/
00203  M01S00203.fseproc +++|  RCCQ/~I/i/
00204  M01S00204.fseproc +++|  RCCQ/J/~j/
00205  M01S00205.fseproc +++|  RCCQ/j/J/
00206  M01S00206.fseproc +++|  RCCQ/~J/j/
00207  M01S00207.fseproc +++|  RCCQ/K/~k/
00208  M01S00208.fseproc +++|  RCCQ/k/K/
00209  M01S00209.fseproc +++|  RCCQ/~K/k/
00210  M01S00210.fseproc +++|  RCCQ/L/~l/
00211  M01S00211.fseproc +++|  RCCQ/l/L/
00212  M01S00212.fseproc +++|  RCCQ/~L/l/
00213  M01S00213.fseproc +++|  RCCQ/M/~m/
00214  M01S00214.fseproc +++|  RCCQ/m/M/
00215  M01S00215.fseproc +++|  RCCQ/~M/m/
00216  M01S00216.fseproc +++|  RCCQ/N/~n/
00217  M01S00217.fseproc +++|  RCCQ/n/N/
00218  M01S00218.fseproc +++|  RCCQ/~N/n/
00219  M01S00219.fseproc +++|  RCCQ/O/~o/
00220  M01S00220.fseproc +++|  RCCQ/o/O/
00221  M01S00221.fseproc +++|  RCCQ/~O/o/
00222  M01S00222.fseproc +++|  RCCQ/P/~p/
00223  M01S00223.fseproc +++|  RCCQ/p/P/
00224  M01S00224.fseproc +++|  RCCQ/~P/p/
00225  M01S00225.fseproc +++|  RCCQ/Q/~q/
00226  M01S00226.fseproc +++|  RCCQ/q/Q/
00227  M01S00227.fseproc +++|  RCCQ/~Q/q/
00228  M01S00228.fseproc +++|  RCCQ/R/~r/
00229  M01S00229.fseproc +++|  RCCQ/r/R/
00230  M01S00230.fseproc +++|  RCCQ/~R/r/
00231  M01S00231.fseproc +++|  RCCQ/S/~s/
00232  M01S00232.fseproc +++|  RCCQ/s/S/
00233  M01S00233.fseproc +++|  RCCQ/~S/s/
00234  M01S00234.fseproc +++|  RCCQ/T/~t/
00235  M01S00235.fseproc +++|  RCCQ/t/T/
00236  M01S00236.fseproc +++|  RCCQ/~T/t/
00237  M01S00237.fseproc +++|  RCCQ/U/~u/
00238  M01S00238.fseproc +++|  RCCQ/u/U/
00239  M01S00239.fseproc +++|  RCCQ/~U/u/
00240  M01S00240.fseproc +++|  RCCQ/V/~v/
00241  M01S00241.fseproc +++|  RCCQ/v/V/
00242  M01S00242.fseproc +++|  RCCQ/~V/v/
00243  M01S00243.fseproc +++|  RCCQ/W/~w/
00244  M01S00244.fseproc +++|  RCCQ/w/W/
00245  M01S00245.fseproc +++|  RCCQ/~W/w/
00246  M01S00246.fseproc +++|  RCCQ/X/~x/
00247  M01S00247.fseproc +++|  RCCQ/x/X/
00248  M01S00248.fseproc +++|  RCCQ/~X/x/
00249  M01S00249.fseproc +++|  RCCQ/Y/~y/
00250  M01S00250.fseproc +++|  RCCQ/y/Y/
00251  M01S00251.fseproc +++|  RCCQ/~Y/y/
00252  M01S00252.fseproc +++|  RCCQ/Z/~z/
00253  M01S00253.fseproc +++|  RCCQ/z/Z/
00254  M01S00254.fseproc +++|  RCCQ/~Z/z/
00255  M01S00255.fseproc +++|  PC
00256  M01S00256.fseproc +++|  SA/CHARACTER CASES SWITCHED/
00257  M01S00257.fseproc +++|QP
00258  M01S00258.fseproc +++|
00259  M01S00259.fseproc +++|GOODIES
00260  M01S00260.fseproc +++|  -- HERE ARE SOME USEFUL FUNCTION KEYS.
00261  M01S00261.fseproc +++|  -- CHKPT CHECKPOINTS EDIT INTO PERM FILE AND RESUMES EDIT.
00262  M01S00262.fseproc +++|  SK1 /QR'FSE./ LABEL / CHKPT/
00263  M01S00263.fseproc +++|  -- HALF ADVANCES SCREEN BY HALF PAGES REGARDLESS OF CURSOR POSITION.
00264  M01S00264.fseproc +++|  SK2 /PS;V/ LABEL / HALF /
00265  M01S00265.fseproc +++|  -- MYSPLIT IS A VARIATION ON THE STANDARD SPLIT FUNCTION, BUT INSTEAD
00266  M01S00266.fseproc +++|  -- OF POINTING CURSOR AT START OF SECOND LINE, WE PUT IT AT END OF
00267  M01S00267.fseproc +++|  -- FIRST LINE.
00268  M01S00268.fseproc +++|  SK3 /.S;PP;.E/ LABEL /MYSPLIT/
00269  M01S00269.fseproc +++|  -- FTN5 COMPILES THE CURRENT FILE.
00270  M01S00270.fseproc +++|  SK4 '/FTN5,I=&&F.' LABEL ' FTN5 '
00271  M01S00271.fseproc +++|  -- RESEQ RESEQUENCES A BASIC PROGRAM AND CONTINUES EDITING.
00272  M01S00272.fseproc +++|  -- IT ASSUMES THE FOLLOWING CCL PROC IN YOUR PROCFIL --
00273  M01S00273.fseproc +++|  --
00274  M01S00274.fseproc +++|  --   .PROC,RESEQ,FILE.
00275  M01S00275.fseproc +++|  --   RESEQ,FILE,B,100,100.
00276  M01S00276.fseproc +++|  --   FSE.F FILE READ
00277  M01S00277.fseproc +++|  SK5 '-GOODY3' LABEL ' RESEQ'
00278  M01S00278.fseproc +++|  -- FORT COMPILES A FORTRAN PROGRAM, THEN IF THE COMPILE FAILED,
00279  M01S00279.fseproc +++|  -- IT PUTS YOU BACK IN THE EDITOR WITH THE LISTING AND SOURCE FILE
00280  M01S00280.fseproc +++|  -- ON THE SCREEN FOR INSPECTION AND CORRECTION.  IT ASSUMES THAT
00281  M01S00281.fseproc +++|  -- YOUR PROCFIL CONTAINS THIS CCL PROC --
00282  M01S00282.fseproc +++|  --
00283  M01S00283.fseproc +++|  --   .PROC,FORT,FILE.
00284  M01S00284.fseproc +++|  --   RETURN,LIST.
00285  M01S00285.fseproc +++|  --   FTN5,I=FILE,L=LIST.
00286  M01S00286.fseproc +++|  --   FSE.F LIST SPLIT READ
00287  M01S00287.fseproc +++|  SK6 /-GOODY2/ LABEL / FORT /
00288  M01S00288.fseproc +++|  -- MYJOIN IS A VARIATION ON THE DEFAULT JOIN FUNCTION KEY.  THIS
00289  M01S00289.fseproc +++|  -- ONE DIFFERS IN THAT IT GUARANTEES EXACTLY ONE BLANK AT THE POINT
00290  M01S00290.fseproc +++|  -- OF JUNCTURE, WHILE THE DEFAULT JOIN PROVIDES ZERO OR MORE BLANKS
00291  M01S00291.fseproc +++|  -- BASED ON CURSOR POSITION.
00292  M01S00292.fseproc +++|  SK7 /.E;.J;.I/ LABEL / JOIN /
00293  M01S00293.fseproc +++|  -- EDIT IS A WAY TO SWITCH FILES ON THE FLY, WITH THE EDITOR PROMPTING
00294  M01S00294.fseproc +++|  -- THE USER FOR THE NAME OF THE FILE TO BE EDITED.
00295  M01S00295.fseproc +++|  SK8/-GOODY4/ LABEL / EDIT /
00296  M01S00296.fseproc +++|QP
00297  M01S00297.fseproc +++|
00298  M01S00298.fseproc +++|GOODY2
00299  M01S00299.fseproc +++|  /BEGIN,FORT,,&F.
00300  M01S00300.fseproc +++|QP
00301  M01S00301.fseproc +++|
00302  M01S00302.fseproc +++|GOODY3
00303  M01S00303.fseproc +++|  /BEGIN,RESEQ,,&F.
00304  M01S00304.fseproc +++|QP
00305  M01S00305.fseproc +++|
00306  M01S00306.fseproc +++|GOODY4
00307  M01S00307.fseproc +++|  SET ANNOUNCE /ENTER FILENAME, PARMS/
00308  M01S00308.fseproc +++|  FSE &?
00309  M01S00309.fseproc +++|QP
00310  M01S00310.fseproc +++|
00311  M01S00311.fseproc +++|NOHEAD
00312  M01S00312.fseproc +++|  -- NOHEAD SIMPLY EXEMPLIFIES THE SET HEADER COMMAND.  THIS COMMAND
00313  M01S00313.fseproc +++|  -- CAN BE USED TO SHORTEN THE FILE TITLE MESSAGE, WHICH WILL SAVE
00314  M01S00314.fseproc +++|  -- SCREEN PAINTING TIME FOR THE SLOWER BAUD RATES, ESPECIALLY WHEN
00315  M01S00315.fseproc +++|  -- THE USER IS ADDING TEXT BEYOND THE END OF A FILE.
00316  M01S00316.fseproc +++|  SET HEADER NO
00317  M01S00317.fseproc +++|QP
00318  M01S00318.fseproc +++|
00319  M01S00319.fseproc +++|BOX
00320  M01S00320.fseproc +++|--  BOX PROCESSING IS DONE WITH 6 PROCEDURES
00321  M01S00321.fseproc +++|--    BOXTOP - SET UPPER LEFT CORNER OF THE BOX
00322  M01S00322.fseproc +++|--    BOXBTM - SET LOWER RIGHT CORNER OF THE BOX
00323  M01S00323.fseproc +++|--    DELBOX - DELETE THE BOX (LINES ARE SHORTENED)
00324  M01S00324.fseproc +++|--    ERSBOX - ERASE THE BOX (LINE LENGTH UNCHANGED)
00325  M01S00325.fseproc +++|--    INSBOX - INSERT THE BOX AT THE CURRENT CURSOR POSITION (LENGTHENS LINES)
00326  M01S00326.fseproc +++|--    REPBOX - REPLACE THE BOX AT THE CURRENT CURSOR POSITION (LENGTH UNCHANGED)
00327  M01S00327.fseproc +++|--
00328  M01S00328.fseproc +++|--  THE BOX PROCEDURES MARK THE BOX WITH THE X AND Y MARKS. THE Z MARK IS SET TO
00329  M01S00329.fseproc +++|--  THE CURRENT POSITION.
00330  M01S00330.fseproc +++|--
00331  M01S00331.fseproc +++|--  DELBOX AND ERSBOX DESTROY THE VALUES OF X AND Y. A NEW BOX MUST BE SET
00332  M01S00332.fseproc +++|--  BEFORE MORE BOX OPERATIONS CAN BE DONE.
00333  M01S00333.fseproc +++|--
00334  M01S00334.fseproc +++|--  INSBOX AND REPBOX PRESERVE THE BOX DEFINITION. A BOX MAY BE COPIED MORE THAN
00335  M01S00335.fseproc +++|--  ONCE WITHOUT RESETTING THE TOP AND BOTTOM. IF THE TEXT IN THE BOX MOVES,
00336  M01S00336.fseproc +++|--  THE BOX CORNERS MUST BE RESET.
00337  M01S00337.fseproc +++|--
00338  M01S00338.fseproc +++|--  A BOX MAY BE MOVED BY USING INSBOX OR REPBOX, FOLLOWED BY ERSBOX OR DELBOX.
00339  M01S00339.fseproc +++|--
00340  M01S00340.fseproc +++|--  NOTE THAT INSERTING OR COPYING A BOX TO A LOCATION ON EXACTLY THE SAME
00341  M01S00341.fseproc +++|--  LINES MAY PRODUCE UNEXPECTED RESULTS. IF THIS HAPPENS, UNDO THE CHANGE,
00342  M01S00342.fseproc +++|--  COPY THE BOX TO A SCRATCH AREA, AND THEN COPY IT TO THE DESIRED LOCATION.
00343  M01S00343.fseproc +++|--
00344  M01S00344.fseproc +++|SK  6 '-BOXSX' LABEL 'BOXTOP'
00345  M01S00345.fseproc +++|SK S6 '-BOXSY' LABEL 'BOXBTM'
00346  M01S00346.fseproc +++|SK  7 '-BOXSZ,DEL' LABEL 'DELBOX'
00347  M01S00347.fseproc +++|SK S7 '-BOXSZ,ERS' LABEL 'ERSBOX'
00348  M01S00348.fseproc +++|SK  8 '-BOXSZ,INS' LABEL 'INSBOX'
00349  M01S00349.fseproc +++|SK S8 '-BOXSZ,REP' LABEL 'REPBOX'
00350  M01S00350.fseproc +++|QP
00351  M01S00351.fseproc +++|
00352  M01S00352.fseproc +++|BOXSX
00353  M01S00353.fseproc +++|SXW
00354  M01S00354.fseproc +++|SA 'TOP LEFT CORNER SET'
00355  M01S00355.fseproc +++|QP
00356  M01S00356.fseproc +++|
00357  M01S00357.fseproc +++|BOXSY
00358  M01S00358.fseproc +++|SYW
00359  M01S00359.fseproc +++|SA 'BOTTOM RIGHT CORNER SET'
00360  M01S00360.fseproc +++|QP
00361  M01S00361.fseproc +++|
00362  M01S00362.fseproc +++|BOXSZ
00363  M01S00363.fseproc +++|SA 'BAD BOX (MINIMUM OF 2 CHARS OR LINES)';QPXY
00364  M01S00364.fseproc +++|SZW
00365  M01S00365.fseproc +++|PX
00366  M01S00366.fseproc +++|PX;PY;SA/ /;-BOX&1 &L
00367  M01S00367.fseproc +++|QP
00368  M01S00368.fseproc +++|
00369  M01S00369.fseproc +++|BOXINS
00370  M01S00370.fseproc +++|P&1;.PX;SMW;.PY+1;.I/&&?$!/;.PY+4;SMW
00371  M01S00371.fseproc +++|PZ;CM;R/&&?$!//CCQ
00372  M01S00372.fseproc +++|P&1;.PY+1;RCCQ
00373  M01S00373.fseproc +++|SA/ /;PN
00374  M01S00374.fseproc +++|PZ;QP&LY;P&L
00375  M01S00375.fseproc +++|SZZ+1W;-BOXINS &L
00376  M01S00376.fseproc +++|PL;I/ /;SZZ+1W;-BOXINS &L
00377  M01S00377.fseproc +++|QP
00378  M01S00378.fseproc +++|
00379  M01S00379.fseproc +++|BOXDEL
00380  M01S00380.fseproc +++|PX;SMW;.PY;SMW;DM
00381  M01S00381.fseproc +++|SXX+1W;QPXY;-BOXDEL
00382  M01S00382.fseproc +++|QP
00383  M01S00383.fseproc +++|
00384  M01S00384.fseproc +++|BOXREP
00385  M01S00385.fseproc +++|PX
00386  M01S00386.fseproc +++|-BOXRE1 &1 &C
00387  M01S00387.fseproc +++|QP
00388  M01S00388.fseproc +++|
00389  M01S00389.fseproc +++|BOXRE1
00390  M01S00390.fseproc +++|.PY-&2
00391  M01S00391.fseproc +++|.P&C+1
00392  M01S00392.fseproc +++|-BOXRE2 &1 &C
00393  M01S00393.fseproc +++|QP
00394  M01S00394.fseproc +++|
00395  M01S00395.fseproc +++|BOXRE2
00396  M01S00396.fseproc +++|P&1;.PX;SMW;.PY+1;.I/&&?$!/;.PY+4;SMW
00397  M01S00397.fseproc +++|PZ;.PZ+&2;.S;PP;.PZ;.S;DC;.J;.PZ;CM;.PZ+&2;R/&&?$!//CCQ
00398  M01S00398.fseproc +++|P&1;.PY+1;RCCQ
00399  M01S00399.fseproc +++|SA/ /;PN;QPCY
00400  M01S00400.fseproc +++|SZZ+1W;PZ;-BOXRE2 &L &2
00401  M01S00401.fseproc +++|PL;I/ /;SZZ+1W;PZ;-BOXRE2 &L &2
00402  M01S00402.fseproc +++|QP
00403  M01S00403.fseproc +++|
00404  M01S00404.fseproc +++|BOXERS
00405  M01S00405.fseproc +++|PX;.PY+1;.S;PP;.PX;.S;DC;.PY+1;.J
00406  M01S00406.fseproc +++|SXX+1W;QPXY;-BOXERS
00407  M01S00407.fseproc +++|QP
00408  M01S00408.fseproc +++|*WEOR
cdc/nos2.source/opl.opl871/deck/fseproc.txt ยท Last modified: by 127.0.0.1