The Twelve Days of Christmas: Difference between revisions
Content deleted Content added
→{{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}}== |