home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib25a.dsk
/
JULY.1985
/
PRODOS.DUMP.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
23 lines
10 REM **********************
20 REM * PRODOS.DUMP *
30 REM * BY GERALD BLALOCK *
40 REM * COPYRIGHT (C) 1985 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 REM HI-RES DUMP USING IMAGEWRITER PRINTER
90 REM THE FILE 'GRAF.0' AND YOUR PICTURE FILE MUST BE ON THE SAME DISK
100 HOME : HIMEM: 36864
110 D$ = CHR$(4): REM CTRL-D
120 PSLOT = 1: REM PRINTER SLOT
130 PRINT D$;"BLOAD GRAF.0"
140 POKE 6,PSLOT: POKE 252,16 *PSLOT
150 PRINT "NAME OF PICTURE FILE (? FOR CATALOG)": INPUT ": ";NAME$: IF NAME$ = "?" THEN PRINT D$"CAT": GET Z$: PRINT : GOTO 150
160 INPUT "WHICH PAGE (1 OR 2): ";P$
170 P$ = LEFT$(P$,1): IF P$ < >"1" AND P$ < >"2" GOTO 160
180 PRINT D$;"BLOAD "NAME$",A$"2000 +2000 *(P$ = "2")
190 PRINT "PRINT MODES:": PRINT " 0 SINGLE NORMAL": PRINT " 1 SINGLE INVERSE ": PRINT " 2 DOUBLE NORMAL": PRINT " 3 DOUBLE INVERSE "
200 INPUT "PRINT MODE? ";XFEROPT
210 POKE 7,XFEROPT +4 *(P$ = "2")
220 CALL 38636: REM SET UP PRINTER
230 CALL 38156: REM PRINT IT