program INPCSV,1.0(100) ! simple test of INPCSV.SBX

map1 P$(100),S,100
map1 I,F

    ! create a sample file
    open #1, "INPCSV.CSV", output
    print #1, "one,two,three,four,five,six,seven,eight,nine,ten,";
    print #1, "eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen,eightteen,nineteen,twenty,";
    print #1, "twenty one,twenty two,twenty three,twenty four,twenty five,";
    print #1, "twenty six,twenty seven,twenty eight,twenty nine,thirty"

    print #1, "uno,dos,tres,cuatro,cinco,seis,siete,ocho,nueve,diez,";
    print #1, "once,doce,trece,catorce,quince,dieciséis,diecisiete, dieciocho, diecinueve, veinte,";
    print #1, "veintiuno,veintidós"

    print #1, "un, deux, trois, quatre, cinc, six, sept, huit, neuf, dix,";
    print #1, "onze, douze, treize, quatorze, quinze, seize, dix-sept, dix-huit, dix-nuef, vingt,";
    print #1, "vingt et un, vingt-deux, vingt-trois, vingt-quatre, vingt-cinc, vingt-six"

    close #1

    open #1, "INPCSV.CSV", input
    xcall INPCSV,1,P$(1),P$(2),P$(3),P$(4),P$(5),P$(6),P$(7),P$(8),P$(9),P$(10), &
        P$(11),P$(12),P$(13),P$(14),P$(15),P$(16),P$(17),P$(18),P$(19),P$(20), &
        P$(21),P$(22),P$(23),P$(24),P$(25),P$(26),P$(27),P$(28),P$(29),P$(30), &
        P$(31),P$(32),P$(33),P$(34),P$(35),P$(36),P$(37),P$(38),P$(39),P$(40)

    for I = 1 to 40
        print str(I);"=";P$(I);",  ";
    next I
    ?
    stop

    xcall INPCSV,1,P$(1),P$(2),P$(3),P$(4),P$(5),P$(6),P$(7),P$(8),P$(9),P$(10), &
        P$(11),P$(12),P$(13),P$(14),P$(15)

    for I = 1 to 15
        print str(I);"=";P$(I);",  ";
    next I
    ?
    stop

    xcall INPCSV,1,P$(1),P$(2),P$(3),P$(4),P$(5),P$(6),P$(7),P$(8),P$(9),P$(10), &
        P$(11),P$(12),P$(13),P$(14),P$(15),P$(16),P$(17),P$(18),P$(19),P$(20), &
        P$(21),P$(22),P$(23),P$(24),P$(25),P$(26),P$(27),P$(28),P$(29),P$(30), &
        P$(31),P$(32),P$(33),P$(34),P$(35),P$(36),P$(37),P$(38),P$(39),P$(40)

    for I = 1 to 40
        print str(I);"=";P$(I);",  ";
    next I
    ?
    stop

    close #1
    end