Large Screen Dump

The original of this program was presented by Syd Wyncoop in the February issue of THE PLOTTER. As no one from Syd’s MC class volunteered to develop a loader program and conversion, our chairman Michael Carver agreed to take the task on. His program follows.

The only variables provided for are the printer codes. Line 230 addresses the question of printed width with the Epson code for graphic printing, 27,”K”,0,1. The 27 is the code for EScape, “K” (code 75) is the graphic code for 60 columns per inch, 0 is the number of columns less than 256, and 1 is the number of increments of 256. The printed image would not be as wide if the 60 is replaced with 72 by changing “K” to your printer’s code.

Line 230 also includes the Epson printer code for line feed in increments of 1/72 inch. As Syd explains, 7/72 will print following lines so no white will show between full lines.

The printed width will be about 4.3 inches if the first and last “characters” are 8 pixels wide. This is 256/60.

To change to different codes for your printer, look at line 9994 and pick out 1B 4B 00 01, which is the hex for 27,75,0,1 in dec. The next 3 hex numbers are 1B 41 07 which are 27,65,7 in dec. where 7 is the number of increments of 1/72. Change these hex numbers to the corresponding code numbers for your printer. You will probably find the values in hex in your printer manual. The decimal numbers can be POKEd in starting at address 65122, once the DATA are in memory, then make a corrected save.

Once the hex numbers are correctly entered into memory starting at 65024 by entering RUN, SAVE is made by line 150. Change this to fit your storage medium. To use, CLEAR, LOAD “scrdump” CODE (or the name you used), then load your graphic screen$. Once completed just enter “PRINT USR 65024”, being sure the printer is loaded with paper and ready because it will start right off.

This program was tested and the results were rather peculuar. The image was split up horizontally, one line printing left and the next line printing right. I suggest that the reader give it a try and see if it was me or the program.

  10 REM ***********************
  20 REM * Large Screen Dump   *
  30 REM * for T/S 2068        *
  40 REM *      by Syd Wyncoop *
  50 REM * for CCAT/S MC SIG   *
  60 REM * Will print to Epson *
  70 REM * type printers       *
  80 REM * PRINT USR 65024     *
  90 REM ***********************
*
 100 CLEAR 65023: RESTORE 9982: L
ET a$=""
 110 LET addr=65024: FOR i=0 TO 1
6: READ d$: LET a$=a$+d$: NEXT i
 120 FOR i=1 TO LEN a$-1 STEP 2
 130 POKE addr+INT ((i-1)/2),(COD
E a$(i)-(48 AND CODE a$(i)<58)-(5
5 AND CODE a$(i)>64))*16+CODE a$(
i+1)-(48 AND CODE  a$(i+1)<58)-(5
5 AND CODE a$(i+1)>64)
 140 NEXT i
 150 SAVE "scrdump"CODE 65024,130
 160  PRINT "Rewind tape to Verif
y...": VERIFY "scrdump"CODE 65024
,130
 200 REM ***********************
 210 REM * Printer control codes
 220 REM * at 65122 (7 bytes)  *
 230 REM * 27,"K",0,1,27,"A",7 *
 240 REM * may need to alter for
 250 REM * your printer        *
 260 REM ***********************
9982 DATA "CD4DFE2100400603"
9983 DATA "0E00C5222EFE1130"
9984 DATA "FE06087E12241310"
9985 DATA "FAC5CD38FEC12A2E"
9986 DATA "FE230D20E6C105C8"
9987 DATA "1100071918DA0000"
9988 DATA "0000000000000000"
9989 DATA "0E0806082130FEAF"
9990 DATA "CB06172310FACD69"
9991 DATA "FE0D20EEC9AF3281"
9992 DATA "FE2162FE06077ECD"
9993 DATA "69FE2310F9AF3281"
9994 DATA "FEC91B4B00011B41"
9995 DATA "07F5DB7FFEED20FA"
9996 DATA "F1D37F3A81FE3D32"
9997 DATA "81FEC03E0DD37F18"
9998 DATA "CC00"