start tok64 d64-aLUhMQ 5 REM utmaningen - sortering 6 REM dmz #12,1991 7 REM av: kjell eriksson&linus nielsen 10 GOSUB10000 20 PRINT"sys"ml"{left},str[ng$,antal att sortera 30 END 10000 ml=49152:FORt=mlTOml+633:READa:POKEt,a:b=b+a:NEXT 10001 IFb<>86764THENPRINT"error":STOP 10003 DATA76,18,194,255,255,165,49,133 10004 DATA254,165,50,133,255,169,54,133 10005 DATA1,169,,162,,157,1,160 10006 DATA157,1,161,157,1,162,157,1 10007 DATA163,157,1,164,157,1,165,157 10008 DATA1,166,157,1,167,157,1,168 10009 DATA157,1,169,157,1,170,157,1 10010 DATA171,157,1,172,157,1,173,157 10011 DATA1,174,157,1,175,157,1,176 10012 DATA157,1,177,157,1,178,157,1 10013 DATA179,157,1,180,157,1,181,157 10014 DATA1,182,157,1,183,157,1,184 10015 DATA157,1,185,157,1,186,157,1 10016 DATA187,157,1,188,157,1,189,157 10017 DATA1,190,157,1,191,232,232,208 10018 DATA156,160,,177,252,145,254,133 10019 DATA183,200,177,252,145,254,133,184 10020 DATA200,177,252,145,254,133,185,160 10021 DATA,132,186,177,184,41,63,73 10022 DATA32,74,102,186,9,160,133,187 10023 DATA200,196,183,208,5,169,,76 10024 DATA177,192,177,184,41,63,73,32 10025 DATA10,5,186,133,186,160,,177 10026 DATA186,133,190,200,177,186,133,191 10027 DATA240,9,160,,196,183,208,6 10028 DATA76,90,193,76,115,193,177,190 10029 DATA133,38,200,177,190,133,39,200 10030 DATA177,190,133,40,160,,196,183 10031 DATA240,44,196,38,240,116,200,196 10032 DATA183,240,35,196,38,240,107,200 10033 DATA240,104,196,38,240,100,196,183 10034 DATA240,20,177,184,41,63,73,32 10035 DATA133,2,177,39,41,63,73,32 10036 DATA197,2,240,227,144,76,165,190 10037 DATA133,41,165,191,133,42,165,190 10038 DATA24,105,3,133,186,165,191,105 10039 DATA,133,187,160,3,177,190,133 10040 DATA2,200,177,190,133,3,240,39 10041 DATA165,2,133,190,165,3,133,191 10042 DATA160,,177,190,133,38,200,177 10043 DATA190,133,39,200,177,190,133,40 10044 DATA200,177,190,133,41,200,177,190 10045 DATA133,42,160,2,76,242,192,76 10046 DATA115,193,160,3,165,190,145,254 10047 DATA200,165,191,145,254,160,,165 10048 DATA254,145,186,200,165,255,145,186 10049 DATA76,135,193,160,3,169,,145 10050 DATA254,200,145,254,160,,165,254 10051 DATA145,186,200,165,255,145,186,165 10052 DATA254,24,105,5,133,254,165,255 10053 DATA105,,133,255,169,255,206,3 10054 DATA192,205,3,192,208,8,206,4 10055 DATA192,205,4,192,240,16,165,252 10056 DATA24,105,3,133,252,165,253,105 10057 DATA,133,253,76,121,192,169,254 10058 DATA133,186,169,191,133,187,160,1 10059 DATA177,186,240,55,133,255,136,177 10060 DATA186,133,254,160,,177,254,145 10061 DATA252,200,177,254,145,252,200,177 10062 DATA254,145,252,200,165,252,56,233 10063 DATA3,133,252,165,253,233,,133 10064 DATA253,177,254,133,2,200,177,254 10065 DATA240,9,133,255,165,2,133,254 10066 DATA76,203,193,198,186,198,186,165 10067 DATA186,201,254,208,185,198,187,165 10068 DATA187,201,159,208,177,169,55,133 10069 DATA1,96,32,253,174,32,139,176 10070 DATA165,13,240,88,32,71,194,165 10071 DATA95,24,105,7,133,252,165,96 10072 DATA105,,133,253,32,253,174,32 10073 DATA138,173,32,247,183,165,20,56 10074 DATA233,1,141,3,192,165,21,233 10075 DATA,141,4,192,76,5,192,166 10076 DATA47,165,48,134,95,133,96,197 10077 DATA50,208,4,228,49,240,29,160 10078 DATA,177,95,200,197,69,208,6 10079 DATA165,70,209,95,240,19,200,177 10080 DATA95,24,101,95,170,200,177,95 10081 DATA101,96,144,215,162,22,76,55 10082 DATA164,96 10083 GOTO11000 10099 GOTO11000 10100 REM * extradel f{pound}r att l[gga 10110 REM alla pekare ovanf{pound}r 10120 REM basic-minnet. 10130 REM * ta bort rad 10099 f{pound}r att 10140 REM l[gga till denna funktion 10150 POKEml+5,169:POKEml+6,0:POKEml+9,169:POKEml+10,195:POKEml+14,52 10160 POKEml+526,52:POKEml+1,123:POKEml+2,194 10170 FORt=0TO9:READa:POKEml+635+t,a:NEXT:RETURN 10180 DATA120,32,18,194,169,55,133,1,88,96 11000 RETURN stop tok64 (bastext 1.0)