home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PRINTING
/
DMPLAS11.ZIP
/
DLTEST-4.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-08-15
|
2KB
|
37 lines
10 FILE$="DLTEST-4.PRN"
20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
30 PRINT CRLF$:PRINT " Creating ";FILE$;" - Please wait ";
40 OPEN "O",#1,FILE$
50 R$="L...5....1....5....2....5....3....5....4....5....5....5....6....5....7....5....8"
60 GOTO 150
70 PRINT#1,ESC$;"l";CHR$(0); :RETURN
80 PRINT#1,ESC$;"l";CHR$(L);"L for ESC 'l'";L: RETURN
90 PRINT#1,ESC$;"0";R$
100 FOR L=0 TO 60 STEP 20 :GOSUB 80 :NEXT L
110 GOSUB 70
120 PRINT#1,ESC$;"2";R$ :RETURN
130 PRINT#1,CRLF$;ESC$;"Q";CHR$(R);"Right margin set with ESC 'Q'";R
140 PRINT#1,R$ :RETURN
150 PRINT#1,ESC$;"@";" DLTEST-4 Left and Right Margin Commands";CRLF$
160 PRINT#1,ESC$;"PPitch set to 10 cpi" :GOSUB 90
170 PRINT#1,CHR$(15);"Pitch set to 16.66 cpi" :GOSUB 90
180 PRINT#1,CHR$(18);CRLF$
190 PRINT#1,ESC$;ESC$;"&s0CBypass code ESC ESC '&s0C' turns laser printer end-of-line wrap on"
200 R=65 :GOSUB 130 :R=40 :GOSUB 130 :R=80 : GOSUB 130
210 PRINT#1,CRLF$;"L/R margins set with ESC 'X' 20 50";ESC$;"X";CHR$(20);CHR$(50)
220 PRINT#1,R$;CRLF$
230 PRINT#1,ESC$;ESC$;"9";CR$;"Bypass code ESC ESC 9 CR clears both margins on laser printer"
240 PRINT#1,ESC$;"X";CHR$(0);CHR$(80);"Dot matrix printer requires ESC 'X' 0 80 to reset"
250 PRINT#1,R$;CRLF$
260 PRINT#1,ESC$;ESC$;"&s1CBypass code ESC ESC '&s1C' turns laser printer end-of-line wrap off"
270 R=65 :GOSUB 130 :R=40 :GOSUB 130 :R=80 : GOSUB 130
280 PRINT#1,CRLF$;"L/R margins set with ESC 'X' 20 50";ESC$;"X";CHR$(20);CHR$(50)
290 PRINT#1,R$;CRLF$
300 PRINT#1,ESC$;"X";CHR$(0);CHR$(80);"Dot matrix printer requires ESC 'X' 0 80 to reset"
310 PRINT#1,ESC$;ESC$;"9";CR$;"Bypass code ESC ESC 9 CR clears both margins on laser printer"
320 PRINT#1,R$;
330 PRINT#1,CHR$(12);ESC$;"@";
340 CLOSE #1
350 SYSTEM
360 END