[survey] probe/dump-binary
[1/1] from: greggirwin::mindspring::com at: 2-May-2004 17:59
I posted the wrong versions of my survey scripts. Hate it when I do
that. Sorry. Here are the correct ones. They just fix the subject
line.
--Gregg
; Core Version
address: head reverse [moc--gnirpsdnim--niwriggerg]
reply: func [data] [
print "^/Sending response..."
send address rejoin ["probe/dump-bin survey response^/" data]
print "^/Thanks!"
]
reply ask {
Enter YES or NO (case insensitive) if you feel
strongly one way or the other, or a value between
0 and 1 to indicate agreement (0 = no, 1 = yes,
..5 = don't care).
Should PROBE produce output like Jaime's DUMP-BIN
function? }
; View Version
address: head reverse [moc--gnirpsdnim--niwriggerg]
reply: func [data /local wnd] [
h/text: "Sending response..." show h
send address rejoin ["probe/dump-bin survey response^/" data]
h/text: "Thanks!" show h
]
view layout [
h: h3 as-is {Should PROBE produce output
like Jaime's DUMP-BIN function?}
text as-is {(Select an answer or set the slider value
and click Send)}
across
text "NO!" [reply 'no] tab
text "don't care" [reply .5] tab
text "YES!" [reply 'yes]
return
answer: slider 210x16
return
across
button "Send" [reply answer/data]
;button "Quit" [quit]
]