home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / diracc.100 < prev    next >
Text File  |  2006-10-19  |  2KB  |  51 lines
  1. 0 'DIRACC.BA - Stephane Burgoyne
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2  REM  Program for loading DIRACC.CO
  4. 3  REM   (Copyright Hugo Ferreyra) 
  5. 4  REM  in memory.
  6. 5  REM
  7. 6 REM 'CALL 32454' to disengage it
  8. 7 REM
  9. 10 CLS:PRINT@8,"DIRACC.CO program loader"
  10. 11 PRINT@81,"HIMEM is currently at ";HIMEM
  11. 12 PRINT"Do you want it just below HIMEM (Y/N) ";:A$=INPUT$(1)
  12. 13 IFA$="Y"ORA$="y"THEN EN=HIMEM:GOTO15
  13. 14 PRINT:INPUT"End address";EN:IFEN<32767OREN>62808THEN14
  14. 15 CLEAR256,EN-152:HI=HIMEM
  15. 16 RE=HI:F6=HI+10:F7=HI+25:FN=HI+47:ID=HI+84:CP=HI+107
  16. 17 V1=HI+11:V2=HI+26:V3=HI+32:V4=HI+64:V5=HI+79:V6=HI+88
  17. 18 REM
  18. 20 D$="0123456789ABCDEF"
  19. 21 A=HIMEM: FOR J=1 TO 11
  20. 22 READ LN$: FOR I=1 TO LEN(LN$) STEP 2
  21. 23 C1 =(INSTR(1,D$,MID$(LN$,I,1))-1)*16
  22. 24 C2 =INSTR(1,D$,MID$(LN$,I+1,1))-1
  23. 25 POKE A,C1+C2 :A=A+1 :NEXTI,J
  24. 26 KEY6,"Term"+CHR$(24)+"CALL"+RIGHT$(STR$(HIMEM),5)+CHR$(13)
  25. 27 REM
  26. 30 CH=ID:GOSUB45:POKEV1,LO:POKEV1+1,HI
  27. 31 POKEV2,LO:POKEV2+1,HI
  28. 32 CH=FN:GOSUB45:POKEV3,LO:POKEV3+1,HI
  29. 33 CH=RE:GOSUB45:POKEV4,LO:POKEV4+1,HI
  30. 34 POKEV5,LO:POKEV5+1,HI
  31. 35 CH=CP:GOSUB45:POKEV6,LO:POKEV6+1,HI
  32. 36 CH=F6:GOSUB45: POKE64268,LO:POKE64269,HI
  33. 37 CH=F7:GOSUB45: POKE64270,LO:POKE64271,HI
  34. 38 REM
  35. 40 SAVEM"DIRACC",HIMEM,HIMEM+151
  36. 41 PRINT"The program is now loaded":END
  37. 45 HI=INT(CH/256):LO=CH-HI*256:RETURN
  38. 46 REM
  39. 50 DATA "E1CD622CCD3142C36854CD0000CD7F
  40. 51 DATA "6C2100002252F6C34F6CCD0000CD22
  41. 52 DATA "422100002252F621225ECD7C5AAF32
  42. 53 DATA "50F6C42942CD535D21155ECDB127CD
  43. 54 DATA "3E46D7CA0000CD0622E521000022E7
  44. 55 DATA "F63E01210000C3715FCD3142210000
  45. 56 DATA "CDB1272E000EC0CD7059CD2242CDAC
  46. 57 DATA "7EC91B704449524143432031303020
  47. 58 DATA "20436F707972696768742031393835
  48. 59 DATA "204875676F204665727265
  49. 60 DATA "7972611B7100
  50. 61 REM *** END *** 
  51.