start tok64 d64-rDm0UD
0 REM{white}{reverse on}---sys pd 1991---by mr.p.---
1 INPUT"{clear}{down}{right}name of program";n$:n$=n$+"*":PRINT"{clear}{down}{right}name of program: "n$
2 OPEN15,8,15,"i0:":PRINT"{down}{right}searching{up}
3 OPEN2,8,2,n$+",p,r":GOSUB19
4 GET#2,l$,h$:s=ASC(l$+CHR$(.))+256*(ASC(h$+CHR$(.)))
5 PRINT"{right}start ad:"s:f=s:PRINT"{right}counting{up}
6 GET#2,a$:IFstTHENPRINT"{right}end ad: ":CLOSE15:CLOSE2:GOTO8
7 s=s+1:PRINTTAB(10)s"{up}":GOSUB19:GOTO6
8 l=s-f+1:PRINT"{right}length:"TAB(10)l"bytes":PRINTTAB(10)INT(l/1024*100)/100"kbytes
9 x=f:GOSUB12:PRINT"{home}{down*3}"TAB(17)x$
10 x=s:GOSUB12:PRINTTAB(17)x$:x=f:GOSUB16:PRINT"{home}{down*3}"TAB(23)x$
11 x=s:GOSUB16:PRINTTAB(23)x$:END
12 x$=""
13 x1=x-INT(x/16)*16:x$=CHR$(48+x1-7*(x1>9))+x$:x=INT(x/16)
14 IFx=.THENx$="$"+x$:RETURN
15 GOTO13
16 x$=""
17 x1=x-INT(x/2)*2:x$=CHR$(48+x1)+x$:x=INT(x/2):IFx=.THENx$="%"+x$:RETURN
18 GOTO17
19 INPUT#15,a,a$,b,b:IFa<2THENRETURN
20 CLOSE2:CLOSE15:PRINTCHR$(34)a$CHR$(34)
stop tok64
(bastext 1.0)