home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38a.dsk / JANUARY.1990:TEN.TOP.TIPS / SCREEN.DUMP.80.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  17 lines
  1. 10  REM   ***********************
  2. 20  REM   *  SCREEN.DUMP.80     *
  3. 30  REM   *  By Robert Heath    *
  4. 40  REM   * Copyright (C) 1989  *
  5. 50  REM   * BY MindCraft Publ.  *
  6. 60  REM   * Concord, MA   01742 *
  7. 70  REM   ***********************
  8. 80  GOSUB 140
  9. 90  PRINT  CHR$(4)"PR#3"
  10. 100  LIST 
  11. 110  CALL 768: REM  DUMP 80 COL. SCREEN TO PRINTER IN SLOT 1
  12. 120  END 
  13. 130 : REM  [ SCREEN DUMP M/L ROUTINE ]
  14. 140  FOR I = 768 TO 911: READ K: POKE I,K: NEXT : RETURN 
  15. 150  DATA  165, 54, 72, 165, 55, 72, 165, 56, 72, 165, 57, 72, 165, 36, 72, 165, 37, 72, 162, 0, 138, 72, 169, 193, 133, 55, 169, 0, 133, 54, 170, 189, 134, 3, 240, 6, 32, 237, 253, 232, 208, 245, 169, 255, 133, 60, 230, 60, 165, 60
  16. 160  DATA  133, 37, 32, 36, 252, 160, 0, 173, 0, 192, 201, 155, 240, 44, 104, 72, 208, 14, 8, 120, 141, 85, 192, 177, 40, 141, 84, 192, 40, 32, 237, 253, 177, 40, 32, 237, 253, 200, 192, 40, 208, 221, 169, 141, 32, 237, 253, 234, 234, 234
  17. 170  DATA  234, 234, 165, 60, 201, 23, 208, 194, 104, 104, 133, 37, 32, 36, 252, 104, 133, 36, 104, 133, 57, 104, 133, 56, 104, 133, 55, 104, 133, 54, 141, 16, 192, 96, 141, 141, 137, 56, 50, 78, 141, 141, 0, 238