home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / epson / fxparms.bas < prev    next >
BASIC Source File  |  1994-07-13  |  3KB  |  86 lines
  1. 1  'FXPARMS.BAS  03/29/83  T. McCormick
  2. 2  'derived from EPSON FX-80 Printer Operation Manual
  3. 3  'This program illustrates various type styles and modes for the FX-80.
  4. 6 GOTO 10
  5. 7 RESET: SAVE "FXPARMS.BAS",A: STOP   'SAVE CORRECT FILE NAME
  6. 10 '---------- Define Constants ---------------
  7. 15 E$ = CHR$(27)        'Escape
  8. 100 '
  9. 110 'FX80 ENLARGED PRINT MODE WITH AUTO-RESET FROM LF
  10. 115 LPRINT "CHR$(14) causes change to....."
  11. 120 LPRINT CHR$(14); "Enlarged mode until line feed."
  12. 130 LPRINT "Then back to normal mode again."
  13. 200 'CONDENSED MODE
  14. 210 LPRINT CHR$(15); "Condensed mode shown here after CHR$(27);CHR$(15)."
  15. 220 LPRINT "...and still in condensed mode even after line feed."
  16. 230 LPRINT CHR$(14); "Now in Condensed Enlarged mode"
  17. 240 LPRINT "after CHR$(14) sent to printer."
  18. 300 LPRINT CHR$(18); "But CHR$(18) canceled the condensed mode."
  19. 400 LPRINT CHR$(20); "Enlarged print set on"
  20. 410 LPRINT "by CHR$(20)."
  21. 500 'Delete last character
  22. 510 LPRINT "Delete";
  23. 520 LPRINT CHR$(127); "ing last char by CHR$(127)."
  24. 600 ' 1/8 inch line spacing
  25. 610 LPRINT CHR$(27);"0"
  26. 620 FOR I = 1 TO 4
  27. 630 LPRINT "1/8 Inch Line Spacing from ESC 0."
  28. 640 NEXT
  29. 700 ' 7/72" line spacing
  30. 705 LPRINT:LPRINT
  31. 710 LPRINT CHR$(27);"1";
  32. 720 FOR I = 1 TO 5
  33. 730 LPRINT "7/72 Inch Line Spacing Example from ESC 1."
  34. 740 NEXT
  35. 800 ' 1/6" LINE SPACING
  36. 805 LPRINT:LPRINT
  37. 810 LPRINT CHR$(27);"2";
  38. 820 FOR I = 1 TO 4
  39. 830 LPRINT "1/6 inch  LINE SPACING from ESC 2."
  40. 840 NEXT
  41. 900 ' n/216 inch line spacing
  42. 905 LPRINT:LPRINT
  43. 910 LPRINT CHR$(27);"3";CHR$(20);
  44. 920 FOR I = 1 TO 4
  45. 930 LPRINT "Approx. 20/216 inch LINE SPACING from ESC 3 20."
  46. 940 NEXT
  47. 950 LPRINT CHR$(27);"2"     'RESET TO 1/6 INCH LINE SPACING
  48. 1000 ' Selects Italic CG set
  49. 1010 LPRINT "Standard mode characters."
  50. 1020 LPRINT CHR$(27);"4";
  51. 1030 LPRINT "Italic   mode characters after ESC 4."
  52. 1040 LPRINT CHR$(27);"5";
  53. 1050 LPRINT "Standard mode again after ESC 5."
  54. 1100 ' Print mode examples of selected sizes/styles
  55. 1110 LPRINT
  56. 1120 LPRINT "Modes of print varyed by n after ESC '!'"
  57. 1125 LPRINT
  58. 1130 LPRINT "You enter ESCAPE; '!'; CHR$(n); ...where n = 0 to 63."
  59. 1135 DATA 32,40,62,35,47,63,36,52,2,8,24,3,17,4,22
  60. 1138 DIM J(15)
  61. 1140 FOR I = 1 TO 15: READ J(I): NEXT
  62. 1150 LPRINT: LPRINT CHR$(27);"2"    'RESET TO 1/6 INCH LINE SPACING
  63. 1160 LPRINT CHR$(27);"D";CHR$(20);    'SEND LEAD-IN CHARS TO FX-80.
  64. 1170 FOR I = 1 TO 15
  65. 1175 M = J(I)
  66. 1180 LPRINT CHR$(27); "!"; CHR$(0);
  67. 1190 LPRINT " Mode "; M; CHR$(9);
  68. 1200 LPRINT CHR$(27); "!"; CHR$(M);
  69. 1210 LPRINT "ABCDEabcde123#$"
  70. 1220 NEXT
  71. 1300 ' Proportional Spacing Mode
  72. 1305 LPRINT:LPRINT
  73. 1310 LPRINT "     [Normal Print Mode]"
  74. 1320 GOSUB 1400
  75. 1330 LPRINT
  76. 1340 LPRINT "     [Proportional Print Mode]"
  77. 1350 LPRINT CHR$(27);"p";CHR$(1);
  78. 1360 GOSUB 1400
  79. 1370 LPRINT CHR$(27);"p";CHR$(0)
  80. 1380 GOTO 1500
  81. 1400 LPRINT "The Earth, our planet, is located at"
  82. 1410 LPRINT "an average distance of 93 million miles"
  83. 1420 LPRINT "from the sun."
  84. 1430 RETURN
  85. 1500 STOP:END
  86.