1  HOME : POKE 33,33: PRINT "ENTER THE LINE NUMBER WHERE": INPUT "YOU WANT TO START LISTING: ";SL$:SL =  VAL (SL$):SP =  PEEK (103) +  PEEK (104) * 256:EP =  PEEK (105) +  PEEK (106) * 256 - 4:LP = 0: FOR I = SP TO EP
 2  IF  PEEK (I) = 188 THEN LP = I:I = EP
 3  NEXT I
 4 LN =  PEEK (SP + 2) +  PEEK (SP + 3) * 256: IF LN < SL THEN SP =  PEEK (SP) +  PEEK (SP + 1) * 256: GOTO 4
 5 LN$ = "00000" +  STR$ (LN):LN$ =  RIGHT$ (LN$,5): FOR I = 1 TO 5: POKE LP + I, ASC ( MID$ (LN$,I,1))
 6  NEXT I: HOME : VTAB 12: LIST 00010: GET Z$: PRINT Z$: IF  ASC (Z$) <  > 32 THEN  PRINT "PROOFREADER"; MID$ ("  END EDIT",(5 * (Z$ = "E") + 1),5): POKE 33,( ASC (Z$) <  > 69) * 7 + 33: END 
 7 SP =  PEEK (SP) +  PEEK (SP + 1) * 256: IF EP > SP THEN  GOTO 4
 8  POKE 33,40: HOME : VTAB 12: PRINT "LISTING COMPLETED.": END