home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
UT
/
UT154.ZIP
/
DMPLAS.ZIP
/
DLTEST-1.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-08-15
|
4KB
|
97 lines
10 FILE$="DLTEST-1.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$
45 PRINT#1, ESC$;"@";
50 PRINT#1," DLTEST-1 Print Pitch, Style, and Special Effect Commands"
60 PRINT#1," Current (default) STYLE and pitch 12345678901234567890";CRLF$
70 PRINT#1,"----- Print Pitch Commands -----"
80 PRINT#1,ESC$;"P";
90 PRINT#1,"ESC 'P' Set pitch to 10 cpi 12345678901234567890"
100 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 5 cpi 12345 until"
110 PRINT#1,ESC$;"W0";
120 PRINT#1,"ESC 'W0' Returns to 10 cpi 12345678901234567890"
130 PRINT#1,"SO or ESC SO ";CHR$(14);"Expands rest of current line"
140 PRINT#1," Then returns to current pitch"
150 PRINT#1,CRLF$;
160 PRINT#1,ESC$;":";
170 PRINT#1,"ESC ':' Set pitch to 12 cpi 12345678901234567890 (some printers)"
180 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 6 cpi 123456 until"
190 PRINT#1,ESC$;"W0";
200 PRINT#1,"ESC 'W0' Returns to 12 cpi 12345678901234567890"
210 PRINT#1,"SO or ESC SO ";ESC$;CHR$(14);"Expands rest of current line"
220 PRINT#1," Then returns to current pitch"
230 PRINT#1,CRLF$;
240 PRINT#1,ESC$;"P";
250 PRINT#1,"ESC 'P' Set pitch to 10 cpi 12345678901234567890"
260 PRINT#1,"SI or ESC SI ";ESC$;CHR$(15);" Condenses 10 cpi to 16.66 cpi 12345678901234567890"
270 PRINT#1,CHR$(18);
280 PRINT#1,"DC2 Restores 10 cpi 12345678901234567890"
290 PRINT#1,CRLF$;
300 PRINT#1,ESC$;"M";
310 PRINT#1,"ESC 'M' Set pitch to 12 cpi 12345678901234567890"
320 PRINT#1,"SI or ESC SI ";ESC$;CHR$(15);" Condenses 12 cpi to 16.66 cpi (or 20 cpi on some printers) 12345678901234567890"
330 PRINT#1,CHR$(18);
340 PRINT#1,"DC2 Restores 12 cpi 12345678901234567890"
350 PRINT#1,CRLF$;
360 PRINT#1,ESC$;"P";
370 PRINT#1,"ESC 'P' Set pitch to 10 cpi 12345678901234567890"
380 PRINT#1,"SI or ESC SI";CHR$(15);" Condenses 10 cpi to 16.66 cpi 12345678901234567890"
390 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 8.5 cpi 1234567890"
400 PRINT#1,ESC$;"W0";
410 PRINT#1,"ESC 'W0' Returns to 16.66 cpi 12345678901234567890"
420 PRINT#1,CHR$(18);
430 PRINT#1,"DC2 Restores 10 cpi 12345678901234567890"
440 PRINT#1,CRLF$;
450 PRINT#1,ESC$;"M";
460 PRINT#1,"ESC 'M' Sets pitch to 12 cpi 12345678901234567890"
470 PRINT#1,"SI or ESC SI";CHR$(15);" Condenses 12 cpi to 16.66 cpi (or 20 cpi on some printers) 12345678901234567890"
480 PRINT#1,"ESC 'W1' ";ESC$;"W1 Expands to 8.5 (or 10) cpi 1234567890"
490 PRINT#1,ESC$;"W0";
500 PRINT#1,"ESC 'W0' Returns to 16.66 (or 20) cpi 12345678901234567890"
510 PRINT#1,CHR$(18);
520 PRINT#1,"DC2 Restores 12 cpi 12345678901234567890"
530 PRINT#1,CRLF$;
540 PRINT#1,ESC$;"P";ESC$;"g";
550 PRINT#1,"ESC 'g' Sets pitch to 15 cpi 12345678901234567890 (some printers)"
560 PRINT#1,ESC$;"P";
570 PRINT#1,"ESC 'P' Back to 10 cpi 12345678901234567890"
580 PRINT#1,CRLF$;
590 PRINT#1,"----- Print Style Commands -----"
600 PRINT#1,"ESC '4'";ESC$;"4 Prints ITALIC style characters"
610 PRINT#1,ESC$;"5";
620 PRINT#1,"ESC '5' Restores ROMAN style characters"
630 PRINT#1,"ESC 'E'";ESC$;"E Selects EMPHASIZED printing"
640 PRINT#1,ESC$;"F";
650 PRINT#1,"ESC 'F' Cancels EMPHASIZED printing"
660 PRINT#1,"ESC 'G'";ESC$;"G Selects BOLDFACED printing"
670 PRINT#1,ESC$;"H";
680 PRINT#1,"ESC 'H' Cancels BOLDFACED printing"
690 PRINT#1,"ESC 'p1' ";ESC$;"p1 Selects proportional pitch"
700 PRINT#1,ESC$;"p0";
710 PRINT#1,"ESC 'p0' Cancels proportional pitch"
720 PRINT#1,CRLF$;
730 PRINT#1,"----- Special Effect Commands -----"
740 PRINT#1,"ESC '-1' ";ESC$;"-1Enables underlining until"
750 PRINT#1,ESC$;"-0";
760 PRINT#1,"ESC '-0' cancels underlining"
770 PRINT#1,CRLF$;
780 PRINT#1,"ESC 'S0' Enables";ESC$;"S0*Superscript until";
790 PRINT#1,ESC$;"T";
800 PRINT#1,"ESC 'T' cancels it"
810 PRINT#1,"ESC 'S1' Enables";ESC$;"S1*Subscript until";
820 PRINT#1,ESC$;"T";
830 PRINT#1,"ESC 'T' cancels it"
840 PRINT#1,CRLF$;
850 PRINT#1,ESC$;"M At 12 cpi (ESC 'M') it looks like this"
860 PRINT#1,"ESC 'S0' Enables";ESC$;"S0*Superscript until";
870 PRINT#1,ESC$;"T";
880 PRINT#1,"ESC 'T' cancels it"
890 PRINT#1,"ESC 'S1' Enables";ESC$;"S1*Subscript until";
900 PRINT#1,ESC$;"T";
910 PRINT#1,"ESC 'T' cancels it"
920 PRINT#1, CHR$(12);ESC$;"@";
930 CLOSE #1
940 SYSTEM
950 END