home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / INIT.POKER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  488b  |  13 lines
  1. 1  REM  **********************
  2. 2  REM  *    INIT.POKER      *
  3. 3  REM  *  BY LARRY HOUSTON  *
  4. 4  REM  *  NIBBLE SEPT 1985  *
  5. 5  REM  * COPYRIGHT (C) 1985 *
  6. 6  REM  * BY MICROSPARC, INC *
  7. 7  REM  * CONCORD, MA  01742 *
  8. 8  REM  **********************
  9. 10  PRINT  CHR$(4)"BLOAD FAILSAFE.INIT"
  10. 20  POKE 40266,207: POKE 40267,3: REM  DISABLE FP
  11. 30  POKE 40268,207: POKE 20269,3: REM  DISABLE INT
  12. 40  POKE 42336,76: POKE 42337,122: POKE 42338,165: REM  DETOUR INIT TO NEW ROUTINE
  13. 50  PRINT "DONE"