10 ' Extended Catalogue 20 FOR a=&8000 TO &800B:READ b$ 30 POKE a,VAL("&"+b$):NEXT:MODE 2 40 PRINT"PLEASE WAIT...":PRINT 50 CALL &8000 60 PRINT "PROGRAM NAME "; 70 FOR a=&4000 TO &4010:b=PEEK(a):IF b=0 THEN GOTO 80 ELSE PRINT CHR$(PEEK(a));:NEXT a 80 PRINT:PRINT"PROGRAM LENGTH "; PEEK(16384+24)+256*PEEK(16384+25) 90 PRINT"START ADDRESS ";PEEK(16384+21)+256*PEEK(16384+22) 100 a=PEEK(16384+18):a=INT(a/2) 110 IF a=0 THEN PRINT"BASIC" ELSE IF a=1 THEN PRINT"BINARY" ELSE PRINT"ASCII" 120 IF a=2 THEN b=PEEK(16384+26)+256*PEEK(16384+27):IF b<>0 THEN PRINT"EXEC ADDRESS ";b 130 PRINT:PRINT:GOTO 50 140 DATA 3E,2C,11,40,00,21 150 DATA 00,40,CD,A1,BC,C9