Voting
Category
real language
Bookmarking
Language Profan
| Date: | 04/20/05 |
| Author: | Rohit Vishal Kumar |
| URL: | n/a |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (3.00 in 208 votes) |
'--------------------------------------------------------------------
'SOURCE CODE TITLE: 99 Bottles of beer on the wall
'--------------------------------------------------------------------
'AUTHOR NAME: Rohit Vishal Kumar
'--------------------------------------------------------------------
'WEB ADDRESS: http://www.angelfire.com/nb/neeraja-rohit/
'--------------------------------------------------------------------
'EMAIL ADDRESS: rohitvk"AT"lycos"DOT"com
'--------------------------------------------------------------------
'SOURCE DATED: 26 January 2002
'--------------------------------------------------------------------
'SOURCE STATUS: Public Domain
'--------------------------------------------------------------------
'DESCRIPTION: This source code was developed as my first
' learning attempt at ProFan 3.3.
' Use it to learn ProFan 3.3.
' You might start liking the language :-)
'--------------------------------------------------------------------
'REQUIREMENTS: Nothing Specific
'--------------------------------------------------------------------
'CREDITS: Developers of Profan - It certainly makes prog-
' ramming a lot of fun
'--------------------------------------------------------------------
' Defining the counter to be used in the Program
DECLARE X%, Y%
' Creating the window
WINDOW 20,20 - 400,400
' Assigning the Title of the Windows
WINDOWTITLE "99 Bottles of Beer on the Wall"
' Printing the Welcome Message on the Screen
PRINT "Welcome to 99 Bottles of Beer..."
PRINT
PRINT "Programmed By - "
PRINT "Rohit Vishal Kumar"
PRINT "Flat No: B-21/11"
PRINT "E.C.T.P. Phase - IV, Type - B"
PRINT "Calcutta - India"
PRINT "Pin : 700 107"
PRINT "Phone : (91-33) 443-5858"
PRINT "Email: rohitvkAThotmailDOTcom"
PRINT
PRINT "Please Press Any Key to Run the Program..."
'Wait for the User to Press Any Key
WAITKEY
' Initialize the variables to be used
LET X% = 1
LET Y% = 99
' Use the While Loop - While X is less than 101
' Note: 101 is used to make the counter go down to zero and print
' going to store message
WHILE @LT(X%, 101)
' Write the Lyrics
PRINT Y%," bottles of beer on the wall"
PRINT Y%," bottles of beer..."
PRINT "Take one down and pass it around..."
' Subtract X from 100
LET Y%=@SUB(100,X%)
' The IF Loop - 1. If Y = 1 then say bottle instead of bottles
' The IF Loop - 2. If Y = 0 then go to the store
' The IF Loop - 3. ELSE Print the message
IF @EQU(Y%,1)
PRINT Y%," beer bottle on the wall."
ELSEIF @EQU(Y%,0)
PRINT
PRINT "Now there are none....."
PRINT "I need some more ......."
PRINT "I am going to the store ... hic :-)"
ELSE
PRINT Y%," beer bottles on the wall."
ENDIF
PRINT
'Increment X by One
LET X%=@ADD(X%,1)
WEND
'Wait for a key press from the user
WAITKEY
'Show the message box with Okay Button
MESSAGEBOX "Thank you very much for Drinking Along with Me...",\
"Shoot...Hic...Shut Program",64
'Finally End the Program
END
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