Listing of file='609EPLIN' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1228, 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)