
$ FileName "t.exe"   
' uses rtl64

indexbase 0
include "window.inc"

Window "Load Check 64Bit",320,240,1  'ws_overlappedwindow 
Font 12,24,700,"courier"

Dim Map(108) as byte 
sys x, loaded, saved,string s="Did you know, Christmas is coming!"
loaded = LoadFile "maps/map1-1.bin", Map

Text 0, 0,"Loaded = " + loaded + " Byte",255,255,255
Text 0,24,"Report saved in hoho.txt",200,200,248
Text 0,48,"press space bar",0,255,0
pause

DeleteFile "hoho.txt" 
saved = SaveFile "hoho.txt",**s,Len(s)
Text 0,72,"Byte read in " + saved,24,248,200
Text 0,96,"press space bar",248,248,200
WaitKey(32)

ClsColor 255,0,0
for x=0 to 8
   Text 0,x*24,"Map" + str(x) + " = " + chr(str(Map(x))),255,255,0
next
FlipBuffer
pause
WinEnd