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:
Anonymous2011-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"