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