home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / sload.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  20 lines
  1. 0 'CLUB 100 Library, Modem 415-939-1246
  2. 1 'SLOAD.BA - Loader for SCODE, modified by Robert Benson (3/29/91)
  3. 2 'Creates SORT.CO by Custom Software
  4. 10 CLS:CLEAR256:IFMAXFILES<2THENMAXFILES=2:Q$="YyNn"
  5. 11 PRINT"Loader/Relocator":PRINT"Custom Software":PRINT"Copyright 1985"
  6. 12 PRINT@160,"Starting address for SORT.CO";:INPUTSA
  7. 13 IFSA+834>MAXRAMTHENBEEP:PRINT"Program would exceed high memory limits.":END
  8. 14 IFSA<HIMEMTHENCLEAR256,SA:SA=HIMEM
  9. 15 OPEN"SCODE"FORINPUTAS1:X=SA
  10. 16 LINEINPUT#1,A$:IFLEFT$(A$,1)="*"THEN21
  11. 17 GOTO22
  12. 18 PRINT@101,"Address:";X:IFNOTEOF(1)THEN16
  13. 19 CLOSE:CLS:IFCS<>62345THENBEEP:PRINT"Checksum error - try again":END
  14. 20 PRINT"SORT.CO loaded from";SA"to";SA+833:SAVEM"SORT.CO",SA,SA+833,SA:END
  15. 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
  16. 22 FORN=1TOLEN(A$)STEP2:CV$=MID$(A$,N,2):GOSUB23:CS=CS+CV:POKEX,CV:X=X+1:NEXT:GOTO18
  17. 23 CV=0:T=LEN(CV$):FORI=1TOT:K=ASC(MID$(CV$,I,1))-48:IFK>9THENK=K-7
  18. 24 K=K+32*(K>41):IFK>15THENRETURNELSECV=CV*16+K
  19. 25 NEXTI:RETURN
  20.