Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. Dim As Integer m, w, h
    
  2. ' Welche 8bit-Auflösungen werden unterstützt?
    
  3. m = Screenlist(8)
    
  4. While m
    
  5.    w = Hiword(m)
    
  6.    h = Loword(m)
    
  7.    Print w & "x" & h
    
  8.    m = Screenlist
    
  9. Wend
    
  10. Sleep