Learn to Program with Small Basic

Figure 16-1 shows the user interface for the application.
Figure 16-1: The user interface for Poet.sb
Every time you click the New button, the poet recites a new poem. Each
poem includes three lines that follow these patterns:
• Line 1: article, adjective, noun
• Line 2: article, noun, verb, preposition, article, adjective, noun
• Line 3: adjective, adjective, noun
The following sections guide you through the creation of this program.
Step 1: Open the Startup File
Open the file Poet_Incomplete.sb from this chapter’s folder. The file contains
one subroutine named CreateLists(), which creates the five lists you’ll need
in this program. This subroutine was added to save you from having to type
a whole bunch of words. This is what it looks like:
Sub CreateLists
article = "1=a;2=the;...;5=every;"
adjective = "1=beautiful;2=blue;...;72=young;"
noun = "1=baby;2=bird;...;100=winter;"
verb = "1=admires;2=amuses;...;92=whispers;"
prepos = "1=about;2=above;...;37=without;"
EndSub
The ellipses (...) take the place of the missing array elements, but you
can see all these elements when you open the file. Note that the article
array also includes other determiners, such as one, each, and every.
236 Chapter 16