Listing of file='609EPLIN' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1202, 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 Z=C1THEN STOP
: IF C>1AND C>FNP(1)THEN PRINT STR(D1$(),FNP(1),MIN(C-FNP(1),80));
: IF C<FNP(1)+79AND C+I>=FNP(1)THEN PRINT HEX(020402000E);STR(D1$(),MAX(C,F
NP(1)),MIN(I-MAX(0,FNP(1)-C),FNP(1)+80-MAX(C,FNP(1))));HEX(020400000E);
2578 IF C+I<=D9THEN IF C+I<FNP(1)+80AND C+I>FNP(1)THEN PRINT STR(D1$(),MAX(C+I
,FNP(1)),MIN(80+FNP(1)-C-I,LEN(STR(D1$()))-MAX(C+I,FNP(1))+1));
: IF LEN(STR(D1$()))<FNP(1)+79THEN PRINT TAB(80);
: RETURN
2587 PRINT HEX(020402000E);
2593 IF LEN(STR(D1$()))>=FNP(1)THEN PRINT STR(D1$(),FNP(1),MIN(80,LEN(STR(D1$(
)))-FNP(1)+1));HEX(020400000E);
: IF LEN(STR(D1$()))<D8AND D5=1THEN PRINT TAB(80);
: IF LEN(STR(D1$()))<80AND D5=0THEN PRINT TAB(80);
: RETURN
2599 DEFFNP(I)=1+D5*(D8-80)