atm959

Stuff

Apr 7th, 2016
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. DEF PARAMIFY(S$)
  2. I=0:P=0
  3. DIM P$[1]
  4. WHILE I<LEN(S$)
  5. IF S$[I]!=" " THEN
  6. P$[P]=S$[I]
  7. ELSE
  8. PUSH P$,""
  9. INC P,1
  10. ENDIF
  11. INC I,1
  12. WEND
  13. RETURN P$
  14. END
Add Comment
Please, Sign In to add comment