home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38a.dsk / JANUARY.1990:TEN.TOP.TIPS / ERROR.LISTER.bas next >
BASIC Source File  |  2023-02-26  |  1KB  |  16 lines
  1. 1  REM   ****************************
  2. 2  REM   *   ERROR.LISTER           *
  3. 3  REM   *   By Darren DeVigili     *
  4. 4  REM   *   Copyright (C) 1990     *
  5. 5  REM   * By MindCraft Publ. Corp. *
  6. 6  REM   *    Concord, MA   01742   *
  7. 7  REM   ****************************
  8. 10  TEXT : ONERR  GOTO 63998
  9. 20  REM : Line 30 will cause an error.
  10. 30 L$ = K/8: REM  If you're going to be editing with the ESC routines, it's handy to have Applesoft set you up with a POKE 33,33 and then list the offending line.
  11. 40  REM  This way, you don't have to worry about the extra spaces when you trace over to the next line with the right arrow key.
  12. 45  REM  Type TEXT after correcting the error.
  13. 50  END 
  14. 63997  LIST 00000: RESUME 
  15. 63998 PK =  PEEK(121) + PEEK(122) *256 -7:EL =  PEEK(218) + PEEK(219) *256:EL$ =  STR$(EL): IF  LEN(EL$) <5  THEN  FOR AL =  LEN(EL$) TO 4:AD$ = AD$ +"0": NEXT :EL$ = AD$ +EL$
  16. 63999  FOR PL = 0 TO 4: POKE PK +PL, ASC( MID$ (EL$,PL +1,1)): NEXT : TEXT : HOME : POKE 33,33: POKE 216,0: GOTO 63997