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 >
BASIC Source File  |  1991-08-21  |  2KB  |  83 lines
  1. 100 'ASLTEST.BAS: generate a test-print page for ASLFONT soft font
  2. 102 '             in portrait orientation.
  3. 110 '             Program assumes that soft font ASL49???.SFP has been
  4. 120 '             downloaded to the printer with an ID of 1
  5. 130 '
  6. 140 ' Program creates a file containing the data to be printed. To
  7. 150 ' print it, at the DOS prompt, type
  8. 160 '     COPY ASLTEST.DAT PRN
  9. 170 ' or you can type
  10. 180 '     TYPE ASLTEST.DAT > PRN
  11. 190 '
  12. 200 ' written by Janet Gomez  21 August 1991
  13. 210 '
  14. 220 OPEN "O", #1, "ASLTEST.DAT"   'this is the file to be copied (sent)
  15. 230                               'to the printer after this program is
  16. 240                               'executed (see command above)
  17. 250 PRINT #1, CHR$(27);"(1X";     'this printer command selects soft font
  18. 260                               '1 for use. If you want to use a different
  19. 270                               'font id, you must change this number.
  20. 290 PRINT #1, " "
  21. 300 PRINT #1, " "
  22. 310 PRINT #1, " "
  23. 320 PRINT #1, " "
  24. 330 PRINT #1, "   ABCDEFGHI"
  25. 340 PRINT #1, " "
  26. 350 PRINT #1, " "
  27. 360 PRINT #1, " "
  28. 370 PRINT #1, " "
  29. 380 PRINT #1, "   JKLMNOPQR"
  30. 390 PRINT #1, " "
  31. 400 PRINT #1, " "
  32. 410 PRINT #1, " "
  33. 420 PRINT #1, " "
  34. 430 PRINT #1, "   STUVWXYZ"
  35. 440 PRINT #1, " "
  36. 450 PRINT #1, " "
  37. 460 PRINT #1, " "
  38. 470 PRINT #1, " "
  39. 480 PRINT #1, " "
  40. 490 PRINT #1, " "
  41. 500 PRINT #1, "    ASLFONT"
  42. 510 PRINT #1, " "
  43. 520 PRINT #1, " "
  44. 530 PRINT #1, " "
  45. 540 PRINT #1, " "
  46. 550 PRINT #1, "    FOR THE"
  47. 560 PRINT #1, " "
  48. 570 PRINT #1, " "
  49. 580 PRINT #1, " "
  50. 590 PRINT #1, " "
  51. 600 PRINT #1, "    IBM PC"
  52. 610 PRINT #1, " "
  53. 620 PRINT #1, " "
  54. 630 PRINT #1, " "
  55. 640 PRINT #1, " "
  56. 650 PRINT #1, "    AND THE"
  57. 660 PRINT #1, " "
  58. 670 PRINT #1, " "
  59. 680 PRINT #1, " "
  60. 690 PRINT #1, " "
  61. 700 PRINT #1, "   HP LASERJET"
  62. 710 PRINT #1, " "
  63. 720 PRINT #1, " "
  64. 730 PRINT #1, " "
  65. 740 PRINT #1, " "
  66. 750 PRINT #1, "    PRINTER"
  67. 760 PRINT #1, " "
  68. 770 PRINT #1, " "
  69. 780 PRINT #1, " "
  70. 790 PRINT #1, " "
  71. 800 PRINT #1, " ABCDEFGHIJKLMNOPQ"
  72. 810 PRINT #1, " "
  73. 820 PRINT #1, " "
  74. 830 PRINT #1, " "
  75. 840 PRINT #1, " "
  76. 850 PRINT #1, "   RSTUVWXYZ"
  77. 860 PRINT #1, CHR$(27);"E";           'reset command (forces the page to print)
  78. 870                                   'Note: reset also removes temporary soft
  79. 880                                   '      fonts!
  80. 890 CLOSE #1
  81. 900 PRINT "ASLTEST Done. Output file: ASLTEST.DAT";
  82. 910 END
  83.