100 REM PROGRAM TO PRINT THE VARIABLE NAME LIST ›110 DIM ARRAYNAME(1),STRINGNAME$(1)›120 REM GET THE BEGINNING OF THE LIST ›130 ADDRESS=PEEK(130)+PEEK(131)*256›140 ? CHR$(125);"VARIABLE NAME LIST"›150 REM GET CHARACTER AND TEST FOR END ›160 A=PEEK(ADDRESS):IF A=0 THEN END ›170 REM PRINT CHARACTER ›180 IF A<128 THEN ? CHR$(A);:GOTO 210›190 ? CHR$(A-128)›200 REM GET NEXT ADDRESS AND REPEAT ›210 ADDRESS=ADDRESS+1:GOTO 160›