Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. Dim array(2, 2) As Ubyte
    
  2. array(1, 1) = 1
    
  3. array(1, 2) = 2
    
  4. array(2, 1) = 3
    
  5. array(2, 2) = 4
    
  6. Print Cast(Ubyte Ptr, @array(1, 1))[0]
    
  7. Print Cast(Ubyte Ptr, @array(1, 1))[1]
    
  8. Print Cast(Ubyte Ptr, @array(1, 1))[2]
    
  9. Print Cast(Ubyte Ptr, @array(1, 1))[3]
    
  10. 
    
  11. 
    
  12. 'tpm@lara:/media/data20_md0/Projekte/freeBASIC/KI/***/V1_00$ fbc temp.bas && ./temp
    
  13. '1
    
  14. '2
    
  15. '0
    
  16. '3
    
  17. 'tpm@lara:/media/data20_md0/Projekte/freeBASIC/KI/***/V1_00$