home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / link.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  37 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
  2. 1 'LINK.BA/CO is a uprade of DIRACC.CO by Robert Benson 1/20/88
  3. 2 'Shorter, yet it lists BA files only for the BASIC option and DO files only for TEXT option.
  4. 3 'You can skip line 24 (24 'KEY6) and save KEY 6 for some other use in BASIC, now "CALL HIMEM" to return to TELCOM.
  5. 4 'If you stack more CO programs below LINK, observe HIMEM after loading LINK and "CALL #####" to return to TELCOM.
  6. 10 CLEAR50:CLS:PRINT@9,"LINK.CO program loader"
  7. 11 PRINT@84,"HIMEM is currently at";HIMEM
  8. 12 PRINT:PRINT"Do you want it just below HIMEM (y/n) ?"
  9. 13 A$=INKEY$:IFA$=""GOTO13ELSEIFINSTR("Yy",A$)THENEN=HIMEM:GOTO15
  10. 14 PRINT:INPUT"End address";EN:IFEN<32767OREN>62853THEN14
  11. 15 CLEAR50,EN-107:HI=HIMEM:RE=HI
  12. 16 F6=HI+10:F7=HI+44
  13. 17 V1=HI+87:V2=HI+102
  14. 18 D$="0123456789ABCDEF"
  15. 19 A=HIMEM:FORJ=1TO8
  16. 20 READ LN$:FORI=1TOLEN(LN$)STEP2
  17. 21 C1=(INSTR(1,D$,MID$(LN$,I,1))-1)*16
  18. 22 C2=INSTR(1,D$,MID$(LN$,I+1,1))-1
  19. 23 POKEA,C1+C2:A=A+1:NEXTI,J
  20. 24 KEY6,"Term"+CHR$(24)+"CALL"+RIGHT$(STR$(HIMEM),5)+CHR$(13)
  21. 25 CH=RE:GOSUB31:POKEV1,LO:POKEV1+1,HI
  22. 26 POKEV2,LO:POKEV2+1,HI
  23. 27 CH=F6:GOSUB31:POKE64268,LO:POKE64269,HI
  24. 28 CH=F7:GOSUB31:POKE64270,LO:POKE64271,HI
  25. 29 SAVEM"LINK",HIMEM,HIMEM+106
  26. 30 PRINT"The program is now loaded":END
  27. 31 HI=INT(CH/256):LO=CH-HI*256:RETURN
  28. 32 DATA "E1CD622CCD3142C36854CD3142CD8A
  29. 33 DATA "422E000E80CD7059CD2242CD7F6C21
  30. 34 DATA "00002252F6CD2242CDAC7EC34F6CCD
  31. 35 DATA "31422E000EC0CD7059CD22422252F6
  32. 36 DATA "21225ECD7C5AAF3250F6CD2242CD53
  33. 37 DATA "5D21155ECDB127CD3E46D7CA0000CD
  34. 38 DATA "0622E521000022E7F63E01210000C3
  35. 39 DATA "715F
  36. 40 REM/CALL 32454 to disengage
  37.