VIC20 Haiku Creator - Poetry in 3.5 Kilobytes

Hinzugefügt: 2026-06-04

[00:00:00][music] [music] >> Hi, I'm Doug from Dynamic Computing and welcome to another episode of the Chicken Head Chronicles. My uh occasional series all about the Commodore 8-bit computers.

[00:00:28]So, this week we're going back in time to my Vic-20, which of course, as many of you know, first computer, 1981 or so, picked it up, fell in love, and it started my entire love of computers and Commodore machines in general.

[00:00:44]One thing I always used to do as a kid is program in BASIC on it.

[00:00:49]And I was a year or two before I got any kind of expansion cartridge. I think I got the uh the uh graphics cartridge, the one that adds 3 KB of RAM and adds all those graphics commands. Um then it seems like maybe maybe I got an 8K cartridge at one point in time, but I don't really have solid memories of that. But I think I was limited to to just a total of 8 KB, five on board and then 3K on the uh super expander cartridge.

[00:01:20]But we could do some really cool things with our basic Vic-20s. 5 KB of SRAM memory, 3.5 KB available to BASIC. I was creating custom characters where you take, you know, the the alphanumeric characters and you have this little 8x8 grid and you plot out the little uh poke commands on the grid to reprogram individual 8x8 characters, making custom characters, making custom games. I mean, how many little dudes with two legs, two arms, and a head holding a little sword did I create back in the day? I have no idea, but I created a ton of them. And some cool little fun games based on that, too.

[00:02:00]But, when I got back into retrocomputing back in about 2018 or so, um one of the things I wanted to do was get back in and and cut my teeth maybe doing a little bit of basic programming again. So, I pulled out the old Vic-20 and I decided, probably, I'm thinking 2019 or so, that I was going to write a note a new basic program just on the Vic-20. Once you've learned basic programming and you start, you know, looking at a book maybe that that talks about it, it's the stuff just pops back into your head. You know, I hadn't done a poke command in 35 years. I start looking at the manuals and like, oh yeah, I remember these poke locations. I remember these numbers to change the screen colors and access the audio chip and everything like that.

[00:02:49]But, what I wanted to do was practice some of the more complicated things in basic, like uh arrays, which are actually pretty powerful in Commodore Basic. And a lot of simpler basics back in the day didn't have the ability to handle arrays.

[00:03:03]So, I decided to create a program that generates haikus. And of course, haikus are the Japanese style of poetry where you have five syllable line, a seven syllable line, and then another five syllable line. I thought that'd be pretty fun to just create something that would put strings of characters together and try to create some actual fun poetry out of it. So, that's what I did. So, let's pop on over to the Vic-20 and take a look at what I created a couple of years ago.

[00:03:37]Come on by. And here, of course, is my beautiful Vic-20. This is not my original. My original, I took a Sharpie marker sometime in the '80s and colored the entire thing black in Sharpie marker and then lost track of it. I have no idea where it is. I don't remember throwing it out, but I've never been able to find my original. This is one of my four or five VIC-20s that I own, but it's beautiful. It's got an absolutely gorgeous keyboard, perfectly responsive, everything works great. And we of course have from my friends at The Future Was 8-Bit a Penultimate cartridge in here, which is something you absolutely have to have, and something I don't recall ever doing an official review on even though I've meant to for like 6 years now. And instead of a floppy drive, which I I do own uh a couple of actual 1540 I've got a 1540 drive for the VIC-20, and then I have a 1541 that is in the white 1540 case, which is actually a pretty cool. But instead I'm using an SD to IEC, which uh works kind of like a little uh uh hard drive. It's actually kind of cool. Let's open the VIC-20 up and see what she looks like on screen. Here we are on the lovely VIC-20 screen, and as you can see, I don't have any of the extra memory expansion uh set up right now. We're literally dealing with the 5K that's on board here. The only purpose I have for this uh uh Penultimate cartridge in here is cuz I use it sometimes to uh access the files.

[00:05:09]But really we're going to be relying solely on the SD to IEC to pull it up.

[00:05:14]Let's see what we've got here.

[00:05:20]And it's very, very fast. And there's our Haiku program. So, let's load Haiku 11. And the reason it's called Haiku 11 is it is the eighth generation of the Haiku program.

[00:05:38]One of the cool things, and one of the things I decided to do when I created the Haiku generation program was I wanted to make sure that it was fully compatible just right out of the box with all of the 8-bit Commodore computers. I run this on a Vic 20, I run it on my PET 4032, I run it on my Plus/4, it'll run on my Commodore uh uh 64, Commodore 128 in both 64, 128, and VDC mode. Everything it runs because I kept it simple. I didn't use any pokes or peeks. Let's see what it does. Haiku generator by Douglas Compton. What is your name? Well, considering everybody still calls me Mark for some reason, I know why. Mark, what's your favorite number? Oh, come on. This is an easy one.

[00:06:29]69. Hello Mark, 69's a good number. I will use that number to create a haiku for you. Haiku? Yes or no?

[00:06:38]And just simple, yes.

[00:06:40]One haiku coming up. The snowy ocean, happy silly desert bird, dark ladies running. And you can see that it follows the the uh guidelines for an actual haiku. Five syllables for the first line, seven syllables for the second, five syllables for the third line. And often there's something very nature oriented, which is why I did this.

[00:07:05]It totally created this from random, from a list of of words that I created that we're going to talk about in a minute.

[00:07:12]Some of them are better than others.

[00:07:13]Happy silly desert bird, dark ladies running. Okay, let's do another one.

[00:07:18]Totally random.

[00:07:21]Warm windy rainstorm, sunny single singing bird, fine old men singing.

[00:07:27]Again, totally random.

[00:07:29]Another one?

[00:07:31]Warm melting ocean, muddy tiny darker sky, the stranger singing. See, it reuses some words, obviously, cuz I can't have an 11 million words in here in 3 and 1/2 kilobytes, but it absolutely does grab words randomly from the list I've created and creates a haiku every single time.

[00:07:51]Bright cloudy ocean, muddy silly singing bird. Lots of birds actually. Sad songbird swimming.

[00:08:00]One rainbow autumn, gentle autumn singing bird. Wow, there are a lot of singing birds. Two stray dogs singing.

[00:08:07]Oh, singing dogs, nice.

[00:08:10]Warm melting snowstorm, shady tiny calming lake. Old fishes playing.

[00:08:17]Cool. Now, let's take a look at how this program works. We could do this all day.

[00:08:22]And uh but let's take a look at how it works.

[00:08:26]Thanks for the poetry.

[00:08:30]First of all, we're going to list the program.

[00:08:35]And you can see it's not particularly long.

[00:08:38]I mean, it's a 22 character display.

[00:08:41]It's not particularly long. But let's list through line 60. We'll go through this a line at a time and see what makes this little guy tick.

[00:08:49]Starting off up at the top, of course, we're going to clear the screen, which is simple to do.

[00:08:55]Just the little shift clear home.

[00:08:59]And then I change the character color to black. Now, on a PET computer, it does not care about this because it's just going to be a green screen.

[00:09:07]Uh but on every other Commodore 8-bit, it's going to change the character color to black. If it can't change it to black, it just keeps it its normal color.

[00:09:16]And then uh line 15, haiku generator. I just use some again print characters to space over a little bit and space down. Uh input your name. And I changed the I believe I changed the color there. And it the input is N dollar sign. I literally only use that to keep track of the name. It doesn't do anything else.

[00:09:37]And put your favorite number. I did this just for fun, just to kind of make the numbers a little bit more random. The random number generator on Commodore 8-bits is not entirely random. It's it it does have a pattern, but if you throw in an additional number into it, it does help randomize it a little more. And then I greet myself, "Hello N dollar sign." And then it says, "N is a good number." Great. We I will use that number to create the haiku. And then it asks me if I want to create the haiku, yes or no. And it puts that a wire N in another string. Let's list a little bit more here.

[00:10:22]All right. So, if the answer, that's what AN stands for is answer, is yes, then go to 91. If it's no, then go to 500, which breaks us out of the program. It just says, "Thanks for the poetry." and breaks us out.

[00:10:36]If it's neither of those, if it is neither yes or no, I sarcastically say, "You have a hard time following directions."

[00:10:45]and it goes back and asks you again. So, it literally only accepts yes or no, and if you choose any other character, it just makes fun of you. I put a few remarks in here. Although it does consume some memory, which we are going to be talking about, uh it does consume some memory, uh but I want to be able to remark in the program so I know and other people who use this know what each of the lines does. So, uh remark, uh dim statements pull 30 words into an array to be selected randomly. Each line grabs 10 words and moves into the array and then moves on. Let's see what I'm talking about with the array.

[00:11:21]Here's our actual array.

[00:11:24]Line 91. Dimension that that stands for a basically dimension array. Dimension F1, which is my first variable here. F1 dollar sign means it's a character.

[00:11:37]When you have an array, you tell it how big the array is. This array is nine dimensions. So, basically, we're going to have F1 dollar sign one, F1 dollar sign two, F1 dollar sign three, all the way up to F1 dollar sign nine.

[00:11:54]Then, for F1 equals zero to nine, it counts up to nine. This now tells it read from the data statements that we're going to be looking at in a bit, F1, and then F1, which is so So, the first time it goes through, F1 dollar sign one, it pulls in data. F1 dollar sign two, it pulls in data. F1 dollar sign three, it pulls in data. And it does uh goes through there for an iteration of nine times. Pulls in the first 10 characters. Sorry, it does it 10 times.

[00:12:27]Pulls in the Pulls in the first 10 uh data arrays. Second line, same thing.

[00:12:34]Pulls in the second set of words.

[00:12:36]F2 dollar sign, zero through nine. So, 10 different uh words.

[00:12:42]Then, F3, that is basically pulling in the first line of the haiku, literally the first five syllables of the first line of the haiku. It pulls those in.

[00:12:53]Here's the second.

[00:12:56]And here's the third down here.

[00:12:59]And it just dimensions the same number of uh uh arrays there. Pulls them right in. Now, what is in these arrays?

[00:13:09]We can actually look at those, even though we're in base back to basic, it still has all that information that's read into the arrays. So, if I do print F1 dollar sign one, it pulls in the first thing in the array. Fantastic.

[00:13:26]It was The first word is glad. If I do two.

[00:13:32]The second word is the. Of course, it uh has the the D there.

[00:13:38]If I do three, that's the word one.

[00:13:43]If I do four, see how it stores different variables in the same variable called F1 dollar sign, but it gives it 10 different options. Here's the eighth one.

[00:13:59]cold Here's the ninth one.

[00:14:05]warm Okay. There is no 10 and 11 and 12 cuz I have not defined those arrays. So, if I do dimension of the array 15, nothing because I've never created that length of of uh dimensioned array. If I go on to my third one here, so uh T2 T2 And we're going to look at the fourth dimension.

[00:14:36]old men T2 six stray dogs See how it's pulling those in?

[00:14:45]Let's look a little bit deeper on how it does this.

[00:14:52]There's our our last dimension where it reads in the third set of of words from the third line of the array and stores those in the variable T3. So, we've got F 1 F2 and F3. We have nine different arrays. S1 S2 S3 T1 T through 2 T3 for third.

[00:15:18]Each one of them has 10 different uh dimensions to the array. Think of it like a spreadsheet, okay? So, you've got A B C D E F G, okay? And then you've got 1 2 3 4 5 6 7. So, T3 would be over here, T3, and it would be the ninth one down. If you think of it like a spreadsheet, it makes it make a little more sense. Now, print. Cool. It It clears the screen. Cool. One haiku coming up. Now, I reversed haiku here.

[00:15:50]Reversing works on all of the Commodore computers, not not just the color ones.

[00:15:55]So, that'll come out in reverse text.

[00:15:57]And then I change it the color back.

[00:16:00]Okay. Pick randomly from the dimensioned array for the first line of the poem.

[00:16:06]This is repeated below for each line of the haiku and is printed to screen. So, I've got this variable called variable called F4 equals integer rounded N. That is the number that you typed in, which can be just about any number. It can handle just mostly any number that a Commodore 8-bit can handle. You can have that 65,000, you can have it 69, you can have it 42, whatever.

[00:16:34]Takes that. It bases the random number on that number.

[00:16:38]Nine times plus one, okay? So, that's 10.

[00:16:41]All right. And then F5, it it grabs another random character or random number for that array.

[00:16:51]And here, it grabs yet another random number, okay? So, it's now randomly picked one or zero through nine, okay?

[00:17:00]That's what that does, and it assigns the number zero 1 2 3 4 5 6 7 8 9 to that particular variable, F4 F5 F6.

[00:17:10]Let's keep looking.

[00:17:15]And it prints that first line out. Print F1.

[00:17:19]Okay. First line first character or first set of words for the haiku. And it puts the random one in there. Pops it in there, puts in a space.

[00:17:30]Pops the second word in there based on that random number, puts in a space.

[00:17:37]Third word random number zero through nine, puts in a space. It's just created the first line uh from my my uh dimensioned array and prints it to the screen.

[00:17:48]Line two, same thing.

[00:17:50]Well, we put a space there.

[00:17:52]Second line F S4 S5 S6, it grabs random numbers zero through nine again kind of based on the number you put in. I really don't need that. It wouldn't change it much if I didn't put it in there, but I was having fun.

[00:18:08]Prints that on the screen.

[00:18:09]Creates the third line, set of random numbers pops those on the screen, prints those out.

[00:18:17]That's it. That's what it does.

[00:18:24]So, it prints out the haiku just like we showed earlier. And then it asks, "Do you like my haiku?" Yes or no.

[00:18:30]If you say yes, it goes to this uh line 450.

[00:18:35]"Great, let's do another one." And it'll just keep repeating that. It pauses for 1 second, and then it goes back and it just generates another haiku based on your random number. If you say no, then it goes to 500. "Thanks for the poetry."

[00:18:48]And then the next line is just a break.

[00:18:49]It just breaks out of a basic programming.

[00:18:52]And also, if you do anything besides yes or no, you have a hard time following directions, and it goes back and it just asks you again. It just makes it a loop.

[00:19:00]Basically, so it doesn't error out if you put in the wrong character. It just tells you you put in the wrong character. Now, let's look at how I pulled this data together.

[00:19:13]Our second set for our second line, again, we've got two syllable word here because the second line of a haiku needs to be seven syllables. Flooded, tender, muddy, gentle, shady, happy, forlorn, misty, sunny, foggy, summer, winter, autumn, springtime, etc. Two syllables.

[00:19:34]Now, here we're going three syllables. So, two syllables, two syllables, three syllables. There's our seven syllables.

[00:19:43]So, I picked words in the for this last set of characters in the second line that were three syllables. Dragonfly, butterfly, calming lake. See how you can have two words together with a space? It doesn't care.

[00:19:58]Calm ocean.

[00:20:01]Darker sky. Oh my goodness.

[00:20:05]Calm ocean is one is only two syllables. That's a bug in my program. I need to fix that.

[00:20:11]Darker sky.

[00:20:14]Next data statements, mountain stream, two syllables. Desert bird, two syllables.

[00:20:20]Three syllables.

[00:20:26]Mountain path, warming fire, singing bird. All of those are three syllable words for the the second set of data.

[00:20:40]Lastly, we're going to grab the third line.

[00:20:44]This is also going to be five syllables.

[00:20:46]Let's see if I screwed this up at all. I can't believe after all these years I found a bug.

[00:20:50]This is one syllable for the last line.

[00:20:53]Young, the, three, two, fine, sad, glad, bright, dark, old.

[00:20:59]Next line, or the next word, is going to be two syllables. Crickets, fishes, songbirds, strangers, old men, crayfish, stray dogs.

[00:21:10]Last one is also going to be two syllables. Children, old cats, ladies, eating, sleeping, running, swimming.

[00:21:21]Lie down, go slow, go fast, singing, dreaming, playing. Okay, those are the words that all of my dimensioned arrays pull in.

[00:21:34]So, that would make sense that my last array would say uh playing. So, let's take a look.

[00:21:41]Print P3 nine Whoops. I forgot the dollar sign.

[00:21:52]Playing, see? And then eight would be dreaming.

[00:21:58]Does that make sense? How it pulls in the array, 10 words, pops them into this dimensioned array.

[00:22:07]Uh next would be singing.

[00:22:10]Yep, singing.

[00:22:12]I'm still bugged by that one bug that I found in there.

[00:22:19]Name Doug E. Fresh Favorite number 6767 I will create a haiku. Let's Let's put something else in so you can see the error message. J You have a hard time directions. Haiku, yes or no? Yes.

[00:22:41]Sad snowy ocean, sunny gentle desert bird.

[00:22:46]Three fishes swimming. Hey, see that's that's pretty cool. That's pretty cool.

[00:22:50]We're going to do another haiku.

[00:22:53]Warm chilly daybreak, foggy tiny singing bird, dark old cats sleeping.

[00:23:00]You like my haiku? No.

[00:23:03]Thanks for the poetry. Okay, now how much memory does this really consume? First of all, let's clear things out completely.

[00:23:13]So now we should be able to we should be at a completely free slate here. Let's see how much basic memory we have.

[00:23:20]3581 bytes, okay?

[00:23:23]No problem. Let's go ahead and load haiku 11.

[00:23:37]This is just loading the program into memory now, okay?

[00:23:44]We have one byte free. 1139 uh bytes. We have 1 kilobyte free.

[00:23:52]But here But watch this. This is before the program is executed. Now we're going to execute it. We're going to be putting things into the array. So let's do uh Philbert Schlong.

[00:24:08]Look at that. I tried to use capital letters.

[00:24:11]How funny. 654321.

[00:24:16]Hello Philbert Schlong. Let's see if we can actually Yeah, it works fine in lower case. We'll do them lower case there.

[00:24:22]654321 is a good number. Use that number to create a haiku. Yes.

[00:24:29]Dark green below winter, muddy mountain path, glad stray dogs go fast. Cool.

[00:24:35]We don't like the haiku. Let's go back to capitals.

[00:24:38]But look what happens to our memory here.

[00:24:43]Can anyone in the class tell me why we only have 635 bytes free instead of the 1139 we had before we ran the program?

[00:24:52]That's right, little Billy. It's because after we run it, it takes that data that I keyed in in those data statements and it throws it into those arrays and all of those arrays are still absolutely full. So, if we do print, I think it's N dollar sign, Filbert Schlong.

[00:25:12]Hey, Filbert. And you know that the number print N, that number's still in there. All of those take up data. Print F2 (5) Duggie, why are you forgetting the dollar sign?

[00:25:30]Filbert Schlong would never forget the dollar sign. Call me. That takes up data right there. That's why this takes up more data. This is also why, in order to keep this being able to be run on an unexpanded Vic 20, which was my goal, I can only have a certain number of arrays. Could I make it a little bigger?

[00:25:50]Absolutely. I think if I do the math, I could probably get it up to about um 11 words instead of 10, maybe 12 words if I'm careful, and I would still have a couple bytes of memory free, but I'd be kind of pushing it right there. And then you get to the point where if you have uh like a really long name here, you know, Filbert Schlong Bartholomew uh Spoogenheimer the Fourth, suddenly that takes up more memory and we run out of memory. So, I want there to be just a little bit of a buffer for longer names, things like that. So, I I could probably expand it to 11 words it pulls from instead of 10 and still get away with it, but if I went much beyond that, well, we'd have some issues.

[00:26:37]Now, bonus points for anyone who can tell me why this word is up here. Put it in the comments below. I'm going to have this program available. I'm going to put it up on my Facebook group, the Commodore Technology Facebook group. I'll put a link in the description. I'll see if I can put like a Dropbox link for it. I'll see if I can put the actual text for it on my website. So, you if you go to www.10marc.com.

[00:27:03]Hey, why don't we just type it in?

[00:27:05]10marc.com Let's see if we can go there on the Vic 20.

[00:27:11]Huh? Syntax error. If you go to www.10marc.com, I will have a link there that has the actual code that you can just put right into your computer, your Vic 20, your Commodore 64, whatever. I'll also have a download link there for the actual program.

[00:27:28]All that I ask, if you add or change or do anything, just go ahead and throw me some credit. Leave my Leave my credits in there and don't try and like, you know, take this on as your own creation cuz this is something fun I'm really quite proud of.

[00:27:43]I want to say thank you to all of my absolutely fantastic patrons on Patreon.

[00:27:51]And this is how I want to thank you today.

[00:27:58]You guys are absolutely fantastic. If you want to join in the fun and become part of my my group of Patreons who helps support me, pop over to patreon.com/10marc.

[00:28:10]For as little as two bucks a month, you can sign up. There's even a free tier if you just want to be a, you know, show your support without dropping any money into the the till.

[00:28:20]That's fine. Thank you all so much.

[00:28:26]>> [music] >> So, thanks for joining me today. I really do appreciate it as I'm sitting here playing some Ms. Pac-Man and hopefully not going to get slaughtered.

[00:28:38]Uh please follow me on all of the socials, the Blue Skies, the uh Instagrams, the Facebooks.

[00:28:47]And I just got killed. Uh, follow me on all the socials. Please comment below. I'd love to hear your opinions about the haiku program. I'd love to hear how you could, you know, I could maybe enhance the hi- haiku program.

[00:29:00]Um, make sure you download it from my website. Feel free to play around with it. Feel free to enhance it, but it can just give me a little bit of credit for it.

[00:29:09]But, until next time, this is Doug from the Chicken Head Chronicles and 10-Minute Amiga Retrocast literally signing out.

[00:29:19]Bye-bye.