home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / DOS3.3.DUMP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 10  REM  **********************
  2. 20  REM  *    DOS3.3.DUMP     *
  3. 30  REM  *  BY GERALD BLALOCK *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  REM  HI-RES DUMP USING IMAGEWRITER PRINTER
  9. 90  REM  THE FILE 'GF' AND YOUR PICTURE FILE MUST BE ON THE SAME DISK
  10. 100  HOME : HIMEM: 36864
  11. 110 D$ =  CHR$(4): REM  CTRL-D
  12. 120 PSLOT = 1: REM  PRINTER SLOT
  13. 130  PRINT D$;"BLOAD GF"
  14. 140  POKE 6,PSLOT
  15. 150  PRINT "NAME OF PICTURE FILE (? FOR CATALOG)": INPUT ": ";NAME$: IF NAME$ = "?"  THEN  PRINT D$"CATALOG": GET Z$: PRINT : GOTO 150
  16. 160  INPUT "WHICH PAGE (1 OR 2): ";P$
  17. 170 P$ =  LEFT$(P$,1): IF P$ < >"1"  AND P$ < >"2" GOTO 160
  18. 180  PRINT D$;"BLOAD "NAME$",A$"2000 +2000 *(P$ = "2")
  19. 190  PRINT "PRINT MODES:": PRINT "  0 SINGLE NORMAL": PRINT "  1 SINGLE INVERSE ": PRINT "  2 DOUBLE NORMAL": PRINT "  3 DOUBLE INVERSE "
  20. 200  INPUT "PRINT MODE? ";XFEROPT
  21. 210  POKE 7,XFEROPT +4 *(P$ = "2")
  22. 220  PRINT D$;"PR#";PSLOT: PRINT  CHR$(27) + CHR$(78): REM  TURN ON GRAPHICS MODE
  23. 230  CALL 36864: REM  PRINT IT
  24. 240  PRINT : PRINT D$;"PR#0": REM  ALL DONE!