This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
-
Entry name:ML Sort
-
Category:Programming utilities
-
Publisher/Developer:Bajtek, Flop 5
-
Year:1988
Listing 1
1 REM 2 REM | ML SORT | 3 REM 4 REM by Andrzej Biazik 5 REM (c) 1988 BAJTEK 6 REM Call machine routine: 7 REM X=USR(39424,TYPE) 8 REM TYPE=0 ASCENDING 9 REM TYPE=1 DESCENDING 10 A=39424:FOR I=0 TO 37 20 S=0:FOR J=0 TO 9:READ B:POKE A+J,B:S=S+B:NEXT J 30 READ SK:IF S<>SK THEN 60 40 A=A+10:NEXT I 50 ? "Ready.":END 60 ? "Error in line ";100+10*I 70 LIST 100+10*I:END 100 DATA 104,104,104,10,10,10,10,10,105,16,483 110 DATA 141,184,154,165,134,133,203,165,135,133,1547 120 DATA 204,160,0,177,203,201,65,240,33,24,1307 130 DATA 165,203,105,8,133,203,165,204,105,0,1291 140 DATA 133,204,56,165,204,197,137,144,228,165,1633 150 DATA 203,197,136,144,222,169,0,133,212,133,1549 160 DATA 213,96,160,6,177,203,201,1,208,215,1480 170 DATA 169,0,141,47,2,160,2,24,177,203,925 180 DATA 101,140,133,112,200,177,203,101,141,133,1441 190 DATA 113,200,177,203,133,207,200,177,203,133,1746 200 DATA 208,24,165,112,105,12,133,36,165,113,1073 210 DATA 105,0,133,37,169,2,133,203,169,0,951 220 DATA 133,204,56,165,203,233,1,133,205,165,1498 230 DATA 204,233,0,133,206,56,165,36,133,40,1206 240 DATA 233,6,133,38,165,37,133,41,233,0,1019 250 DATA 133,39,160,5,177,36,153,114,0,136,953 260 DATA 16,248,162,5,181,114,149,212,202,16,1305 270 DATA 249,160,5,177,38,153,224,0,136,16,1158 280 DATA 248,32,45,155,16,47,160,5,177,38,923 290 DATA 145,40,136,16,249,56,165,38,133,40,1018 300 DATA 233,6,133,38,165,39,133,41,233,0,1021 310 DATA 133,39,198,205,208,202,198,206,16,198,1603 320 DATA 24,165,112,105,6,133,40,165,113,105,968 330 DATA 0,133,41,160,5,185,114,0,145,40,823 340 DATA 136,16,248,24,165,36,105,6,133,36,905 350 DATA 165,37,105,0,133,37,230,203,208,2,1120 360 DATA 230,204,56,165,204,197,208,176,3,76,1519 370 DATA 122,154,56,165,203,197,207,176,3,76,1359 380 DATA 122,154,56,165,207,233,1,133,212,165,1448 390 DATA 208,233,0,133,213,169,34,141,47,2,1180 400 DATA 96,56,165,212,197,224,240,33,8,104,1335 410 DATA 41,1,72,165,212,16,12,165,224,16,924 420 DATA 4,104,106,106,96,104,169,128,96,165,1078 430 DATA 224,16,2,104,96,104,73,1,76,66,762 440 DATA 155,162,1,248,56,181,212,213,224,208,1660 450 DATA 13,232,224,6,208,244,165,212,48,10,1362 460 DATA 169,0,216,96,176,246,165,212,48,246,1574 470 DATA 169,128,216,96,0,0,0,0,0,0,609
References
Listing downloads
Copyright holder