1 '"Deutscher Zeichensatz nach DIN 2137     fèr Schneider CPC 464/664/6128
2 CLEAR:KEY DEF 71,1,121,89,89:KEY DEF 43,1,122,90,90:KEY DEF 39,1,44,59,59:KEY DEF 31,1,46,58,58:KEY DEF 30,1,45,95,95:KEY DEF 29,1,124,92,92:KEY DEF 28,1,123,91,91:KEY DEF 19,1,35,39,39:KEY DEF 17,1,43,42,42:KEY DEF 41,1,55,47,47:KEY DEF 32,1,48,61,61
3 KEY DEF 25,1,126,63,63:KEY DEF 57,1,51,166,166:KEY DEF 26,1,125,93,93:KEY DEF 22,0,32,32,32:SYMBOL AFTER 32:SYMBOL 91,&66,&3C,&66,&66,&7E,&66,&66,&0:SYMBOL 92,&66,&3C,&66,&66,&66,&66,&3C,&0:SYMBOL 93,&66,&0,&66,&66,&66,&66,&3C,&0
4 SYMBOL 123,&66,&0,&78,&C,&7C,&CC,&76,&0:SYMBOL 124,&66,&0,&3C,&66,&66,&66,&3C,&0:SYMBOL 125,&0,&66,&0,&66,&66,&66,&3E,&0:SYMBOL 126,&38,&6C,&6C,&6C,&66,&76,&6C,&60
5 '"Ab hier kann Ihr Hauptprogramm be-      ginnen.                                 Zeichensatz ist speicherresident und    bleibt bis zum Ausschalten des Geré-    tes erhalten!"
10 MODE 2:INPUT"Wieviele Datensétze ";az
20 DIM name$(az),hina$(az)
30 CLS
40 LINE INPUT"Name ";n$
50 IF n$="" OR de=az THEN 70
60 de=de+1:name$(de)=n$:wort$=n$:GOSUB 65100:hina$(de)=wort$:GOTO 30
70 CLS:PRINT"Datensétze werden sortiert und ausgegeben (bitte warten !)."
80 GOSUB 65000
90 FOR asg=1 TO de:PRINT name$(asg):NEXT
100 END
65000 i%=0:m%=INT(de):REM"de=Anzahl der indizierten Variablen (Datensétze)"
65010 v%=0
65020 FOR i%=1 TO m%-1:IF hina$(i%)<=hina$(i%+1) THEN 65070
65030 hi$=hina$(i%):hina$(i%)=hina$(i%+1):hina$(i%+1)=hi$
65040 h$=name$(i%):name$(i%)=name$(i%+1):name$(i%+1)=h$
65050 REM"h$=naechstevariable$(i%):naechstevariable$(i%)=naechstevariable$(i%+1):nachstevariable$(i%+1)=h$ '"Hier kùnen weitere zu sortierende Variablen stehen."v%=1
65070 NEXT i%
65080 IF v%=1 THEN 65010
65090 RETURN
65100 neuwort$="":vu$="":FOR l%=1 TO LEN(wort$):vu$=MID$(wort$,l%,1)
65110 IF vu$="é" THEN vu$="a":GOTO 65180
65120 IF vu$="ù" THEN vu$="o":GOTO 65180
65130 IF vu$="è" THEN vu$="u":GOTO 65180
65140 IF vu$="[" THEN vu$="A":GOTO 65180
65150 IF vu$="ç" THEN vu$="O":GOTO 65180
65160 IF vu$="]" THEN vu$="U":GOTO 65180
65170 IF vu$="~" THEN vu$="ss"
65180 neuwort$=neuwort$+vu$:NEXT l%:wort$=neuwort$:RETURN