5 REM *** MOD OF MX80/BAS TIM HICKMAN 04/05/83  ver.2.1
7 REM *** FOR MPC - 1600 AND GRAFTRAX+
10 CLS:CLEAR 500:DIM  A$(20)
20 L$=STRING$(32,CHR$(205)):B$=CHR$(27):H$=CHR$(186)
30 C$="":Q$=STRING$(12," "):G$=STRING$(63,CHR$(196))
102 CLS
110 PRINT Q$;"EPSON INITIALIZER PROGRAM  CDP - MPC-1600"
120 A$(1)=B$+"W"+CHR$(1) :A$(2)=B$+"W"+CHR$(0) :A$(3)=CHR$(15):A$(4)=CHR$(18)
130 A$(5)=B$+CHR$(69):A$(6)=B$+CHR$(70)
140 A$(7)=B$+CHR$(71):A$(8)=B$+CHR$(72)
150 A$(12)=B$+CHR$(48):A$(13)=B$+CHR$(49):A$(14)=B$+CHR$(50)
160 A$(15)=B$+CHR$(65):A$(16)=B$+CHR$(67):A$(11)=B$+CHR$(64)
164 A$(9)=B$+"4" :A$(10)=B$+"5"
168 A$(17)=B$+"N"+CHR$(12) :A$(18)=B$+"O"
169 A$(19)=B$+"S"+CHR$(1):A$(20)=B$+"H"
170 PRINT Q$;"===>  MENU  --TYPE 0 TO TERMINATE  <==="
180 PRINT G$
190 PRINT H$;" 1)   DOUBLE WIDTH             11)   MASTER RESET            ";H$
200 PRINT H$;" 2)   CANCEL DOUBLE WIDTH      12)   LINE  SPACE = 1/8 INCH  ";H$
210 PRINT H$;" 3)   CONDENSED WIDTH          13)   LINE  SPACE = 7/72 INCH " H$
220 PRINT H$;" 4)   CANCEL CONDENSE          14)   LINE  SPACE = 1/6 INCH  ";H$
230 PRINT H$;" 5)   EMPHASIZED PRINT         15)   INPUT LINE SPACE        ";H$
240 PRINT H$;" 6)   CANCEL EMPHASIZED        16)   INPUT FORM LENGTH       ";H$
250 PRINT H$;" 7)   DOUBLE PRINTING          17)   SKIP OVER PERFORATIONS  ";H$
255 PRINT H$;" 8)   CANCEL DOUBLE PRINT      18)   CANCEL SKIP OVER PERF.  ";H$
257 PRINT H$;" 9)   ITALICS                  19)   SUBSCRIPT               ";H$
259 PRINT H$;"10)   CANCEL ITALICS           20)   CANCEL SUBSCRIPT        ";H$
260 PRINT G$
270 LOCATE 16,1,1 :PRINT "ROUTINE NUMBER"; :PRINT STRING$(30," "):LOCATE 16,20,1: INPUT V:IF V=0 GOTO 540 ELSE GOSUB 330
280 IF V>20 OR V<0 THEN GOSUB 330:GOTO 270
290 IF V=15 OR V=16 THEN GOSUB 350
300 LPRINT A$(V);C$;: PRINT "CODE ENTERED";:C$=""
310 FOR I=1 TO 200:NEXT I:GOSUB 330
320 PRINT "(CODE";:PRINT V;"WAS ENTERED)";:GOSUB 340:GOTO 270
330 PRINT STRING$(63," ")
340 RETURN
350 GOSUB 330:INPUT "WHAT IS THE SPECIAL VALUE";X
360 C$=CHR$(X): GOSUB 330:RETURN
540 REM
550 PRINT:PRINT"     EPSON MX-80  PRINTER INITIALIZATION ROUTINE CONCLUDED.";
555 PRINT STRING$(255," ")
560 SYSTEM
1000 FOR X =28 TO 134
1010 LPRINT CHR$(X);
1020 NEXT X
1030 FOR X=144 TO 254
1040 LPRINT CHR$(X);



")
560 SYSTEM
1000 FOR X =28 TO 134
1010 LPRINT CHR$(X);
1020 NEXT X
1030 FOR X=144 TO 254
1040 LPRINT CHR$(X