Atari 8-bit Source code

1000REMSORTROUTINETEST
1010?"TESTROUTINEGENERATESTWO":?"IDENTICALLISTSOF12DIGITRANDOM":?"NUMBERSANDTHENSORTSTHEM"
1012?:?"ENTERNUMBEROFRANDOMNUMBERS":INPUTNR
1015?:?"LOADSORTINGROUTINES":GOSUB31520:GOSUB32120
1020DIMA$(12*NR),B$(12*NR)
1025?:?"GENERATELISTOF12DIGIT":?"RANDOMNUMBERS"
1030FORI=1TONR*12
1050A$(I,I)=STR$(INT(PEEK(53770)*10/256))
1060NEXTI:B$=A$
1070FORI=1TONR:ER=12*I:?A$(ER-11,ER),B$(ER-11,ER):NEXTI
1080?:?"STARTSORT1":GOSUB1100:X=USR(ADR(BUBBLESORT$),ADR(A$),12,NR,1,12,0)
1082TIME=(PEEK(18)*65536+PEEK(19)*256+PEEK(20))/60:?"ENDSORT:SORTTIME=";TIME;"SECONDS"
1085?:?"STARTSORT2":GOSUB1100:POKE203,0:POKE204,11:POKE205,12:POKE206,0
1087BSX=USR(1568,ADR(B$),NR)
1088TIME=(PEEK(18)*65536+PEEK(19)*256+PEEK(20))/60:?"ENDSORT:SORTTIME=";TIME;"SECONDS"
1090?:?"PRESSANYKEYTOPRINTSORTEDLISTS":OPEN#3,4,0,"K:":GET#3,C
1092FORI=1TONR:ER=12*I:?A$(ER-11,ER),B$(ER-11,ER):NEXTI
1095END
1100POKE18,0:POKE19,0:POKE20,0:RETURN
31500REM
31501REM
31502REM
31503REMFROMCOMPUTE!,ISSUE#22(MAR1982)
31504REM
31505REMGOSUB31520FROMMAINPROGRAMTOLOADMLSORTSUBROUTINE,
31506REMTHENCALLSORTFROMBASICPROGRAMWITH
31507REMPOKE203,P1-1:POKE204,P2-1:POKE205,P3:POKE206,P4
31508REMIFP6>1THENBSX=USR(1568,P5,P6)
31509REM
31510REMSORTPARAMETERS
31511REM-P1:POSITIONINRECORDOFFIRSTBYTEOFSORTFIELD
31512REM-P2:POSITIONINRECORDOFLASTBYTEOFSORTFIELD
31513REM-P3:RECORDLENGTH(<=150BYTES)
31514REM-P4:0=ASCENDING,1=DESCENDING
31515REM-P5:ADDRESSOFSTRINGCONTAININGRECORDSTOBESORTED
31516REM-P6:NUMBEROFRECORDSTOBESORTED
31520RESTORE31568:FORBSI=1568TO1693:READBSC:POKEBSI,BSC:NEXTBSI:RETURN
31568DATA104,104,133,217,104,133
31574DATA216,104,133,209,104,133
31580DATA208,169,0,133,218,133
31586DATA207,162,1,165,216,133
31592DATA214,165,217,133,215,24
31598DATA165,214,133,212,101,205
31604DATA133,214,165,215,133,213
31610DATA105,0,133,215,164,203
31616DATA165,206,240,10,177,214
31622DATA209,212,144,44,240,12
31628DATA176,19,177,214,209,212
31634DATA144,13,240,2,176,30
31640DATA200,196,204,240,227,176
31646DATA23,144,223,169,1,133
31652DATA218,164,205,136,177,214
31658DATA72,177,212,145,214,104
31664DATA145,212,192,0,208,241
31670DATA232,224,0,208,2,230
31676DATA207,228,208,208,172,165
31682DATA209,197,207,208,166,165
31688DATA218,201,0,208,144,96
32100REM
32101REM
32102REM
32103REMFROMANTIC,OCT/NOV1982
32104REM
32105REMGOSUB32120FROMMAINPROGRAMTOTOLOADMLSORTSUBROUTINE,
32106REMTHENCALLBUBBLESORTFROMBASICPROGRAMWITH
32107REMBSX=USR(ADR(BUBBLESORT$),P1,P2,P3,P4.1,P4.2,P4.3)
32108REM
32109REMSORTPARAMETERS
32110REM-P1:ADDRESSOFSTRINGCONTAININGRECORDSTOBESORTED
32111REM-P2:RECORDLENGTH(<=256BYTES)
32112REM-P3:NUMBEROFRECORDSTOBESORTED
32113REM-P4.1,P4.2,P4.3:DEFINITIONOFSORTFIELD
32114REM-(THESETHREENUMBERSAREONESORTFIELDSET.ANYNUMBEROFSORT
32115REM-FIELDSETSMAYBESPECIED,INMAJORTOMINORORDEROFSORTING)
32116REM--POSITIONINRECORDOFFIRSTBYTEOFSORTFIELD
32117REM--LENGTHOFSORTFIELD(<=RECORDLENGTH)
32118REM--0=ASCENDING,1=DESCENDING
32119REM
32120DIMBUBBLESORT$(182)
32125RESTORE32130:FORBSI=1TO182:READBSC:BUBBLESORT$(BSI,BSI)=CHR$(BSC):NEXTBSI:RETURN
32130DATA216,104,56,233,3,133,217,104,133,204,104,133,203,104,133,215,104,133,214,104,133,210,104,133,209,162,0
32135DATA104,104,157,0,1,232,228,217,208,246,56,165,209,233,2,133,209,165,210,233,0,133,210,48,108,165,209,133
32140DATA211,165,210,133,212,165,204,133,206,133,208,165,203,133,205,24,101,214,133,207,165,208,101,215,133,208
32145DATA160,0,185,0,1,190,2,1,134,218,190,1,1,200,200,200,132,216,168,136,177,205,209,207,240,12,165,218,208,4
32150DATA144,16,176,46,144,44,176,10,200,202,208,234,164,216,196,217,208,210,198,211,169,255,197,211,208,6,166
32155DATA212,240,11,198,212,165,208,133,206,165,207,24,144,172,165,213,240,4,134,213,208,148,96,134,213,160,0
32160DATA177,205,170,177,207,145,205,138,145,207,200,196,214,208,241,240,203	

• Download link 1
• Download link 2