DRUCK3.BAT
zur DOS-Steuerung des NEC-Pinwriters P6, (c) Dr. W. Näser, Marburg 1993 ff.
HTML-Transkription (2.9.2005) der DOS-Version
@echo off
cls
:num
IF %1== 1 GOTO a
IF %1== 2 GOTO b
IF %1== 3 GOTO c
IF %1== 4 GOTO d
IF %1== 5 GOTO e
IF %1== 6 GOTO f
IF %1== 7 GOTO g
IF %1== 8 GOTO h
IF %1== 9 GOTO i
IF %1==10 GOTO j
IF %1==11 GOTO k
IF %1==12 GOTO l
IF %1==13 GOTO m
IF %1==14 GOTO n
IF %1==15 GOTO o        
IF %1==16 GOTO p
IF %1==17 GOTO q
IF %1==18 GOTO r
IF %1==19 GOTO s
IF %1==20 GOTO t
IF %1==21 GOTO u
IF %1==22 GOTO v
IF %1==23 GOTO w
IF %1==24 GOTO x
IF %1==25 GOTO y
IF %1==26 GOTO z                            Bildschirmausgabe unter Toshiba-DOS 3.20
IF %1==27 GOTO aa
IF %1==28 GOTO ab
IF %1==29 GOTO ac
IF %1==30 GOTO ad
IF %1==31 GOTO ae
IF %1==32 GOTO af
IF %1==33 GOTO ag
IF %1==34 GOTO ah
IF %1==35 GOTO ai                    
IF %1==36 GOTO aj                           
IF %1==37 GOTO ak
IF %1==38 GOTO al
IF %1==39 GOTO am
IF %1==40 GOTO an
IF %1==41 GOTO ao
IF %1==42 GOTO ap
IF %1==43 GOTO ar
IF %1==44 GOTO as
IF %1==45 GOTO at
IF %1==46 GOTO au
:au
GOTO choice
:at
GOTO 45                                     Bildschirmausgabe unter IBM-DOS 5.02
:as
GOTO 44
:ar
GOTO 43
:ap
GOTO 42
:ao
GOTO 41
:an
GOTO 40
:am
GOTO 39
:al
GOTO 38
:ak
GOTO 37
:aj
GOTO 36
:ai
GOTO 35
:ah
GOTO 34
:ag
GOTO 33
:af
GOTO 32
:ae
GOTO 31
:ad
GOTO 30
:ac
GOTO 29
:ab
GOTO 28
:aa
GOTO 27
:z
GOTO 26
:y
GOTO 25
:x
GOTO 24
:w
GOTO 23
:v
GOTO 22
:u
GOTO 21
:t
GOTO 20
:s
GOTO 19
:r
GOTO 18
:q
GOTO 17
:p
GOTO 16
:o
GOTO 15
:n
GOTO 14
:m
GOTO 13
:l
GOTO 12
:k
GOTO 11
:j
GOTO 10
:i
GOTO 9
:h
GOTO 8
:g
GOTO 7
:f
GOTO 6
:e
GOTO 5
:d
GOTO 4
:c
GOTO 3
:b
GOTO 2
:a
GOTO 1
:choice
ECHO.
               24-PIN PRINTER SETTINGS V 2.0 (c) W. Näser 09/1993
esc [7m
ECHO ----------------------------------------------------------------------------
ECHO º Typ         CPI |  mg |sk|     Pos| Typ          CPI |    mg |sk|     Pos|
ECHO ----------------------------------------------------------------------------
ECHO | Just0           |    8|10|       3| Prot1       12/15|  10/16| 8|    1/23|
ECHO | Just1      12/15|    8|10|     4/5| Prot1          15|     32|18|      22|
ECHO | Just3 pr        |    8|10|       6| Prot1 26/180"  12|     12| 8|      42|
ECHO |                 |     |  |        | Prot1 25/180"  15|     20|12|      30|
ECHO |                 |     |  |        | Prot1 -/nr  12/15|  10/20| -|   29/43|
ECHO | Pearl «bd       |    8| -|      19| Prot3 pr         |     12| 8|       7|
ECHO | Ital «nrm/bd    |    8| -|   20/21| Col1 L/R       15|   4/58| -|   44/45|
ECHO |                 |     |  |        | CLBL1 -/nr1 L  15|       | -|    2/25|
ECHO | DH «bd wd/nrm   |     | -|     8/9| CLBL1   nr2 L  15|       | -|27/38/39|
ECHO | DH bd pr        |     | -|      10| CLBL1 -/nr1 R  15|     58| -|   24/26|
ECHO | DH pr           |     | -|      11| CLBL1 nr2   R  15|     58| -|28/40/41|
ECHO | WIDE «bd/bd     |     | -|   12/18| CLBL1 nr2   R+ 15|     60| -|      37|
ECHO | WIDE nrm        |     | -|      13| DLBL4 L/C/R      | /46/92| -|31/32/33|
ECHO | Ital bd         |   10| 8|      14| DLBL5 L/C/R      |/50/100| -|34/35/36|
ECHO | Proport3 bd     |   10| 8|      15|                  |       |  |        |
ECHO | Pica0 bd/bd wd  |     | -|   16/17|                  |       |  |        |
ECHO ----------------------------------------------------------------------------
ECHO bd=bold   dh=doubleHight  lbl=label   mg=leftMargin   Just0=Justified,Font 0
ECHO DLBL=diskette label  wd=wide   nr1= 8lines/in  nr2= lnSpacing 21/20/19 /180"
esc [0m
esc [1m
ERR  Your choice (or ^C):
IF errorlevel 47 GOTO 47
IF errorlevel 46 GOTO 46
IF errorlevel 45 GOTO 45
IF errorlevel 44 GOTO 44
IF errorlevel 43 GOTO 43
IF errorlevel 42 GOTO 42
IF errorlevel 41 GOTO 41
IF errorlevel 40 GOTO 40
IF errorlevel 39 GOTO 39
IF errorlevel 38 GOTO 38
IF errorlevel 37 goto 37
IF errorlevel 36 GOTO 36
IF errorlevel 35 GOTO 35
IF errorlevel 34 GOTO 34
IF errorlevel 33 GOTO 33
IF errorlevel 32 GOTO 32
IF errorlevel 31 GOTO 31
IF errorlevel 30 GOTO 30
IF errorlevel 29 GOTO 29
IF errorlevel 28 GOTO 28
IF errorlevel 27 GOTO 27
IF errorlevel 26 GOTO 26
IF errorlevel 25 GOTO 25
IF errorlevel 24 GOTO 24
IF errorlevel 23 GOTO 23
IF errorlevel 22 GOTO 22
IF errorlevel 21 GOTO 21
IF errorlevel 20 GOTO 20
IF errorlevel 19 GOTO 19
IF errorlevel 18 GOTO 18
IF errorlevel 17 GOTO 17
IF errorlevel 16 GOTO 16
IF errorlevel 15 GOTO 15
IF errorlevel 14 GOTO 14
IF errorlevel 13 GOTO 13
IF errorlevel 12 GOTO 12
IF errorlevel 11 GOTO 11
IF errorlevel 10 GOTO 10
IF errorlevel 9 GOTO 9
IF errorlevel 8 GOTO 8
IF errorlevel 7 GOTO 7
IF errorlevel 6 GOTO 6
IF errorlevel 5 GOTO 5
IF errorlevel 4 GOTO 4
IF errorlevel 3 GOTO 3
IF errorlevel 2 GOTO 2
IF errorlevel 1 GOTO 1
:1
cls
dru 27,64;27,82,0;27,78,8;27,108,10;27,33,1
echo   ASCII protocol (c) WN 09/1988
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES... 8 |
echo | LEFT MARGIN ..............10 |
echo | FONT [NEC P6]...... 1,12 CPI |
echo ------------------------------
goto end
:2
cls
dru 27,64;27,82,0;27,33,1;27,103
echo  Label font 1, 15 CPI 
goto end
:3
cls
dru 27,64;27,82,0;27,33,0;27,"l",10;27,"Q",85;27,"a",3;27,78,10;27,108,8
echo DOS Blocksatz Font 0 with perf. skip-over
goto end
:4
cls
dru 27,64;27,82,0;27,33,1;27,"l",10;27,"Q",85;27,"a",3;27,78,10;27,108,8
echo -------------------------------
echo | MS-DOS-BLOCK FONT 1, 12 CPI |
echo -------------------------------
goto end
:5
cls
dru 27,64;27,82,0;27,33,1;27,"l",15;27,"Q",75;27,"a",3;27,78,10;27,103;27,108,8
echo -------------------------------
echo | MS-DOS-BLOCK FONT 2, 15 CPI |
echo -------------------------------
goto end
:6
cls
dru 27,64;27,82,0;27,33,3;27,"l",8;27,"Q",80;27,"a",3;27,78,10;27,108,8
echo -----------------------------
echo | PROPORTIONAL-BLOCK FONT 3 |
echo -----------------------------
@goto end
:7
cls
dru 27,64;27,82,0;27,33,3;27,78,8;27,108,12
echo ---------------------------------------
echo | ASCII protoc. proportional FONT 3 |
echo ---------------------------------------
goto end
:8
cls
dru 27,64;27,82,0;28,69,50;28,86,49
echo  |  Double Hight, semi-bold WIDE (Happy Text)  |
goto end
:9
cls
dru 27,64;27,82,0;27,33,0;28,69,49;28,86,49
echo   Double Hight, semi-bold NORMAL 
goto end
:10
cls
dru 27,64;27,82,0;27,33,59;28,86,1
echo  | Double Hight, bold proportional |
goto end
:11
cls
dru 27,64;27,82,0;27,33,3;28,69,49;28,86,49
echo  | Double Hight, proportional |
goto end
:12
cls
dru 27,64;27,82,0;27,33,51
echo    semi-bold WIDE  
goto end
:13
cls
dru 27,64;27,82,0;27,33,35
echo    normal WIDE  
goto end
:14
cls
dru 27,64;27,82,0;27,33,111;27,108,10;27,78,8
echo  // Italics BOLD //
goto end
:15
cls
dru 27,64;27,82,0;27,33,38;27,108,10;27,78,8
echo  | Proportional BOLD |
goto end
:16
cls
dru 27,64;27,82,0;27,33,24
echo   Font 0 Pica BOLD 
goto end
:17
cls
dru 27,64;27,82,0;27,33,52
echo   Font 0 Pica bold, WIDE 
goto end
:18
cls
dru 27,64;27,82,0;27,33,59
echo  | W i d e, BOLD |
goto end
:19
cls
dru 27,64;27,82,0;27,33,12;27,108,8
echo   Pearl (Font 12), semi-bold 
goto end
:20
cls
dru 27,64;27,82,0;27,33,82;27,108,8
echo  // semi-italics, NORMAL //
goto end
:21
cls
dru 27,64;27,82,0;27,33,91;27,108,8
echo  // semi-italics, BOLD //
goto end
:22
cls
echo off
dru 27,64;27,82,0;27,78,18;27,108,32;27,33,1;27,103
echo ASCII test printout, normal line spacing
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES...18 |
echo | LEFT MARGIN ..............32 |
echo | FONT [NEC P6]...... 1,15 CPI |
echo ------------------------------
goto end
:23
cls
echo off
dru 27,64;27,82,0;27,78,8;27,108,16;27,33,1;27,103
echo   Protokoll ENG (c) WN 09/1989
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES... 8 |
echo | LEFT MARGIN ..............16 |
echo | FONT [NEC P6]...... 1,15 CPI |
echo ------------------------------
goto end
:24
cls
dru 27,64;27,108,58;27,82,0;27,33,1;27,103
echo  Label Font 1, 15 CPI, right col 
goto end
:25
cls
dru 27,64;27,82,0;27,33,1;27,103;27,48
echo  Label Font 1, 15 CPI, 8 lines/inch 
goto end
:26
cls
dru 27,64;27,108,58;27,82,0;27,33,1;27,103;27,48
echo  Label Font 1, 15 CPI, 8 lines/inch, right col 
goto end
:27
cls
dru 27,64;27,82,0;27,33,1;27,103;27,51,21
echo  Label Font 1, 15 CPI, line spacing *21/180" 
goto end
:28
cls
dru 27,64;27,108,58;27,82,0;27,33,1;27,103;27,51,21
echo  Label Font 1, 15 CPI, line spacing *21/180", right col 
goto end
:29
cls
dru 27,64;27,82,0;27,108,10;27,33,1
echo  Printout normal 1, no skip-over
echo ------------------------------
echo | CHAR SET ................Int |
echo | LEFT MARGIN ..............10 |
echo | FONT [NEC P6] ......1,12 CPI |
echo ------------------------------
goto end
:30
cls
dru 27,64;27,82,0;27,78,12;27,108,20;27,33,1;27,103;27,51,25
echo  LETTER, font 1 15 CPI, line spacing 25/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES ..12 |
echo | LEFT MARGIN ..............20 |
echo | FONT [NEC P6] ..... 1,15 CPI |
echo ------------------------------
goto end
:31
cls
dru 27,64;27,82,0;27,33,4;27,108,0;27,51,20
echo  Disk(ette) Label *left, line spacing 20/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES .. - |
echo | LEFT MARGIN .............. 0 |
echo | FONT [NEC P6] ............ 4 |
echo ------------------------------
goto end
:32
cls
dru 27,64;27,82,0;27,33,4;27,108,46;27,51,20
echo  Disk(ette) Label *center, line spacing 20/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES .. - |
echo | LEFT MARGIN ..............46 |
echo | FONT [NEC P6] ............ 4 |
echo ------------------------------
goto end
:33
cls
dru 27,64;27,82,0;27,33,4;27,108,92;27,51,20
echo  Disk(ette) Label *right, line spacing 20/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES .. - |
echo | LEFT MARGIN ..............92 |
echo | FONT [NEC P6] ............ 4 |
echo ------------------------------
goto end
:34
cls
dru 27,64;27,82,0;27,33,5;27,108,0;27,51,20
echo  Disk(ette) Label *left Font5, line spacing 20/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES .. - |
echo | LEFT MARGIN .............. 0 |
echo | FONT [NEC P6] ............ 5 |
echo ------------------------------
goto end
:35
cls
dru 27,64;27,82,0;27,33,5;27,108,50;27,51,20
echo  Disk(ette) Label *center Font5, line spacing 20/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES .. - |
echo | LEFT MARGIN ..............50 |
echo | FONT [NEC P6] ............ 5 |
echo ------------------------------
goto end
:36
cls
dru 27,64;27,82,0;27,33,5;27,108,100;27,51,20
echo  Disk(ette) Label *right Font5, line spacing 20/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES .. - |
echo | LEFT MARGIN .............100 |
echo | FONT [NEC P6] ............ 5 |
echo ------------------------------
goto end
:37
cls
dru 27,64;27,108,60;27,82,0;27,33,1;27,103;27,51,21
echo  Label Font 1, 15 CPI, line spacing *21/180", extreme right col 
goto end
:38
cls
dru 27,64;27,82,0;27,33,1;27,103;27,51,20
echo  Label Font 1, 15 CPI, line spacing *20/180" 
goto end
:39
cls
dru 27,64;27,82,0;27,33,1;27,103;27,51,19
echo  Label Font 1, 15 CPI, line spacing *19/180" 
goto end
:40
cls
dru 27,64;27,108,58;27,82,0;27,33,1;27,103;27,51,20
echo  Label Font 1, 15 CPI, line spacing *20/180",  right col 
goto end
:41
cls
dru 27,64;27,108,58;27,82,0;27,33,1;27,103;27,51,19
echo  Label Font 1, 15 CPI, line spacing *19/180",  right col 
goto end
:42
cls
echo off
dru 27,64;27,82,0;27,78,8;27,108,12;27,33,1;27,51,25
echo   Printout normal, spacing 26/180" (c) WN 11/1992
echo ------------------------------
echo | CHAR SET ................Int |
echo | PERFOR. SKIP-OVER LINES... 8 |
echo | LEFT MARGIN ..............12 |
echo | FONT [NEC P6]...... 1,12 CPI |
echo ------------------------------
goto end
:43
cls
dru 27,64;27,82,0;27,108,20;27,33,1;27,103;27,51,25
echo  Printout narrow 1, no skip-over, line spacing 25/180"
echo ------------------------------
echo | CHAR SET ................Int |
echo | LEFT MARGIN ..............20 |
echo | FONT [NEC P6] ......1,15 CPI |
echo ------------------------------
goto end
:44
cls
dru 27,64;27,82,0;27,108,4;27,33,1;27,103;27,51,25
echo  printout l e f t  col, line spacing 25/180", NO SKIP
echo ------------------------------
echo | CHAR SET ................Int |
echo | LEFT MARGIN ...............4 |
echo | FONT [NEC P6] ..... 1,15 CPI |
echo ------------------------------
goto end
:45
cls
dru 27,64;27,82,0;27,108,58;27,33,1;27,103;27,51,25
echo  printout r i g h t  col, line spacing 25/180", NO SKIP
echo ------------------------------
echo | CHAR SET ................Int |
echo | LEFT MARGIN ..............58 |
echo | FONT [NEC P6] ..... 1,15 CPI |
echo ------------------------------
goto end
:46
:47
goto end
:end
esc [0m