`yzΪ1GDΜΛΪFILE€F€DAT¨ΑΙFLΗAΞIΞΨB™h@ AW  A( AV A @ 1 +A @1A AR@%%6€-F:A`,%F:Aa,$AV+€%@@+€%@@((( (c) 1984 by Burkhard Uagner+(( zeichensatz datamat+(S,($Dieses Programm erstellt DATA-ZeilenS("fuer einen neuen Zeichensatz. azuQQ(Iwird eine fertige Zeichensatz-Datei des Programms 'FONT.BAS' benoetigt.QQ(IDiese wird daraufhin untersucht, wel- che Zeichen nicht dem normalen Zei-UU(Lchensatz entsprechen. Von diesen Zei- chen wird eine DATA-Zeile geschrieben,SS(Kdie mit dem OFFSET des Zeichens be- ginnt. Es folgen darauf die acht Zei- ( chendaten."W"@@K%(J(>:A', TASTE DRUECKENW)@$:-@@)-@6(>:AV,: &R+(# START => DATA-Zeilen schreiben.(R( SELECT => Demo zum einPOKEn((( OPTION => Ende*@@F:B2y,&@@D@B@F@r@B, +.:-@@)-@6(>:AV,: 0\-@@\(BDer neue Zeichensatz wird nach dem folgenden Schema eingesetzt:2@(@(51. Alten Zeichensatz ubertragen (siehe'ZSKOPIER.BAS')4'($(2. Neue Zeichen einPOKEn:'(6PP(H1000 REM Einsetzen des neuen Zeichensatzes in Form eines Unterprogrammes8''(1010 READ A:IF A=-1 THEN RETURN: (1020 FOR I=0 TO 7:READ B<&&(1030 POKE CHSET+A*8+I,B:NEXT I>EE(=1040 REM CHSET ist die Anfangsadresse des neuen Zeichensatzes@(1050 GOTO 1010B(1060 DATA .............D (:( 1300 DATA -1(F8((>:A', TASTE DRUECKEN5)@8%HC +A @1ACAR@J&&ƒ;@ ,„;@ ,…9@,Lc:(1In welcher Zeile soll das DATA State- ment stehen>‚D6‰-‚P‚ A%Y(œœc @vN5(( ZeilenabstandŠ)Š"56Š-@P0(,( Wie lautet die Zeichensatz-Datei0ƒR;ƒ7@<@,0D:&6„.D:56„7@,.ƒ;6ƒ.„TU(>:A%,H(3Bitte die richtige Diskette einlegen, dann U)@V†(?(4Dabei bleiben... Der Bildschirm wird ausgeschaltet.S-@AW t@@ƒ†AYXA‡-A'+-@@8)@†A6…8,-†Z*F:BsC%‡$@%,†*6ˆ-@\  ˆ @–^ ‡ A`.6ˆ-(>:A%,.-@@bW(‚ DATA ‡,+-@@7(…8,,; H(…8@,K(N(W(CONTd*-'AB@*&fAB@h 6‚-‚%Š$j‚"‰A"l\(>:A%,"-@@\(L.>:@4,D:HILFFONT.BAS>:@4,,‰,‚n( ( ((CONTp*-'AB@*&r"AB@"(>:A%,tf ‡-‰‚Š(>:A%,,-@@0(‡3(6(?(CONTQ-cAB@f&vAB@ ‡xb(>:A%,X(CDie DATA-Zeilen sind im File 'HILFFONT.BAS' abgespeichert.b A$zB(>:A%,B(-Es wurden keine Ungleichheiten festge-stellt.|KAY@4(;(>:A', TASTE DRUECKENH)@K%€D:FONTDATA.BASD:DEUTSCH.ZS$ ZeiD:DEUTSCH.ZS die ZeiDATA.B@@$@(@0@(@$@A