Voting
Category
real language
Bookmarking
Language Macintosh WordPerfect
(Has correct "bottles"/'bottle")
| Date: | 04/26/06 |
| Author: | John Rethorst |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://groups.yahoo.com/group/wordperfectmac/ |
| Score: |  (3.50 in 4 votes) |
New Document
Assign (Var01;99)
Repeat
Type Var (Var01)
;
If (Var01=1)
Type ( bottle of beer on the wall, )
Else
Type ( bottles of beer on the wall, )
End If
;
Type Var (Var01)
If (Var01=1)
Type ( bottle of beer,)
Else
Type ( bottles of beer,)
End If
Hard Return
;
Type (Take one down and pass it around, )
Assign (Var01;Var01-1)
;
If (Var01!=0)
Type Var (Var01)
Else
Type (No more)
End If
;
If (Var01=1)
Type ( bottle of beer on the wall.)
Else
Type ( bottles of beer on the wall.)
End If
Hard Return
Hard Return
Until (Var01=0)
;
Type (No more bottles of beer on the wall, )
Type (No more bottles of beer,)
Hard Return
Type (Go to the store and buy some more, )
Type (99 bottles of beer on the wall.)
;
Beep
Beep
Alert ("Buy more beer!")
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments