User Tools

Site Tools


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

Deck FSEPROC

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.fseproc +++|*NOSEQ
00002  M00S00002.fseproc +++|*WIDTH 132
00003  M00S00003.fseproc +++|STARTUP
00004  M00S00004.fseproc +++|  -- THIS IS AN EMPTY STARTUP PROCEDURE SO THAT FSE FINDS ONE AND
00005  M00S00005.fseproc +++|  -- DOES NOT HAVE TO SEARCH THROUGH THIS ENTIRE FILE AT STARTUP.
00006  M00S00006.fseproc +++|QP
00007  M00S00007.fseproc +++|
00008  M00S00008.fseproc +++|CUT
00009  M00S00009.fseproc +++|  -- CUT MOVES THE MARKED AREA OF THE SCREEN TO FILE ZZZZCUT.
00010  M00S00010.fseproc +++|  -CUT2 &F
00011  M00S00011.fseproc +++|QP
00012  M00S00012.fseproc +++|
00013  M00S00013.fseproc +++|CUT2
00014  M00S00014.fseproc +++|  -- CUT2 IS USED BY CUT.
00015  M00S00015.fseproc +++|  DA(ZZZZCUT)
00016  M00S00016.fseproc +++|  SNN
00017  M00S00017.fseproc +++|  MMTL(ZZZZCUT)
00018  M00S00018.fseproc +++|  F &1
00019  M00S00019.fseproc +++|  SA/TEXT MOVED TO FILE ZZZZCUT/
00020  M00S00020.fseproc +++|QP
00021  M00S00021.fseproc +++|
00022  M00S00022.fseproc +++|PASTE
00023  M00S00023.fseproc +++|  -- PASTE INSERTS A COPY OF THE CUT TEXT AT THE CURRENT LOCATION.
00024  M00S00024.fseproc +++|  CA(ZZZZCUT)TP
00025  M00S00025.fseproc +++|  SA/TEXT COPIED FROM FILE ZZZZCUT/
00026  M00S00026.fseproc +++|QP
00027  M00S00027.fseproc +++|
00028  M00S00028.fseproc +++|EXTRACT
00029  M00S00029.fseproc +++|  -- EXTRACT COPIES LINES CONTAINING A STRING TO ZZZTEMP.
00030  M00S00030.fseproc +++|  SX
00031  M00S00031.fseproc +++|  L1/&?/; -EXTRAC2 &F
00032  M00S00032.fseproc +++|QP
00033  M00S00033.fseproc +++|
00034  M00S00034.fseproc +++|EXTRAC2
00035  M00S00035.fseproc +++|  -- EXTRAC2 IS USED BY EXTRACT.
00036  M00S00036.fseproc +++|  C TO L(ZZZTEMP); F &1; PN; L; -EXTRAC2 &1
00037  M00S00037.fseproc +++|  VX
00038  M00S00038.fseproc +++|  SA/LINES COPIED TO FILE ZZZTEMP/
00039  M00S00039.fseproc +++|QP
00040  M00S00040.fseproc +++|
00041  M00S00041.fseproc +++|REMOVE
00042  M00S00042.fseproc +++|  -- REMOVE DELETES LINES CONTAINING A SPECIFIED STRING.
00043  M00S00043.fseproc +++|  SX
00044  M00S00044.fseproc +++|  L/&?/1; -REMOVE2
00045  M00S00045.fseproc +++|QP
00046  M00S00046.fseproc +++|
00047  M00S00047.fseproc +++|REMOVE2
00048  M00S00048.fseproc +++|  -- REMOVE2 IS USED BY REMOVE.
00049  M00S00049.fseproc +++|  D; PN; L; -REMOVE2
00050  M00S00050.fseproc +++|  VX
00051  M00S00051.fseproc +++|  SA/LINES REMOVED FROM FILE/
00052  M00S00052.fseproc +++|QP
00053  M00S00053.fseproc +++|
00054  M00S00054.fseproc +++|FINDWID
00055  M00S00055.fseproc +++|  -- FINDWID FINDS THE NEXT LINE IN THE FILE WHICH IS WIDER THAN THE
00056  M00S00056.fseproc +++|  -- WIDTH SPECIFIED IN THE PROCEDURE CALL, I.E., "-FINDWID 72"
00057  M00S00057.fseproc +++|  SET VIEW WARN &1
00058  M00S00058.fseproc +++|  PCL
00059  M00S00059.fseproc +++|  SET VIEW WARN 160
00060  M00S00060.fseproc +++|QP
00061  M00S00061.fseproc +++|
00062  M00S00062.fseproc +++|FINDBLK
00063  M00S00063.fseproc +++|  -- FINDBLK FINDS THE NEXT LINE FROM THE CURRENT POSITION WHICH IS
00064  M00S00064.fseproc +++|  -- BLANK (EMPTY).  IT ONLY WORKS FOR UNSEQUENCED (NON-BASIC) FILES.
00065  M00S00065.fseproc +++|  -- IT USES THE X AND Y REGISTERS.
00066  M00S00066.fseproc +++|  PC; .P2; SXW
00067  M00S00067.fseproc +++|  .END; SYW
00068  M00S00068.fseproc +++|  QP XY; PN; -FINDBLK
00069  M00S00069.fseproc +++|QP
00070  M00S00070.fseproc +++|
00071  M00S00071.fseproc +++|NEXTBLK
00072  M00S00072.fseproc +++|  -- FINDBLK FINDS THE NEXT BLANK LINE NOT INCLUDING THE CURRENT LINE.
00073  M00S00073.fseproc +++|  PN; -FINDBLK
00074  M00S00074.fseproc +++|QP
00075  M00S00075.fseproc +++|
00076  M00S00076.fseproc +++|FINDNOT
00077  M00S00077.fseproc +++|  -- FINDNOT FINDS THE FIRST LINE THAT DOES NOT CONTAIN A STRING.
00078  M00S00078.fseproc +++|  SX; L/&?/
00079  M00S00079.fseproc +++|  SY; PX; QP YX; PN; -FNDNOT2
00080  M00S00080.fseproc +++|QP
00081  M00S00081.fseproc +++|
00082  M00S00082.fseproc +++|FINDREP
00083  M00S00083.fseproc +++|  -- FINDREP FINDS THE NEXT LINE THAT DOES NOT CONTAIN A STRING.
00084  M00S00084.fseproc +++|  PN;
00085  M00S00085.fseproc +++|  SX; L
00086  M00S00086.fseproc +++|  SY; PX; QP YX; PN; -FNDNOT2
00087  M00S00087.fseproc +++|QP
00088  M00S00088.fseproc +++|
00089  M00S00089.fseproc +++|FNDNOT2
00090  M00S00090.fseproc +++|  -- FNDNOT2 IS USED BY FINDNOT.
00091  M00S00091.fseproc +++|  SX; L
00092  M00S00092.fseproc +++|  SY; PX; QP YX; PN; -FNDNOT2
00093  M00S00093.fseproc +++|QP
00094  M00S00094.fseproc +++|
00095  M00S00095.fseproc +++|INDENT
00096  M00S00096.fseproc +++|  -- INDENT MOVES THE MARKED AREA OF THE SCREEN RIGHT TWO POSITIONS.
00097  M00S00097.fseproc +++|  AM/  #/
00098  M00S00098.fseproc +++|QP
00099  M00S00099.fseproc +++|
00100  M00S00100.fseproc +++|DEDENT
00101  M00S00101.fseproc +++|  -- DEDENT MOVES THE MARKED AREA OF THE SCREEN LEFT TWO POSITIONS.
00102  M00S00102.fseproc +++|  AM/##/
00103  M00S00103.fseproc +++|QP
00104  M00S00104.fseproc +++|
00105  M00S00105.fseproc +++|UPPER
00106  M00S00106.fseproc +++|  -- UPPER CONVERTS ALL LOWER CASE ALPHABETIC CHARACTERS
00107  M00S00107.fseproc +++|  -- ON THE CURRENT LINE TO UPPER CASE IF HAVE SPECIFIED
00108  M00S00108.fseproc +++|  -- ASCII AS YOUR DEFAULT CHARACTER SET TO THE SYSTEM.
00109  M00S00109.fseproc +++|  RCCQ/a/A/
00110  M00S00110.fseproc +++|  RCCQ/b/B/
00111  M00S00111.fseproc +++|  RCCQ/c/C/
00112  M00S00112.fseproc +++|  RCCQ/d/D/
00113  M00S00113.fseproc +++|  RCCQ/e/E/
00114  M00S00114.fseproc +++|  RCCQ/f/F/
00115  M00S00115.fseproc +++|  RCCQ/g/G/
00116  M00S00116.fseproc +++|  RCCQ/h/H/
00117  M00S00117.fseproc +++|  RCCQ/i/I/
00118  M00S00118.fseproc +++|  RCCQ/j/J/
00119  M00S00119.fseproc +++|  RCCQ/k/K/
00120  M00S00120.fseproc +++|  RCCQ/l/L/
00121  M00S00121.fseproc +++|  RCCQ/m/M/
00122  M00S00122.fseproc +++|  RCCQ/n/N/
00123  M00S00123.fseproc +++|  RCCQ/o/O/
00124  M00S00124.fseproc +++|  RCCQ/p/P/
00125  M00S00125.fseproc +++|  RCCQ/q/Q/
00126  M00S00126.fseproc +++|  RCCQ/r/R/
00127  M00S00127.fseproc +++|  RCCQ/s/S/
00128  M00S00128.fseproc +++|  RCCQ/t/T/
00129  M00S00129.fseproc +++|  RCCQ/u/U/
00130  M00S00130.fseproc +++|  RCCQ/v/V/
00131  M00S00131.fseproc +++|  RCCQ/w/W/
00132  M00S00132.fseproc +++|  RCCQ/x/X/
00133  M00S00133.fseproc +++|  RCCQ/y/Y/
00134  M00S00134.fseproc +++|  RCCQ/z/Z/
00135  M00S00135.fseproc +++|  PC
00136  M00S00136.fseproc +++|  SA/CHARACTERS CONVERTED TO UPPER CASE/
00137  M00S00137.fseproc +++|QP
00138  M00S00138.fseproc +++|
00139  M00S00139.fseproc +++|LOWER
00140  M00S00140.fseproc +++|  -- LOWER CONVERTS ALL UPPER CASE ALPHABETIC CHARACTERS
00141  M00S00141.fseproc +++|  -- ON THE CURRENT LINE TO LOWER CASE IF HAVE SPECIFIED
00142  M00S00142.fseproc +++|  -- ASCII AS YOUR DEFAULT CHARACTER SET TO THE SYSTEM.
00143  M00S00143.fseproc +++|  RCCQ/A/a/
00144  M00S00144.fseproc +++|  RCCQ/B/b/
00145  M00S00145.fseproc +++|  RCCQ/C/c/
00146  M00S00146.fseproc +++|  RCCQ/D/d/
00147  M00S00147.fseproc +++|  RCCQ/E/e/
00148  M00S00148.fseproc +++|  RCCQ/F/f/
00149  M00S00149.fseproc +++|  RCCQ/G/g/
00150  M00S00150.fseproc +++|  RCCQ/H/h/
00151  M00S00151.fseproc +++|  RCCQ/I/i/
00152  M00S00152.fseproc +++|  RCCQ/J/j/
00153  M00S00153.fseproc +++|  RCCQ/K/k/
00154  M00S00154.fseproc +++|  RCCQ/L/l/
00155  M00S00155.fseproc +++|  RCCQ/M/m/
00156  M00S00156.fseproc +++|  RCCQ/N/n/
00157  M00S00157.fseproc +++|  RCCQ/O/o/
00158  M00S00158.fseproc +++|  RCCQ/P/p/
00159  M00S00159.fseproc +++|  RCCQ/Q/q/
00160  M00S00160.fseproc +++|  RCCQ/R/r/
00161  M00S00161.fseproc +++|  RCCQ/S/s/
00162  M00S00162.fseproc +++|  RCCQ/T/t/
00163  M00S00163.fseproc +++|  RCCQ/U/u/
00164  M00S00164.fseproc +++|  RCCQ/V/v/
00165  M00S00165.fseproc +++|  RCCQ/W/w/
00166  M00S00166.fseproc +++|  RCCQ/X/x/
00167  M00S00167.fseproc +++|  RCCQ/Y/y/
00168  M00S00168.fseproc +++|  RCCQ/Z/z/
00169  M00S00169.fseproc +++|  PC
00170  M00S00170.fseproc +++|  SA/CHARACTERS CONVERTED TO LOWER CASE/
00171  M00S00171.fseproc +++|QP
00172  M00S00172.fseproc +++|
00173  M00S00173.fseproc +++|SWITCH
00174  M00S00174.fseproc +++|  -- SWITCH SWAPS THE CASE OF ALL ALPHABETIC CHARACTERS
00175  M00S00175.fseproc +++|  -- ON THE CURRENT LINE IF HAVE SPECIFIED ASCII AS THE
00176  M00S00176.fseproc +++|  -- DEFAULT CHARACTER SET TO THE SYSTEM.
00177  M00S00177.fseproc +++|  RCCQ/A/~a/
00178  M00S00178.fseproc +++|  RCCQ/a/A/
00179  M00S00179.fseproc +++|  RCCQ/~A/a/
00180  M00S00180.fseproc +++|  RCCQ/B/~b/
00181  M00S00181.fseproc +++|  RCCQ/b/B/
00182  M00S00182.fseproc +++|  RCCQ/~B/b/
00183  M00S00183.fseproc +++|  RCCQ/C/~c/
00184  M00S00184.fseproc +++|  RCCQ/c/C/
00185  M00S00185.fseproc +++|  RCCQ/~C/c/
00186  M00S00186.fseproc +++|  RCCQ/D/~d/
00187  M00S00187.fseproc +++|  RCCQ/d/D/
00188  M00S00188.fseproc +++|  RCCQ/~D/d/
00189  M00S00189.fseproc +++|  RCCQ/E/~e/
00190  M00S00190.fseproc +++|  RCCQ/e/E/
00191  M00S00191.fseproc +++|  RCCQ/~E/e/
00192  M00S00192.fseproc +++|  RCCQ/F/~f/
00193  M00S00193.fseproc +++|  RCCQ/f/F/
00194  M00S00194.fseproc +++|  RCCQ/~F/f/
00195  M00S00195.fseproc +++|  RCCQ/G/~g/
00196  M00S00196.fseproc +++|  RCCQ/g/G/
00197  M00S00197.fseproc +++|  RCCQ/~G/g/
00198  M00S00198.fseproc +++|  RCCQ/H/~h/
00199  M00S00199.fseproc +++|  RCCQ/h/H/
00200  M00S00200.fseproc +++|  RCCQ/~H/h/
00201  M00S00201.fseproc +++|  RCCQ/I/~i/
00202  M00S00202.fseproc +++|  RCCQ/i/I/
00203  M00S00203.fseproc +++|  RCCQ/~I/i/
00204  M00S00204.fseproc +++|  RCCQ/J/~j/
00205  M00S00205.fseproc +++|  RCCQ/j/J/
00206  M00S00206.fseproc +++|  RCCQ/~J/j/
00207  M00S00207.fseproc +++|  RCCQ/K/~k/
00208  M00S00208.fseproc +++|  RCCQ/k/K/
00209  M00S00209.fseproc +++|  RCCQ/~K/k/
00210  M00S00210.fseproc +++|  RCCQ/L/~l/
00211  M00S00211.fseproc +++|  RCCQ/l/L/
00212  M00S00212.fseproc +++|  RCCQ/~L/l/
00213  M00S00213.fseproc +++|  RCCQ/M/~m/
00214  M00S00214.fseproc +++|  RCCQ/m/M/
00215  M00S00215.fseproc +++|  RCCQ/~M/m/
00216  M00S00216.fseproc +++|  RCCQ/N/~n/
00217  M00S00217.fseproc +++|  RCCQ/n/N/
00218  M00S00218.fseproc +++|  RCCQ/~N/n/
00219  M00S00219.fseproc +++|  RCCQ/O/~o/
00220  M00S00220.fseproc +++|  RCCQ/o/O/
00221  M00S00221.fseproc +++|  RCCQ/~O/o/
00222  M00S00222.fseproc +++|  RCCQ/P/~p/
00223  M00S00223.fseproc +++|  RCCQ/p/P/
00224  M00S00224.fseproc +++|  RCCQ/~P/p/
00225  M00S00225.fseproc +++|  RCCQ/Q/~q/
00226  M00S00226.fseproc +++|  RCCQ/q/Q/
00227  M00S00227.fseproc +++|  RCCQ/~Q/q/
00228  M00S00228.fseproc +++|  RCCQ/R/~r/
00229  M00S00229.fseproc +++|  RCCQ/r/R/
00230  M00S00230.fseproc +++|  RCCQ/~R/r/
00231  M00S00231.fseproc +++|  RCCQ/S/~s/
00232  M00S00232.fseproc +++|  RCCQ/s/S/
00233  M00S00233.fseproc +++|  RCCQ/~S/s/
00234  M00S00234.fseproc +++|  RCCQ/T/~t/
00235  M00S00235.fseproc +++|  RCCQ/t/T/
00236  M00S00236.fseproc +++|  RCCQ/~T/t/
00237  M00S00237.fseproc +++|  RCCQ/U/~u/
00238  M00S00238.fseproc +++|  RCCQ/u/U/
00239  M00S00239.fseproc +++|  RCCQ/~U/u/
00240  M00S00240.fseproc +++|  RCCQ/V/~v/
00241  M00S00241.fseproc +++|  RCCQ/v/V/
00242  M00S00242.fseproc +++|  RCCQ/~V/v/
00243  M00S00243.fseproc +++|  RCCQ/W/~w/
00244  M00S00244.fseproc +++|  RCCQ/w/W/
00245  M00S00245.fseproc +++|  RCCQ/~W/w/
00246  M00S00246.fseproc +++|  RCCQ/X/~x/
00247  M00S00247.fseproc +++|  RCCQ/x/X/
00248  M00S00248.fseproc +++|  RCCQ/~X/x/
00249  M00S00249.fseproc +++|  RCCQ/Y/~y/
00250  M00S00250.fseproc +++|  RCCQ/y/Y/
00251  M00S00251.fseproc +++|  RCCQ/~Y/y/
00252  M00S00252.fseproc +++|  RCCQ/Z/~z/
00253  M00S00253.fseproc +++|  RCCQ/z/Z/
00254  M00S00254.fseproc +++|  RCCQ/~Z/z/
00255  M00S00255.fseproc +++|  PC
00256  M00S00256.fseproc +++|  SA/CHARACTER CASES SWITCHED/
00257  M00S00257.fseproc +++|QP
00258  M00S00258.fseproc +++|
00259  M00S00259.fseproc +++|GOODIES
00260  M00S00260.fseproc +++|  -- HERE ARE SOME USEFUL FUNCTION KEYS.
00261  M00S00261.fseproc +++|  -- CHKPT CHECKPOINTS EDIT INTO PERM FILE AND RESUMES EDIT.
00262  M00S00262.fseproc +++|  SK1 /QR'FSE./ LABEL / CHKPT/
00263  M00S00263.fseproc +++|  -- HALF ADVANCES SCREEN BY HALF PAGES REGARDLESS OF CURSOR POSITION.
00264  M00S00264.fseproc +++|  SK2 /PS;V/ LABEL / HALF /
00265  M00S00265.fseproc +++|  -- MYSPLIT IS A VARIATION ON THE STANDARD SPLIT FUNCTION, BUT INSTEAD
00266  M00S00266.fseproc +++|  -- OF POINTING CURSOR AT START OF SECOND LINE, WE PUT IT AT END OF
00267  M00S00267.fseproc +++|  -- FIRST LINE.
00268  M00S00268.fseproc +++|  SK3 /.S;PP;.E/ LABEL /MYSPLIT/
00269  M00S00269.fseproc +++|  -- FTN5 COMPILES THE CURRENT FILE.
00270  M00S00270.fseproc +++|  SK4 '/FTN5,I=&&F.' LABEL ' FTN5 '
00271  M00S00271.fseproc +++|  -- RESEQ RESEQUENCES A BASIC PROGRAM AND CONTINUES EDITING.
00272  M00S00272.fseproc +++|  -- IT ASSUMES THE FOLLOWING CCL PROC IN YOUR PROCFIL --
00273  M00S00273.fseproc +++|  --
00274  M00S00274.fseproc +++|  --   .PROC,RESEQ,FILE.
00275  M00S00275.fseproc +++|  --   RESEQ,FILE,B,100,100.
00276  M00S00276.fseproc +++|  --   FSE.F FILE READ
00277  M00S00277.fseproc +++|  SK5 '-GOODY3' LABEL ' RESEQ'
00278  M00S00278.fseproc +++|  -- FORT COMPILES A FORTRAN PROGRAM, THEN IF THE COMPILE FAILED,
00279  M00S00279.fseproc +++|  -- IT PUTS YOU BACK IN THE EDITOR WITH THE LISTING AND SOURCE FILE
00280  M00S00280.fseproc +++|  -- ON THE SCREEN FOR INSPECTION AND CORRECTION.  IT ASSUMES THAT
00281  M00S00281.fseproc +++|  -- YOUR PROCFIL CONTAINS THIS CCL PROC --
00282  M00S00282.fseproc +++|  --
00283  M00S00283.fseproc +++|  --   .PROC,FORT,FILE.
00284  M00S00284.fseproc +++|  --   RETURN,LIST.
00285  M00S00285.fseproc +++|  --   FTN5,I=FILE,L=LIST.
00286  M00S00286.fseproc +++|  --   FSE.F LIST SPLIT READ
00287  M00S00287.fseproc +++|  SK6 /-GOODY2/ LABEL / FORT /
00288  M00S00288.fseproc +++|  -- MYJOIN IS A VARIATION ON THE DEFAULT JOIN FUNCTION KEY.  THIS
00289  M00S00289.fseproc +++|  -- ONE DIFFERS IN THAT IT GUARANTEES EXACTLY ONE BLANK AT THE POINT
00290  M00S00290.fseproc +++|  -- OF JUNCTURE, WHILE THE DEFAULT JOIN PROVIDES ZERO OR MORE BLANKS
00291  M00S00291.fseproc +++|  -- BASED ON CURSOR POSITION.
00292  M00S00292.fseproc +++|  SK7 /.E;.J;.I/ LABEL / JOIN /
00293  M00S00293.fseproc +++|  -- EDIT IS A WAY TO SWITCH FILES ON THE FLY, WITH THE EDITOR PROMPTING
00294  M00S00294.fseproc +++|  -- THE USER FOR THE NAME OF THE FILE TO BE EDITED.
00295  M00S00295.fseproc +++|  SK8/-GOODY4/ LABEL / EDIT /
00296  M00S00296.fseproc +++|QP
00297  M00S00297.fseproc +++|
00298  M00S00298.fseproc +++|GOODY2
00299  M00S00299.fseproc +++|  /BEGIN,FORT,,&F.
00300  M00S00300.fseproc +++|QP
00301  M00S00301.fseproc +++|
00302  M00S00302.fseproc +++|GOODY3
00303  M00S00303.fseproc +++|  /BEGIN,RESEQ,,&F.
00304  M00S00304.fseproc +++|QP
00305  M00S00305.fseproc +++|
00306  M00S00306.fseproc +++|GOODY4
00307  M00S00307.fseproc +++|  SET ANNOUNCE /ENTER FILENAME, PARMS/
00308  M00S00308.fseproc +++|  FSE &?
00309  M00S00309.fseproc +++|QP
00310  M00S00310.fseproc +++|
00311  M00S00311.fseproc +++|NOHEAD
00312  M00S00312.fseproc +++|  -- NOHEAD SIMPLY EXEMPLIFIES THE SET HEADER COMMAND.  THIS COMMAND
00313  M00S00313.fseproc +++|  -- CAN BE USED TO SHORTEN THE FILE TITLE MESSAGE, WHICH WILL SAVE
00314  M00S00314.fseproc +++|  -- SCREEN PAINTING TIME FOR THE SLOWER BAUD RATES, ESPECIALLY WHEN
00315  M00S00315.fseproc +++|  -- THE USER IS ADDING TEXT BEYOND THE END OF A FILE.
00316  M00S00316.fseproc +++|  SET HEADER NO
00317  M00S00317.fseproc +++|QP
00318  M00S00318.fseproc +++|
00319  M00S00319.fseproc +++|BOX
00320  M00S00320.fseproc +++|--  BOX PROCESSING IS DONE WITH 6 PROCEDURES
00321  M00S00321.fseproc +++|--    BOXTOP - SET UPPER LEFT CORNER OF THE BOX
00322  M00S00322.fseproc +++|--    BOXBTM - SET LOWER RIGHT CORNER OF THE BOX
00323  M00S00323.fseproc +++|--    DELBOX - DELETE THE BOX (LINES ARE SHORTENED)
00324  M00S00324.fseproc +++|--    ERSBOX - ERASE THE BOX (LINE LENGTH UNCHANGED)
00325  M00S00325.fseproc +++|--    INSBOX - INSERT THE BOX AT THE CURRENT CURSOR POSITION (LENGTHENS LINES)
00326  M00S00326.fseproc +++|--    REPBOX - REPLACE THE BOX AT THE CURRENT CURSOR POSITION (LENGTH UNCHANGED)
00327  M00S00327.fseproc +++|--
00328  M00S00328.fseproc +++|--  THE BOX PROCEDURES MARK THE BOX WITH THE X AND Y MARKS. THE Z MARK IS SET TO
00329  M00S00329.fseproc +++|--  THE CURRENT POSITION.
00330  M00S00330.fseproc +++|--
00331  M00S00331.fseproc +++|--  DELBOX AND ERSBOX DESTROY THE VALUES OF X AND Y. A NEW BOX MUST BE SET
00332  M00S00332.fseproc +++|--  BEFORE MORE BOX OPERATIONS CAN BE DONE.
00333  M00S00333.fseproc +++|--
00334  M00S00334.fseproc +++|--  INSBOX AND REPBOX PRESERVE THE BOX DEFINITION. A BOX MAY BE COPIED MORE THAN
00335  M00S00335.fseproc +++|--  ONCE WITHOUT RESETTING THE TOP AND BOTTOM. IF THE TEXT IN THE BOX MOVES,
00336  M00S00336.fseproc +++|--  THE BOX CORNERS MUST BE RESET.
00337  M00S00337.fseproc +++|--
00338  M00S00338.fseproc +++|--  A BOX MAY BE MOVED BY USING INSBOX OR REPBOX, FOLLOWED BY ERSBOX OR DELBOX.
00339  M00S00339.fseproc +++|--
00340  M00S00340.fseproc +++|--  NOTE THAT INSERTING OR COPYING A BOX TO A LOCATION ON EXACTLY THE SAME
00341  M00S00341.fseproc +++|--  LINES MAY PRODUCE UNEXPECTED RESULTS. IF THIS HAPPENS, UNDO THE CHANGE,
00342  M00S00342.fseproc +++|--  COPY THE BOX TO A SCRATCH AREA, AND THEN COPY IT TO THE DESIRED LOCATION.
00343  M00S00343.fseproc +++|--
00344  M00S00344.fseproc +++|SK  6 '-BOXSX' LABEL 'BOXTOP'
00345  M00S00345.fseproc +++|SK S6 '-BOXSY' LABEL 'BOXBTM'
00346  M00S00346.fseproc +++|SK  7 '-BOXSZ,DEL' LABEL 'DELBOX'
00347  M00S00347.fseproc +++|SK S7 '-BOXSZ,ERS' LABEL 'ERSBOX'
00348  M00S00348.fseproc +++|SK  8 '-BOXSZ,INS' LABEL 'INSBOX'
00349  M00S00349.fseproc +++|SK S8 '-BOXSZ,REP' LABEL 'REPBOX'
00350  M00S00350.fseproc +++|QP
00351  M00S00351.fseproc +++|
00352  M00S00352.fseproc +++|BOXSX
00353  M00S00353.fseproc +++|SXW
00354  M00S00354.fseproc +++|SA 'TOP LEFT CORNER SET'
00355  M00S00355.fseproc +++|QP
00356  M00S00356.fseproc +++|
00357  M00S00357.fseproc +++|BOXSY
00358  M00S00358.fseproc +++|SYW
00359  M00S00359.fseproc +++|SA 'BOTTOM RIGHT CORNER SET'
00360  M00S00360.fseproc +++|QP
00361  M00S00361.fseproc +++|
00362  M00S00362.fseproc +++|BOXSZ
00363  M00S00363.fseproc +++|SA 'BAD BOX (MINIMUM OF 2 CHARS OR LINES)';QPXY
00364  M00S00364.fseproc +++|SZW
00365  M00S00365.fseproc +++|PX
00366  M00S00366.fseproc +++|PX;PY;SA/ /;-BOX&1 &L
00367  M00S00367.fseproc +++|QP
00368  M00S00368.fseproc +++|
00369  M00S00369.fseproc +++|BOXINS
00370  M00S00370.fseproc +++|P&1;.PX;SMW;.PY+1;.I/&&?$!/;.PY+4;SMW
00371  M00S00371.fseproc +++|PZ;CM;R/&&?$!//CCQ
00372  M00S00372.fseproc +++|P&1;.PY+1;RCCQ
00373  M00S00373.fseproc +++|SA/ /;PN
00374  M00S00374.fseproc +++|PZ;QP&LY;P&L
00375  M00S00375.fseproc +++|SZZ+1W;-BOXINS &L
00376  M00S00376.fseproc +++|PL;I/ /;SZZ+1W;-BOXINS &L
00377  M00S00377.fseproc +++|QP
00378  M00S00378.fseproc +++|
00379  M00S00379.fseproc +++|BOXDEL
00380  M00S00380.fseproc +++|PX;SMW;.PY;SMW;DM
00381  M00S00381.fseproc +++|SXX+1W;QPXY;-BOXDEL
00382  M00S00382.fseproc +++|QP
00383  M00S00383.fseproc +++|
00384  M00S00384.fseproc +++|BOXREP
00385  M00S00385.fseproc +++|PX
00386  M00S00386.fseproc +++|-BOXRE1 &1 &C
00387  M00S00387.fseproc +++|QP
00388  M00S00388.fseproc +++|
00389  M00S00389.fseproc +++|BOXRE1
00390  M00S00390.fseproc +++|.PY-&2
00391  M00S00391.fseproc +++|.P&C+1
00392  M00S00392.fseproc +++|-BOXRE2 &1 &C
00393  M00S00393.fseproc +++|QP
00394  M00S00394.fseproc +++|
00395  M00S00395.fseproc +++|BOXRE2
00396  M00S00396.fseproc +++|P&1;.PX;SMW;.PY+1;.I/&&?$!/;.PY+4;SMW
00397  M00S00397.fseproc +++|PZ;.PZ+&2;.S;PP;.PZ;.S;DC;.J;.PZ;CM;.PZ+&2;R/&&?$!//CCQ
00398  M00S00398.fseproc +++|P&1;.PY+1;RCCQ
00399  M00S00399.fseproc +++|SA/ /;PN;QPCY
00400  M00S00400.fseproc +++|SZZ+1W;PZ;-BOXRE2 &L &2
00401  M00S00401.fseproc +++|PL;I/ /;SZZ+1W;PZ;-BOXRE2 &L &2
00402  M00S00402.fseproc +++|QP
00403  M00S00403.fseproc +++|
00404  M00S00404.fseproc +++|BOXERS
00405  M00S00405.fseproc +++|PX;.PY+1;.S;PP;.PX;.S;DC;.PY+1;.J
00406  M00S00406.fseproc +++|SXX+1W;QPXY;-BOXERS
00407  M00S00407.fseproc +++|QP
00408  M00S00408.fseproc +++|*WEOR
cdc/nos2.source/opl.opl871/deck/fseproc.txt ยท Last modified: by 127.0.0.1