0 'RAMDIR.BA Christopher Morgan 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'This program is Model 100 specific! 3 'This program prints the internal RAM directory for the Model 100, listing 4 ' the entry address, the type and status byte, the starting address of 5 ' the file in RAM, and the file name. Buffers are indicated. Output is 6 ' paged for the M100 screen. 7 CLS:L=-1:PRINT@316,"(c)";:PRINT@48,"Model 100 RAM Directory":PRINT 8 PRINT" Displays entry location, type and Status byte, Location in RAM where file starts, and name." 9 FORA=63842TO64129STEP11:L=L+1:IFL/6=INT(L/6)THENPRINT@280,"Press ENTER to continue ";:A$=INPUT$(1):CLS 10 PRINTUSING"###### ";A;:PRINTUSING"#### ";PEEK(A);:PRINTUSING"###### ";PEEK(A+1)+256*PEEK(A+2);:PRINTTAB(20);:FORB=3TO10 11 PRINTCHR$(PEEK(A+B));:NEXT:IFA=63897THEN PRINT"(Unnamed Pgm)"; 12 IFA=63908THEN PRINT" (Paste Buf)"; 13 IFA=63919THEN PRINT" (Edit Buf)" ELSEPRINT 14 NEXT