Next

100 CLS: PRINT

110 PRINT "Once upon a "; F$(1);" there was a "; F$(2); 120 PRINT " who liked to"; F$(3);" all of the time." 130 PRINT: PRINT "Well, one day he decided to have some"; F$(4)

140 PRINT "and "; F$(5);" it. He did this until he wanted not so much

150 PRINT "to"; F$(5);" as he wanted to"; F$(6);" it. 160 PRINT: PRINT "So, he just made a sandwich of"; F$(7);"; F$(8);" and"

170 PRINT F$(9);" -- which he ate with just two big gulps!

180 PRINT: PRINT "After that he got so sick that he had to"; F$(10)

190 PRINT "all the way home.

200 PRINT: PRINT "But the"; F$(2);" learned his lesson and he never wanted to

210 PRINT F$(3);" ever again, nor to eat"; F$(7);","; F$(8);" and "; F$(9) 220 PRINT "ever again.

1000 DATA singular noun, singular noun, verb infinitive, noun, transitive verb, transitive verb, noun, noun, noun, verb infinitive

Forthe program, an infinitive verb form is "to" plus verb, such as to go, to run, to hit, ejc. Note that it is not necessary to input the "to" portion when prompted for an infinitive.

By the way, this is how programs work to address you by name. Once they ask your name, the program prints out text plus the input strings. One TRS-80 program I recall used to go further and check for popular obscenities. Comedian Robert Klein mentions playing with an Apple II in this way, but it would be - alas! -inappropriate to repeat that humorous episode here.

0 0

Post a comment