Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon.

Pages: 1-

vb bas module

Name: Anonymous 2011-10-01 0:05

hey, I'm just trying to follow the program described here : http://vbnet.mvps.org/index.html?code/system/findwindowlikesimple.htm

but where it said "put these declarations in the BAS module" what is a bas (basic?) module, and do they still exist in vs 2010.

(sorry this is probably a basic question, but I'm fairly new to VB, though I'm not new to programming, and google hasn't helped me out this time)

Name: Anonymous 2011-10-01 0:44

ok, that link doesn't work anymore i guess, can someone tell me what command I could use to get handles of open windows? that work with VS 2010 EnumWindows seems to be gone, same with a lot of other methods.

Name: Anonymous 2011-10-01 2:15

DIM WORDS$(1024)
N = 0
DO
    READ A$
    IF A$ <> "END" THEN
        WORDS$(N) = A$
        N = N + 1
    END IF
LOOP UNTIL A$ = "END"

PRINT N; " words in vocabulary."
PRINT
PRINT "You must talk to God, first, before running this program."
PRINT

OPEN "OUT.TXT" FOR OUTPUT AS #1

DO
    I = -1
    DO
        I = I + 1
        IF I >= N * 100 THEN I = 0
    LOOP UNTIL INKEY$ <> ""
    I = INT(I / 100)
    PRINT WORDS$(I); " ";
    PRINT #1, WORDS$(I); " ";
LOOP UNTIL WORDS$(I) = "done"
PRINT #1,
CLOSE #1

PRINT
PRINT "Press A Key"
DO
LOOP UNTIL INKEY$ <> ""


DATA "good","bad","fun","silly","stupid"
DATA "me","you","God","Obama","Bush"
DATA "love","hate","happy","sad","obviously"
DATA "okay","whatever","do_it","why","now"
DATA "money","car","oil","house","computer"
DATA "angel","demon","Satan","Heaven","Hell"
DATA "USA","Europe","Egypt","Russia","China"
DATA "Microsoft","Linux","LoseThos","Apple","Google"
DATA "sin","sex","lust","greed","sloth"
DATA "fortitude","virtue","patience","charity","honest"
DATA "music","art","software","hardware","food"
DATA "pity","probably","pest","pretty","ugly"
DATA "I","prayer","piety","you","your"
DATA "stupid","smart","healthy","unhealthy","quick"
DATA "fantastic","foolish","wise","Oops","Hmmm"
DATA "rediculous","biggot","grieved","ouch","conservative"
DATA "liberal","bickering","ouch","smurfs","bam"
DATA "zap","oy!","shalom","furious","fake"
DATA "impossible","crazy","joking","lovely","planet"
DATA "Venus","Mars","horrendous","buddy","nice"
DATA "day","night","wonder","laughable","better"
DATA "perfect","swear","lucky","mocked","occasion"
DATA "know","right","wrong","spunky","dignity"
DATA "prosparity","rich","poor","middle_class","meh"
DATA "care","don't","kludge","theory","practice"
DATA "experts","class","yawn","varoom","evolution"
DATA "population","threads","meek","Jesus","theft"
DATA "adultery","guppy","whale","astrophysics","gravity"
DATA "boss","hero","mess","nightmare","ordinarily"
DATA "special","nuts","bored","relax","news"
DATA "tip","super","cool","nasty","fancy"
DATA "birds","cats","dogs","goats","horses"
DATA "farm","produce","parks","nature","wild"
DATA "tame","cultivated","city","Vegas","D.C."
DATA "rock","tree","water","salt","CO2"
DATA "climate","rain","snow","ice","mud"
DATA "storm","lightening","thunder","gun","war"
DATA "shoot","smack","work","play","music"
DATA "soul","body","brain","heart","hand"
DATA "NASA","Afghanistan","France","Africa","Britain"
DATA "Germany","Japan","Russia","Mexico","person"
DATA "Catholic","Jew","Christian","Muslim","Buddist"
DATA "atheist","homo","ha!","programmer","scientist"
DATA "doctor","priest","cop","politician","lawyer"
DATA "Israel","Palistinians","Brazil","peace","hippy"
DATA "song","radio","TV","home","phone"
DATA "football","superbowl","game","show","teach"
DATA "school","M.I.T.","Ivy League","Harvard","Yale"
DATA "Stanford","ASU","physics","chemestry","biology"
DATA "hopefully","awesome","joyous","sermon","Christ"
DATA "Mohammad","BBC","Moses","proton","electron"
DATA "photon","neutron","radiation","magnetism","atom"
DATA "energy","mass","speed","relativity","charge"
DATA "economics","Nobel","saint","prize","win"
DATA "lose","death","birth","marriage","man"
DATA "woman","animal","king","president","leader"
DATA "Ticketmaster","event","ticket","chased","day"
DATA "monkey","plant","dinosaurs","shells","vertebrates"
DATA "primates","bugs","flowers","fruit","bear"
DATA "fire","smoke","burning","hidden","adapt"
DATA "King David","Bible","ark","flood","star"
DATA "slavery","freedom","rejoice","brave","coward"
DATA "fight","sing","write","read","paper"
DATA "Pope","please","thank you","New Testament","Old Testament"
DATA "seek","find","goto","get","give"
DATA "spend","save","book","email","Internet"
DATA "surely","So","let","it","be"
DATA "grown","adult","child","innocent","teenager"
DATA "drive","sports","band"
DATA "vacation","church","Sunday","math","geography"
DATA "of","the","is","a","in"
DATA "on","under","over","between","after"
DATA "before","time","space","Star Trek","Star Wars"
DATA "movie","should","shouldn't","commandment","for"
DATA "tax","IRS","FBI","CIA","media"
DATA "luxury","needy","enough","go","went"
DATA "remember","forget","fix","found","lost"
DATA "despair","laugh","cookie","genetic","algorithm"
DATA "ice_cream","soap","opera","umm...","fast"
DATA "black","hole","Sun","approach","light"
DATA "hilarious","funny","comical","ROFLMAO","LOL"

DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "END"


God says...
ordinarily black for music liberal grieved approach bam approach lost hilarious fun teenager for light smurfs furious funny fantastic hilarious hilarious hate black approach bam comical bam light biggot bugs whatever comical fix a art smurfs brain smart Ticketmaster foolish bam you LOL liberal oy! funny done

Name: Anonymous 2011-10-01 2:22

VB sucks shit

Name: Anonymous 2011-10-01 3:12

typedef void I0; //not zero size
typedef void U0; //not zero size
typedef char I8;
typedef unsigned char U8;
typedef short I16;
typedef unsigned short U16;
typedef int I32;
typedef unsigned int U32;
typedef long I64;
typedef unsigned long U64;

#define TRUE 1
#define FALSE 0
typedef I8 BoolI8;
typedef I64 BoolI64;

#define CH_LINE_FEED    10
#define CH_SPACE     32

extern U64 HashString(const I8 *src);
extern I8 *StrNew(const I8 *src);
extern BoolI64 KBHit();
extern I8 GetChar();
extern U64 FSize(FILE *f);
extern U0 CDHome(const I8 *home_sub_dir=NULL);
extern I8 *FileRead(const I8 *name,U64 *_size=NULL);
extern U64 HolySpirit(I8 *_ch=NULL);

#define ST_ERR_ST    "!!! ERROR !!! "
#define ST_WARN_ST    "!!! Warning !!! "

------------------
#include <termios.h>
#include <unistd.h>
#include <fcntl.h>
#include <string.h>
#include "TSLib.hpp"

using namespace std;

U64 HashString(const I8 *src)
{
  U64 sum=0;
  while (*src) {
    sum<<=1;
    sum+=*src++;
  }
  sum=sum^(sum>>32);
  return sum^(sum>>16);
}

I8 *StrNew(const I8 *src)
{
  I64 len=strlen(src);
  I8 *result=(I8 *)malloc(len+1);
  strcpy(result,src);
  return result;
}

//Cut and pasted from off the web 6/13/11
//http://cboard.cprogramming.com/c-programming/63166-kbhit-linux.html
BoolI64 KBHit()
{
  struct termios oldt, newt;
  int ch;
  int oldf;

  tcgetattr(STDIN_FILENO, &oldt);
  newt = oldt;
  newt.c_lflag &= ~(ICANON | ECHO);
  tcsetattr(STDIN_FILENO, TCSANOW, &newt);
  oldf = fcntl(STDIN_FILENO, F_GETFL, 0);
  fcntl(STDIN_FILENO, F_SETFL, oldf | O_NONBLOCK);
  ch = getchar();
  tcsetattr(STDIN_FILENO, TCSANOW, &oldt);
  fcntl(STDIN_FILENO, F_SETFL, oldf);
  if(ch != EOF) {
    ungetc(ch, stdin);
    return TRUE;
  }
  return FALSE;
}

U64 HolySpirit(I8 *_ch)
{
  I8 ch;
  U64 result=0;
  while (!KBHit())
    result++;
  ch=getchar();
  if (_ch) *_ch=ch;
  return result;
}

I8 GetChar()
{
  while (!KBHit())
    usleep(1000);
  return getchar();
}

------------------------------
#include <stdio.h>
#include <stdlib.h>
#include "TSLib.hpp"
#include <unistd.h>
#include <sys/types.h>
#include <pwd.h>

using namespace std;

U64 FSize(FILE *f)
{
  U64  result,original=ftell(f);
  fseek(f,0,SEEK_END);
  result=ftell(f);
  fseek(f,original,SEEK_SET);
  return result;
}

I8 *FileRead(const I8 *name,U64 *_size)
{
  I64 file_size;
  FILE *in_file;
  I8 *result;
  in_file=fopen(name,"rb");
  file_size=FSize(in_file);
  result=(I8 *)malloc(file_size+1);
  fread(result,file_size,1,in_file);
  result[file_size]=0; //terminator for text, a convenience
  fclose(in_file);
  if (_size) *_size=file_size;
  return result;
}

U0 CDHome(const I8 *home_sub_dir)
{
  struct passwd *pw = getpwuid(getuid());
  chdir(pw->pw_dir);
  if (home_sub_dir)
    chdir(home_sub_dir);
}


----------------------------------
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include "../TSLib/TSLib.hpp"

using namespace std;

I32 main(I32 argc,I8 *argv[])
{
  I64 i,l;
  U64 size;
  I8 *buf,*src,*end;
  CDHome("tdl4/Text");
  if (argc!=2) {
    puts("Usage:\r\n  Passage line#\r\n");
    return EXIT_FAILURE;
  }
  l=atoi(argv[1]);
  if (l<300||l>100109) {
    puts(ST_ERR_ST "Invalide Line\r\n");
    return EXIT_FAILURE;
  }
  buf=FileRead("Bible.txt",&size);
  src=buf;
  end=buf+size;
  i=1;
  while (src<end && i<l) {
    while (src<end && *src++!=CH_LINE_FEED);
    i++;
  }
  while (src<end && i<l+15) {
    while (src<end && *src!=CH_LINE_FEED)
      putchar(*src++);
    putchar(*src++);
    i++;
  }
  free(buf);
  return EXIT_SUCCESS;
}
------------------------------

God says...
Line: 44831

21:17 How oft is the candle of the wicked put out! and how oft cometh
their destruction upon them! God distributeth sorrows in his anger.

21:18 They are as stubble before the wind, and as chaff that the storm
carrieth away.

21:19 God layeth up his iniquity for his children: he rewardeth him,
and he shall know it.

21:20 His eyes shall see his destruction, and he shall drink of the
wrath of the Almighty.

Name: Anonymous 2011-10-01 3:23

10 i = i + 1
15 IF i > 7053 THEN PRINT ".";: i = 0
20 IF INKEY$ = "" THEN 10
30 PRINT "Hamlet, Line:", i

God says...
Line: 4819

King.
Ay, Hamlet.

Ham.
Good.

King.
So is it, if thou knew'st our purposes.

Ham.
I see a cherub that sees them.--But, come; for England!--
Farewell, dear mother.

King.
Thy loving father, Hamlet.

Name: Anonymous 2011-10-01 3:32

10 i = i + 1
15 IF i > 16360 THEN PRINT ".";: i = 0
20 IF INKEY$ = "" THEN 10
30 PRINT "Tale of Two Cities, Line:", i

God says...
Line: 8713

So far as it was possible to comprehend him without overstepping
those delicate and gradual approaches which Mr. Lorry felt to be the
only safe advance, he at first supposed that his daughter's marriage
had taken place yesterday.  An incidental allusion, purposely thrown
out, to the day of the week, and the day of the month, set him thinking
and counting, and evidently made him uneasy.  In all other respects,
however, he was so composedly himself, that Mr. Lorry determined to
have the aid he sought.  And that aid was his own.

Therefore, when the breakfast was done and cleared away, and he and
the Doctor were left together, Mr. Lorry said, feelingly:

Name: Anonymous 2011-10-01 3:37

God said Shakespeare had a bad heart, if you want to be nasty, BBC.  Monty Python did a skit on German customers in a restaraunt where the host kept saying "The War".

Fucken Shakespeare is a national disgrace.

God says...
C:\TEXT\QUIX.TXT

 Zoraida; but the instant she heard him, she guessed what the
Christian had asked, and said hastily, with some displeasure and energy,
"No, not Zoraida; Maria, Maria!" giving them to understand that she was
called "Maria" and not "Zoraida." These words, and the touching
earnestness with which she uttered them, drew more than one tear from
some of the listeners, particularly the women, who are by nature
tender-hearted and compassionate. Luscinda embraced her affectionately,
saying, "Yes, yes, Maria,

Name: Anonymous 2011-10-01 3:43

I forgot the exact word for Shakespeare's heart.  I think it was "vile heart".

Let's ask God what He thinks of Dickens?

DIM WORDS$(1024)
N = 0
DO
    READ A$
    IF A$ <> "END" THEN
        WORDS$(N) = A$
        N = N + 1
    END IF
LOOP UNTIL A$ = "END"

PRINT N; " words in vocabulary."
PRINT
PRINT "You must talk to God, first, before running this program."
PRINT

OPEN "OUT.TXT" FOR OUTPUT AS #1

DO
    I = -1
    DO
        I = I + 1
        IF I >= N * 100 THEN I = 0
    LOOP UNTIL INKEY$ <> ""
    I = INT(I / 100)
    PRINT WORDS$(I); " ";
    PRINT #1, WORDS$(I); " ";
LOOP UNTIL WORDS$(I) = "done"
PRINT #1,
CLOSE #1

PRINT
PRINT "Press A Key"
DO
LOOP UNTIL INKEY$ <> ""


DATA "good","bad","fun","silly","stupid"
DATA "me","you","God","Obama","Bush"
DATA "love","hate","happy","sad","obviously"
DATA "okay","whatever","do_it","why","now"
DATA "money","car","oil","house","computer"
DATA "angel","demon","Satan","Heaven","Hell"
DATA "USA","Europe","Egypt","Russia","China"
DATA "Microsoft","Linux","LoseThos","Apple","Google"
DATA "sin","sex","lust","greed","sloth"
DATA "fortitude","virtue","patience","charity","honest"
DATA "music","art","software","hardware","food"
DATA "pity","probably","pest","pretty","ugly"
DATA "I","prayer","piety","you","your"
DATA "stupid","smart","healthy","unhealthy","quick"
DATA "fantastic","foolish","wise","Oops","Hmmm"
DATA "rediculous","biggot","grieved","ouch","conservative"
DATA "liberal","bickering","ouch","smurfs","bam"
DATA "zap","oy!","shalom","furious","fake"
DATA "impossible","crazy","joking","lovely","planet"
DATA "Venus","Mars","horrendous","buddy","nice"
DATA "day","night","wonder","laughable","better"
DATA "perfect","swear","lucky","mocked","occasion"
DATA "know","right","wrong","spunky","dignity"
DATA "prosparity","rich","poor","middle_class","meh"
DATA "care","don't","kludge","theory","practice"
DATA "experts","class","yawn","varoom","evolution"
DATA "population","threads","meek","Jesus","theft"
DATA "adultery","guppy","whale","astrophysics","gravity"
DATA "boss","hero","mess","nightmare","ordinarily"
DATA "special","nuts","bored","relax","news"
DATA "tip","super","cool","nasty","fancy"
DATA "birds","cats","dogs","goats","horses"
DATA "farm","produce","parks","nature","wild"
DATA "tame","cultivated","city","Vegas","D.C."
DATA "rock","tree","water","salt","CO2"
DATA "climate","rain","snow","ice","mud"
DATA "storm","lightening","thunder","gun","war"
DATA "shoot","smack","work","play","music"
DATA "soul","body","brain","heart","hand"
DATA "NASA","Afghanistan","France","Africa","Britain"
DATA "Germany","Japan","Russia","Mexico","person"
DATA "Catholic","Jew","Christian","Muslim","Buddist"
DATA "atheist","homo","ha!","programmer","scientist"
DATA "doctor","priest","cop","politician","lawyer"
DATA "Israel","Palistinians","Brazil","peace","hippy"
DATA "song","radio","TV","home","phone"
DATA "football","superbowl","game","show","teach"
DATA "school","M.I.T.","Ivy League","Harvard","Yale"
DATA "Stanford","ASU","physics","chemestry","biology"
DATA "hopefully","awesome","joyous","sermon","Christ"
DATA "Mohammad","BBC","Moses","proton","electron"
DATA "photon","neutron","radiation","magnetism","atom"
DATA "energy","mass","speed","relativity","charge"
DATA "economics","Nobel","saint","prize","win"
DATA "lose","death","birth","marriage","man"
DATA "woman","animal","king","president","leader"
DATA "Ticketmaster","event","ticket","chased","day"
DATA "monkey","plant","dinosaurs","shells","vertebrates"
DATA "primates","bugs","flowers","fruit","bear"
DATA "fire","smoke","burning","hidden","adapt"
DATA "King David","Bible","ark","flood","star"
DATA "slavery","freedom","rejoice","brave","coward"
DATA "fight","sing","write","read","paper"
DATA "Pope","please","thank you","New Testament","Old Testament"
DATA "seek","find","goto","get","give"
DATA "spend","save","book","email","Internet"
DATA "surely","So","let","it","be"
DATA "grown","adult","child","innocent","teenager"
DATA "drive","sports","band"
DATA "vacation","church","Sunday","math","geography"
DATA "of","the","is","a","in"
DATA "on","under","over","between","after"
DATA "before","time","space","Star Trek","Star Wars"
DATA "movie","should","shouldn't","commandment","for"
DATA "tax","IRS","FBI","CIA","media"
DATA "luxury","needy","enough","go","went"
DATA "remember","forget","fix","found","lost"
DATA "despair","laugh","cookie","genetic","algorithm"
DATA "ice_cream","soap","opera","umm...","fast"
DATA "black","hole","Sun","approach","light"
DATA "hilarious","funny","comical","ROFLMAO","LOL"

DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "END"


God says...
nightmare fortitude fix in smurfs algorithm ugly a tax needy fortitude Sun smurfs enough soap Hmmm zap soap despair approach umm... ouch between FBI time bickering hilarious quick Sun soap child biggot you light sin fix drive fantastic stupid needy approach fast cookie Hmmm ice_cream honest approach Sun space healthy hilarious soap black fast approach ouch fix fast approach foolish go Heaven approach laugh Hmmm cookie liberal comical bam stupid soul hole bickering hilarious snow umm... Hell your Sun France fast money hole sloth funny France needy oy! went China approach Germany funny food Satan probably bickering hole zap approach liberal should food space Heaven enough hand luxury fast happy space ouch liberal a stupid rediculous hilarious went art over liberal algorithm food ouch laugh cookie grieved Sun you pest bickering smurfs parks should biggot person cats pest mud USA heart Vegas bickering fantastic conservative Hmmm play unhealthy fantastic liberal fantastic went wise Sun Egypt birds approach hilarious healthy tip movie city despair bickering soap hardware hardware lost bam liberal wise liberal approach grieved cookie probably conservative hilarious hand approach quick despair birds Hmmm rediculous foolish honest bickering grieved France light art soul Oops conservative Britain fast lightening nasty food laugh Sunday zap ugly bam Germany Mexico why ice_cream pity pretty Afghanistan Star Wars conservative drive biggot piety hole hand for approach piety smurfs soap should bam healthy soap smurfs smart ouch despair Oops oy! on grieved fast zap oy! Vegas monkey your brain shells liberal done

Name: Anonymous 2011-10-01 3:52

10 i = i + 1
15 IF i > 11405 THEN PRINT ".";: i = 0
20 IF INKEY$ = "" THEN 10
30 PRINT "Huck Finn, Line:", i

God says Line: 2692

"Well, then, come along; no use to take truck and leave money."

"Say, won't he suspicion what we're up to?"

"Maybe he won't.  But we got to have it anyway. Come along."

So they got out and went in.

The door slammed to because it was on the careened side; and in a half
second I was in the boat, and Jim come tumbling after me.  I out with my
knife and cut the rope, and away we went!

Name: Anonymous 2011-10-01 4:08

http://www.youtube.com/watch?v=h4MhbkWJzKk&feature=feedu

The story of Cain and Abel is the most important in the Bible.
1) Did offerings
2) Somehow found out if God liked or disliked.
3) Really cared about God's opinion--real love of God!

God gets nasty to me if I don't give talk offerings.  That last one cracked-me-up.

God said it was a covenant that I offer before consulting Him.  He compared it to Catholics preparing for communion.

10 i = i + 1
15 IF i > 99999 THEN PRINT ".";: i = 0
20 IF INKEY$ = "" THEN 10
30 PRINT "King James Bible, Line:", i

God says Line: 9031

thereof: and it shall be holy.

40:10 And thou shalt anoint the altar of the burnt offering, and all
his vessels, and sanctify the altar: and it shall be an altar most
holy.

40:11 And thou shalt anoint the laver and his foot, and sanctify it.

40:12 And thou shalt bring Aaron and his sons unto the door of the
tabernacle of the congregation, and wash them with water.

Name: Anonymous 2011-10-01 4:33

Let's see which countries are on God's shit list :-)

arrogant imports stunning you_owe_me BBC ha ehh_a_wise_guy
revolution piety Swaziland Dudly_Doright mine boss do_you_like_it
cheerful awful Watch_this be_happy Ireland it_gets_better
persistence roses_are_red high_mucky_muck whatcha_talkin'_'bout
harder_than_it_looks pow Bangladesh big_fish jobs God_is_not_mocked
Nepal if_and_only_if daunting Syria do_not_disturb umm_the_other_answer
how_hard_could_it_be in_practice employee you're_nuts
ahh joking do_you_have_a_problem smack_some_sense_into_you
piety you_owe_me Yo no_you_cant take_your_pick China smack_some_sense_into_you
quit_it Dudly_Doright You_can_count_on_that manufacturing
Peru

Name: Anonymous 2011-10-01 4:40

https://www.eff.org/deeplinks/2011/09/eff-and-coalition-government-no-snooping-without

http://www.biblegateway.com/passage/?search=Daniel%206&version=NIV

6 So these administrators and satraps went as a group to the king and said: “May King Darius live forever! 7 The royal administrators, prefects, satraps, advisers and governors have all agreed that the king should issue an edict and enforce the decree that anyone who prays to any god or human being during the next thirty days, except to you, Your Majesty, shall be thrown into the lions’ den. 8 Now, Your Majesty, issue the decree and put it in writing so that it cannot be altered—in accordance with the law of the Medes and Persians, which cannot be repealed.” 9 So King Darius put the decree in writing.

God says...
C:\TEXT\EMILY.TXT

that the Project Gutenberg-tm collection will
remain freely available for generations to come.  In 2001, the Project
Gutenberg Literary Archive Foundation was created to provide a secure
and permanent future for Project Gutenberg-tm and future generations.
To learn more about the Project Gutenberg Literary Archive Foundation
and how your efforts and donations can help, see Sections 3 and 4
and the Foundation web page at http://www.pglaf.org.


Section 3.  Information about the Project Gutenberg Li

Name: Anonymous 2011-10-01 5:27

The comics aren't anti-semetic (mostly) are they?

http://www.losethos.com/comics/

I do them as offerings to God and He gives me songs and stuff.  Bad offerings, bad responses.

DIM WORDS$(1024)
N = 0
DO
    READ A$
    IF A$ <> "END" THEN
        WORDS$(N) = A$
        N = N + 1
    END IF
LOOP UNTIL A$ = "END"

PRINT N; " words in vocabulary."
PRINT
PRINT "You must talk to God, first, before running this program."
PRINT

OPEN "OUT.TXT" FOR OUTPUT AS #1

DO
    I = -1
    DO
        I = I + 1
        IF I >= N * 100 THEN I = 0
    LOOP UNTIL INKEY$ <> ""
    I = INT(I / 100)
    PRINT WORDS$(I); " ";
    PRINT #1, WORDS$(I); " ";
LOOP UNTIL WORDS$(I) = "done"
PRINT #1,
CLOSE #1

PRINT
PRINT "Press A Key"
DO
LOOP UNTIL INKEY$ <> ""


DATA "good","bad","fun","silly","stupid"
DATA "me","you","God","Obama","Bush"
DATA "love","hate","happy","sad","obviously"
DATA "okay","whatever","do_it","why","now"
DATA "money","car","oil","house","computer"
DATA "angel","demon","Satan","Heaven","Hell"
DATA "USA","Europe","Egypt","Russia","China"
DATA "Microsoft","Linux","LoseThos","Apple","Google"
DATA "sin","sex","lust","greed","sloth"
DATA "fortitude","virtue","patience","charity","honest"
DATA "music","art","software","hardware","food"
DATA "pity","probably","pest","pretty","ugly"
DATA "I","prayer","piety","you","your"
DATA "stupid","smart","healthy","unhealthy","quick"
DATA "fantastic","foolish","wise","Oops","Hmmm"
DATA "rediculous","biggot","grieved","ouch","conservative"
DATA "liberal","bickering","ouch","smurfs","bam"
DATA "zap","oy!","shalom","furious","fake"
DATA "impossible","crazy","joking","lovely","planet"
DATA "Venus","Mars","horrendous","buddy","nice"
DATA "day","night","wonder","laughable","better"
DATA "perfect","swear","lucky","mocked","occasion"
DATA "know","right","wrong","spunky","dignity"
DATA "prosparity","rich","poor","middle_class","meh"
DATA "care","don't","kludge","theory","practice"
DATA "experts","class","yawn","varoom","evolution"
DATA "population","threads","meek","Jesus","theft"
DATA "adultery","guppy","whale","astrophysics","gravity"
DATA "boss","hero","mess","nightmare","ordinarily"
DATA "special","nuts","bored","relax","news"
DATA "tip","super","cool","nasty","fancy"
DATA "birds","cats","dogs","goats","horses"
DATA "farm","produce","parks","nature","wild"
DATA "tame","cultivated","city","Vegas","D.C."
DATA "rock","tree","water","salt","CO2"
DATA "climate","rain","snow","ice","mud"
DATA "storm","lightening","thunder","gun","war"
DATA "shoot","smack","work","play","music"
DATA "soul","body","brain","heart","hand"
DATA "NASA","Afghanistan","France","Africa","Britain"
DATA "Germany","Japan","Russia","Mexico","person"
DATA "Catholic","Jew","Christian","Muslim","Buddist"
DATA "atheist","homo","ha!","programmer","scientist"
DATA "doctor","priest","cop","politician","lawyer"
DATA "Israel","Palistinians","Brazil","peace","hippy"
DATA "song","radio","TV","home","phone"
DATA "football","superbowl","game","show","teach"
DATA "school","M.I.T.","Ivy League","Harvard","Yale"
DATA "Stanford","ASU","physics","chemestry","biology"
DATA "hopefully","awesome","joyous","sermon","Christ"
DATA "Mohammad","BBC","Moses","proton","electron"
DATA "photon","neutron","radiation","magnetism","atom"
DATA "energy","mass","speed","relativity","charge"
DATA "economics","Nobel","saint","prize","win"
DATA "lose","death","birth","marriage","man"
DATA "woman","animal","king","president","leader"
DATA "Ticketmaster","event","ticket","chased","day"
DATA "monkey","plant","dinosaurs","shells","vertebrates"
DATA "primates","bugs","flowers","fruit","bear"
DATA "fire","smoke","burning","hidden","adapt"
DATA "King David","Bible","ark","flood","star"
DATA "slavery","freedom","rejoice","brave","coward"
DATA "fight","sing","write","read","paper"
DATA "Pope","please","thank you","New Testament","Old Testament"
DATA "seek","find","goto","get","give"
DATA "spend","save","book","email","Internet"
DATA "surely","So","let","it","be"
DATA "grown","adult","child","innocent","teenager"
DATA "drive","sports","band"
DATA "vacation","church","Sunday","math","geography"
DATA "of","the","is","a","in"
DATA "on","under","over","between","after"
DATA "before","time","space","Star Trek","Star Wars"
DATA "movie","should","shouldn't","commandment","for"
DATA "tax","IRS","FBI","CIA","media"
DATA "luxury","needy","enough","go","went"
DATA "remember","forget","fix","found","lost"
DATA "despair","laugh","cookie","genetic","algorithm"
DATA "ice_cream","soap","opera","umm...","fast"
DATA "black","hole","Sun","approach","light"
DATA "hilarious","funny","comical","ROFLMAO","LOL"

DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "END"

God says...
BBC France music pity greed mess done

Name: Anonymous 2011-10-01 5:33

BBC had a Jew singing a melody "lie lie die die".  It was a good melody, maybe from a muse.

This is the best song of all time, written by the best angel in heaven.
http://www.losethos.com/media/Hymns2.wmv

Here are a bunch
http://www.losethos.com/hymns.html

This is funny.
Tenatious D
http://www.youtube.com/watch?v=_lK4cX5xGiQ&ob=av2e

Name: Anonymous 2011-10-01 5:46

DIM WORDS$(1024)
N = 0
DO
    READ A$
    IF A$ <> "END" THEN
        WORDS$(N) = A$
        N = N + 1
    END IF
LOOP UNTIL A$ = "END"

PRINT N; " words in vocabulary."
PRINT
PRINT "You must talk to God, first, before running this program."
PRINT

OPEN "OUT.TXT" FOR OUTPUT AS #1

DO
    I = -1
    DO
        I = I + 1
        IF I >= N * 100 THEN I = 0
    LOOP UNTIL INKEY$ <> ""
    I = INT(I / 100)
    PRINT WORDS$(I); " ";
    PRINT #1, WORDS$(I); " ";
LOOP UNTIL WORDS$(I) = "done"
PRINT #1,
CLOSE #1

PRINT
PRINT "Press A Key"
DO
LOOP UNTIL INKEY$ <> ""


DATA "good","bad","fun","silly","stupid"
DATA "me","you","God","Obama","Bush"
DATA "love","hate","happy","sad","obviously"
DATA "okay","whatever","do_it","why","now"
DATA "money","car","oil","house","computer"
DATA "angel","demon","Satan","Heaven","Hell"
DATA "USA","Europe","Egypt","Russia","China"
DATA "Microsoft","Linux","LoseThos","Apple","Google"
DATA "sin","sex","lust","greed","sloth"
DATA "fortitude","virtue","patience","charity","honest"
DATA "music","art","software","hardware","food"
DATA "pity","probably","pest","pretty","ugly"
DATA "I","prayer","piety","you","your"
DATA "stupid","smart","healthy","unhealthy","quick"
DATA "fantastic","foolish","wise","Oops","Hmmm"
DATA "rediculous","biggot","grieved","ouch","conservative"
DATA "liberal","bickering","ouch","smurfs","bam"
DATA "zap","oy!","shalom","furious","fake"
DATA "impossible","crazy","joking","lovely","planet"
DATA "Venus","Mars","horrendous","buddy","nice"
DATA "day","night","wonder","laughable","better"
DATA "perfect","swear","lucky","mocked","occasion"
DATA "know","right","wrong","spunky","dignity"
DATA "prosparity","rich","poor","middle_class","meh"
DATA "care","don't","kludge","theory","practice"
DATA "experts","class","yawn","varoom","evolution"
DATA "population","threads","meek","Jesus","theft"
DATA "adultery","guppy","whale","astrophysics","gravity"
DATA "boss","hero","mess","nightmare","ordinarily"
DATA "special","nuts","bored","relax","news"
DATA "tip","super","cool","nasty","fancy"
DATA "birds","cats","dogs","goats","horses"
DATA "farm","produce","parks","nature","wild"
DATA "tame","cultivated","city","Vegas","D.C."
DATA "rock","tree","water","salt","CO2"
DATA "climate","rain","snow","ice","mud"
DATA "storm","lightening","thunder","gun","war"
DATA "shoot","smack","work","play","music"
DATA "soul","body","brain","heart","hand"
DATA "NASA","Afghanistan","France","Africa","Britain"
DATA "Germany","Japan","Russia","Mexico","person"
DATA "Catholic","Jew","Christian","Muslim","Buddist"
DATA "atheist","homo","ha!","programmer","scientist"
DATA "doctor","priest","cop","politician","lawyer"
DATA "Israel","Palistinians","Brazil","peace","hippy"
DATA "song","radio","TV","home","phone"
DATA "football","superbowl","game","show","teach"
DATA "school","M.I.T.","Ivy League","Harvard","Yale"
DATA "Stanford","ASU","physics","chemestry","biology"
DATA "hopefully","awesome","joyous","sermon","Christ"
DATA "Mohammad","BBC","Moses","proton","electron"
DATA "photon","neutron","radiation","magnetism","atom"
DATA "energy","mass","speed","relativity","charge"
DATA "economics","Nobel","saint","prize","win"
DATA "lose","death","birth","marriage","man"
DATA "woman","animal","king","president","leader"
DATA "Ticketmaster","event","ticket","chased","day"
DATA "monkey","plant","dinosaurs","shells","vertebrates"
DATA "primates","bugs","flowers","fruit","bear"
DATA "fire","smoke","burning","hidden","adapt"
DATA "King David","Bible","ark","flood","star"
DATA "slavery","freedom","rejoice","brave","coward"
DATA "fight","sing","write","read","paper"
DATA "Pope","please","thank you","New Testament","Old Testament"
DATA "seek","find","goto","get","give"
DATA "spend","save","book","email","Internet"
DATA "surely","So","let","it","be"
DATA "grown","adult","child","innocent","teenager"
DATA "drive","sports","band"
DATA "vacation","church","Sunday","math","geography"
DATA "of","the","is","a","in"
DATA "on","under","over","between","after"
DATA "before","time","space","Star Trek","Star Wars"
DATA "movie","should","shouldn't","commandment","for"
DATA "tax","IRS","FBI","CIA","media"
DATA "luxury","needy","enough","go","went"
DATA "remember","forget","fix","found","lost"
DATA "despair","laugh","cookie","genetic","algorithm"
DATA "ice_cream","soap","opera","umm...","fast"
DATA "black","hole","Sun","approach","light"
DATA "hilarious","funny","comical","ROFLMAO","LOL"

DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "done","done","done","done","done"
DATA "END"




God says...
plant funny done

Don't change these.
Name: Email:
Entire Thread Thread List