0 'Club 100 Library, Modem 415-939-1246 1 'DIRRAC by Stephane Burgoyne and Hugo Ferreyra 2 'T200 version by Phil Wheeler 9/10/87 10 GOTO70 11 CLS:EN=HIMEM:CLEAR256,EN-153:HI=HIMEM 12 RE=HI:F6=HI+11:F7=HI+26:FN=HI+48:ID=HI+85:CP=HI+108 13 V1=HI+12:V2=HI+27:V3=HI+33:V4=HI+65:V5=HI+80:V6=HI+89 14 D$="0123456789ABCDEF" 15 A=HIMEM: FOR J=1 TO 11 16 READ LN$: FOR I=1 TO LEN(LN$) STEP 2 17 C1 =(INSTR(1,D$,MID$(LN$,I,1))-1)*16 18 C2 =INSTR(1,D$,MID$(LN$,I+1,1))-1 19 POKE A,C1+C2 :A=A+1 :NEXTI,J 20 KEY6,"Term"+CHR$(24)+"CALLHIMEM"+CHR$(13) 21 CH=ID:GOSUB30:POKEV1,LO:POKEV1+1,HI 22 POKEV2,LO:POKEV2+1,HI 23 CH=FN:GOSUB30:POKEV3,LO:POKEV3+1,HI 24 CH=RE:GOSUB30:POKEV4,LO:POKEV4+1,HI 25 POKEV5,LO:POKEV5+1,HI 26 CH=CP:GOSUB30:POKEV6,LO:POKEV6+1,HI 27 CH=F6:GOSUB30: POKE62783,LO:POKE62784,HI 28 CH=F7:GOSUB30: POKE62785,LO:POKE62786,HI 29 GOTO70' Done, show it! 30 HI=INT(CH/256):LO=CH-HI*256:RETURN 40 DATA "E12CCDD239CD4D4FC38B63CD0000CD 41 DATA "BF832100002234EFC39583CD0000CD 42 DATA "3E4F2100002234EF21D471CD206EAF 43 DATA "3232EFC4454FCD4B7121C471CD1735 44 DATA "CDF054D7CA0000CD732DE521000022 45 DATA "D2EF3E01210000C32773CD4D4F2100 46 DATA "00CD17352E000EC0CD2A2ACD3E4FCD 47 DATA "FD9AC91B7044495241434320323030 48 DATA "2020436F7079726967687420313938 49 DATA "35204875676F204665727265797261 50 DATA "1B7100 60 'End of Data 70 CLS:RV$=CHR$(27)+"p":NO$=CHR$(27)+"q":B=62783 72 PRINT" DIRACC.200 Install/Remove" 74 F$=" Removed ":CH=HIMEM+11:GOSUB30:IFPEEK(B)=LOANDPEEK(B+1)=HITHENF$=" Installed " 76 PRINT:PRINT"DIRACC"RV$F$NO$:PRINT:PRINT,"I)nstall",,"R)emove",,"M)200 Menu" 78 ONINSTR("iIrRmM",INPUT$(1))GOTO11,11,80,80,82,82:GOTO78 80 POKE62783,243:POKE62784,127:POKE62785,243:POKE62786,127:KEY6,"Kill "+CHR$(34):CLEAR256,MAXRAM:GOTO70' Define Key 6 to suit your desires 82 MENU