mem=753664
;Dim ligne.s(25)
ok.s
k=0
For p=0 To 3 ; 4 pages
  ok="   "
Debug""
Debug""
Debug "Page " + Str(p)  
;ligne 1 n° de colonne
For i=0 To 79
  ok + RSet(Str(i), 5, "0") + " "
Next i
Debug ok


ok=""
For j=0 To 24
  ok=RSet(Str(j), 2, "0") + " "
For i=0 To 79
  ok + Hex(mem+k, #PB_Long) + " " 
 k + 2 
Next i
Debug ok
ok=""
Next j

Debug ""
Next p
; IDE Options = PureBasic 4.61 (Windows - x86)
; CursorPosition = 5
; EnableXP
; CompileSourceDirectory