home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a004 / 4.ddi / UTILS / FLASHCDE.PRG next >
Encoding:
Text File  |  1988-01-17  |  766 b   |  36 lines
  1. * NOTE..........: This is a program that ONLY works with dBXL
  2. *          and will NOT run in dBASE by itself!
  3. *
  4. *          ?? chr(145)+<screen name>/   && NOTE: With FLASHUP WINDOWS
  5. *                           && use the character 126 instead
  6. *                           && of 145.
  7. *          with
  8. *
  9. *          STRING = '<screen name>'
  10. *          DO FLASHCDE
  11. *
  12. *          For example:
  13. *          STRING = 'S.SCREEN1.SCR/'
  14. *          DO FLASHCDE
  15. *
  16. *          Note:  Leave out the < and the > between the quotes when you
  17. *             run this.
  18. *
  19. AH = 256*14
  20. AL = 145
  21. *
  22. * -- send 1 CHR(145) to Int 10H:
  23. *
  24. AXREG = AH + AL
  25. DOSINT 16,AXREG
  26. *
  27. * -- send FLASHCODE screen name or FLASHCODE command to Int 10H:
  28. *
  29. I = 1
  30. DO WHILE I <= LEN(STRING)
  31.    AL = ASC(SUBSTR(STRING,I,1))
  32.    AXREG = AH + AL
  33.    DOSINT 16,AXREG
  34.    I = I+1
  35. ENDDO
  36.