10 REM THIS PROGRAM SETS UP THE MX80 PRINTER FOR LISTINGS
20 REM IN CONDENSED (132 CHARACTER) PRINTING
30 REM WITH OR WITHOUT DOUBLE PRINT (DOUBLE PRINT IS DARKER)
100 PRINT
110 PRINT "ENTER 1 - CONDENSED PRINT - 132 CHARACTERS PER LINE"
112 PRINT "ENTER 2 - CONDENSED PRINT WITH DOUBLE PRINT (DARKER)"
114 PRINT "ENTER 3 - NORMAL PRINT WITH DOUBLE PRINT (DARKER)"
116 PRINT "ENTER 4 - NORMAL PRINT WITH NO ENHANCEMENTS"
117 PRINT "ENTER 5 - NORMAL PRINT WITH EMPHASIZED & DBL STRIKE"
118 PRINT
119 PRINT
120 PRINT " INPUT CHOICE"
122 PRINT
130 INPUT A
134 PRINT "ENTER 1 WHEN PRINTER IS READY"
135 INPUT B
136 IF B<> 1 THEN 134
138 LPRINTER
139 IF A=5 THEN 400
140 IF A<>2 THEN 150
141 LET X1% = 15 REM CONDENSED CHARACTERS

142 LET X2% = 27 REM ESC
144 LET X3% = 71 REM DOUBLE PRINTING COMMAND 
146 GO TO 200
150 IF A<>1 THEN 160
152 LET X1% = 15
154 GO TO 172 REM GO TO PRINT
160 IF A<>3 THEN 170
162 LET X2% = 27 REM ESC
164 LET X3% = 71 REM DOUBLE PRINT
166 LET X1% = 18 REM NORMAL SIZE PRINT
168 GO TO 200 REM GO TO PRINT
170 LET X1% = 18 REM NORMAL SIZE PRINT
172 LET X2% = 27 REM ESC
174 LET X3% = 72 REM CANCELLS DOUBLE PRINT
200 PRINT CHR$(X1%);CHR$(X2%);CHR$(X3%) REM SEND COMMAND(S) TO PRINTER
210 PRINT CHR$(7) REM PRINTER BEEPS
300 CONSOLE
310 PRINT "TURN THE PRINTER TO OFF OR STANDBY"
320 GO TO 9999
400 PRINT CHR$(27);CHR$(71);CHR$(27);CHR$(69) REM DBL EMPHASIZED TO PRTR
410 GO TO 210
9999 END