home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / memlst.ba < prev    next >
Text File  |  2006-10-19  |  902b  |  12 lines

  1. 0 'MEMLST 1.01 20Oct85
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'ANDREW MOORE
  4. 3 CLS:I1$=CHR$(27)+"p":I2$=CHR$(27)+"q":PRINT"> MEMLST 1.01":PRINT"> Copyright 1985 Andrew Moore":PRINT:PRINT"   Start search at _____ (dec)";STRING$(11,8);:LINE INPUT S$:S=VAL(S$):IFS<0ORS>65536THENPRINT"Out of range (0-65526)":END
  5. 4 PRINT"     End search at _____ (dec)";STRING$(11,8);:LINE INPUT E$:E=VAL(E$):IFE<STHENPRINT"Must be greater than Start address":END
  6. 5 SCREEN 0,0:CLS:L=0:FORA=STOESTEP16:PRINTA;TAB(7);"u";:FORB=ATOA+15:P$=CHR$(PEEK(B)):IF ASC(P$)>0ANDASC(P$)<27THENPRINTI1$;CHR$(ASC(P$)+64);I2$;:GOTO9
  7. 6 IF ASC(P$)>126THENPRINTCHR$(255);:GOTO9
  8. 7 IF ASC(P$)=0 THEN PRINTCHR$(255);:GOTO9
  9. 8 PRINTP$;
  10. 9 NEXTB:PRINTTAB(24);"u":L=L+1:IFL=7THENPRINT"--More-vqqqqqqqqqqqqqqqqw";:K$=INKEY$:I$=INPUT$(1):PRINTCHR$(13);CHR$(13);CHR$(27);"K";:PRINT@0,"";:L=0
  11. 10 NEXTA
  12.