Emu48 Edit a CSV File

[MNH]

Knowing how many points (point strings, actually) there are in advance and using a definite loop structure eliminates the need to handle a missing line feed character at the end of the last point string. Please note that the PNTS variable is a list of point numbers. The local variable pnezd is called after the definite loop ends so the user can check the output. I renamed the program to CSVO. Kindly test it on your Emu48.

Program: CSVO
Checksum: # D830h
Size: 247 bytes
Purpose: Remove line feed characters from a CSV file.

Code:


\<< FILE DUP SIZE 10
 CHR 1 PNTS SIZE { }
 \-> file size lf
 start numpnts pnezd
  \<< 1 numpnts
    START file DUP
 DUP lf POS DUP 2 -
 ROT start ROT SUB
 pnezd SWAP +
 'pnezd' STO 1 +
 size SUB 'file' STO
    NEXT pnezd
  \>>
\>>

This is the contents of the PNTS variable.

{ 101 102 103 104
105 106 107 108 109
}

Please see the attached file so you can load it in your Emu48 and store it in a variable named FILE.