10 POKE788,52
20 POKE53280,0:POKE53281,6:PRINT"[147][153]"
30 PRINTCHR$(14):GOSUB870:GOTO620
40 PRINT"[147][211]CHREIBEN...":CLR
50 L=1:DIMA$(500),B$(81)
60 A=1:PRINT"[218]EILE #"L:PRINT
70 GETY$:IFY$=""THEN70
80 X=ASC(Y$)
90 IFX=145ORX=17ORX=157ORX=29THEN70
100 IFX=147ORX=19THEN70
110 IFX=20ANDA>1THENA=A-1:PRINTY$;:GOTO70
120 IFX=20THEN70
130 IFX=13THENPRINT:GOTO170
140 PRINTY$;:B$(A)=Y$
150 A=A+1:IFA>80THENPRINTCHR$(20);:A=A-1:GOTO70
160 GOTO70
170 IFB$(1)=""THEN220
180 FORT=1TOA:A$(L)=A$(L)+B$(T):B$(T)="":NEXT
190 L=L+1:GOTO60
200 GETY$:IFY$=""THEN200
210 PRINTASC(Y$):GOTO200
220 PRINT"[147][153]":INPUT"(Z)EIGEN, (S)PEICHERN ODER (E)NDE";Q$
230 Q$=LEFT$(Q$,1):IFQ$<>"Z"ANDQ$<>"S"ANDQ$<>"E"THEN230
240 IFQ$="S"THEN520
250 IFQ$="E"THENRUN
260 PRINT"[147][159][218]EIGEN ([211][208][193][195][197] FUER  [208][193][213][211][197])":PRINT
270 FORT=1TOL
280 PRINTA$(T):NEXT
290 GOSUB310
300 GOTO220
310 POKE198,0
320 INPUT" [210][197][212][213][210][206] FUER [215][197][201][212][197][210]";Q$
330 RETURN
340 PRINT"[147] [198]ILE LESEN..."
350 PRINT"[196][210][213][195][203][197][206] - ([202]) ODER ([206])"
360 POKE198,0:HC=0
370 GETY$:IFY$=""THEN370
380 IFY$="J"ORY$="[202]"THENHC=1:OPEN4,4,7:PRINT#4," ";
390 INPUT"[198]ILE-[206]AME   $[157][157][157]";F$
400 IFF$="$"THENSYS49152:POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]":GOTO390
410 OPEN15,8,15
420 OPEN2,8,2,"0:"+F$+",S,R"
430 INPUT#15,ER,ER$
440 IFERTHENGOSUB600:GOTO390
450 GET#2,A$
460 IFST<>0THEN500
470 GETY$:IFY$=" "THENGOSUB320
480 PRINTA$;:IFHC=1THENPRINT#4,A$;
490 GOTO450
500 CLOSE2:CLOSE15:CLOSE4:GOSUB320
510 GOTO640
520 INPUT"[198]ILE-[206]AME   $[157][157][157]";F$
530 OPEN15,8,15
540 OPEN2,8,2,"0:"+F$+",S,W"
550 INPUT#15,ER,ER$
560 IFERTHENGOSUB600:GOTO520
570 FORT=1TOL:PRINT#2,A$(T):NEXT
580 CLOSE2:CLOSE15
590 PRINT"[207].[203].!":GOTO640
600 PRINT"[147] [196]ISK [197]RROR [146]";ER;ER$
610 CLOSE15:CLOSE2:RETURN
620 PRINT"[147]     [211]EQ-[198]ILE - [211]CHREIBER / - [204]ESER"
630 FORTY=1TO1000:NEXT
640 PRINT"[147][153]    **** [205]ENUE *****":CLR
650 PRINT:PRINT" (1) [211]EQ. [198]ILE ANLEGEN ":PRINT" (2) [211]EQ. [198]ILE LESEN   "
660 PRINT" (3) [197]NDE              "
670 PRINT" (4) [201]NFO              "
680 POKE198,0:PRINT" [196]EINE [215]AHL >"
690 GETY$:IFY$=""THEN690
700 X=VAL(Y$):IFX<1ORX>4THEN690
710 ONXGOTO40,340,720,730
720 END
730 PRINT"[147] [194]EI [204][197][211][197][206] ENTSCHEIDEST [196]U VOR DER [193]US- GABE, OB DIESE"
740 PRINT"AUF [196][210][213][195][203][197][210] (<J> EINGEBEN) ERFOLGEN SOLL- ODER NICHT..."
750 PRINT"[196]ANN GIBST [196]U DEN [206]AMEN DES [198]ILES EIN   UND DRUECKST [210][197][212][213][210][206]."
760 PRINT"([206][213][210] [210][197][212][213][210][206] (BEI [193]NZEIGE VON $[146]) ZEIGT   [196]IR DAS [196][201][210][197][195][212][207][210][217].";
770 PRINT" ([211][208][193][195][197] ZUM [193][206][200][193][204][212][197][206])"
780 PRINT"[196]AS [198]ILE WIRD JETZT EINGELESEN."
790 PRINT"[196]IE [193][213][211][199][193][194][197] KANNST [196]U MIT [211][208][193][195][197] ANHALTENUND MIT [210][197][212][213][210][206] FORTSETZEN..."
800 PRINT" [194]EI [193][206][204][197][199][197][206] GIBST [196]U JEWEILS EINE [212]EXT-[218]EILE EIN - UND DRUECKST";
810 PRINT" DANN [210][197][212][213][210][206].":PRINT"[196]EINE [197]INGABEN BEENDEST [196]U, INDEM [196]U IN"
820 PRINT"IN EINER [218]EILE ANSTATT EINER [197]INGABE    [206][213][210] [210][197][212][213][210][206] DRUECKST."
830 PRINT"[196]ANACH KANNST [196]U ENTSCHEIDEN, OB [196]U [196]IR DIE [197]INGABEN  ANSEHEN [146] ODER"
840 PRINT"DIESE  SPEICHERN [146] MOECHTEST.":PRINT"[205]IT ENDE[146] KOMMST [196]U WIEDER ZUM";
850 PRINT" [205][197][206][213][197][146].":PRINT"                             INFO BY [212][195][146][145]"
860 POKE198,0:WAIT198,1:POKE198,0:GOTO640
870 REM  MSP-ROUTINE  DIRECTORY ZEIGEN
880 FORI=49152TO49267:READQ:POKEI,Q:NEXT:RETURN
890 DATA 169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183
900 DATA 169,8,133,186,169,96,133,185,32,213,243,165,186,32,180,255
910 DATA 165,185,32,150,255,169,0,133,144,160,3,132,251,32,165,255
920 DATA 133,252,164,144,208,58,32,165,255,164,144,208,51,164,251,136
930 DATA 208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166
940 DATA 144,208,29,170,240,17,32,210,255,173,197,0,201,64,240,4
950 DATA 201,60,240,245,76,76,192,169,13,32,210,255,160,2,208,187
960 DATA 32,66,246,96