home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / pset16a.ark / PSET.BAS next >
BASIC Source File  |  1987-01-20  |  4KB  |  95 lines
  1. 10 REM - Printer preset program - for EPSON RX-80 Printer
  2. 20 REM
  3. 30 REM - Written by:  Barron F. McIntire III
  4. 40 REM                3400 S. Greeley hwy #8
  5. 50 REM                Cheyenne, Wyoming  82007
  6. 60 REM                27 August 1983
  7. 70 REM
  8. 80 PRINT CHR$(26)
  9. 90 PRINT TAB(15)"***** PRINTER PRE-SET PROGRAM v1.0 *****":PRINT
  10. 100 PRINT "This program will allow the operator to pre-set certain printer"
  11. 110 PRINT "states.  The printer will remain in these states until the printer"
  12. 120 PRINT "power is recycles, or the printer is directed into another state"
  13. 130 PRINT "by program control.":PRINT
  14. 140 PRINT "The following options are available;":PRINT
  15. 150 PRINT "  1. Printer initialization            12. Ignore paper end detector"
  16. 160 PRINT "  2. Elite-sized character setting     13. Unidirectional printing"
  17. 170 PRINT "  3. Pica-sized character setting      14. 7/72 inch line spacing"
  18. 180 PRINT "  4. Enlarged mode                     15. 1/16 inch line spacing"
  19. 190 PRINT "  5. Enlarged mode (1 line only)       16. 1/8 inch line spacing"
  20. 200 PRINT "  6. Condensed mode                    17. n/72 inch line spacing"
  21. 210 PRINT "  7. Emphasized/enlarged mode          18. n/216 inch line spacing"
  22. 220 PRINT "  8. Emphasized mode                   19. Form length setting"
  23. 230 PRINT "  9. Double-strike mode                20. Skip over perforation"
  24. 240 PRINT " 10. Alternate character set (italics) 21. Right margin setting"
  25. 250 PRINT " 11. Underline mode                    22. Left margin setting"
  26. 260 PRINT:INPUT "Enter desired option";OPT
  27. 270 IF OPT<1 OR OPT<>INT(OPT) THEN 260
  28. 280 IF OPT<23 THEN 320
  29. 290 PRINT "EXIT PROGRAM (Y/N)?";
  30. 300 A$=INKEY$:IF A$="Y" OR A$="N" THEN 310 ELSE 300
  31. 310 IF A$="Y" THEN SYSTEM ELSE 260
  32. 320 ON OPT GOTO 330,350,370,390,410,430,450,470,490,510,530,550,570,590,610,
  33.                 630,650,680,710,800,830,860
  34. 330 LPRINT CHR$(27);"@";
  35. 340 GOTO 880
  36. 350 LPRINT CHR$(27);"M";
  37. 360 GOTO 880
  38. 370 LPRINT CHR$(27);"P";
  39. 380 GOTO 880
  40. 390 LPRINT CHR$(27);"W";CHR$(1);
  41. 400 GOTO 880
  42. 410 LPRINT CHR$(14);
  43. 420 GOTO 880
  44. 430 LPRINT CHR$(15);
  45. 440 GOTO 880
  46. 450 LPRINT CHR$(27);"E";CHR$(27);"W";CHR$(1);
  47. 460 GOTO 880
  48. 470 LPRINT CHR$(27);"E";
  49. 480 GOTO 880
  50. 490 LPRINT CHR$(27);"G";
  51. 500 GOTO 880
  52. 510 LPRINT CHR$(27);"4";
  53. 520 GOTO 880
  54. 530 LPRINT CHR$(27);"-";CHR$(1);
  55. 540 GOTO 880
  56. 550 LPRINT CHR$(27);"8";
  57. 560 GOTO 880
  58. 570 LPRINT CHR$(27);"U";CHR$(1);
  59. 580 GOTO 880
  60. 590 LPRINT CHR$(27);"1";
  61. 600 GOTO 880
  62. 610 LPRINT CHR$(27);"2";
  63. 620 GOTO 880
  64. 630 LPRINT CHR$(27);"0";
  65. 640 GOTO 880
  66. 650 INPUT "Enter n/72 line spacing required";N
  67. 660 LPRINT CHR$(27);"A";CHR$(N);
  68. 670 GOTO 880
  69. 680 INPUT "Enter n/216 line spacing required";N
  70. 690 LPRINT CHR$(27);"3";CHR$(N);
  71. 700 GOTO 880
  72. 710 INPUT "Specify setting by lines (1) or inches (2)";S
  73. 720 IF S<>1 AND S<>2 THEN 710
  74. 730 ON S GOTO 740,770
  75. 740 INPUT "Enter number of lines";N:IF N<1 OR N>127 THEN 740 ELSE 750
  76. 750 LPRINT CHR$(27);"C";CHR$(N);
  77. 760 GOTO 880
  78. 770 INPUT "Enter number of inches";N:IF N<1 OR N>22 THEN 770 ELSE 780
  79. 780 LPRINT CHR$(27);"C";CHR$(0);CHR$(N);
  80. 790 GOTO 880
  81. 800 INPUT "Enter number of lines to be skipped";N:IF N<1 OR N>127 THEN 800
  82. 810 LPRINT CHR$(27);"N";CHR$(N);
  83. 820 GOTO 880
  84. 830 INPUT "Enter number of characters required in line (P=80, E=96, C=137)";N
  85. 840 LPRINT CHR$(27);"Q";CHR$(N);
  86. 850 GOTO 880
  87. 860 INPUT "Enter column in which to start left margin";N
  88. 870 LPRINT CHR$(27);"l";CHR$(N);
  89. 880 PRINT:PRINT "Another option (Y/N)?"
  90. 890 A$=INKEY$:IF A$="Y" OR A$="N" THEN 900 ELSE 890
  91. 900 IF A$="Y" THEN 140 ELSE SYSTEM
  92. 910 END
  93. INT "Another option (Y/N)?"
  94. 890 A$=INKEY$:IF A$="Y" OR A$="N" THEN 900 ELSE 890
  95. 900 IF A$="Y" THEN 140 ELSE SYST