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