Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. 'Option2  Option1  Color    Chr Byte
    
  2. '-------- -------- -------- --------
    
  3. '^^^^^^^^ ^^^^^^^^ ^^^^^^^^ ^^^^^^^^
    
  4. '|||||||| |||||||| |||||||| ^^^^^^^^
    
  5. '|||||||| |||||||| |||||||| ```````\__ Text Byte
    
  6. '|||||||| |||||||| |||||``\___________ 3 bit ForeColor
    
  7. '|||||||| |||||||| ||``\______________ 3 bit Backcolor
    
  8. '|||||||| |||||||| ||
    
  9. '|||||||| |||||||\____________________ Bold
    
  10. '|||||||| |||||`\_____________________ 2 bit Blink
    
  11. '|||||||| ||||\_______________________ Underline
    
  12. '|||||||| |||\________________________ Overline
    
  13. '|||||||| ||\_________________________ Reverse
    
  14. 
    
  15. 
    
  16. 
    
  17. Dim TPtrOption2 As Ubyte Ptr
    
  18. Dim TPtrOption1 As Ubyte Ptr
    
  19. Dim TPtrOption As Ushort Ptr
    
  20. Dim TPtrColor As Ubyte Ptr
    
  21. Dim TPtrText As Ubyte Ptr
    
  22. Dim TPtr As Uinteger Ptr
    
  23. 
    
  24. 
    
  25. TPtr = .V_ScreenBufferBS + .V_ScreenCurPosY * .V_ValWindow_Width + .V_ScreenCurPosX
    
  26. TPtrOption2 = Cast(Ubyte Ptr, TPtr) + 0
    
  27. TPtrOption1 = Cast(Ubyte Ptr, TPtr) + 1
    
  28. TPtrOption = Cast(Ushort Ptr, TPtr) + 0
    
  29. TPtrColor = Cast(Ubyte Ptr, TPtr) + 2
    
  30. TPtrText = Cast(Ubyte Ptr, TPtr) + 3
    
  31. For X As Uinteger = 1 To Len(V_Stream)
    
  32.     
    
  33.     '.....
    
  34. 
    
  35.     .V_ScreenCurPosX += 1
    
  36.     If .V_ScreenCurPosX >= .V_ValWindow_Width Then .V_ScreenCurPosY += 1
    
  37.     If .V_ScreenCurPosX >= .V_ValWindow_Width Then .V_ScreenCurPosX = .V_ValWindow_Width - 1
    
  38.     If .V_ScreenCurPosY >= .V_ValWindow_Height Then .V_ScreenCurPosX = .V_ValWindow_Height - 1
    
  39.     TPtr = .V_ScreenBufferBS + .V_ScreenCurPosY * .V_ValWindow_Width + .V_ScreenCurPosX
    
  40.     TPtrOption2 += 4
    
  41.     TPtrOption1 += 4
    
  42.     TPtrOption += 4
    
  43.     TPtrColor += 4
    
  44.     TPtrText += 4
    
  45. Next
    
  46.