For the life of me !!! I do not remember submitting this to Toronto
From SINC-LINK, May-June ’92, Vol 10 #3.
Abed Kahale, [address omitted]
Since my last article on the Tandy DMP105 printer, modifications were made to screen dump 4 times the normal size to about a half page worth. Also the print head is now controlled so it can plot to any location on the page. In this case, the font style controls the width; ELITE (12 CPI) & Expanded was used below. One half the vertical pixels were used for one print head pass. The program should be aplicable to other printers with proper modifications.
To obtain a negative (inverse video) or vice versa add NOT. NOT POINT(C,R-xx)
1 REM TANDY DMP105 PRINTER DRIVER by Abed Kahale 1/92
20 RANDOMIZE USR 100: OPEN #3,"LP"
30 RANDOMIZE USR 100: POKE 16092,0: REM No line feed (otherwise double spacing)
50 RANDOMIZE USR 100: POKE 16093,32: REM LPRINTs & CHR$s sent to printer.
80 LPRINT CHR$ 27;CHR$ 23;CHR$ 27;CHR$ 14;CHR$ 18: REM Elite, Expanded (Elongated)[illegible] & Graphic mode.
90 LPRINT CHR$ 27;CHR$ 16;CHR$ 0;CHR$ 35: REM Locates head (margin) at 35 pixels from the left.
95 RANDOMIZE USR 100: LOAD "C.C$"SCREEN$
155 FOR Y=0 TO 175 STEP 4: LET R=175-Y: REM vertical pixels; twice for 8-pin head.
160 FOR C=0 TO 255: REM Horizontal pixels.
170 LET B=0
180 LET B=B+POINT (C,R-.5): REM divided by 2
190 LET B=B+2*POINT (C,R-1): REM " "
200 LET B=B+4*POINT (C,R-1.5): REM " "
210 LET B=B+8*POINT (C,R-2): REM " "
220 LET B=B+16*POINT (C,R-2.5): REM " "
230 LET B=B+32*POINT (C,R-3): REM " "
240 LET B=B+64*POINT (C,R-3.5): REM " "
250 LET B=B+128
255 IF IN 127<>236 THEN GO TO 255: REM Checks if READY.
260 LPRINT CHR$ B;
270 NEXT C
280 LPRINT CHR$ 27;CHR$ 90;CHR$ 0: REM carriage return.
290 NEXT Y
300 LPRINT CHR$ 30: REM Back to character mode.[Figure: Four-times-size screen dump of a woman’s face printed by the program]