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