0 REM OPEN1,8,15,"S:VERG.BAS":CLOSE1:SAVE"VERG.BAS",8
1 REM VERGLEICHEN BY SKERNSOFT 1999
2 DIM A$(200)
4 PRINT"PROGRAMM ZUM VERGLEICHEN VON 2 SORTERDATEIEN.
5 [129]I[178]0[164] 52:[135]A:[151]49152[170]I,A:[130]
10 [133] "FILENAME(MAX200),U";N$,U
11 [133] "VERFLEICHFILE,U";N1$,U1
12 [133] "AUSGABEFILE,U";N2$,U2
20 [159]1,U,0,N$[170]",S"
25 [153]"LADE...
30 SYS49152&1,A$(I):IFSTTHEN F=1
40 I=I+1
50 IF F=0 THEN 30
55 CLOSE1:F=0
60 OPEN1,U1,0,N1$+",S"
63 OPEN2,U2,0,N2$+",S"
65 PRINT"VERGLEICHE...
70 [158]49152&1,A$:[139]ST[167] F[178]1
71 [153]A$
72 [129]J[178]0[164]I:[139][200](A$(J),16)[178][200](A$,16) [167] [152]2,A$
73 [130]
80 [139] F[178]0 [167] 70
90 [160]1:[160]2:F[178]0
100 [128]
32000 [131]32,155,183,32,30,225,32,253,174,32,139,176,133,73,132,74,32,163,182
32001 [131]169,89,32,117,180,160,2,185,97,0,145,73,136,16,248,200,32,18,225,145
32002 [131]98,201,13,208,246,152,160,0,145,73,32,204,255,96