0 'CLUB 100 Library, Modem 415-939-1246 1 'FINDCO.BA Carl Oppedahl, from Portable 100 (Dec 1987), pp. 27-28. Prep. for Club 100 by Chia-Chi Chao, 07/29/88 2 'This program finds the addresses of a .CO file. 10 CLS:FILES:PRINT:INPUT"Filename";I$:IFLEN(I$)>6THENBEEP:GOTO10 20 PRINT:I$=LEFT$(I$+" ",6):FORI=1TO6:J=ASC(MID$(I$,I)):IFJ<123ANDJ>96THENMID$(I$,I,1)=CHR$(J-32) 30 NEXT:I=-1 40 I=I+1:IFI>23THENBEEP:PRINT"No such .CO file. Press a key ...";:K$=INPUT$(1):GOTO10 50 IFPEEK(63842+I*11)<>160THEN40 60 J$="":FORJ=3TO8:J$=J$+CHR$(PEEK(63842+I*11+J)):NEXT:IFJ$<>I$THEN40 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)