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