0 'CLUB 100 Library, Modem 415-939-1246 1 'SLOAD.BA - Loader for SCODE, modified by Robert Benson (3/29/91) 2 'Creates SORT.CO by Custom Software 10 CLS:CLEAR256:IFMAXFILES<2THENMAXFILES=2:Q$="YyNn" 11 PRINT"Loader/Relocator":PRINT"Custom Software":PRINT"Copyright 1985" 12 PRINT@160,"Starting address for SORT.CO";:INPUTSA 13 IFSA+834>MAXRAMTHENBEEP:PRINT"Program would exceed high memory limits.":END 14 IFSA62345THENBEEP:PRINT"Checksum error - try again":END 20 PRINT"SORT.CO loaded from";SA"to";SA+833:SAVEM"SORT.CO",SA,SA+833,SA:END 21 A$=RIGHT$(A$,LEN(A$)-1):VA=SA+VAL(A$):POKEX+1,INT(VA/256):POKEX,VA-(INT(VA/256)*256):X=X+2:GOTO18 22 FORN=1TOLEN(A$)STEP2:CV$=MID$(A$,N,2):GOSUB23:CS=CS+CV:POKEX,CV:X=X+1:NEXT:GOTO18 23 CV=0:T=LEN(CV$):FORI=1TOT:K=ASC(MID$(CV$,I,1))-48:IFK>9THENK=K-7 24 K=K+32*(K>41):IFK>15THENRETURNELSECV=CV*16+K 25 NEXTI:RETURN