This example is obsolete
Proper use of ISOS commands achieves the same:
- ZR (ZREMOVE) to clean your local routine buffer
- ZI (INSERT) to insert a line
- ZS (ZSAVE) to name and keep your lines
- P (PRINT) to show the actual content of the local routine buffer
No magic since this was invented at least 60 years ago