home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / findco.ba < prev    next >
Text File  |  2006-10-19  |  794b  |  11 lines
  1. 0 'CLUB 100 Library, Modem 415-939-1246
  2. 1 'FINDCO.BA   Carl Oppedahl, from         Portable 100 (Dec 1987), pp. 27-28.     Prep. for Club 100 by Chia-Chi Chao,    07/29/88
  3. 2 'This program finds the addresses of a   .CO file.
  4. 10 CLS:FILES:PRINT:INPUT"Filename";I$:IFLEN(I$)>6THENBEEP:GOTO10
  5. 20 PRINT:I$=LEFT$(I$+"      ",6):FORI=1TO6:J=ASC(MID$(I$,I)):IFJ<123ANDJ>96THENMID$(I$,I,1)=CHR$(J-32)
  6. 30 NEXT:I=-1
  7. 40 I=I+1:IFI>23THENBEEP:PRINT"No such .CO file.  Press a key ...";:K$=INPUT$(1):GOTO10
  8. 50 IFPEEK(63842+I*11)<>160THEN40
  9. 60 J$="":FORJ=3TO8:J$=J$+CHR$(PEEK(63842+I*11+J)):NEXT:IFJ$<>I$THEN40
  10. 70 AD=PEEK(63843+I*11)+256*PEEK(63844+I*11):J=PEEK(AD)+256*PEEK(AD+1):PRINT"Top address:";J:PRINT"End address:";PEEK(AD+2)+256*PEEK(AD+3)+J-1:PRINT"Exe address:";PEEK(AD+4)+256*PEEK(AD+5)
  11.