[REBOL] Re: designing dialects - was OWL
From: oliva:david:seznam:cz at: 29-Mar-2002 13:23
Hello Terry,
Saturday, March 23, 2002, 1:48:51 AM, you wrote:
TB> Ok, here ya go..
TB> Rebol []
TB> A: "Send an email to every email address there is telling people not to
TB> send emails to me unless I've asked them to..."
TB> b: ask "What do you want me to do?: "
TB> if a = b [
TB> c: read/lines 6_billion_e-mail_addresses_for_$29.95.txt
TB> foreach val c [ send val "Do not send e-mails to Carl Read unless he asks
TB> you to."]
TB> ]
6_billion_e-mail_addresses_for_$29.95.txt has to be quite large so I
would prefere:
emails: open/direct/lines 6_billion_e-mail_addresses_for_$29.95.txt
while [found? email: copy/part emails 1][
send email "Do not send e-mails to Carl Read unless he asks you to."
]
close emails
Oldes:-)
