Tokenize a string: Difference between revisions
m
→{{header|360 Assembly}}: Superfluous blanks suppressed
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
Line 12:
=={{header|360 Assembly}}==
{{trans|Rexx}}
<lang 360asm>* Tokenize a string - 08/06/2018
TOKSTR CSECT
USING TOKSTR,R13 base register
Line 95 ⟶ 94:
PG DC CL80' ' buffer
YREGS
END TOKSTR</lang>
{{out}}
<pre>
Hello.How.Are.You.Today
</pre>
=={{header|ACL2}}==
|