home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32a.dsk / SEPTEMBER.1987 / PROOFREADER.txt < prev    next >
Text File  |  2023-02-26  |  813b  |  11 lines
  1.  
  2.  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
  3.  2  IF  PEEK (I) = 188 THEN LP = I:I = EP
  4.  3  NEXT I
  5.  4 LN =  PEEK (SP + 2) +  PEEK (SP + 3) * 256: IF LN < SL THEN SP =  PEEK (SP) +  PEEK (SP + 1) * 256: GOTO 4
  6.  5 LN$ = "00000" +  STR$ (LN):LN$ =  RIGHT$ (LN$,5): FOR I = 1 TO 5: POKE LP + I, ASC ( MID$ (LN$,I,1))
  7.  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 
  8.  7 SP =  PEEK (SP) +  PEEK (SP + 1) * 256: IF EP > SP THEN  GOTO 4
  9.  8  POKE 33,40: HOME : VTAB 12: PRINT "LISTING COMPLETED.": END 
  10.  
  11.