| Argument passing - Subroutines and Functions - Mike Pope |
| Caching in on the Frames Array - Mike Pope |
| QTIPS - Fast Dynamic Array Building |
| Reader's Clinic - Line Length > 256 Characters |
| QTIPS - String Space |
| QTIPS - String Space Format Errors |
| Reader's Forum - Numeric Precision in R/Basic - Hal Wyman |
RevMedia FKB
| Document | V1I9A12 |
| Title | VERBatim - V121 |
| Keywords | V121 V120 SORT INVERT |
| Text | The base sort processor It is passed the array to sort along WITH the length of the elements in the array NOTE all array elements must be the same length for this routine to work It is the responsibility of the programmer to ensure that data is correctly justified to provide an alpha/numeric sort Descending sorts are provided by INVERTing the data to be sorted before CALLING V121 then INVERTing it back upon return As an array element is passed the array delimiter is unnecessary If an array delimiter is used it should be counted as a data character when passing element length and a trailing delimiter should be included A = "ZZ" :@FM: "AAA" :@FM: "AAB" :@FM * Ascending left justified sort SORT A = A "L#3" CALL V121(SORT A 4) CALL MSG(SORT A "" "" "") * Descending left justified sort SORT A = A "L#3" SORT A = INVERT(SORT A) CALL V121(SORT A 4) SORT A = INVERT(SORT A) CALL MSG(SORT A "" "" "") A = 1 :@FM: 99 :@FM: 23 :@FM * Ascending right justified sort SORT A = A "R#2" CALL V121(SORT A 3) CALL MSG(SORT A "" "" "") * Descending right justified sort SORT A = A "R#2" SORT A = INVERT(SORT A) CALL V121(SORT A 3) SORT A = INVERT(SORT A) CALL MSG(SORT A "" "" "") * Incorporating V120 note use of fixed length (5 char) string WITH two * portions of data @FM delimited A = "ZZ" :@FM: "01AA" :@FM: "02" * Ascending left justified sort CALL V121(A 5) CALL V120(A 5) CALL MSG(A "" "" "") (Volume 1 Issue 9 Pages 5 6) |
Page last modified: 17/02/03