5 IFA=1THEN200
7 POKE3*256+4*16,160+9:POKE3*256+4*16+1,13:POKE3*256+4*16+2,6*16
10 POKE56,48:POKE55,0:CLR:POKE53280,0:POKE53281,0
50 BT=12288
100 PRINT"[147][214][211]:0885 [215].[203]."CHR$(14)CHR$(8)
105 PRINTSPC(15)" [211][195][210][201][208][212][207][210] [146]":PRINT"  [196]AS BENUTZERFREUNDLICHE [212]EXTSYSTEM
110 [151]50257,16:[151]650,128
120 [153]"(null)EXTBREITE (MAX 250)   80CMDCMD";
122 [141]60000:[139]ZZ[178]0[167]TB[178]80:[137]125
123 TB[178][197](WW$)
125 [139]TB[179]10[176]TB[177]250[167]10
127 [151]BT[170]1,TB
130 [153]
140 [153]"(null)EILEN PRO (null)EITE (MAX 72)   40CMDCMD";
142 [141]60000:ZE[178][197](WW$):[139]ZZ[178]0[167]ZE[178]40:[137]146
145 [139]ZE[179]2[176]ZE[177]72[167]10
146 [151]967,ZE:[129]I[178]0[164]8:[151]BT[170]16[170]I,ZE:[130]
200 [153]"LOAD   (1)  EDITIERENWAIT EINES TEXTES
220 PRINT"   (2)  LADEN[146]     EINES TEXTES
230 [153]"   (3)  SPEICHERNWAIT EINES TEXTES
240 PRINT"   (4)  DRUCKEN[146]   EINES TEXTES
250 [153]" PEEKITTE WAEHLEN (null)IE MIT DEN (null)IFFERN 1-4
260 GETQ$:IFQ$=""THEN260
270 POKE970,VAL(Q$):IFVAL(Q$)=0ORVAL(Q$)>4THEN200
300 POKE970,VAL(Q$):ON PEEK(970)GOTO1000,2000,3000,4000
400 GOTO200
1000 PRINT"[147]
1010 [158]6144[170]OF:[156]:OF[178]3
1100 [137]200
2000 QQ$[178]"LOADCLOSE    (null)ADENWAIT
2010 GOSUB5000:IFFL=1THEN7000
2020 SYS6144+6
2030 IFGA>3ANDGA<>7THENGOSUB6000:IFFE<>0THENPRINT:PRINT:PRINTFE$:GOTO7000
2100 OF=3:A=1:LOADN$,GA,1
2120 GOTO1000
3000 QQ$="[147]     [211]PEICHERN[146]
3010 [141] 5000:[139]FL[178]1[167]7000
3020 [139]GA[179]4[176]GA[178]7[167]3100
3025 [141]6000:[139]FE[178]62[167]3100
3027 [139]FE[179][177]0[167][153]:[153]:[153]FE$:[137]7000
3030 [153]"FILE SCHON VORHANDEN !!!"
3040 [153]"SOLL ES UEBERSCHRIEBEN WERDEN ? (J/N)"
3050 [161]W$:[139]W$[179][177]"J"[175]W$[179][177]"N"[167]3050
3060 [139]W$[178]"N"[167]200
3100 [139]GA[178]1[176]GA[178]7[167][158]57812 N$,GA:[137]3110
3105 [158]57812 "@0:"[170]N$,GA
3110 [151]193,0:[151]194,48
3111 [151]174,[194](961):[151]175,[194](962)[170]1
3113 [158]62954:[137]200
4000 [153]"LOAD"[166]16)"STR$RUCKENWAIT
4020 PRINT"[218]AHL DER [214]ORSCHUBZEILEN VOR JEDER
4030 [153]"(null)EITE   5CMD";
4035 [141]60000:VZ[178][197](WW$):[139]ZZ[178]0[167]VZ[178]5
4040 [139] VZ[170]ZE[177]72[167]4000
4045 [153]:[153]"STR$RUCKERNUMMER  4CMD";
4046 [141]60000:DV[178][197](WW$):[139]ZZ[178]0[167]DV[178]4
4047 [139]DV[179]4[176]DV[177]6[167]4000
4048 [151]144,0:[159]1,DV,1:[160]1:[139]ST[178][171]128[167][153]:[153]"STR$VAL(null)RIGHT$LENVALCLOSE(null)(null)(null)CLOSE(null)(null)VAL(null)VAL(null)(null)":[137]7000
4050 [153]:[153]" ATNWAIT LLES STR$RUCKEN ODER
4060 PRINT"[211][146] EITENWEISE
4070 [161]W$:[139](W$[179][177]"A")[175](W$[179][177]"S")[167]4070
4080 [139]W$[178]"S"[167]4300
4100 [151]BT[170]27,0:[129]WS[178]1[164]9:[141]4317:[130]
4120 [137]200
4300 [153] " (null)ELCHE (null)EITE   1CMD";
4305 [141]60000:WS[178][197](WW$):[139]ZZ[178]0[167]WS[178]1
4310 [139] WS[179]1 [176] WS[177]9[167] [129]I[178]0[164]ZZ:[153]"CMD CMD";:[130]:[137]4305
4314 [151]BT[170]27,0:[141]4317:[137]200
4317 [159]1,DV,7:[157]1:[139][194](BT[170]27)[178]1[167]4340
4319 [129]I[178]1[164]VZ:[153]:[130]
4320 [151]BT[170]27,1:[151]960,WS:[158]6144[170]18:[139][194](BT[170]27)[178]1[167]4340
4330 [129]I[178]1[164]72[171]VZ[171][194](967):[152]1:[130]
4340 [152]1:[160]1:[142]
5000 [141]62000:FL[178]0
5010 [151]211,0:[151]214,12:[158]58640:[153]"(null)ELCHE VALINHEIT        CMDCMDCMDCMDCMD8CMD";
5011 [141]60000:GA[178][197](WW$):[139]ZZ[178]0[167]GA[178]8
5012 [139]GA[178]1[176]GA[178]7[167]5090
5013 [139]GA[179]5[176]GA[177]15[167]5010
5020 [151]144,0:[159]1,GA,0:[160]1:[139]ST[178][171]128[167][141]63000:FL[178]1:[142]
5090 [139]GA[178]7[167][139][194](818)[170]256[172][194](819)[178]62957[167][141]63000:FL[178]1:[142]
5100 [153][199](13):[142]
6000 [159]1,GA,15:[159]2,GA,2,"0:"[170]N$[170]",P,R"
6010 [132]1,FE,FE$,SP,SK:[160]2:[160]1
6030 [142]
7000 [153]" RETURN DRUECKENWAIT"
7010 [161]W$:[139]W$[179][177][199](13)[167]7010
7020 [137]200
60000 ZZ[178]0:W$[178]"":WW$[178]"":[151]198,0
60010 [161]W$:[151]204,0:[139]W$[178]""[167]60010
60020 AS[178][198](W$):[139]AS[178]13[167]60100
60030 [139]AS[178]20[175]ZZ[177]0[167]ZZ[178]ZZ[171]1:WW$[178][200](WW$,[195](WW$)[171]1):[153]W$;:[137]60010
60035 [139]ZZ[177][178]3[167]60010
60040 [139]AS[179]48[176]AS[177]57[167]60010
60050 WW$[178]WW$[170]W$:ZZ[178]ZZ[170]1:[153]W$;:[137]60010
60100 [151]205,255:[151]207,0:[151]204,1:[139]ZZ[177]0[167][153]" "
60110 [142]
62000 [153]"LOAD"QQ$:[151]211,0:[151]214,10:[158]58640:[153]"NAME DES TEXTES: ";
62005 WW$[178]"":ZZ[178]0:[151]198,0
62010 [161]W$:[151]204,0:[139]W$[178]""[167]62010
62020 AS[178][198](W$):[139]AS[178]13[167]62100
62030 [139]AS[178]20[175]ZZ[177]0[167]ZZ[178]ZZ[171]1:WW$[178][200](WW$,[195](WW$)[171]1):[153]W$;:[137]62010
62035 [139]AS[179]32[167]62010
62040 [139]ZZ[177][178]16[167]62010
62050 [139]AS[177]127[175]AS[179]193[167]62010
62060 WW$[178]WW$[170]W$:ZZ[178]ZZ[170]1:[153]W$;:[137]62010
62100 [139]ZZ[178]0[167]62000
62110 [151]205,255:[151]207,0:[151]204,1:[153]" ":N$[178]WW$:[142]
63000 [153]:[153]:[153]"STR$VAL(null)RIGHT$LENVAL (null)(null)(null) (null)(null)VAL(null)VAL(null)(null)":[129]II[178]0[164]1000:[130]:[142]