1000 PRINT"[147]":POKE53280,0:POKE53281,0
1005 POKE773,27
1010 PRINTCHR$(8):POKE53272,23:DIMEI$(500):POKE788,52:POKE792,193:POKE650,120
1011 PRINT"[158][194]ITTE WARTEN!"
1012 FORZ=1TO100
1013 FORC=0TO4
1014 EI$(Z*5-C)=" "
1015 NEXTC:NEXTZ:PRINT"[147]"
1020 AN=AN+1:PRINT"   [193]DRESSE";AN;"[157] "
1025 PRINT"[183][183][183][183][183][183][183][183][183][183][183]"
1030 PRINT"[154]   [214]ORNAME :                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1035 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1040 PRINT"   [206]ACHNAME:                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1045 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1050 PRINT"   [193]DRESSE[160]:                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1055 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1060 PRINT"   [215]OHNORT :                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1065 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1070 PRINT"   [212]ELEFON :                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1075 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1080 PRINT"[158]";EI$(AN*5-4):PRINT
1090 PRINT"";EI$(AN*5-3):PRINT
1100 PRINT"";EI$(AN*5-2):PRINT
1110 PRINT"";EI$(AN*5-1):PRINT
1120 PRINT"";EI$(AN*5):PRINT
1130 PRINT"[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":IFAS=1THENGOTO8400
1140 PRINT"[198]1:NAECHSTE [193]DRESSE [198]2:[196]ATEI LADEN"
1150 PRINT"[155][198]3:LETZTE [193]DRESSE   [198]4:[196]ATEI SPEICHERN"
1160 PRINT"[152][198]5:[193]DRESSE EINGEBEN [198]6:[193]DRESSE SUCHEN"
1170 PRINT"[151][198]7:[193]DRESSE LOESCHEN [198]8:[208]ROGRAMMENDE"
1180 GETA$:IFA$=""THEN1180
1190 IFA$="[133]"THEN2000
1200 IFA$="[134]"THEN3000
1210 IFA$="[135]"THEN4000
1220 IFA$="[136]"THEN5000
1230 IFA$="[137]"THEN6000
1240 IFA$="[138]"THEN7000
1250 IFA$="[139]"THEN8000
1260 IFA$="[140]"THEN9000
1270 GOTO1180
2000 IFAN<100THEN2020
2010 GOTO1080
2020 PRINT"                    "
2030 PRINT"                    "
2040 PRINT"                    "
2050 PRINT"                    "
2060 PRINT"                    ":GOTO1020
3000 IFAN>1THEN3020
3010 GOTO1080
3020 PRINT"                    "
3030 PRINT"                    "
3040 PRINT"                    "
3050 PRINT"                    "
3060 PRINT"                    ":AN=AN-2:GOTO1020
4000 EI$(AN*5-4)="":PRINT"                    "
4001 EI$(AN*5-3)="":PRINT"                    "
4002 EI$(AN*5-2)="":PRINT"                    "
4003 EI$(AN*5-1)="":PRINT"                    "
4004 EI$(AN*5)="":PRINT"                    "
4005 PRINT"";:HV=4:X=0
4010 PRINT"[158] [146]";
4020 GETT$:IFT$=""THEN4020
4030 IFT$=CHR$(34)THEN4020
4040 IFASC(T$)>31ANDASC(T$)<96ANDX<20THEN4090
4050 IFASC(T$)>192ANDASC(T$)<219ANDX<20THEN4090
4060 IFT$=CHR$(20)ANDX>0THEN4110
4070 IFT$=CHR$(13)THENPRINT"[157] ":GOTO4200
4080 GOTO4020
4090 PRINT"[157]";T$;:X=X+1      
4100 EI$(AN*5-HV)=EI$(AN*5-HV)+T$:GOTO4010
4110 PRINT"[157] [157][157]";:X=X-1
4120 EI$(AN*5-HV)=LEFT$(EI$(AN*5-HV),LEN(EI$(AN*5-HV))-1):GOTO4010
4200 IFHV=0THENAN=AN-1:GOTO1020
4210 HV=HV-1:PRINT"";:X=0:GOTO4010
5000 EI$(AN*5-4)=""
5010 EI$(AN*5-3)=""
5020 EI$(AN*5-2)=""
5030 EI$(AN*5-1)=""
5040 EI$(AN*5)=""
5050 PRINT"                    "
5060 PRINT"                    "
5070 PRINT"                    "
5080 PRINT"                    "
5090 PRINT"                    ":AN=AN-1:GOTO1020
6000 PRINT"[147]":X=0:FL$="":EA=1:LA=1
6010 PRINT"[154][204]OADNAME: ";
6020 PRINT"[158] [146]";
6030 GETT$:IFT$=""THEN6030
6040 IFT$=CHR$(34)THEN6030
6050 IFASC(T$)>31ANDASC(T$)<65ANDX<16ORASC(T$)>90ANDASC(T$)<96ANDX<16THEN6200
6055 IFASC(T$)>64ANDASC(T$)<91ANDX<16THEN6250
6060 IFT$=CHR$(20)ANDX>0THEN6300
6070 IFT$=CHR$(13)THENPRINT"[157] ":GOTO6400
6080 GOTO6030
6200 PRINT"[157]";T$;:FL$=FL$+T$:X=X+1:GOTO6020
6250 PRINT"[157]";CHR$(ASC(T$)+32);:FL$=FL$+T$:X=X+1:GOTO6020
6300 PRINT"[157] [157][157]";:X=X-1:FL$=LEFT$(FL$,LEN(FL$)-1):GOTO6020
6400 IFX=0THENAN=AN-1:PRINT"[147]":GOTO1020
6500 PRINT"[194]ITTE WARTEN!"
6510 OPEN2,8,2,FL$+",S,R"
6520 INPUT#2,EA:INPUT#2,LA
6530 FORE=EATOLA
6540 INPUT#2,EI$(E*5-4)
6550 INPUT#2,EI$(E*5-3)
6560 INPUT#2,EI$(E*5-2)
6570 INPUT#2,EI$(E*5-1)
6580 INPUT#2,EI$(E*5)
6590 NEXTE:CLOSE2
6600 PRINT"[147]":AN=0:GOTO1020
7000 PRINT"[147]":X=0:FL$="":EA=1:LA=1
7010 PRINT"[154][211]AVENAME: ";
7020 PRINT"[158] [146]";
7030 GETT$:IFT$=""THEN7030
7040 IFT$=CHR$(34)THEN7030
7050 IFASC(T$)>31ANDASC(T$)<65ANDX<16ORASC(T$)>90ANDASC(T$)<96ANDX<16THEN7200
7055 IFASC(T$)>64ANDASC(T$)<91ANDX<16THEN7250
7060 IFT$=CHR$(20)ANDX>0THEN7300
7070 IFT$=CHR$(13)THENPRINT"[157] ":GOTO7400
7080 GOTO7030
7200 PRINT"[157]";T$;:FL$=FL$+T$:X=X+1:GOTO7020
7250 PRINT"[157]";CHR$(ASC(T$)+32);:FL$=FL$+T$:X=X+1:GOTO7020
7300 PRINT"[157] [157][157]";:X=X-1:FL$=LEFT$(FL$,LEN(FL$)-1):GOTO7020
7400 IFX=0THENAN=AN-1:PRINT"[147]":GOTO1020
7405 PRINT"[155][214]ON [193]DRESSE [206]R.     ([198]1/[198]3)"
7410 PRINT"[152][194]IS [193]DRESSE [206]R.     ([198]5/[198]7)"
7415 PRINT"[151]'[210][197][212][213][210][206]'"
7420 PRINT"[155]";EA;"[157] "
7430 PRINT"[152]";LA;"[157] "
7435 POKE650,128
7440 GETFT$:IFFT$="[133]"ANDEA<100THENEA=EA+1:GOTO7420
7450 IFFT$="[134]"ANDEA>1THENEA=EA-1:GOTO7420
7460 IFFT$="[135]"ANDLA<100THENLA=LA+1:GOTO7420
7470 IFFT$="[136]"ANDLA>1THENLA=LA-1:GOTO7420
7480 IFFT$=CHR$(13)THENGOSUB7600:POKE650,1:GOTO7500
7490 GOTO7440
7500 PRINT"[194]ITTE WARTEN!"
7503 OPEN2,8,2,"@:"+FL$+",S,W"
7505 PRINT#2,EA:PRINT#2,LA
7510 FORE=EATOLA
7520 PRINT#2,EI$(E*5-4)
7530 PRINT#2,EI$(E*5-3)
7540 PRINT#2,EI$(E*5-2)
7550 PRINT#2,EI$(E*5-1)
7560 PRINT#2,EI$(E*5)
7570 NEXTE:CLOSE2
7580 PRINT"[147]":AN=AN-1:GOTO1020
7600 PRINT"[155][193]CHTUNG: [152][199]LEICHNAMIGE [196]ATEI WIRD"
7605 PRINT"           UEBERSCHRIEBEN!       "
7610 PRINT"[151][212]ROTZDEM? ([202]/[206])              "
7620 GETA$:IFA$="J"ORA$="[202]"THENRETURN
7630 IFA$="N"ORA$="[206]"THENPOKE650,1:AN=AN-1:PRINT"[147]":GOTO1020
7640 GOTO7620
8000 X=0:SB$=""
8005 PRINT"                                       "
8010 PRINT"                                       "
8020 PRINT"                                       "
8030 PRINT"                                        [145][145][145][145][145][145][145]  ";
8040 PRINT"[152][211]UCHBEGRIFF: ";
8050 PRINT"[151] [146]";
8060 GETT$:IFT$=""THEN8060
8070 IFT$=CHR$(34)THEN8060
8080 IFASC(T$)>31ANDASC(T$)<96ANDX<20THEN8200
8090 IFASC(T$)>192ANDASC(T$)<219ANDX<20THEN8200
8100 IFT$=CHR$(20)ANDX>0THEN8210
8110 IFT$=CHR$(13)THENPRINT"[157] ":GOTO8220
8120 GOTO8060
8200 PRINT"[157]";T$;:SB$=SB$+T$:X=X+1:GOTO8050
8210 PRINT"[157] [157][157]";:X=X-1:SB$=LEFT$(SB$,LEN(SB$)-1):GOTO8050
8220 PRINT"                                  "        "
8221 [153]"  PRINT#(null)UCHE NACH: POKE";SB$             "        "
8225 [139]WS[178]1[167]8260
8230 [129]Z1[178]1[164]100
8240 [129]Z2[178]0[164]4
8250 [139]SB$[178][200](EI$(Z1[172]5[171]Z2),[195](SB$))[167]8300
8260 [130]Z2:[130]Z1:[153]"               STR$ATEIENDE!"
8270 [129]Q[178]1[164]1000:[130]Q:AN[178]AN[171]1:WS[178]0:AS[178]0:[137]1020
8300 AN[178]Z1[171]1:AS[178]1:[137]1020
8400 [153]"LIST  (null)WAITEITERSUCHEN ODER PEEKWAITEENDEN?"
8410 [161]E$:[139]E$[178]"W"[176]E$[178]"(null)"[167]WS[178]1:[137]8220
8420 [139]E$[178]"B"[176]E$[178]"PEEK"[167]AS[178]0:AN[178]AN[171]1:WS[178]0:[137]1020
8430 [137]8410
9000 [153]"LOAD"
9010 [153]"PRINT#(null)IRKLICH? (MID$/(null))"
9020 [161]A$:[139]A$[178]"MID$"[176]A$[178]"J"[167][158]64738
9030 [139]A$[178]"(null)"[176]A$[178]"N"[167]AN[178]AN[171]1:[153]"LOAD":[137]1020
9040 [137]9020