99 Bottles of Beer

Voting

Bookmarking

Language QModem Script

Date:	05/22/05
Author:	Mike Gogulski
URL:	n/a
Comments:	1
Info:	http://shareware.pcmag.com/category.php%5Bid%5D239%5BSiteID%5Dpcmag
Score:	(2.69 in 80 votes)

; QModem Script version of 99 Bottles of beer
; By Mike Gogulski <mike@gogulski.com> 21 March 2005
; QModem is a terminal program for MS-DOS
;
; Tested with:
;   QModem 4.6 Test Drive
(http://shareware.pcmag.com/category.php%5Bid%5D239%5BSiteID%5Dpcmag)
;   under MS-DOS 7.10 (http://newdos.yginfo.net/msdos71/)
;   under VMware Workstation 4.5.2-8848 (http://www.vmware.com/)
;   under Windows 2000 (http://www.microsoft.com/)
;
; Save as 99bottlz.qsc, start with "qmodem /s=99bottlz.qsc"
 
ASSIGN 0 99
LOOP:
 DISPLAYLN "$0 bottle(s) of beer on the wall,"
 DISPLAYLN "$0 bottle(s) of beer!"
 DISPLAYLN "Take one down, pass it around,"
 DECR 0
 DISPLAYLN "$0 bottle(s) of beer on the wall!"
 IF $0 = 0 DONE
 GOTO LOOP
DONE:
EXIT

Download Source | Write Comment

Alternative Versions

Comments

John Friel said on 02/13/09 14:25:40

Ha-ha! In all my years as the original author of Qmodem, I never heard of this. Thank you for making me smile today.

Cheers!

John Friel
Qmodem author.

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