$T.REX: Difference between revisions
Content added Content deleted
m (→$T.REX: removed a block of blank lines. -- ~~~~) |
(→$T.REX: corrected transpose of SD and SW in SD subroutine. -- ~~~~) |
||
Line 871: | Line 871: | ||
novalue:!sigl=sigl;call er 17,!fid(2) !fid(3) !sigl condition('D') sourceline(!sigl) |
novalue:!sigl=sigl;call er 17,!fid(2) !fid(3) !sigl condition('D') sourceline(!sigl) |
||
proper: procedure; arg f 2;parse arg 2 r; return f || r |
proper: procedure; arg f 2;parse arg 2 r; return f || r |
||
sd: if ?.scrdepth=='' then parse value scrsize() with ?. |
sd: if ?.scrdepth=='' then parse value scrsize() with ?.scrdepth ?.linesize .;return ?.scrdepth |
||
sw: if ?.Linesize=='' then ?.Linesize=linesize(); return ?.Linesize |
sw: if ?.Linesize=='' then ?.Linesize=linesize(); return ?.Linesize |
||
syntax:!sigl=sigl;call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl) |
syntax: !sigl=sigl;call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl) |
||
wit: call dsay arg(1); call wr arg(1); return</lang> |
wit: call dsay arg(1); call wr arg(1); return</lang> |