10 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 PRINTCHR$(14)CHR$(8)"[147]   [195]OPYRIGHT 1987 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
30 PRINTTAB(10)"[193]LL RIGHTS RESERVED"
40 DIMM(55):PRINT"   [208]ARAMETER [195]HANGER FOR [208]RINTSCREEN"
50 FORJ=0TO54:READM(J):NEXT:FORI=1TO1500:NEXT
60 PRINT"[147][201]S YOUR PRINTER [195]OMMODORE 1525":PRINT"COMPATIBLE (Y/N)";
70 INPUTA$:IFA$<>"Y"ANDA$<>"N"THEN70
80 M(15)=0:IFA$="Y"THENM(15)=1
90 PRINT"[212]HE NUMBERS IN PARENTHESES INDICATE"
100 PRINT"THE USUAL VALUES FOR COMMANDS."
110 PRINT"[215]HEN PRINTING, WHAT LOGICAL FILE"
120 PRINT"NUMBER DO YOU USE (14)";:INPUTM(16)
130 PRINT"[215]HAT IS YOUR PRINTER DEVICE":PRINT"NUMBER (4)";:INPUTM(17)
140 IFM(15)=1THEN340
150 PRINT"[215]HAT SECONDARY ADDRESS DO YOU WANT"
160 PRINT "TO USE FOR TRANSPARENT WITH":PRINT"LINEFEED (4)";:INPUTM(18)
170 PRINT"[215]HAT COMMAND IS NEEDED TO SET YOUR"
180 PRINT"PRINTER TO 7/72-INCH LINE SPACING?"
190 PRINT"[197]NTER ONE CODE PER QUESTION MARK."
200 PRINT"[193]FTER YOU'VE ENTERED ALL VALUES (IE.,"
210 PRINT"27, 65, 7), PRESS [210][197][212][213][210][206] TO CONTINUE."
220 I=20:L=19:GOSUB390
230 PRINT"[215]HAT COMMAND IS NEEDED TO SET YOUR"
240 PRINT"PRINTER BACK TO 12/72-INCH LINE"
250 PRINT"SPACING (27, 65, 12)"
260 I=29:L=28:GOSUB390
270 PRINT"[215]HAT COMMAND IS NEEDED TO TURN ON"
280 PRINT"YOUR PRINTER'S DOT-COLUMN GRAPHICS"
290 PRINT"MODE (27, 75)?"
300 I=38:L=37:GOSUB390
310 M(46)=2:REM NUMBER OF WIDTH-BYTES FOLLOWING GRAPHIC COMMAND
320 M(47)=64:REM LOW-BYTE OF WIDTH NUMBER
330 M(48)=1:REM HIGH-BYTE OF WIDTH NUMBER
340 FORJ=0TO55:POKE52996+J,M(J):NEXT:REM $CF04
350 PRINT"[207]KAY, YOUR PRINTER PARAMETERS HAVE"
360 PRINT"BEEN STORED IN MEMORY.  [206]OW, LOAD"
370 PRINT"AND RUN [208]RINT[211]CREEN. [212]HEN SAVE"
380 PRINT"IT TO DISK UNDER A NEW NAME.":END
390 J=0
400 A$=""
410 INPUT" ";A$:IFA$=""THEN440
420 M(I+J)=VAL(A$):J=J+1
430 IFJ<8THEN400
440 M(L)=J:RETURN
450 DATA 96,2,25,96,10,1,13,5,19,96
460 DATA 8,15,19,20,96
470 DATA 1
480 DATA 14,4,0
490 DATA 1,8,0,0,0,0,0,0,0
500 DATA 1,15,0,0,0,0,0,0,0
510 DATA 0,0,0,0,0,0,0,0,0
520 DATA 0,0,0,0,0,0,0,0,0