home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
txt
/
sload.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
20 lines
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 IFSA<HIMEMTHENCLEAR256,SA:SA=HIMEM
15 OPEN"SCODE"FORINPUTAS1:X=SA
16 LINEINPUT#1,A$:IFLEFT$(A$,1)="*"THEN21
17 GOTO22
18 PRINT@101,"Address:";X:IFNOTEOF(1)THEN16
19 CLOSE:CLS:IFCS<>62345THENBEEP: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