10 REM TEST FOR EPSON PRITER WITH GRAFTRAX OPTION
20 CLEAR 1000
30 WIDTH 255
40 POKE 3,64
50 E$=CHR$(27)
60 FOR I=1 TO 255
70 G$=G$+CHR$(I)
80 NEXT I
90 FOR I=1 TO 102
100 READ D
110 H$=H$+CHR$(D)
120 NEXT I
130 DATA 0,0,0,0,1,2,4,8,16,32,64,128,64,32,16,8,4,2,1
140 DATA 2,4,8,16,32,64,128,64,32,16,8,4,2,1
150 DATA 3,7,15,31,63,127,255,127,63,31,15,7,3,1
160 DATA 3,7,15,31,63,127,255,127,63,31,15,7,3,1
170 DATA 0,0,0,0,0,&10,&28,&44,&82,&44,&28,&10
180 DATA 0,&10,&28,&44,&82,&44,&28,&10
190 DATA 0,0,0,0,0,&10,&38,&7C,&FE,&7C,&38,&10
200 DATA 0,&10,&38,&7C,&FE,&7C,&38,&10,0
210 LPRINT "Epson MX-80F/T Printer Mode Test"
220 LPRINT E$;"0Line spacing 8 lines per inch"
230 LPRINT "Line spacing 8 lines per inch"
240 LPRINT E$;"1Line spacing 7/32 per line"
250 LPRINT "Line spacing 7/32 per line"
260 LPRINT E$;"2Line spacing six lines per inch"
270 LPRINT "Line spacing six lines per inch"
280 FOR I=1 TO 50
290 LPRINT E$;"3";CHR$(I);"Line spacing";I;"/216 per line"
300 NEXT I
310 LPRINT E$;"2";E$;"4Italics character set"
320 LPRINT E$;"EEmphasized italics mode";E$;"F"
330 LPRINT E$;"GDouble strike italics mode";E$;"H"
340 LPRINT E$;"5";E$;"EEmphasized regular character mode";E$;"F"
350 LPRINT E$;"GDouble strike mode of printing";E$;"H"
360 LPRINT "DOT GRAPHICS IN 960 MODE AT 480 MODE SPEED"
370 LPRINT E$;"<";E$;"J";CHR$(255);CHR$(0);
380 LPRINT G$
390 LPRINT E$;"<";E$;"J";CHR$(102);CHR$(0);H$
400 LPRINT "DOT GRAPHICS IN THE 480 MODE"
410 LPRINT E$;"<";E$;"K";CHR$(255);CHR$(0);
420 LPRINT G$
430 LPRINT E$;"<";E$;"K";CHR$(102);CHR$(0);H$
440 LPRINT "DOT GRAPHICS IN THE 960 MODE"
450 LPRINT E$;"<";E$;"L";CHR$(255);CHR$(0);
460 LPRINT G$
470 LPRINT E$;"<";E$;"L";CHR$(102);CHR$(0);H$
480 LPRINT E$;"PCompressed character mode";E$;"Q"
490 LPRINT E$;"SExpanded character mode";E$;"T"
500 LPRINT CHR$(15);CHR$(14);"Shift in / Shift out (Expanded/Condensed) mode";CHR$(18);CHR$(20)
510 LPRINT "ATTEMPT TO DELETE X FROM ABCXDEF ===> ABCX";CHR$(127);"DEF"
520 LPRINT "BLOCK GRAPHICS SET"
530 FOR I=160 TO 223
540 LPRINT CHR$(I);
550 NEXT I
560 LPRINT