image of READY prompt

Wang2200.org

Listing of file='609Eplin' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 34, 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