home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23a.dsk / JANUARY.1985 / SCREEN.DUMP80.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 10  REM  ************************
  2. 20  REM  *    SCREEN.DUMP80     *
  3. 30  REM  *    BY A.R.CLAYTON    *
  4. 40  REM  *  COPYRIGHT (C) 1985  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  PRINT  CHR$(4);"PR# 3": PRINT  CHR$(4)"CATALOG": REM  TURN ON 80 COL CARD AND PUT SOMETHING IN THE SCREEN
  9. 90  GOSUB 100: END 
  10. 100  PRINT  CHR$(4);"PR# 1": REM  TURN ON PRINTER
  11. 110  PRINT  CHR$(9);"80N": REM  TURN OFF SCREEN
  12. 120  FOR A = 1024 TO 1104  STEP 40: REM  SEE MEM MAP 80 COL TEXT PAGE 32 //E REF
  13. 130  FOR I = A TO A +896  STEP 128
  14. 140  FOR X = I TO I +39
  15. 150  POKE 49237,0: REM  TURN PAGE 2 ON AUX MEM
  16. 160  GOSUB 260
  17. 170  POKE 49236,0: REM  TURN PAGE 2 OFF
  18. 180  GOSUB 260
  19. 190  NEXT X
  20. 200  PRINT L$:L$ = "": REM  PRINT L$ AND THEN NULL L$
  21. 210  NEXT I
  22. 220  NEXT A
  23. 230  PRINT  CHR$(4);"PR# 0": REM  TURN PRINTER OFF
  24. 240  PRINT  CHR$(4);"PR# 3": REM  TURN 80 COL BACK ON
  25. 250  RETURN 
  26. 260 L =  PEEK(X)
  27. 270 L = L *(L <255) *(L >31): IF   NOT L  THEN L = 32
  28. 280 L$ = L$ + CHR$(L)
  29. 290  RETURN : REM  THIS SUB REMOVES CONTROL CHARACTERS