Listing of file='609Eplin' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1223, program filename = '609Eplin'
0010 REM '609Eplin' Print a line of text with appropriate lighliting ---------
---
2503 DEFFN'61
: MAT REDIM D6$(D9)2
: PRINT HEX(06);B5$(1);AT(C1,0);
: IF D1$()=" "THEN 2593
: I=J2(C1)+J1(C1)-1
: IF J0(4)<J2(C1)OR I<J0(3)THEN 2593
: C=MAX(J0(3),J2(C1))
: I=MAX(MIN(I,J0(4))-C+1,1)
: C=C-J2(C1)+1
: IF C=1AND I=J1(C1)THEN 2587
: D6$()=ALL(00)
: MAT SEARCHSTR(D1$(),1),<>" "TO D6$()
: C=VAL(D6$(C),2)
: D6$()=ALL(00)
2557 MAT SEARCHSTR(D1$(),C),<>" "TO D6$()
: I=VAL(D6$(I),2)
: IF C>1THEN PRINT STR(D1$(),,C-1);
: PRINT HEX(020402000E);STR(D1$(),C,I);HEX(020400000E);
: IF C+I<=D9THEN PRINT STR(D1$(),C+I);
: IF C+I-1<80AND C+I>D9THEN PRINT TAB(80);
: RETURN
2587 PRINT HEX(020402000E);
2593 PRINT STR(D1$());HEX(020400000E);
: IF LEN(STR(D1$()))<80THEN PRINT TAB(80);
: RETURN