home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / sort.naked (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  33 lines
  1. 10 REM  ***************************
  2. 20 REM  * ML DATA LOADING ROUTINE *
  3. 30 REM  ***************************
  4. 40 :
  5. 50 FORD=49152TO49492:READY:POKED,Y:NEXT
  6. 60 POKE595,76:POKE596,177:POKE597,194
  7. 90 :
  8. 100 REM  ***********************
  9. 110 REM  * LIGHTNING SORT DATA *
  10. 120 REM  ***********************
  11. 130 :
  12. 140 DATA32,253,174,32,158,173,32,247,183,165,20,133,253,165,21,133,254
  13. 150 DATA32,253,174,32,158,173,162,1,165,71,157,85,193,157,125,193,165
  14. 160 DATA72,157,105,193,157,145,193,165,253,208,2,198,254,198,253,160,3
  15. 170 DATA24,189,125,193,101,253,157,125,193,189,145,193,101,254,157,145,193
  16. 180 DATA136,208,236,189,85,193,133,80,189,105,193,133,81,189,125,193,133
  17. 190 DATA82,189,145,193,133,83,32,21,193,144,4,202,208,228,96,165,82
  18. 200 DATA133,78,165,83,133,79,160,2,177,78,153,250,0,136,16,248,48
  19. 210 DATA11,24,165,80,105,3,133,80,144,2,230,81,160,2,177,80,153
  20. 220 DATA247,0,136,16,248,32,32,193,144,230,56,165,82,233,3,133,82
  21. 230 DATA176,2,198,83,32,21,193,176,31,160,2,177,82,153,247,0,136
  22. 240 DATA16,248,32,32,193,176,225,160,2,177,80,145,82,185,247,0,145
  23. 250 DATA80,136,16,244,48,183,160,2,177,80,145,78,185,250,0,145,80
  24. 260 DATA136,16,244,24,189,85,193,125,125,193,133,82,189,105,193,125,145
  25. 270 DATA193,133,83,102,83,102,82,32,21,193,176,22,189,85,193,157,86
  26. 280 DATA193,189,105,193,157,106,193,32,53,193,232,32,69,193,76,71,192
  27. 290 DATA189,125,193,157,126,193,189,145,193,157,146,193,32,69,193,232,32
  28. 300 DATA53,193,76,71,192,165,81,197,83,208,4,165,80,197,82,96,160
  29. 310 DATA255,200,196,247,176,11,196,250,176,6,177,248,209,251,240,241,96
  30. 320 DATA196,250,96,24,165,80,105,3,157,85,193,165,81,105,0,157,105
  31. 330 DATA193,96,56,165,80,233,3,157,125,193,165,81,233,0,157,145,193,96
  32. 340 :
  33.