Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language FreeBASIC

Date:12/16/05
Author:Michael
URL:n/a
Comments:1
Info:http://freebasic.net http://www.freebasic.de
Score: (2.66 in 47 votes)
Dim bottles as Integer
Dim text as String

screen 12

declare sub dprint(text as string)

For bottles = 99 to 1 Step -1
    text=ltrim$(str$(bottles))+" bottle(s) of beer on the wall . . ."
    dprint text
    text=ltrim$(str$(bottles))+" bottles(s) of beer!"
    dprint text
    text="Take one down, pass it around . . ."
    dprint text
    text=ltrim$(str$(bottles-1))+" bottle(s) of beer on the wall!"
    dprint text
    print
next

Sub dprint(text as string)
    Dim scroll as integer
    static scrollold
    
    for i = 1 to len(text)
        getmouse null,null,scroll

        If scroll<scrollold-1 then scroll=scrollold
        scrollold=scroll
        If scroll>25 Then 
            scroll=25
        Elseif scroll<0 Then
            scroll=0
        End IF
        
        PRINT mid$(text,i,1);
        sleep 50-(scroll*2)
        if inkey$=CHR$(255)+"k" Then end
    next i
    print
end sub

Sleep 
End

Download Source | Write Comment

Alternative Versions

Comments

>>  frog said on 03/27/09 19:29:24

frog Just a little hint: The website freebasic.de has gone out of business. Use www.freebasic-portal.de instead for downloading of the compiler and current information on the compiler in German. ;-)

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!

Name:

eMail:

URL:

Security Code:
  
Comment: