5 REM LISTING 1 10 'QSORT.LIN 20 'MEMORY &A1FF:LOAD"QSORT.OBJ":CALL &A200 / AUFRUF: |QSORT,m,a(l),a(r) 30 FOR o=&A200 TO &A3E4:READ a$:w%=VAL("&"+a$) 40 s=s+w%:POKE o,w%:NEXT 50 IF s<>58359 THEN PRINT"Fehler":END 60 SAVE"QSORT.OBJ",b,&A200,&1E5:PRINT"QSORT.OBJ ok 70 DATA 01,0F,A2,21,E1,A3,CD,D1, BC,3E,C9,32,00,A2,C9,14 80 DATA A2,C3,1A,A2,51,53,4F,52, D4,00,FE,03,C0,DD,66,03 90 DATA DD,6E,02,ED,52,D0,19,D5, E5,DD,7E,04,07,F5,3E,D8 100 DATA 30,02,CB,9F,06,04,21,BD, A3,5E,23,56,23,12,10,F9 110 DATA F1,B7,1F,32,E0,A3,B7,11, C5,A3,28,17,21,8F,A3,11 120 DATA 85,A3,06,CD,3D,20,04,57, 5F,06,BE,70,23,73,23,72 130 DATA 11,D0,A3,DD,21,AD,A3,01, 05,08,1A,13,DD,66,01,DD 140 DATA 6E,00,77,DD,23,DD,23,79, B8,30,04,1A,23,77,13,10 150 DATA E9,3E,02,32,DB,A3,21,DB, A3,35,C8,E1,22,DC,A3,D1 160 DATA ED,53,DE,A3,CD,DA,A2,D5, E5,CD,29,A3,30,19,ED,5B 170 DATA DC,A3,E1,E3,EB,CD,3A,A3, C1,30,06,D5,E5,21,DB,A3 180 DATA 34,ED,43,DC,A3,18,15,ED, 5B,DE,A3,E1,CD,3A,A3,C1 190 DATA 30,06,D5,E5,21,DB,A3,34, ED,43,DE,A3,2A,DC,A3,ED 200 DATA 5B,DE,A3,CD,3A,A3,38,BC, 18,AC,E5,D5,EB,B7,ED,52 210 DATA CB,3C,CB,1D,30,01,2B,19, 4E,23,46,3A,E0,A3,B7,28 220 DATA 12,CD,A8,A3,11,e5,A3,06, 00,D5,79,12,B7,28,03,13 230 DATA ED,B0,C1,D1,E1,CD,40,A3, CD,59,A3,CD,3A,A3,38,01 240 DATA C0,C5,D5,06,03,1A,4E,77, 79,12,23,13,10,F7,D1,C1 250 DATA CD,3A,A3,1B,1B,1B,38,DD, C9,E5,2A,DE,A3,ED,5B,DC 260 DATA A3,B7,ED,52,CB,3C,CB,1D, 19,D1,7C,BA,C0,7D,BB,C9 270 DATA CD,73,A3,3F,D8,C8,23,23, 23,18,F5,23,78,BE,2B,20 280 DATA 03,79,BE,C8,D8,23,23,18, F2,EB,CD,73,A3,EB,D8,C8 290 DATA 1B,1B,1B,18,F4,13,1A,B8, 1B,20,03,1A,B9,C8,D8,1B 300 DATA 1B,18,F2,D5,C5,E5,56,0A, 5F,23,CD,A8,A3,03,CD,8E 310 DATA A3,E1,C1,D1,C9,D5,56,CB, AA,CB,AF,BA,D1,C9,0A,BE 320 DATA 00,00,3F,C0,23,03,1D,15, 7B,B2,C8,7B,B7,20,02,3C 330 DATA C9,7A,B7,20,E9,3C,37,C9, 7E,23,66,6F,C9,06,A3,09 340 DATA A3,E4,A2,E6,A2,14,A3,46, A3,23,A3,60,A3,44,A3,54 350 DATA A3,5E,A3,6E,A3,4B,A3,65, A3,CB,85,00,02,00,00,00 360 DATA 40,A3,59,A3,30,01,2B,03, 23,1B,1B,00,75,0B,75,0B 370 DATA 01,E1,A3,0F,A2