IBM 5110 User Manual page 37

32
To remove the alphabetic characters from a character vector, leaving
only the numeric characters and blanks:
V
I~EMOVE
I: 1]:1
V
V NEW\ .. r~EM()VE
OLD
[1:1 NEW~"
(OLD.! · 0
12~5L~56·,(B9. .)
fOLD
V
OLD~'DAN 30
DAVE
29,5
JERRY
37
MEL
40.8'
I~EM()VE
OLD
30 29,5 37 40.8
To replace all trailing blanks with a minus sign:
VBLANI< B
I: []:1
V
V
Z-E··BLANI<S
t1; V
[:LJ Vf.-.,<I>A\<I>M::::"
[2] Z~/M
[3]
Z[V/\PV]~'-'
[I.~] Z~M
(pM)
pZ
'V
MAT~2
5p'AB CDE
MAT
AB
CDE
AH·· .. ·_· .. ·
CDE·· .. ·-
BI...ANI(S MAT
Return all elements of a vector that are even numbers:
VEVEN[[]]V
V Z\ . . EVEN V
[1]
Z~(0=2IV)/V
V
EVEN 0 1 2 3 4 5 6 7 8 9
0:~~1.1·68
To delete all comment lines from a user-defined function:
'VCOMMENT[[]JV
'V
CDMMENT FN;M
[1]
M~[]FX(M[;1]¢·A')/M~[]CR
FN
V
[1]
[2]
[:'5]
['+:1
VADD
ACOMMENT LINE
:I.
~5+1.~
ACOMMENT LINE
2
'V
COMMENT 'ADD'
VADD[I]JV
'V
ADD
[:I.
J ~·5+4·
V