99 Bottles of Beer

Voting

Bookmarking

Language IBM 4680 BASIC

(As used on the IBM 4690 Store System)

Date:	04/03/06
Author:	Stuart William McConnachie
URL:	n/a
Comments:	1
Info:	http://www.pc.ibm.com/store/
Score:	(3.00 in 26 votes)

!IBM 4680 BASIC Version of "99 Bottles of Beer"
!Stuart William McConnachie 3rd April 2006

INTEGER*2 START.BOTTLES%
INTEGER*2 BOTTLES%


FUNCTION PLURAL$ (NUMBER%, WORD$, ORDINAL$)

    INTEGER*2 NUMBER%
    STRING WORD$
    STRING PLURAL$
    STRING ORDINAL$
    
    STRING SUFFIX$
    STRING NUMBER$
    INTEGER*2 POS%
    INTEGER*2 END%
    INTEGER*2 SPLIT%
    
    POS% = MATCH("[", WORD$, 1)
    IF POS% = 0 THEN POS% = LEN(WORD$) + 1
    END% = MATCH("]", WORD$, POS%)
    IF END% = 0 THEN END% = LEN(WORD$) + 2
    
    SUFFIX$ = MID$(WORD$, POS%+1, END%-POS%-1)
    SPLIT% = MATCH("/", SUFFIX$, 1)
    
    IF NUMBER% = 1 THEN BEGIN
        IF SPLIT% THEN BEGIN
            SUFFIX$ = LEFT$(SUFFIX$,SPLIT%-1)
        ENDIF ELSE BEGIN
            SUFFIX$ = ""
        ENDIF
    ENDIF ELSE BEGIN
        SUFFIX$ = MID$(SUFFIX$, SPLIT%+1, 32767)
    ENDIF
    
    WORD$ = LEFT$(WORD$, POS%-1) + SUFFIX$ + MID$(WORD$, END%+1, 32767)
    
    NUMBER$ = STR$(NUMBER%)
    WHILE LEN(ORDINAL$) <> 0 AND NUMBER% > 0
        POS% = MATCH(",", ORDINAL$, 1)
        IF POS% = 0 THEN POS% = LEN(ORDINAL$) + 1
        ORDINAL$ = MID$(ORDINAL$, POS%+1, 32767)
        NUMBER% = NUMBER% - 1
    WEND
    
    IF LEN(ORDINAL$) THEN BEGIN
        POS% = MATCH(",", ORDINAL$, 1)
        IF POS% = 0 THEN POS% = LEN(ORDINAL$) + 1
        NUMBER$ = LEFT$(ORDINAL$, POS%-1)
    ENDIF    
    
    PLURAL$ = NUMBER$ + " " + WORD$
    
    WORD$ = ""
    SUFFIX$ = ""
    NUMBER$ = ""
    
END FUNCTION
    

FUNCTION BOTTLES$ (NUMBER%)

    INTEGER*2 NUMBER%
    STRING BOTTLES$
    
    BOTTLES$ = PLURAL$ (NUMBER%, "bottle[s] of beer", "no more")
        
END FUNCTION


FUNCTION CAPITAL$ (WORD$)

    STRING WORD$
    STRING CAPITAL$
    
    CAPITAL$ = UCASE$(LEFT$(WORD$,1)) + MID$(WORD$,2,32767)
    WORD$ = ""
    
END FUNCTION


START.BOTTLES% = 99
BOTTLES% = START.BOTTLES%

WHILE BOTTLES% >= 0

    PRINT CAPITAL$(BOTTLES$(BOTTLES%)) + " on the wall, " + BOTTLES$(BOTTLES%) + "."
          
    IF BOTTLES% THEN BEGIN
        PRINT "Take one down and pass it around, " + BOTTLES$(BOTTLES%-1) + " on the wall."
        PRINT
    ENDIF ELSE BEGIN
        PRINT "Go to the store and buy some more, " + BOTTLES$(START.BOTTLES%) + " on the wall."
    ENDIF
    
    BOTTLES% = BOTTLES% - 1
    
WEND

STOP

END

Download Source | Write Comment

Alternative Versions

Comments

HubmaN said on 07/02/06 07:20:02

you call that basic! That oughta be NotSoEasyAtAllBasicWhichWillProbablyBurnYourMindOutBasic.

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!

one program in 1500 variations