100 IFPEEK(44)<>96THENLOAD"TAGE.INIT",8
105 POKE 53280,0:PRINT "[147][158]";
110 PRINT "[196]AS [208]ROGRAMM '[212]AGEBUCH' BENUTZT EINEN"
115 PRINT "VERAENDERTEN [218]EICHENSATZ. [213]M BESONDERS"
120 PRINT "DEN [195]-128 ZU UNTERSTUETZEN, HABE ICH"
125 PRINT "EINEN [218]EICHENSATZ GESCHRIEBEN, DER DIE"
130 PRINT "BEIM [203]EYBOARD DES [195]-128 BEREITS GRAU"
135 PRINT "VORGEDRUCKTEN [218]EICHEN UNTERSTUETZT."
140 PRINT "[200]IERBEI WIRD GROESSTENTEILS EINE [196][201][206]-"
145 PRINT "[212]ASTATUR ERREICHT, DIE ALLE [196]EUTSCHEN"
150 PRINT "[211]ONDERLAUTE ENTHAELT."
155 PRINT "[193]UF DEM [195]-64 IST DIES JEDOCH AEUSSERST"
160 PRINT "STOEREND, DA U.A. AUCH Z UND Y MIT-"
165 PRINT "EINANDER VERTAUSCHT WERDEN."
170 PRINT
175 PRINT "[196]AMIT DIE [195]-64 [194]ESITZER JEDOCH WEDER"
180 PRINT "AUF DIE [196]EUTSCHEN [211]ONDERLAUTE VER-"
185 PRINT "ZICHTEN MUESSEN (WER MOECHTE IN SEI-"
190 PRINT "NEM [212]AGEBUCH SCHON DAUERND AE ECT."
195 PRINT "STEHEN HABEN?), NOCH AUF DIE UNTER-"
200 PRINT "STRICHENEN, LAESST SICH DAS '[212]AGEBUCH'"
205 PRINT "ANPASSEN."
210 PRINT:PRINT:PRINTSPC(10)"TASTE"
215 POKE 198,0:WAIT 198,1
220 PRINT "[147][193]ENDERUNGEN IM [218]EICHENSATZ :"
225 PRINT"[207]RIGINAL [221][195]128-[214]ERS.[221][195] 64-[214]ERS."
230 PRINT"[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192]
235 [153]"   :     (null)   OE     (null)   OE
240 PRINT"   ;     [221]   AE     [221]   AE
245 [153]"   @     (null)   UE     (null)   UE
250 PRINT"   ^     [221]   --     [221]   SZ
255 [153]"   *     (null)   +      (null)   --
260 PRINT" SHIFT * [221]   *      [221]   --
265 [153]"   +     (null)   SZ     (null)   --
270 PRINT"   <     [221]   ;      [221]   ;
275 [153]"   >     (null)   :      (null)   :
280 PRINT" C= + A  [221]   <      [221]   <
285 [153]" C= + S  (null)   >      (null)   >
290 PRINT" C= + Z  [221]   [      [221]   --
295 [153]" C= + X  (null)   ]      (null)   --
300 PRINT"   Y     [221]   Z      [221]   --
305 [153]"   Z     (null)   Y      (null)   --
310 PRINT:PRINT"C= : COMMODORE-TASTE"
315 PRINT"-- : KEINE AENDERUNG"
320 PRINT:PRINTSPC(10)"TASTE"
325 POKE 198,0:WAIT 198,1
330 PRINT "[147][194]ITTE WAEHLEN [211]IE JETZT..."
335 PRINT"[194]ESITZEN [211]IE EINEN.."
340 PRINT"1) [195]OMMODORE 128/128D"
345 PRINT "2) [195]OMMODORE 64"
350 INPUT " [215]AEHLEN [211]IE 1 ODER 2";VE:IFVE<>1ANDVE<>2THEN330
355 PRINT "[194]ITTE WARTEN...":RE=1
360 SYS 57812"TAGEBUCH",8
365 POKE780,0:POKE781,1:POKE782,8
370 SYS 65493:GOTO 530
375 IF VE=1 THEN 395
380 RE=2:SYS 57812"TEXTE.COM",8
385 POKE780,0:POKE781,8:POKE782,41
390 SYS 65493:GOTO 530
395 A$="CHAR128":IF VE=2 THEN A$="CHAR064":POKE 9488,43
400 RE=3:SYS 57812(A$),8,1
405 POKE 780,0
410 SYS 65493:GOTO 530
415 LO=PEEK(174)+2:HI=PEEK(175):IFLO>255THENLO=LO-256:HI=HI+1
420 PRINT:PRINT"[194]ITTE LEGEN [211]IE DIE [218]IELDISKETTE EIN."
425 PRINT""SPC(10)"TASTE"
430 POKE 198,0:WAIT 198,1:RE=4
435 N$="TAGEBUCH 128":IF VE=2 THEN N$="TAGEBUCH 64"
440 SYS 57812(N$),8,1
445 POKE2,1:POKE3,8:POKE780,2:POKE781,225:POKE782,44
450 SYS 65496:GOTO 530
455 RE=5:N$="CHARGEN":SYS57812(N$),8,1
460 POKE2,0:POKE3,192:POKE780,2:POKE781,LO:POKE782,HI
465 SYS 65496:GOTO 530
470 PRINT "[196]AS [208]ROGRAMM '[212]AGEBUCH' WURDE"
475 PRINT "ORDNUNGSGEMAESS GESPEICHERT.
480 [153] "(null)IEL (null)PASS MIT DEM '(null)AGEBUCH' WUENSCHT"
485 [153] ""[166]5)"ASCRANK (null)ILHOFER"
490 [153] ""[166]8)"RIGHT$CH GRUESSE"
495 [153] ""[166]10)"(null)ELANIE MID$ANSEN!":[153]""
500 [153]"(null)IE KOENNEN DAS (null)ROGRAMM JETZT"
505 [139]VE[178]1[167][153]"IM 64'ER (null)ODUSWAIT"
510 [153]"MIT":A$[178]"TAGEBUCH 64":[139]VE[178]1[167]A$[178]"TAGEBUCH 128"
515 [153]"(null)(null)ATNSTR$"[199](34);A$;[199](34)",8,1","LADEN"
520 [153]"UND DANN MIT (null)(null)(null) STARTEN."
525 [129]I[178]1[164]7:[135]A:[151]630[170]I,A:[130]:[151]198,7:[162]:[131]80,111,52,52,44,56,13
530 [159] 1,8,15:[132]1,FE,FE$,TR,SE
535 [139] FE[179]20 [167] [160] 1:[137] 575
540 [153]:[153] "STR$ISKETTENFEHLER :":[153]FE;FE$;TR;SE
545 [139] RE[179]4 [167] [153] "PEEKITTE (null)UELLDISKETTE EINLEGEN":[137] 555
550 [153] "PEEKITTE (null)IELDISKETTE EINLEGEN"
555 [151] 198,0:[146] 198,1
560 [139] RE[177]3 [167] [152]1,"S:"[170]N$
565 [160]1
570 [139] FE[177]20 [167] [145] RE [137] 360,380,400,440,455
575 [145] RE [137] 375,395,415,455,470