10 POKE53280,0:POKE53281,0:DIMD$(500,4):POKE650,128:GA=4:SA=7:AS=20:G=8
20 PRINT"[155][147]";:RESTORE:FORI=1TO9:READA$:PRINT"",A$:NEXT:DATA"     [212][194]-[196][193][212][193] "
25 PRINT"":GOSUB2700:FORI=0TO4:READF$(I):NEXT
40 GETP$:ONVAL(P$)GOTO100,200,300,400,600,700,900:GOTO40
100 GOSUB2400:OPEN1,G,2,N$+",S,R":Z=0
110 FORI=0TO4:INPUT#1,D$(Z,I):NEXT:Z=Z+1:IFST=0THENGOTO110
120 CLOSE1:GOTO20
200 GOSUB2400:OPEN1,G,15,"S:"+N$:CLOSE1:OPEN1,G,2,N$+",S,W"
210 FORI=0TOZ-1:FORII=0TO4:PRINT#1,D$(I,II):NEXTII,I:CLOSE1:GOTO20
300 PRINT"[147] [197]INGEBEN [146]",,"[206]R.:"Z:GOSUB2700:GOSUB2000:F=Z:GOSUB2800:IFX=5THEN20
330 Z=Z+1:GOTO300
400 PRINT"[147] [211]UCHEN ":GOSUB2700:GOSUB2000:IFX=5THEN20
410 FORI=0TO4:S$(I)=E$(I):NEXT
420 FORF=0TOZ:X=0:FORFF=0TO4:IFLEFT$(D$(F,FF),LEN(S$(FF)))=S$(FF)THENX=X+1
430 NEXT:IFX<>5THENNEXT:GOTO20
440 GOSUB2500:PRINT"  WEITER/AENDERN/DRUCKEN  (J/N/A/D) ?[155]"
445 GOSUB2600:POKE781,15:SYS59903:IFP$="A"THENGOSUB3000:GOTO440
447 IFP$="D"THENGOSUB2300:GOTO440
450 IFP$<>"J"THEN20
470 NEXTF:GOTO20
600 F=0:PRINT"[147]","[196]RUCKEN (J/N) ?[155]":GOSUB2600:IFP$="J"THEN800
610 PRINT"[147] [193]RCHIV [146]","  +,-,A,D,CR","[206]R.:"F:GOSUB2700:GOSUB2505
620 GOSUB2600:IFP$="+"ANDF<Z-1THENF=F+1
630 IFP$="-"ANDF<>0THENF=F-1
635 IFP$="A"THENGOSUB3000
637 IFP$="D"THENGOSUB2300
640 IFP$<>CHR$(13)THEN610
650 GOTO20
700 PRINT"[147] [196]RUCKER ":GOSUB2700:PRINT""
710 PRINT"[199]ERAETEADRESSE :",GA:PRINT"[145]",,"[157]";:INPUTGA
720 PRINT"[211]EKUNDAERADRESSE :",SA:PRINT"[145]",,"[157]";:INPUTSA
730 PRINT"[193]BSTAND LINKS :",AS:PRINT"[145]",,"[157]";:INPUTAS:GOTO20
800 OPEN1,GA,SA:PRINT#1:FORI=0TOZ-1
810 PRINT#1,D$(I,0);" "D$(I,1);:FORII=2TO4
820 PRINT#1,", "D$(I,II);:NEXT:PRINT#1:GETP$:IFP$=""THENPRINT#1:NEXT
830 CLOSE1:GOSUB2600:GOTO20
900 GOSUB2450:INPUT"[198]ELD (1-5)";F:F=F-1
910 FORI=0TOZ-2:FORII=ITOZ-1:PRINT"[147]"I,II
915 IFD$(I,F)>D$(II,F)THENGOSUB950
920 NEXTII,I:GOTO20
950 FORC=0TO4:E$=D$(I,C):D$(I,C)=D$(II,C):D$(II,C)=E$:NEXT:RETURN
1000 DATA"(C) BY [212]IMO [194]ADER","1) [204]ADEN","2) [211]PEICHERN","3) [197]INGEBEN"
1010 DATA"4) [211]UCHEN","5) [193]RCHIV","6) [196]RUCKER","7) [211]ORTIEREN","[214]ORNAME","[206]AME"
1020 DATA"[211]TRASSE","[208]LZ/[207]RT","[212]EL."
2000 X=0:FORI=0TO4:E$(I)="":PRINT""F$(I),:INPUTE$(I):IFE$(I)=""THENX=X+1
2010 NEXT:RETURN
2300 PRINT"[147]":OPEN1,GA,SA:PRINT#1,SPC(AS);
2305 PRINT#1,D$(F,0)" ";D$(F,1):PRINT#1,SPC(AS)D$(F,2)
2307 PRINT#1:PRINT#1,SPC(AS)D$(F,3)
2310 PRINT#1:CLOSE1:GOSUB2600:RETURN
2400 GOSUB2450:INPUT"[198]ILENAME :";N$:RETURN
2450 PRINT"":GOTO2700
2500 PRINT"[147] [193]USGABE [146]",,,"[206]R.:"F:GOSUB2700
2505 FORI=0TO4:PRINT""F$(I),": "D$(F,I)
2510 NEXT:RETURN
2600 POKE198,0:WAIT198,1:GETP$:RETURN
2700 FORI=1TO40:PRINT"[192]";:NEXT:RETURN
2800 FORI=0TO4:D$(F,I)=E$(I):NEXT:RETURN
3000 PRINT" [193]ENDERN [146]  ",,"[206]R.:"F:GOSUB2700:GOSUB2000
3010 GOTO2800