»Schreiberling«: Märchenstunde für MPS-Drucker

Die Möglichkeiten, fantasievolle Schriften aufs Papier zu bringen, haben sich nun für die Besitzer von MPS-Druckern eröffnet. Für Epson-kompatible gibt es eine Erweiterung, die Umlaute möglich macht.

Kommt Ihnen die Schrift in Bild 1 bekannt vor? Sie befinden sich trotz der Ähnlichkeit mit einem Märchenbuch nicht in einem solchen. Diese schöne Schrift entstammt einem MPS 802-Drucker. Mit einigen kleinen Veränderungen des Programms »Schreiberling« aus der 64’er, Ausgabe 10/85, Seite 54, kann man es den Commodore-Druckern MPS 801, MPS 803 und MPS 802 ermöglichen, mit fantasievollen Lettern Grußkarten, Einladungen etc. zu drucken. Für Epson-Drucker und Kompatible ist »Schreiberling« an den deutschen Zeichensatz angepaßt worden. Mit entsprechenden Basic-Kenntnissen kann man natürlich diese Routinen für MPS-Drucker in das erweiterte Programm einbauen.

Die Anpassung für MPS 801 und MPS 803

Da die Epson-Drucker der RX- und FX-Serie die Drucknadeln genau in umgekehrter Reihenfolge anspricht wie der MPS 801, mußte eine Routine entwickelt werden, die die DATAs im »Schreiberling« umrechnet. Dieses Unterprogramm befindet sich ab der Zeile 3000. Um »Schreiberling« nutzen zu können, müssen Sie wie folgt vorgehen:

Tippen Sie Listing 1 mit Hilfe des Checksummers ab.
Speichern Sie das Programm aus Listing 1.
Übernehmen Sie aus dem Programm in Ausgabe 10/85; Seite 54, die Zeilen 1000 bis 2460 (nicht aus der Version mit Umlauten in dieser Ausgabe!).
Speichern Sie das Programm, es ist jetzt fertig.

Lediglich drei Einschränkungen sind für den MPS 801 und MPS 803 zu beachten. Erstens, der Ausdruck in doppelter Dichte ist nicht möglich, da dies ein Zusatz der Epson-Drucker ist. Zweitens, durch die Umrechnung der DATAs wird das Programm langsamer. Auf der Leserservice-Diskette befindet sich deshalb zusätzlich auch eine compilierte Version. Und drittens stehen bei den MPS-Druckern nur sieben Nadeln zur Verfügung. Dadurch sieht das Schriftbild etwas verändert aus. Natürlich kann man hier mit veränderten Werten in den DATAs herumprobieren. Es lohnt sich bestimmt, einen eigenen Satz Buchstaben zu entwerfen.

Schreiberling auf dem MPS 802

Daß das Ganze auch für den MPS 802 möglich ist, beweist das Programm in Listing 2. Die wesentliche Änderung besteht darin, daß die zu druckenden Texte zuerst als Stringvariable angelegt werden, um dann wieder »zerhackt« als definiertes Zeichen zum Drucker gesendet zu werden. Es besteht ebenfalls die Möglichkeit, die Zeichen innerhalb der DATA-Zeilen zu verändern, um den Zeichensatz abzurunden. Um »Schreiberling« auf dem MPS 802 nutzen zu können, verfahren Sie bitte wie folgt:

Tippen Sie Listing 2 mit Hilfe des Checksummers ab.
bis 4. siehe oben.

Weiterhin gelten die oben genannten Einschränkungen auch für den MPS 802. Doch dies soll uns nicht weiter stören. Nach dem ersten Probeausdruck werden Sie wissen, warum. Auf der Leserservice-Diskette finden Sie die Basic- und die compilierte Version des vollständigen Programms.

Deutsche Zeichen: »Schreiberling V2«

Ein Programm, das die Schrift der Märchenbücher zu ermöglichen versucht, sollte auch deren Umlaute beherrschen. Diese Änderung gegenüber der ersten Version klingt nach wenig Aufwand, erfordert jedoch eine Umstrukturierung des gesamten Programms. Natürlich soll man die Umlaute auch auf dem Bildschirm sehen können; also mußte der Zeichensatz des C 64 geändert werden (das Assemblerlisting entnehmen Sie bitte Bild 2). Die neuen Zeichen auf der Tastatur werden in Bild 3 dargestellt. In die DATA-Zeilen der ersten Version mußten dann die Umlaute eingebunden werden. Die durch REMs gekennzeichneten DATA-Zeilen weichen vom ursprünglichen »Schreiberling« ab, das Programm ist ja flexibel. Weiterhin sind einige Verbesserungen im Programmablauf entstanden. Zum Beispiel der Druckertest (Zeile 800 bis 840), der einen eventuellen »DEVICE NOT PRESENT ERROR« abfängt. Die Variablenfelder sind im »Schreiberling V2« vollständig umgruppiert (Bild 4), wodurch die Einleseschleife vereinfacht werden konnte. Ein neuer Druckmodus wurde eingeführt, der durch » « an erster Stelle angewählt wird. Eine Liste aller Veränderungen könnte man nicht mehr überblicken, langwierige Fehlersuche wäre vorprogrammiert. Deshalb enthält Listing 3 das komplette Programm »Schreiberling V2«. In dieser Form ist das Programm auf einem Epson RX 80 mit Print 64-Interface lauffähig. Man müßte jedoch jedes Interface, das sich softwaremäßig »verriegeln« läßt, damit ansprechen können. Es genügt der Direktmodus ohne jegliche Zeichenumwandlung durch das Interface. »Schreiberling V2« wird es als Basic-Programm und als Compilat auf der Leserservice-Diskette geben.

;$E000 und den Bildschirm nach $CC00
; Es ist frei verschiebbar gehalten.
;
* = $828            ;Start im Kassettenpuffer
SEI   ;IRQ verbieten
LDA   1
AND   #$FB          ;auf Zeichen-ROM
STA   1             ;umschalten
LDA   #0
STA   $5F           ;Blockstart alt Low
STA   $5A           ;Blockende alt Low
STA   $58           ;Blockende neu
LDA   #$D0
STA   $60           ;Blockstart alt High
LDA   #$E0
STA   $5B           ;Blockende alt High
LDA   #$F0
STA   $59           ;Blockende neu High
JSR   $A3BF         ;Blockverschieberoutine
LDA   1
ORA   #4            ;auf I/O umschalten
STA   1
LDA   $DD00         ;CIA 2
AND   #$FC          ;obere 16Byte für VIC
STA   $DD00         ;selektieren
LDA   #%00111001    ;Bildschirm und
STA   $D018         ;Zeichensatz verlegen
LDA   #$CC          ;High-Byte Bildschirm
STA   $0288         ;für Betriebssystem
CLI                 ;IRQ zulassen
RTS

Bild 2. Assemblerlisting für die Umlaute auf dem C 64 bei »Schreiberling V2«

BS-Code	alt	neu
0	@	ü
27	[	ö
29	]	ä
43	+	ß
60	<	Ö
62	>	Ä
122	√	Ü

Bild 3. Die neue Tastaturbelegung bei »Schreiberling V2«

Neu eingeführte Variable

Zeile	Variable	Bemerkung
80	k	Start Maschinenprogramm kann auch verlegt werden (z.B. k=678)
80	b	Start Zeichensatz 2
290	a$(92,2)	Tabelle der Druck-DATAs
320	sd$	Druckbefehlsstring für Normalgrafik (480 P/Z)
330	md$	Befehlsstring für CRT-Grafik (640 P/Z)
340	dd$	Befehlsstring für doppelte Dichte (960 P/Z)
350	I$	Befehlsstring für Druckerinitialisierung
360	bz	Bildschirmposition, ab der gelesen wird
360	lf$	Befehlsstring Linefeed

Bild 4. Die neuen Variablen für »Schreiberling V2«

Mit diesen Erweiterungen beziehungsweise Veränderungen dürfte nun ein Großteil aller Drucker mit »Schreiberling« zusammenarbeiten. Selbstverständlich sind damit auch MPS-kompatible gemeint, wie zum Beispiel Seikosha 1000 VC oder der Epson GX 80. Sollte der Zeichensatz nicht Ihrem Geschmack entsprechen, können Sie ihn jederzeit verändern oder neu entwerfen (siehe 64’er 10/85, Seite 54). Versuchen Sie sich doch einmal am Zeichensatz der 64’er.

(D. Surrey/G. Knöpfel/O. Brudel/F. Behrens/og)

145 poke53281,14:poke 53280,14:poke646,6
150 printchr$(147);"schreiberling sucht daten-bitte warten."
160 dima1$(72),a2$(72),a3$(72)
165 :fori=1to16:q$=q$+chr$(128):nexti
170 :fori=1to23:o$=o$+chr$(128):nexti
220 restore
230 fori=1to72
240 forj=1to3
245 : read x
250 :ifx=-1then280
255 gosub3000
260 :ifj=1thena1$(i)=a1$(i)+chr$(x)
265 :ifj=2thena2$(i)=a2$(i)+chr$(x)
267 :ifj=3thena3$(i)=a3$(i)+chr$(x)
270 :goto 245
280 nextj
282 if len(a3$(i))=0then a3$(i)=left$(o$,len(a1$(i)))
285 next i
320 printchr$(147);chr$(14);chr$(18);".....eine.zeile.eingeben:.............";
325 printchr$(146)
330 gett$:printt$;
340 ift$=chr$(13)then410
350 goto330
410 open1,4
411 y=50:p=0
417 print#1,chr$(8)
418 forj=1to3
419 az=0
422 :fori=1064+pto1064+y
425 :w=peek(i)
430 :ifw=32orw=96then ax$=q$:gosub932
440 :ifw=63thenf=-17:gosub910
450 :ifw=40orw=41thenf=4:gosub910
460 :ifw=33thenf=10:gosub910
470 :ifw>64andw<91thenf=-64:gosub910
475 :ifw>0 andw<27thenf=46:gosub910
480 :ifw>43andw<60thenf=-17:gosub910
550 :nexti:ifj<3thenprint#1
560 nextj
670 print#1:close1:goto320
910 ifj=1then ax$ =a1$(w+f)
920 ifj=2then ax$ =a2$(w+f)
930 ifj=3then ax$ =a3$(w+f)
932 az=az+len(ax$)
933 if az>450 then i=1064+y:goto 940
935 print#1,ax$;
940 return

3000 b2=0
3010 b1=x
3050 if b1-128>-1thenb1=b1-128:b2=b2+1
3060 if b1-64>-1thenb1=b1-64:b2=b2+2
3070 if b1-32>-1thenb1=b1-32:b2=b2+4
3080 if b1-16>-1thenb1=b1-16:b2=b2+8
3090 if b1-8>-1thenb1=b1-8:b2=b2+16
3100 if b1-4>-1thenb1=b1-4:b2=b2+32
3110 if b1=1orb1=>2then b2=b2+64
3120 b2=b2+128
3130 x=b2
3140 return

Listing 1. Die Veränderungen, die für die Anpassung an den MPS 801, beziehungsweise MPS 803 notwendig sind

100 rem -- schreiberling
101 rem -- geaendert fuer
102 rem -- drucker mps 802
103 :
145 poke53281,14:poke53280,14:poke646,6
150 print"{clr}","** bitte warten **"
160 dima1$(72),a2$(72),a3$(72)
162 fori=1to16:q$=q$+chr$(0):nexti
163 fori=1to23:o$=o$+chr$(0):nexti
164 fori=1to8:q1$=q1$+chr$(0):nexti
165 fori=1to80:l$=l$+" ":nexti
170 :
171 rem -- zeilenvorschub einstellen --
172 :
175 open6,4,6:print#6,chr$(21):close6
180 :
200 :
220 restore
230 fori=1to72
240 forj=1to3
245 :  readx
250 :  ifx=-1then280
260 :  ifj=1thena1$(i)=a1$(i)+chr$(x)
265 :  ifj=2thena2$(i)=a2$(i)+chr$(x)
267 :  ifj=3thena3$(i)=a3$(i)+chr$(x)
270 :goto245
280 nextj
282 iflen(a3$(i))=0then a3$(i)=left$(o$,len(a1$(i)))
285 nexti
300 :
320 printchr$(147);chr$(14);chr$(18);".....eine.zeile.eingeben:.............";
325 printchr$(146)
330 gett$:printt$;
340 ift$=chr$(13)then410
350 goto330
400 :
410 open1,4:open5,4,5
411 y=50:p=0
414 rem -- zeile loeschen --
415 rem -- zeile loeschen --
417 rem -- zeile loeschen --
418 forj=1to3
420 : hh$="":h=0
421 : rem -- zeile loeschen --
422 : fori=1064+pto1064+y
425 :   w=peek(i)
430 :   ifw=32orw=96thenh$=q1$:goto650
440 :   ifw=63thenf=-17:goto600
450 :   ifw=40orw=41thenf=4:goto600
460 :   ifw=33thenf=10:goto600
470 :   ifw>64andw<91thenf=-64:goto600
475 :   ifw>0andw<27thenf=46:goto600
480 :   ifw>43andw<60thenf=-17:goto600
550 : nexti:gosub750:ifj<3thenprint#1
560 nextj
570 print#1:close1:close5:goto320
590 :
591 rem -- definition der druckzeile --
592 :
600 ifj=1thenh$=a1$(w+f)
605 ifj=2thenh$=a2$(w+f)
610 ifj=3thenh$=a3$(w+f)
650 hh$=hh$+h$
660 iflen(hh$)>200then700
665 goto550
690 :
691 rem --druckroutine 2 --
692 :
700 fork=1to200step8
705 : ifmid$(hh$,k,8)=q1$then725
710 : print#5,mid$(hh$,k,8)
715 : print#1,left$(l$,h)chr$(254)chr$(141);
725 : h=h+1
730 nextk
735 hh$=right$(hh$,(len(hh$)-200))
740 goto550
745 :
746 rem --druckroutine 1 --
747 :
750 hh$=hh$+q1$
751 fork=1tolen(hh$)-8 step8
755 : ifmid$(hh$,k,8)=q1$then765
760 : print#5,mid$(hh$,k,8)
762 : print#1,left$(l$,h)chr$(254)chr$(141);
765 : h=h+1
770 nextk
775 return
800 :
900 rem -- zeile 900-940 loeschen --

Listing 2. Die Veränderungen, die für die Anpassung an den MPS 802 notwendig sind

10 rem --- schreiberling v2 ---
20 rem aus 64'er magazin 10/85
30 rem
40 rem verbessert von frank behrens
50 rem forstmeisterweg 8
60 rem 2400 luebeck
70 rem
80 k=828: b=59392
90 fori=ktok+55:readx:pokei,x:next
100 sys k
110 fori=btob+7:readx:pokei,x:next
120 a=b+27*8
130 fori=atoa+7:readx:pokei,x:next
140 a=b+29*8
150 fori=atoa+7:readx:pokei,x:next
160 a=b+43*8
170 fori=atoa+7:readx:pokei,x:next
180 a=b+60*8
190 fori=atoa+7:readx:pokei,x:next
200 a=b+62*8
210 fori=atoa+7:readx:pokei,x:next
220 a=b+122*8
230 fori=atoa+7:readx:pokei,x:next
240 rem
250 poke53280,0:poke53281,0
260 print chr$(9)chr$(14)chr$(8)
270 print"{clr}{pur}   Schreiberling{yel} liest Daten"
280 print"{down}   Bitte warten..."
290 dim a$(92,2)
300 for i=1 to 16: q$=q$+chr$(0): next
310 o$=q$+q$ : e$=chr$(27)
320 sd$=e$+"k"+chr$(128)+chr$(2)
330 md$=e$+"*"+chr$(4)+chr$(85)+chr$(3)
340 dd$=e$+"l"+chr$(0)+chr$(5)
350 l$=e$+"a"+chr$(8)+e$+"8"+chr$(7)
360 bz=52344: lf$=chr$(10)+chr$(10)
370 rem
380 rem --- einlesen ---
390 rem
400 for i=0 to 92
410  for j=0 to 2
420   read x :if x=-1 then 450
430   a$(i,j)=a$(i,j)+chr$(x)
440   goto 420
450  next
460  if len(a$(i,2))=0 then a$(i,2)=left$(o$,len(a$(i,0)))
470 next
480 rem --- druckertest ---
490 gosub 800
500 rem
510 rem --- zeilen-texteditor ---
520 rem
530 print"{clr}{rvon}{lblu}     Bitte eine Zeile eingeben :        {yel}{rvof}{down}"
540 poke204,0: poke198,0
550 wait198,1:get t$:print t$;
560 if t$=chr$(13) then 610
570 goto 550
580 rem
590 rem --- ausgabe ---
600 rem
610 poke207,0: poke204,1: y=50: p=0
620 open1,4 : z=peek(bz)
630 if z=30 then print#1,lf$: close1: goto 530
640 if z=35 then y=99: p=1: xd$=dd$: goto 670
650 if z=31 then y=66: p=1: xd$=md$: goto 670
660 xd$=sd$
670 for j=0 to 2
680  print#1,xd$;
690  for i=bz+p to bz+y
700   w=peek(i)
710   if w=122 then print#1,a$(92,j);: goto 740
720   if w>91 then print#1,q$;: goto 740
730   print#1,a$(w,j);
740  next: print#1
750 next
760 close1: goto 530
770 rem
780 rem --- druckertest ---
790 rem
800 poke768,61:open1,4:print#1,l$;:close1:poke768,139
810 if st=-128 then 830
820 return
830 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{pur}   Bitte Drucker einschalten !"
840 wait203,63:goto 800
850 rem
860 rem maschinenprg zum verlegen
870 rem des zeichensatzes
880 data120,165,1,41,251,133,1,169,0
890 data133,95,133,90,133,88,169,208
900 data133,96,169,224,133,91,169,240
910 data133,89,32,191,163,165,1,9,4
920 data133,1,173,0,221,41,252,141,0
930 data221,169,57,141,24,208,169,204
940 data141,136,2,88,96
950 rem
960 rem umlautedatas f. bildschirm
970 rem
980 data102,0,102,102,102,102,62,0
990 data102,0,60,102,102,102,60,0
1000 data102,0,60,6,62,102,62,0
1010 data28,38,102,108,102,102,108,96
1020 data195,60,102,102,102,102,60,0
1030 data195,24,60,102,126,102,102,0
1040 data195,0,102,102,102,102,102,60
1050 rem
1060 rem buchstabendatas
1070 rem klein ue
1080 data0,2,3,51,112,0,0,50,115,3,0,0,0,-1
1090 data0,0,254,255,3,1,1,2,254,255,1,2,0,-1,-1
1100 rem klein a
1110 data0,0,1,3,2,2,2,1,0,1,3,2,0,0,-1
1120 data0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
1130 data0,64,255,255,0,1,2,2,2,2,1,1,0,-1
1140 data0,0,252,254,193,193,1,1,1,2,254,252,0,-1,-1
1150 data0,0,1,3,2,2,2,2,1,1,0,-1,0,252,254,3,1,1,1,1,2,4,0,-1,-1
1160 data0,0,0,1,2,2,2,1,128,255,255,0,0,0,-1
1170 data0,124,254,3,1,1,1,2,132,254,255,1,2,0,-1,-1
1180 data0,0,1,3,2,2,2,2,1,0,0,-1
1190 data0,252,254,35,33,33,33,33,161,98,0,-1,-1
1200 data0,15,63,114,130,131,131,128,96,32,0,-1
1210 data0,255,255,0,0,0,0,0,0,0,0,-1,0,252,252,4,0,0,0,0,0,0,0,-1
1220 data0,0,0,1,2,2,2,1,1,1,1,1,0,-1
1230 data0,124,254,131,1,1,1,130,132,191,127,128,0,-1
1240 data0,56,52,4,4,4,4,8,16,240,224,0,0,-1
1250 data0,128,255,255,1,2,2,2,1,1,0,0,0,0,-1
1260 data0,0,255,255,0,0,0,0,0,254,255,1,2,0,-1,-1
1270 data0,2,51,51,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
1280 data0,2,51,51,0,-1,0,0,255,255,0,-1,4,8,240,224,0,-1
1290 data0,128,255,255,0,0,0,3,3,0,0,0,-1
1300 data0,0,255,255,32,88,76,134,3,1,2,0,-1,-1
1310 data0,128,255,255,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
1320 data0,1,2,3,1,1,2,3,1,1,2,3,1,0,0,0,-1
1330 data0,0,0,255,255,0,0,255,255,0,0,254,255,1,2,0,-1,-1
1340 data0,1,2,3,1,1,2,3,1,0,0,0,-1
1350 data0,0,0,255,255,0,0,254,255,1,2,0,-1,-1
1360 data0,0,1,3,2,2,2,2,3,1,0,0,-1
1370 data0,252,254,3,1,1,1,1,3,254,252,0,-1,-1
1380 data0,1,2,3,1,0,1,2,2,2,3,1,0,0,-1
1390 data0,0,0,255,255,132,2,1,1,1,3,254,252,0,-1
1400 data0,0,0,252,252,4,0,0,0,0,0,0,0,0,-1
1410 data0,0,0,1,2,2,2,1,1,1,1,1,0,-1
1420 data0,124,254,131,1,1,1,130,132,191,127,128,0,-1
1430 data0,0,0,0,0,0,0,0,0,252,252,4,4,-1
1440 data0,1,2,3,1,2,3,1,1,0,-1,0,0,0,255,255,0,0,128,0,0,-1,-1
1450 data0,0,1,3,2,2,2,2,3,1,0,0,-1
1460 data0,198,247,49,49,49,49,49,179,159,12,0,-1,-1
1470 rem klein t
1480 data0,1,1,127,255,1,1,1,0,-1
1490 data0,0,0,254,255,1,2,0,0,-1,-1
1500 rem klein u
1510 data0,2,3,3,0,0,0,2,3,3,0,0,0,-1
1520 data0,0,254,255,3,1,1,2,254,255,1,2,0,-1,-1
1530 data0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
1540 data0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1,-1
1550 data0,2,3,3,0,0,3,3,0,0,3,3,0,-1
1560 data0,0,254,255,1,2,254,255,1,2,254,252,0,-1,-1
1570 data0,2,3,3,2,0,0,0,0,3,2,0,0,-1
1580 data0,1,3,132,232,112,56,92,134,3,1,2,0,-1,-1
1590 data0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
1600 data0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1
1610 data0,0,0,24,28,12,48,192,0,0,0,0,0,0,-1
1620 data0,3,3,2,2,2,2,2,3,3,2,0,-1
1630 data0,1,3,7,12,57,113,193,129,3,3,0,-1,-1
1640 rem klein oe
1650 data0,0,49,51,2,2,2,2,51,49,0,0,-1
1660 data0,252,254,3,1,1,1,1,3,254,252,0,-1,-1
1670 data0,0,0,1,1,1,63,126,226,194,196,96,48,16,0,-1
1680 data0,2,133,5,30,252,230,3,1,1,3,6,0,0,0,-1,-1
1690 rem klein ae
1700 data0,0,1,51,98,2,2,49,96,1,3,2,0,0,-1
1710 data0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
1720 data0,4,12,24,48,127,48,24,12,4,0,-1
1730 data0,0,0,0,0,255,0,0,0,0,0,-1,-1
1740 data0,0,1,3,6,12,0,0,0,0,0,0,0,0,-1
1750 data0,128,192,224,176,152,128,128,128,128,128,128,128,0,-1,-1
1760 rem space
1770 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
1780 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
1790 data0,0,127,255,254,0,0,-1,0,0,243,243,0,0,0,-1,-1
1800 data0,0,48,224,0,48,224,0,0,-1
1810 data0,0,0,0,0,0,0,0,0,-1,-1
1820 data0,0,0,0,0,1,6,0,0,1,6,0,0,0,-1
1830 data0,16,144,150,184,208,144,150,184,208,144,144,128,0,-1,-1
1840 data0,14,27,49,32,255,32,255,32,48,0,0,0,-1
1850 data0,4,6,131,129,255,129,255,129,195,102,60,0,-1
1860 data0,0,0,0,0,192,0,192,0,0,0,0,0,-1
1870 rem %
1880 data0,28,62,34,34,62,28,0,1,3,6,12,24,48,96,0,-1
1890 data0,3,6,12,24,48,96,192,128,28,62,34,34,62,28,0,-1,-1
1900 rem &
1910 data0,0,24,60,103,67,38,28,0,0,0,0,0,0,-1
1920 data0,56,124,198,131,131,193,97,51,30,28,54,33,0,-1,-1
1930 data0,0,48,224,0,0,-1,0,0,0,0,0,0,-1,-1
1940 rem (
1950 data0,31,63,64,128,0,-1,0,248,252,2,1,0,-1,-1
1960 data0,128,64,63,31,0,-1,0,1,2,252,248,0,-1,-1
1970 rem *
1980 data0,0,0,12,6,3,1,31,1,3,6,12,0,0,0,-1
1990 data0,128,128,152,176,224,192,252,192,224,176,152,128,128,0,-1,-1
2000 rem eszet
2010 data0,7,31,56,96,65,65,99,62,0,0,0,-1
2020 data0,254,255,0,0,131,129,193,99,62,28,0,-1
2030 data0,4,252,0,0,0,128,128,0,0,0,0,-1
2040 data0,0,0,0,0,-1,0,0,3,3,0,-1,0,48,192,0,0,-1
2050 data0,0,1,1,1,1,1,1,1,1,1,1,0,0,-1
2060 data0,0,128,128,128,128,128,128,128,128,128,128,0,0,-1,-1
2070 data0,0,0,0,0,0,-1,0,0,3,3,0,0,-1,-1
2080 data0,0,0,0,0,0,3,12,48,192,0,0,-1
2090 data0,0,3,12,48,192,0,0,0,0,0,0,-1,-1
2100 rem null
2110 data0,1,15,62,112,192,128,128,128,192,112,63,15,0,-1
2120 data0,240,252,14,3,1,1,1,3,14,124,240,128,0,-1,-1
2130 data0,2,6,12,24,48,127,255,0,0,0,-1
2140 data0,0,0,0,1,3,255,255,3,1,0,-1,-1
2150 rem 2
2160 data0,16,32,96,192,192,192,192,227,127,62,0,0,-1
2170 data0,2,7,15,27,51,99,195,131,3,2,4,0,-1,-1
2180 data0,48,96,193,193,227,127,28,0,-1
2190 data0,12,6,131,131,199,254,56,0,-1,-1
2200 rem 4
2210 data0,0,3,6,12,24,48,127,255,0,0,0,0,-1
2220 data0,128,64,64,64,64,64,255,254,64,64,64,0,-1,-1
2230 data0,0,255,255,99,99,97,96,96,192,0,-1
2240 data0,4,2,3,3,3,135,254,120,0,0,-1,-1
2250 rem 6
2260 data0,0,7,31,57,97,193,128,128,0,0,-1
2270 data0,248,254,199,131,131,131,199,126,60,0,-1,-1
2280 data0,192,192,96,96,96,96,97,71,94,248,224,0,-1
2290 data0,0,0,3,143,188,240,192,128,128,0,0,0,-1,-1
2300 rem 8
2310 data0,0,124,198,131,129,131,198,124,0,0,-1
2320 data0,124,254,195,129,1,129,195,254,124,0,-1,-1
2330 rem 9
2340 data0,60,126,227,193,193,193,227,127,31,0,-1
2350 data0,0,1,1,131,134,156,248,224,0,0,-1,-1
2360 data0,0,1,1,0,0,-1,0,0,131,131,0,0,-1,-1
2370 data0,0,0,0,0,0,-1,0,0,51,51,0,0,-1,0,48,192,0,0,0,-1
2380 rem gross oe
2390 data0,199,207,31,56,96,64,64,64,64,96,56,31,207,199,0,-1
2400 data0,240,248,252,14,3,1,1,1,1,3,14,252,248,240,0,-1,-1
2410 rem =
2420 data0,3,3,3,3,3,3,3,3,3,3,0,-1
2430 data0,48,48,48,48,48,48,48,48,48,48,0,-1,-1
2440 rem gross ae
2450 data0,0,0,224,192,3,31,127,252,224,124,31,3,192,224,0,0,0,-1
2460 data0,2,1,7,127,254,252,152,12,12,12,152,252,126,7,1,2,0,-1,-1
2470 data0,48,112,192,129,135,252,120,0,-1
2480 data0,0,0,115,243,0,0,0,0,-1,-1
2490 rem -
2500 data0,1,1,1,1,1,1,1,1,1,1,0,-1
2510 data0,128,128,128,128,128,128,128,128,128,128,0,-1,-1
2520 rem gross a
2530 data0,0,0,0,0,3,31,127,252,224,124,31,3,0,0,0,0,0,-1
2540 data0,2,1,7,127,254,252,152,12,12,12,152,252,126,7,1,2,0,-1,-1
2550 data0,128,255,255,255,131,131,131,131,131,131,68,124,56,0,-1
2560 data0,1,255,255,255,1,1,1,1,1,1,130,254,124,0,-1,-1
2570 data0,7,31,63,112,192,128,128,128,128,128,128,64,120,56,0,-1
2580 data0,224,248,252,14,3,1,1,1,1,1,1,2,30,28,0,-1,-1
2590 data0,128,255,255,255,128,128,128,128,128,64,112,63,61,15,0,-1
2600 data0,1,255,255,255,1,1,1,1,1,2,14,252,248,240,0,-1,-1
2610 data0,7,31,63,114,194,130,130,131,131,131,131,66,112,48,0,-1
2620 data0,224,248,252,14,3,1,1,1,1,129,1,2,14,12,0,-1,-1
2630 rem gross f
2640 data0,128,255,255,255,97,97,193,193,193,193,193,193,97,96,0,-1
2650 data0,0,255,255,255,0,0,0,0,128,128,192,128,0,0,0,-1
2660 data4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
2670 data0,7,15,63,112,192,128,128,128,128,194,99,99,3,2,0,-1
2680 data0,248,252,254,7,3,1,1,2,4,8,255,255,255,0,0,-1
2690 data0,0,0,0,0,0,0,0,0,4,8,248,240,192,0,0,-1
2700 rem gross h
2710 data0,96,192,128,240,255,127,15,1,1,1,1,1,1,15,127,240,128,192,0,-1
2720 data0,2,1,3,15,254,252,240,128,128,128,128,128,128,240,254,15,1,3,0,-1,-1
2730 data0,128,255,255,255,0,0,-1
2740 data0,0,255,255,255,1,0,-1,-1
2750 data0,128,192,255,255,255,0,-1
2760 data0,0,0,255,255,255,0,-1
2770 data0,4,8,248,240,192,0,-1
2780 data0,128,255,255,255,3,3,6,4,12,56,240,224,0,0,0,-1
2790 data0,1,255,255,255,0,192,240,124,30,3,1,1,1,6,0,-1,-1
2800 data0,128,255,255,255,0,0,0,0,0,0,0,0,0,-1
2810 data0,1,255,255,255,1,1,1,1,1,1,3,7,0,-1,-1
2820 rem gross m
2830 data0,0,0,0,0,1,31,127,252,56,14,3,0,0,0,3,14,56,240,127,15,0,0,0,0,0,0,-1
2840 data0,3,1,7,63,254,248,192,,,,131,238,56,238,131,,,,,224,252,30,7,1,2,0,-1
2850 data0,0,128,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
2860 data0,128,255,255,255,63,3,0,0,0,0,128,255,255,0,0,-1
2870 data0,0,255,255,255,0,224,240,56,12,6,2,255,255,1,0,-1
2880 data4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
2890 rem gross o
2900 data0,7,15,31,56,96,64,64,64,64,96,56,31,15,7,0,-1
2910 data0,240,248,252,14,3,1,1,1,1,3,14,252,248,240,0,-1,-1
2920 rem gross p
2930 data0,128,255,255,127,97,192,128,128,128,192,97,63,30,0,-1
2940 data0,0,255,255,255,129,192,64,64,64,192,128,0,0,0,-1,-1
2950 rem gross q
2960 data0,7,15,31,56,96,64,64,64,64,96,56,31,15,7,0,-1
2970 data0,240,248,252,14,3,1,1,25,13,7,255,249,240,0,-1
2980 data0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,0,-1
2990 data0,128,255,255,255,129,129,129,129,129,195,126,60,0,0,0,-1
3000 data0,1,255,255,255,0,128,192,96,56,30,7,3,3,2,0,-1,-1
3010 data0,30,63,127,199,131,131,131,131,131,131,131,195,113,48,0,-1
3020 data0,28,30,3,129,129,129,129,129,129,131,199,254,252,248,0,-1,-1
3030 data0,32,96,192,128,128,255,255,255,128,128,128,128,128,0,-1
3040 data0,0,0,0,0,0,255,255,255,1,0,0,0,0,0,-1,-1
3050 rem gross u
3060 data0,64,127,127,127,0,0,0,0,0,0,127,127,0,0,0,-1
3070 data0,0,252,254,255,7,3,3,3,6,12,254,255,3,1,0,-1,-1
3080 data0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
3090 data0,0,0,0,0,0,224,248,255,15,48,192,0,0,0,0,-1,-1
3100 rem gross w
3110 data0,96,192,240,126,63,15,1,,,,96,59,14,59,96,,,,,3,31,124,224,192,96,,-1
3120 data0,0,0,0,0,192,252,255,31,14,56,224,128,0,128,224,56,14,7,127,248,128
3130 data0,0,0,0,0,-1,-1
3140 data0,32,64,192,240,252,63,15,3,4,8,16,224,192,0,0,-1
3150 data0,7,11,16,32,64,128,192,240,252,62,15,3,1,6,0,-1,-1
3160 data0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
3170 data0,0,0,0,0,0,224,248,127,14,48,192,0,0,0,0,-1
3180 data0,0,0,0,12,28,24,96,128,0,0,0,0,0,0,0,-1
3190 data0,128,192,192,224,129,129,129,129,131,135,142,156,184,240,224,192,0,-1
3200 data0,3,7,15,29,57,113,225,193,129,129,129,129,7,3,3,1,0,-1,-1
3210 rem +
3220 data0,0,0,0,0,15,15,0,0,0,0,0,-1
3230 data0,192,192,192,192,252,252,192,192,192,192,0,-1,-1
3240 rem gross ue
3250 data0,64,127,127,127,0,0,224,0,224,0,127,127,0,0,0,-1
3260 data0,0,252,254,255,7,3,3,3,6,12,254,255,3,1,0,-1,-1

Listing 3. »Schreiberling V2« mit Umlauten und verbesserter Programmlogik