The Twelve Days of Christmas: Difference between revisions

Content added Content deleted
(→‎{{header|Picat}}: Added subsections)
(The Twelve Days of Christmas in BASIC256)
Line 981: Line 981:
220 DATA "Eleven pipers piping"
220 DATA "Eleven pipers piping"
230 DATA "Twelve drummers drumming"</lang>
230 DATA "Twelve drummers drumming"</lang>

=={{header|BASIC256}}==
<lang BASIC256>dim dia$ = {"first","second","third","fourth","fifth","sixth","seventh","eighth","ninth","tenth","eleventh","twelfth"}

dim gift$ = {"A partridge in a pear tree.","Two turtle doves and","Three french hens","Four calling birds","Five golden rings","Six geese a-laying","Seven swans a-swimming","Eight maids a-milking","Nine ladies dancing","Ten lords a-leaping","Eleven pipers piping","Twelve drummers drumming"}

for i = 0 to 11
print "On the "; dia$[i]; " dia of Christmas,"
print "My true love gave to me:"
for j = i to 1 step -1
print gift$[j]
next j
print
next i</lang>


=={{header|BCPL}}==
=={{header|BCPL}}==