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