1 REM Ins{nt av 4230
2 REM *****************************
3 REM * STRSORT .UTL / Minne 16K  *
4 REM * VER 1.0 / 1984-08-05      *
5 REM * (c) Alf Wirdling / <4230> *
6 REM * Tel   0470-26277 / V[XJ\  *
7 REM *****************************
100 ; CHR$(12);TAB(15);"STRSORT"
110 ; TAB(14);CHR$(151);"#######"
120 ; 'Bubbel-sort av str{ng-vektor i stig-'
130 ; 'ande ordning fr}n index 0 i maskinkod.'
140 ; : ; 'Str{ngarna f}r vara max 256 tkn l}nga'
150 ; 'och m}ste inneh}lla minst ett tkn.'
230 REM 
240 A%=PEEK(65052%)+PEEK(65053%)*256%
250 REM 
260 POKE A%,6%,4%,203%,34%,16%,252%,122%,198%,6%,87%,221%,42%,41%,254%
262 POKE A%+14%,221%,34%,236%,255%,221%,42%,236%,255%,221%,126%,0%,186%,32%,6%
264 POKE A%+28%,221%,126%,1%,187%,40%,32%,221%,126%,2%,254%,0%,32%,11%
266 POKE A%+41%,221%,126%,3%,254%,0%,32%,4%,42%,236%,255%,201%,221%,126%,2%
268 POKE A%+55%,50%,236%,255%,221%,126%,3%,50%,237%,255%,24%,208%,221%,126%,4%
270 POKE A%+69%,50%,238%,255%,221%,126%,5%,50%,239%,255%,221%,126%,6%,50%,242%,255%
272 POKE A%+84%,221%,126%,7%,50%,243%,255%,42%,242%,255%,237%,91%,248%,255%
274 POKE A%+97%,167%,237%,82%,56%,4%,237%,83%,242%,255%,42%,242%,255%,17%,1%,0%
276 POKE A%+112%,167%,237%,82%,56%,187%,203%,193%,203%,65%,40%,119%,203%,129%
278 POKE A%+125%,42%,238%,255%,34%,240%,255%,17%,0%,0%,19%,42%,242%,255%
280 POKE A%+138%,167%,237%,82%,48%,9%,42%,242%,255%,43%,34%,242%,255%,24%,223%
282 POKE A%+152%,221%,42%,240%,255%,221%,126%,10%,71%,221%,126%,4%,184%,40%,9%
284 POKE A%+166%,56%,7%,50%,250%,255%,203%,201%,24%,9%,71%,221%,126%,10%
286 POKE A%+179%,50%,250%,255%,203%,137%,221%,126%,2%,50%,236%,255%,221%,126%,3%
288 POKE A%+193%,50%,237%,255%,42%,236%,255%,34%,244%,255%,221%,126%,8%,50%,236%,255%
290 POKE A%+208%,221%,126%,9%,50%,237%,255%,221%,35%,221%,35%,221%,35%,221%,35%
292 POKE A%+222%,221%,35%,221%,35%,221%,34%,240%,255%,221%,42%,236%,255%,221%,34%,246%,255%
294 POKE A%+238%,24%,4%,24%,148%,24%,75%,126%,221%,190%,0%,32%,11%,35%
296 POKE A%+251%,221%,35%,16%,245%,203%,73%,40%,237%,24%,2%,56%,233%,42%,244%,255%
298 POKE A%+266%,221%,42%,246%,255%,58%,250%,255%,71%,126%,50%,236%,255%,221%,126%,0%
300 POKE A%+281%,119%,58%,236%,255%,221%,119%,0%,35%,221%,35%,16%,237%,221%,42%,240%,255%
302 POKE A%+297%,221%,126%,254%,50%,236%,255%,221%,126%,4%,221%,119%,254%,58%,236%,255%
304 POKE A%+312%,221%,119%,4%,203%,193%,24%,177%,33%,0%,0%,201%
375 REM 
378 ; : ; : ; : ; 'Anrop av rutinen:'
380 ; : ; 'POKE 65528%,element,SWAP%(element)'
390 ; 'Z%=CALL(';A%;'%,ASC("boks")+siff*256%)'
395 ; : ; 'element = h|gsta element i vektorn'
400 ; 'bokstav = A-\'
410 ; 'siffra  = 0-9 (15 om ingen siffra)'
420 REM 
430 POKE 65052%,A%+323%,SWAP%(A%+323%)
440 CHAIN ''