Anonymous user
$T.REX: Difference between revisions
→$T.REX: corrected transpose of SD and SW in SD subroutine. -- ~~~~
m (→$T.REX: removed a block of blank lines. -- ~~~~) |
(→$T.REX: corrected transpose of SD and SW in SD subroutine. -- ~~~~) |
||
Line 871:
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
sd: if ?.scrdepth=='' then parse value scrsize() with ?.
sw: if ?.Linesize=='' then ?.Linesize=linesize(); return ?.Linesize
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>
| |||