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: (external edit)