From Newsgroup: comp.sys.cbm

10 dim wd$(12,32):dim word$(12)
20 wd$(1,1)="The solemn"
30 wd$(1,2)="A calm"
40 wd$(1,3)="The happy"
50 wd$(1,4)="A content"
60 wd$(1,5)="The frightened"
70 wd$(1,6)="A scared"
80 wd$(1,7)="The peaceful"
90 wd$(1,8)="A brash"
100 wd$(1,9)="The violent"
110 wd$(1,10)="A silent"
120 wd$(1,11)="The quiet"
130 wd$(1,12)="An arising"
140 wd$(1,13)="An awakened"
150 wd$(1,14)="The lonely"
160 wd$(1,15)="A golden"
170 wd$(1,16)="The black"
180 wd$(1,17)="A darkened"
190 wd$(1,18)="An empty"
210 wd$(1,19)="The broken"
220 wd$(1,20)="An angry"
230 wd$(1,21)="The vengeful"
240 wd$(2,1)="mist"
250 wd$(2,2)="storm"
260 wd$(2,3)="sea"
270 wd$(2,4)="tree"
280 wd$(2,5)="orchard"
290 wd$(2,6)="chestnut"
300 wd$(2,7)="river"
310 wd$(2,8)="woods"
320 wd$(2,9)="plains"
330 wd$(2,10)="frog"
340 wd$(2,11)="child"
350 wd$(2,12)="man"
360 wd$(2,13)="woman"
370 wd$(2,14)="dog"
380 wd$(2,15)="cat"
390 wd$(2,16)="animal"
400 wd$(2,17)="deer"
410 wd$(2,18)="leaf"
420 wd$(2,19)="water"
430 wd$(2,20)="branch"
440 wd$(2,21)="dew"
450 wd$(3,1)="between"
460 wd$(3,2)="encircles"
470 wd$(3,3)="of"
480 wd$(3,4)="one"
490 wd$(3,5)="its"
500 wd$(3,6)="from"
510 wd$(3,7)="on"
520 wd$(3,8)="at"
530 wd$(3,9)="in"
540 wd$(3,10)="inside"
550 wd$(3,11)="outside"
560 wd$(3,12)="around"
570 wd$(3,13)="over"
580 wd$(3,14)="about"
590 wd$(3,15)="beneath"
600 wd$(3,16)="below"
610 wd$(3,17)="near"
620 wd$(3,18)="beside"
630 wd$(3,19)="beyond"
640 wd$(3,20)="aloft"
650 wd$(3,21)="above"
660 wd$(4,1)="the flurry"
670 wd$(4,2)="a blizzard"
680 wd$(4,3)="the tornado"
690 wd$(4,4)="a icestorm"
700 wd$(4,5)="the hail"
710 wd$(4,6)="a forest"
720 wd$(4,7)="the tree"
730 wd$(4,8)="a drifting cloud"
740 wd$(4,9)="the mountain"
750 wd$(4,10)="a moving fish"
760 wd$(4,11)="the valley"
770 wd$(4,12)="a shifting sand"
780 wd$(4,13)="the lake"
790 wd$(4,14)="a changing wind"
800 wd$(4,15)="the desert"
810 wd$(4,16)="a hopping frog"
820 wd$(4,17)="the hillside"
830 wd$(4,18)="a flying bird"
840 wd$(4,19)="the pond"
850 wd$(4,20)="a crawling worm"
860 wd$(4,21)="the sky"
870 wd$(5,1)="recalls"
880 wd$(5,2)="remembers"
890 wd$(5,3)="evokes"
900 wd$(5,4)="removes"
901 wd$(5,5)="recalled"
902 wd$(5,6)="remembered"
903 wd$(5,7)="evoked"
904 wd$(5,8)="removed"
905 wd$(5,9)="revives"
906 wd$(5,10)="extracts"
907 wd$(5,11)="arouses"
908 wd$(5,12)="revived"
909 wd$(5,13)="extracted"
910 wd$(5,14)="aroused"
911 wd$(5,15)="displaces"
912 wd$(5,16)="displaced"
913 wd$(5,17)="uproots"
914 wd$(5,18)="uprooted"
915 wd$(5,19)="raises"
916 wd$(5,20)="raised"
917 wd$(5,21)="discards"
918 wd$(6,1)="between"
919 wd$(6,2)="encircles"
920 wd$(6,3)="of"
921 wd$(6,4)="one"
922 wd$(6,5)="its"
923 wd$(6,6)="from"
924 wd$(6,7)="on"
925 wd$(6,8)="at"
926 wd$(6,9)="in"
927 wd$(6,10)="inside"
928 wd$(6,11)="outside"
929 wd$(6,12)="around"
930 wd$(6,13)="over"
931 wd$(6,14)="about"
932 wd$(6,15)="beneath"
933 wd$(6,16)="below"
934 wd$(6,17)="near"
935 wd$(6,18)="beside"
936 wd$(6,19)="beyond"
937 wd$(6,20)="aloft"
938 wd$(6,21)="above"
939 wd$(7,1)="the twisting"
940 wd$(7,2)="a swirling"
941 wd$(7,3)="the turning"
942 wd$(7,4)="a burning"
943 wd$(7,5)="the moving"
944 wd$(7,6)="a reaching"
945 wd$(7,7)="the falling"
946 wd$(7,8)="a dying"
947 wd$(7,9)="the decaying"
948 wd$(7,10)="a twisted"
949 wd$(7,11)="the turned"
950 wd$(7,12)="a burned"
951 wd$(7,13)="the moved"
952 wd$(7,14)="a falling"
953 wd$(7,15)="the rising"
954 wd$(7,16)="a risen"
955 wd$(7,17)="the climbing"
956 wd$(7,18)="a silent"
957 wd$(7,19)="the spirited "
958 wd$(7,20)="a quiet"
959 wd$(7,21)="the spirit"
960 wd$(8,1)="fire"
961 wd$(8,2)="wind"
962 wd$(8,3)="rain"
963 wd$(8,4)="lightning"
964 wd$(8,5)="sunset"
965 wd$(8,6)="sunrise"
966 wd$(8,7)="sun"
967 wd$(8,8)="moon"
968 wd$(8,9)="night"
969 wd$(8,10)="day"
970 wd$(8,11)="evening"
971 wd$(8,12)="morning"
972 wd$(8,13)="embers"
973 wd$(8,14)="leaves"
974 wd$(8,15)="raindrops"
975 wd$(8,16)="sparks"
976 wd$(8,17)="sunlight"
977 wd$(8,18)="moonlight"
978 wd$(8,19)="end"
979 wd$(8,20)="beginning"
980 wd$(8,21)="eternity"
981 for x=1 to 8:randomize timer:i=int(rnd*21)+1:if i=22 then randomize timer:i=int(rnd*20)+1
982 word$(x)=wd$(x,i)
983 if word$(3)=word$(6) then randomize
timer:i=int(rnd*20)+1:word$(6)=wd$(6,i)
984 next x
985 if word$(3)=word$(6) then word$(3)="":word$(6)=""
986 COLOR 7,1:CLS:COLOR 7,1:PRINT "RANDOM HAIKU GENERATOR":PRINT "By:
Paul Panks":PRINT
987 PRINT "' ";:for x=1 to 3:print word$(x);" ";:next
988 ?:PRINT " ";:for x=4 to 6:print word$(x);" ";:next
989 ?:PRINT " ";:for x=7 to 8:print word$(x);" ";:next:?"'"
990 ?
991 INPUT"Another Haiku (Y/N)?",A$
992 if A$="y" or A$="Y" then run
993 if a$="n" or A$="N" then end
994 end

--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

Hi Paul,

dunric@yahoo.com wrote:

10 dim wd$(12,32):dim word$(12)
20 wd$(1,1)="The solemn"
30 wd$(1,2)="A calm"
40 wd$(1,3)="The happy"
50 wd$(1,4)="A content"
60 wd$(1,5)="The frightened"
70 wd$(1,6)="A scared"
80 wd$(1,7)="The peaceful"
90 wd$(1,8)="A brash"
100 wd$(1,9)="The violent"
110 wd$(1,10)="A silent"
120 wd$(1,11)="The quiet"
130 wd$(1,12)="An arising"
140 wd$(1,13)="An awakened"
150 wd$(1,14)="The lonely"
160 wd$(1,15)="A golden"
170 wd$(1,16)="The black"
180 wd$(1,17)="A darkened"
190 wd$(1,18)="An empty"
210 wd$(1,19)="The broken"
220 wd$(1,20)="An angry"
230 wd$(1,21)="The vengeful"
240 wd$(2,1)="mist"
250 wd$(2,2)="storm"
260 wd$(2,3)="sea"
270 wd$(2,4)="tree"
280 wd$(2,5)="orchard"
290 wd$(2,6)="chestnut"
300 wd$(2,7)="river"
310 wd$(2,8)="woods"
320 wd$(2,9)="plains"
330 wd$(2,10)="frog"
340 wd$(2,11)="child"
350 wd$(2,12)="man"
360 wd$(2,13)="woman"
370 wd$(2,14)="dog"
380 wd$(2,15)="cat"
390 wd$(2,16)="animal"
400 wd$(2,17)="deer"
410 wd$(2,18)="leaf"
420 wd$(2,19)="water"
430 wd$(2,20)="branch"
440 wd$(2,21)="dew"
450 wd$(3,1)="between"
460 wd$(3,2)="encircles"
470 wd$(3,3)="of"
480 wd$(3,4)="one"
490 wd$(3,5)="its"
500 wd$(3,6)="from"
510 wd$(3,7)="on"
520 wd$(3,8)="at"
530 wd$(3,9)="in"
540 wd$(3,10)="inside"
550 wd$(3,11)="outside"
560 wd$(3,12)="around"
570 wd$(3,13)="over"
580 wd$(3,14)="about"
590 wd$(3,15)="beneath"
600 wd$(3,16)="below"
610 wd$(3,17)="near"
620 wd$(3,18)="beside"
630 wd$(3,19)="beyond"
640 wd$(3,20)="aloft"
650 wd$(3,21)="above"
660 wd$(4,1)="the flurry"
670 wd$(4,2)="a blizzard"
680 wd$(4,3)="the tornado"
690 wd$(4,4)="a icestorm"
700 wd$(4,5)="the hail"
710 wd$(4,6)="a forest"
720 wd$(4,7)="the tree"
730 wd$(4,8)="a drifting cloud"
740 wd$(4,9)="the mountain"
750 wd$(4,10)="a moving fish"
760 wd$(4,11)="the valley"
770 wd$(4,12)="a shifting sand"
780 wd$(4,13)="the lake"
790 wd$(4,14)="a changing wind"
800 wd$(4,15)="the desert"
810 wd$(4,16)="a hopping frog"
820 wd$(4,17)="the hillside"
830 wd$(4,18)="a flying bird"
840 wd$(4,19)="the pond"
850 wd$(4,20)="a crawling worm"
860 wd$(4,21)="the sky"
870 wd$(5,1)="recalls"
880 wd$(5,2)="remembers"
890 wd$(5,3)="evokes"
900 wd$(5,4)="removes"
901 wd$(5,5)="recalled"
902 wd$(5,6)="remembered"
903 wd$(5,7)="evoked"
904 wd$(5,8)="removed"
905 wd$(5,9)="revives"
906 wd$(5,10)="extracts"
907 wd$(5,11)="arouses"
908 wd$(5,12)="revived"
909 wd$(5,13)="extracted"
910 wd$(5,14)="aroused"
911 wd$(5,15)="displaces"
912 wd$(5,16)="displaced"
913 wd$(5,17)="uproots"
914 wd$(5,18)="uprooted"
915 wd$(5,19)="raises"
916 wd$(5,20)="raised"
917 wd$(5,21)="discards"
918 wd$(6,1)="between"
919 wd$(6,2)="encircles"
920 wd$(6,3)="of"
921 wd$(6,4)="one"
922 wd$(6,5)="its"
923 wd$(6,6)="from"
924 wd$(6,7)="on"
925 wd$(6,8)="at"
926 wd$(6,9)="in"
927 wd$(6,10)="inside"
928 wd$(6,11)="outside"
929 wd$(6,12)="around"
930 wd$(6,13)="over"
931 wd$(6,14)="about"
932 wd$(6,15)="beneath"
933 wd$(6,16)="below"
934 wd$(6,17)="near"
935 wd$(6,18)="beside"
936 wd$(6,19)="beyond"
937 wd$(6,20)="aloft"
938 wd$(6,21)="above"
939 wd$(7,1)="the twisting"
940 wd$(7,2)="a swirling"
941 wd$(7,3)="the turning"
942 wd$(7,4)="a burning"
943 wd$(7,5)="the moving"
944 wd$(7,6)="a reaching"
945 wd$(7,7)="the falling"
946 wd$(7,8)="a dying"
947 wd$(7,9)="the decaying"
948 wd$(7,10)="a twisted"
949 wd$(7,11)="the turned"
950 wd$(7,12)="a burned"
951 wd$(7,13)="the moved"
952 wd$(7,14)="a falling"
953 wd$(7,15)="the rising"
954 wd$(7,16)="a risen"
955 wd$(7,17)="the climbing"
956 wd$(7,18)="a silent"
957 wd$(7,19)="the spirited "
958 wd$(7,20)="a quiet"
959 wd$(7,21)="the spirit"
960 wd$(8,1)="fire"
961 wd$(8,2)="wind"
962 wd$(8,3)="rain"
963 wd$(8,4)="lightning"
964 wd$(8,5)="sunset"
965 wd$(8,6)="sunrise"
966 wd$(8,7)="sun"
967 wd$(8,8)="moon"
968 wd$(8,9)="night"
969 wd$(8,10)="day"
970 wd$(8,11)="evening"
971 wd$(8,12)="morning"
972 wd$(8,13)="embers"
973 wd$(8,14)="leaves"
974 wd$(8,15)="raindrops"
975 wd$(8,16)="sparks"
976 wd$(8,17)="sunlight"
977 wd$(8,18)="moonlight"
978 wd$(8,19)="end"
979 wd$(8,20)="beginning"
980 wd$(8,21)="eternity"
981 for x=1 to 8:randomize timer:i=int(rnd*21)+1:if i=22 then
randomize timer:i=int(rnd*20)+1
982 word$(x)=wd$(x,i)
983 if word$(3)=word$(6) then randomize timer:i=int(rnd*20)+1:word$(6)=wd$(6,i)
984 next x
985 if word$(3)=word$(6) then word$(3)="":word$(6)=""
986 COLOR 7,1:CLS:COLOR 7,1:PRINT "RANDOM HAIKU GENERATOR":PRINT "By:
Paul Panks":PRINT
987 PRINT "' ";:for x=1 to 3:print word$(x);" ";:next
988 ?:PRINT " ";:for x=4 to 6:print word$(x);" ";:next
989 ?:PRINT " ";:for x=7 to 8:print word$(x);" ";:next:?"'"
990 ?
991 INPUT"Another Haiku (Y/N)?",A$
992 if A$="y" or A$="Y" then run
993 if a$="n" or A$="N" then end
994 end

Just quickly looking at this code, shouldn't this line:

10 dim wd$(12,32):dim word$(12)

be:

10 dim wd$(8,21),word$(12)

^ ^^ ---- note these values are what I think is correct,
looking at your program.

Note also, that your arrays are 1 based and in C= BASIC (I think) all arrays are 0 based, so you could make these arrays smaller by 1 if you
made them zero based (in your code).

986 COLOR 7,1:CLS:COLOR 7,1:PRINT "RANDOM HAIKU GENERATOR":PRINT "By:
Paul Panks":PRINT

Also, I don't really know why you would need to do a "COLOR 7,1" command twice in line 986 (once is enough!).

993 if a$="n" or A$="N" then end

Delete line 993 as it has no real effect. :-) NB -- this would have
the effect that "y" or "Y" re-RUNs the program and all other inputs END
the program -- which is what happens now.

Haven't checked your HAIKU generating logic.

--
Regards,
Peter W. :-)))
Sandy Bay, Hobart, Tas, AU.
My homepage: http://nav.to/pew

(delete silly boy to reply via email).
--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

ALSO..... lines 981 and983 contain "randomize timer". This is
definately not Commodore 8-bit code.

All kidding aside, if you're gonna post whole programs in the
newsgroup, at least post Commodore programs. This appears to be for an
IBM type of BASIC.

James
www.cbm264.com

--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

<dunric@yahoo.com> wrote in message news:1122186944.116177.59040@o13g2000cwo.googlegroups.com...

10 dim wd$(12,32):dim word$(12)
20 wd$(1,1)="The solemn"
30 wd$(1,2)="A calm"
...

How about collapsing all of those single array stores into a READ loop and putting your strings in DATA statements?

--
White Flame (aka David Holz)
http://www.white-flame.com/
(spamblock in effect)


--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

White Flame (aka David Holz) wrote:

<dunric@yahoo.com> wrote in message news:1122186944.116177.59040@o13g2000cwo.googlegroups.com...

10 dim wd$(12,32):dim word$(12)
20 wd$(1,1)="The solemn"
30 wd$(1,2)="A calm"
...

How about collapsing all of those single array stores into a READ loop and putting your strings in DATA statements?

Microscopic version emailed privately to author.

Available here temporarily:
http://jonripley.com/~jon/haiku.txt

Have fun,
Jon Ripley
--
http://jonripley.com/
--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

White Flame (aka David Holz) <whiteflame52@y.a.h.o.o.com> wrote:

How about collapsing all of those single array stores into a READ
loop and putting your strings in DATA statements?

Dunric made it right imo. The way he has done should use less memory.
Data should be read back in the arrays, thus using double memory for
nothing.

--
-=[]=---iAN CooG/HokutoForce+TWT---=[]=-


--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

On Sun, 24 Jul 2005 15:39:46 GMT, "iAN CooG" <iancoog@despammed.com>
wrote:

White Flame (aka David Holz) <whiteflame52@y.a.h.o.o.com> wrote:

How about collapsing all of those single array stores into a READ
loop and putting your strings in DATA statements?

Dunric made it right imo. The way he has done should use less memory.
Data should be read back in the arrays, thus using double memory for
nothing.

It would probably be the same no matter which way you do it, unless
the version of Basic you are using supports static variable
initialization.

With the DATA - READ version, you get a copy of the strings in the
data area, and another in the string pool after all the reads.

With the version I saw posted - LET statements - you get a copy in the
string constant area (OR in older basics, a copy in the code) , and
another in the string pool after the assigns.

If you were to append all of the string data at the end of the
executable, or in windows string resources, you would have a copy in
the file, and another in the string pool after you read it.

If you were to have the strings in a seperate file, you would have a
copy there, and a copy in the string pool, after you read it.
However, this method would have the smallest exectuable and smallest
memory usage.

You just can't win.

--
ArarghMail507 at [drop the 'http://www.' from ->] http://www.arargh.com
BCET Basic Compiler Page: http://www.arargh.com/basic/index.html

To reply by email, remove the garbage from the reply address.
--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

"iAN CooG" <iancoog@despammed.com> wrote in message news:6DOEe.14951$a5.216018@twister2.libero.it...

Dunric made it right imo. The way he has done should use less memory.
Data should be read back in the arrays, thus using double memory for
nothing.

At least in the C64 BASIC (afair), if you don't modify the string, the
arrays should still point to the string data inside the BASIC program space. Once you modify them, though, a new string is created on the heap, and the other one is unreferenced (either to be garbage collected if the original string was on the heap as well, or since it was in the program space to
begin with, simply forgotten).

--
White Flame (aka David Holz)
http://www.white-flame.com/
(spamblock in effect)


--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

dunric@yahoo.com wrote:

982 word$(x)=wd$(x,i)

Will produce a SYNTAX ERROR. String variable WORD$ is invalid as it
contains the basic keyword OR.
--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm


"Guinness" wrote ...

dunric@yahoo.com wrote:

982 word$(x)=wd$(x,i)

Will produce a SYNTAX ERROR. String variable WORD$ is invalid as it
contains the basic keyword OR.

Yea, it looks like a QBasic program with line numbers added, and a couple of lines changed to BASIC 7.0

He needs to change _several_ other lines to complete the port to Commodore Basic.
--
Best regards,

Sam Gillett

Change is inevitable,
except from vending machines!



--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

Hello Sam,

I just uploaded the second version based on the version I posted here.
I changed a few things to make it more fluid sounding.

It's on my page at:

http://www.geocities.com/dunric/pauladv.html

(scroll down to the very bottom to download HAIKU64)

Paul

Sam Gillett wrote:

"Guinness" wrote ...

dunric@yahoo.com wrote:

982 word$(x)=wd$(x,i)

Will produce a SYNTAX ERROR. String variable WORD$ is invalid as it contains the basic keyword OR.

Yea, it looks like a QBasic program with line numbers added, and a couple of lines changed to BASIC 7.0

He needs to change _several_ other lines to complete the port to Commodore Basic.
--
Best regards,

Sam Gillett

Change is inevitable,
except from vending machines!

--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

<dunric@yahoo.com> wrote in message news:1122186944.116177.59040@o13g2000cwo.googlegroups.com...

10 dim wd$(12,32):dim word$(12)
20 wd$(1,1)="The solemn"
30 wd$(1,2)="A calm"
40 wd$(1,3)="The happy"
50 wd$(1,4)="A content"
60 wd$(1,5)="The frightened"
70 wd$(1,6)="A scared"

Your haiku sucks, dude {$1 to someone in RSFC}


--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

Yeah, it sucks. ($5) :) By the way, how do you know this newsgroup?
Paul
Frisbee® wrote:

<dunric@yahoo.com> wrote in message news:1122186944.116177.59040@o13g2000cwo.googlegroups.com...

10 dim wd$(12,32):dim word$(12)
20 wd$(1,1)="The solemn"
30 wd$(1,2)="A calm"
40 wd$(1,3)="The happy"
50 wd$(1,4)="A content"
60 wd$(1,5)="The frightened"
70 wd$(1,6)="A scared"

Your haiku sucks, dude {$1 to someone in RSFC}

--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

<dunric@yahoo.com> wrote in message news:1122519537.897497.5020@g43g2000cwa.googlegroups.com...
Yeah, it sucks. ($5) :) By the way, how do you know this newsgroup?


I'm a BASIC programmer, too. From WAY back when.


--- Synchronet 3.18b-Win32 NewsLink 1.113

From Newsgroup: comp.sys.cbm

Wow, small world!
Paul
Frisbee® wrote:

<dunric@yahoo.com> wrote in message news:1122519537.897497.5020@g43g2000cwa.googlegroups.com...
Yeah, it sucks. ($5) :) By the way, how do you know this newsgroup?

I'm a BASIC programmer, too. From WAY back when.

--- Synchronet 3.18b-Win32 NewsLink 1.113