1.5 REM THIS PROGRAM SETS UP THE EPSON MX-80 PRINTER FOR PRINT SIZE,ETC.
2.0 REM CVE 9-12-81
10 FOR I=1 TO 12  REM PRINT 12 BLANK LINES
11 PRINT
12 NEXT I  REM TO CLEAR SCREEN
16 PRINT "             SET UP MENU FOR MX-80 PRINTER"
17 PRINT
18 PRINT "   1 - CONDENSED SIZE, 132 CHARACTERS PER LINE" REM ASCII 15
18.2 PRINT "       (1 - CANNOT BE USED WITH EMPHASIZED PRINT)"
19 PRINT "   2 - DOUBLE WIDTH SIZE, 40 CHARACTERS PER LINE" REM ASCII 14
19.1 REM DOUBLE WIDTH IS AUTOMATICALLY CANCELLED AFTER EACH LINE PRINT
20 PRINT "   3 - DOUBLE WIDTH/COMPRESSED SIZE, 66 CHAR. PER LINE" REM 15,14
21 PRINT "   4 - NORMAL SIZE, 80 CHARACTERS PER LINE" REM ESC H OR ASCII 27,72
22 PRINT "   5 - DOUBLE STRIKE - 1/216TH OF AN INCH PAPER ADV. BETW. PRINTINGS"
22.5 PRINT "   6 - EMPHASIZED PRINT 1/216TH OF AN INCH ADV. BETWEEN TWO PRT"
22.6 PRINT "       ( 6 - CANNOT BE USED WITH COMPRESSED SIZE PRINT)"
23 REM DOUBLE STRIKE IS ESC G OR ASCII 27,71; EMPHASIZED IS ESC E OR 27,69
24 PRINT
24.1 PRINT " SELECT ONE OF THE FIRST FOUR CHOICES, AND ENTER NUMBER"
24.2 PRINT 
24.3 INPUT A
24.4 PRINT " IF YOU WANT DOUBLE STRIKE, ENTER 1, OTHERWISE ENTER 0"
24.5 PRINT
24.6 INPUT B
25 PRINT
25.50 PRINT " IF YOU WANT EMPHASIZED PRINT, ENTER 1, OTHERWISE ENTER 0"
25.51 INPUT C
25.52 IF C<>1 THEN 25.60
25.54 LET X5% = 27 REM ESC CODE FOR EMPHASIZED
25.55 LET X6% = 69 REM EMPHASIZE  CODE
25.57 GO TO 26
25.60 LET X5% = 0 REM CANCELL CODE
25.62 LET X6% = 0 REM CANCELL CODE FOR EMPHASIZED
26 PRINT "ENTER WHAT YOU WANT PRINTED - UP TO 40 CHARACTERS"
26.1 PRINT
26.2 INPUT S$
26.30 PRINT
26.35 PRINT "  TURN PRINTER TO STANDBY OR NOT READY WHEN BUZZER SOUNDS - NOTE!"
26.38 PRINT
26.4 PRINT "ENTER 1 WHEN PRINTER IS READY"
26.5 PRINT
26.6 INPUT D
26.7 IF D=1 THEN 27
26.8 GO TO 26.4
27 REM PRINTER IS READY
30 LPRINTER
31 IF A<>3 THEN 31.50
31.1 LET X1% = 15
31.2 LET X2% = 14
31.4 GO TO 90
31.50 IF A<>1 THEN 31.55
31.52 LET X1% = 15
31.53 LET X2% = 0
31.54 GO TO 90
31.55 IF A<>2 THEN 31.6
31.57 LET X1% = 14
31.58 LET X2% = 0
31.59 GO TO 90
31.6 LET X2% = 0
31.8 LET X1% = 0
31.9 GO TO 90
90 IF B<>1 THEN 95
91 LET X3% = 27
92 LET X4% = 71
93 GO TO 100
95 LET X3% = 0
96 LET X4% = 0
100 REM 
110 PRINT CHR$(X1%);CHR$(X2%);CHR$(X3%);CHR$(X4%);CHR$(X5%);CHR$(X6%);S$ 
111 REM LINE 110 IS PRINT LINE WITH VARIABLES FOLLOWED BY PRINT STRING
112 PRINT CHR$(18);CHR$(20);CHR$(27);CHR$(72);CHR$(27);CHR$(70) 
113  REM TURN OFF FEATURES IN LINE 112
14 PRINT CHR$(7) REM CAUSES PRINTER TO BEEP
115 CONSOLE
116 PRINT "ENTER 1 TO CONTINUE, 0 TO END PROGRAM  *MAKE SURE PRNTR IS ON STNDBY"
116.2 INPUT E
117 IF E = 1 THEN 10
9999 END