## INITPROG

PURPOSE:
Initializes a keyed string array to an empty program.

    STATEMENT SYNTAX:
    {stno} INITPROG ksaref

where:
ksaref is a reference to an element of a keyed string array (K![""])

    EXAMPLE:
    10 BEGIN
    20 DIM P!
    30 INITPROG P![""]
    40 LET A$="10 A$="+$22$+"This is a small program"+$22$
    50 COMPILE EI$,P![""],A$,LINE,EPOS
    60 ERASE "SMALLPROG",ERR=.+1
    70 PROGRAM "SMALLPROG",-1
    80 SAVEPROG "SMALLPROG",P![""]

SEE:
LOADPROG SAVEPROG RECOMP COMPILE