Try to modify line 19 as follows. (before correction) CODE$[I]=PRGGET$() (after correction) CODE$[I-1]=PRGGET$()