http://www2.mps.mpg.de/homes/heller/dow ... _rules.txt
and the message
http://www2.mps.mpg.de/homes/heller/dow ... essage.txt
don't look at the code below if you want to work it out for yourself!
not that I've worked out what the message means.
Code: Select all
;scroll the image down
InitNetwork()
If Not ReadFile(0,"SetiChallenge.txt")
ReceiveHTTPFile("http://www2.mps.mpg.de/homes/heller/downloads/files/SETI_message.txt", "SetiChallenge.txt")
Else
CloseFile(0)
EndIf
If ReadFile(0,"SetiChallenge.txt")
len = Lof(0)
*mem = AllocateMemory(len*4)
*char.long = *mem
While Not Eof(0)
a = ReadByte(0)
a - 48
If a
*char\l=$2357BD;
EndIf
*Char+1
Wend
CloseFile(0)
EndIf
*char = *mem
While *char\l <> 0
w + 1
*char+1
Wend
w-2
h = len / w
CreateImage(1,w,h,24,0)
StartDrawing(ImageOutput(1))
For y = 0 To h-1
For x = 0 To w-1
Plot(x,y,*char\l)
*char+1
Next
Next
StopDrawing()
OpenWindow(0,0,0,w,600,"message")
ScrollAreaGadget(1,0,0,w,600,w,h)
ImageGadget(2,0,0,w,h,ImageID(1))
Repeat
ev = WaitWindowEvent()
Until ev = #PB_Event_CloseWindow


