12 lines
455 B
Plaintext
12 lines
455 B
Plaintext
10 DIM A$(1):REM 1=LAST -> ROOM FOR 2
|
|
20 A$(0) = "ORANGE"
|
|
30 A$(1) = "APPLE"
|
|
40 AT=0:N$="":T=0:L=0:REM DECLARE ALL VARS BEFORE PEEKING
|
|
50 AT=PEEK(47)+256*PEEK(48):REM START OF ARRAYS IN MEMORY
|
|
60 N$=CHR$(PEEK(AT)AND127)+CHR$(PEEK(AT+1)AND127):REM NAME
|
|
70 T=(PEEK(AT) AND 128)*2+(PEEK(AT+1)AND128):REM TYPE
|
|
80 IF T=384 THEN N$=N$+"%": REM INTEGER
|
|
90 IF T=128 THEN N$=N$+"$": REM STRING
|
|
100 L=PEEK(AT+6): REM FIRST INDEX SIZE
|
|
110 PRINT N$" HAS"L"ELEMENTS."
|