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