home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PRINTING
/
ASLFONT.ZIP
/
ASLTEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-08-21
|
2KB
|
83 lines
100 'ASLTEST.BAS: generate a test-print page for ASLFONT soft font
102 ' in portrait orientation.
110 ' Program assumes that soft font ASL49???.SFP has been
120 ' downloaded to the printer with an ID of 1
130 '
140 ' Program creates a file containing the data to be printed. To
150 ' print it, at the DOS prompt, type
160 ' COPY ASLTEST.DAT PRN
170 ' or you can type
180 ' TYPE ASLTEST.DAT > PRN
190 '
200 ' written by Janet Gomez 21 August 1991
210 '
220 OPEN "O", #1, "ASLTEST.DAT" 'this is the file to be copied (sent)
230 'to the printer after this program is
240 'executed (see command above)
250 PRINT #1, CHR$(27);"(1X"; 'this printer command selects soft font
260 '1 for use. If you want to use a different
270 'font id, you must change this number.
290 PRINT #1, " "
300 PRINT #1, " "
310 PRINT #1, " "
320 PRINT #1, " "
330 PRINT #1, " ABCDEFGHI"
340 PRINT #1, " "
350 PRINT #1, " "
360 PRINT #1, " "
370 PRINT #1, " "
380 PRINT #1, " JKLMNOPQR"
390 PRINT #1, " "
400 PRINT #1, " "
410 PRINT #1, " "
420 PRINT #1, " "
430 PRINT #1, " STUVWXYZ"
440 PRINT #1, " "
450 PRINT #1, " "
460 PRINT #1, " "
470 PRINT #1, " "
480 PRINT #1, " "
490 PRINT #1, " "
500 PRINT #1, " ASLFONT"
510 PRINT #1, " "
520 PRINT #1, " "
530 PRINT #1, " "
540 PRINT #1, " "
550 PRINT #1, " FOR THE"
560 PRINT #1, " "
570 PRINT #1, " "
580 PRINT #1, " "
590 PRINT #1, " "
600 PRINT #1, " IBM PC"
610 PRINT #1, " "
620 PRINT #1, " "
630 PRINT #1, " "
640 PRINT #1, " "
650 PRINT #1, " AND THE"
660 PRINT #1, " "
670 PRINT #1, " "
680 PRINT #1, " "
690 PRINT #1, " "
700 PRINT #1, " HP LASERJET"
710 PRINT #1, " "
720 PRINT #1, " "
730 PRINT #1, " "
740 PRINT #1, " "
750 PRINT #1, " PRINTER"
760 PRINT #1, " "
770 PRINT #1, " "
780 PRINT #1, " "
790 PRINT #1, " "
800 PRINT #1, " ABCDEFGHIJKLMNOPQ"
810 PRINT #1, " "
820 PRINT #1, " "
830 PRINT #1, " "
840 PRINT #1, " "
850 PRINT #1, " RSTUVWXYZ"
860 PRINT #1, CHR$(27);"E"; 'reset command (forces the page to print)
870 'Note: reset also removes temporary soft
880 ' fonts!
890 CLOSE #1
900 PRINT "ASLTEST Done. Output file: ASLTEST.DAT";
910 END