32010 REM VARIABLE TABLE LISTER                 BY DAVID WEINER                       DEVELOPED MAY 10-12, 1982›32012 REM VERSION 1.1  APRIL 4, 1983›32015 REM *** INITIALIZATION ***›32018 OPEN #1,4,0,"K:"›32020 DIM VZBXQ$(127),PV$(10),CHAR$(5),NO$(5)›32025 GRAPHICS 0:SETCOLOR 2,0,0›32030 PRINT "PRINTER OR VIDEO (Ð or Ö)"›32040 INPUT PV$›32050 IF PV$(1)="V" THEN PVN=0›32060 IF PV$(1)="P" THEN PVN=1›32070 VARSTART=PEEK(130)+PEEK(131)*256:VAREND=PEEK(132)+PEEK(133)*256:TABLELOC=VARSTART›32071 GRAPHICS 0:SETCOLOR 2,0,0›32072 IF PVN=0 THEN PRINT "ÎÏ® ÓÔÁÒÔ ÅÎÄ  ÖÁÒÎÁÍÅ"›32073 IF PVN=1 THEN LPRINT "NO. START END  VARNAME"›32080 STARTVAR=TABLELOC›32085 REM *** FIND VARIABLE NAME ***›32090 CHAR$=CHR$(PEEK(TABLELOC))›32092 TABLELOC=TABLELOC+1›32095 IF ASC(CHAR$)>127 THEN 32210›32100 VZBXQ$(LEN(VZBXQ$)+1)=CHAR$›32110 GOTO 32090›32200 REM ** PRINT VARNAME (VZBXQ$) **›32210 CHAR$=CHR$(ASC(CHAR$)-128)›32215 VARNUM=VARNUM+1›32220 VZBXQ$(LEN(VZBXQ$)+1)=CHAR$›32230 LET ENDVAR=TABLELOC-1›32240 NO$=STR$(VARNUM)›32250 IF LEN(NO$)=1 AND PVN=0 THEN PRINT "  ";›32255 IF LEN(NO$)=1 AND PVN=1 THEN LPRINT "  ";›32260 IF LEN(NO$)=2 AND PVN=0 THEN PRINT " ";›32265 IF VZBXQ$="VZBXQ$" THEN 32350›32270 IF PVN=0 THEN PRINT NO$;" ";STARTVAR;"  ";ENDVAR;"  ";VZBXQ$›32280 IF PVN=1 THEN LPRINT NO$;" ";STARTVAR;"  ";ENDVAR;""›32285 GET #1,INKEY›32290 STARTVAR=TABLELOC›32295 VZBXQ$=""›32300 GOTO 32090›32350 IF PVN=0 THEN PRINT "ÅÎÄ ÏÆ ÌÉÓÔ"›32360 IF PVN=1 THEN LPRINT :LPRINT "END OF LIST"›32370 CLOSE #1:CLR ›32380 END ›