home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / ERROR.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  655b  |  25 lines
  1. 10  REM  **********************
  2. 20  REM  *     ERROR.DEMO     *
  3. 30  REM  *  BY CHARLES HILL   *
  4. 40  REM  * COPYRIGHT 1986 BY  *
  5. 50  REM  * MICROSPARC, INC.   *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  ONERR  GOTO 250
  9. 90  FOR I = 1 TO 10: PRINT I: NEXT J
  10. 100 A$ =  MID$ (1,2,B$)
  11. 110  RETURN 
  12. 120  READ A,B$
  13. 130  POKE 0,256
  14. 140  PRINT 10 ^99/.1
  15. 150  LOMEM: 4095: HIMEM: 4096:A$ = "NO ROOM"
  16. 160  HIMEM: 32768: GOTO 17
  17. 170  PRINT A%(89)
  18. 180  DIM A%(19): DIM A%(19,1)
  19. 190  PRINT 45/0
  20. 200 A$ = 123
  21. 210  FOR I = 1 TO 20:A$ = A$ +"ABCDEDFGHIJKLMNOP": NEXT I
  22. 220 A =  FN X(1) *2
  23. 230  PRINT  CHR$(4)"RENAME HELLO"
  24. 240  STOP 
  25. 250  CALL 768