Language Tandy Color BASIC
Date: | 04/16/07 |
Author: | Greg T. Bzdell |
URL: | n/a |
Comments: | 1 |
Info: | n/a |
Score: | (2.30 in 10 votes) |
000 REM 99 BOTTLES OF BEER IN TRS-80 COLOR BASIC VERSION 1 & 2 001 REM BY GREG T. BZDELL IN MARCH 2007. 002 REM THIS PROGRAM IS DESIGNED TO RUN ON THE COCO 1/2 & COCO 3 003 REM AND WILL ASKS WHETHER YOU HAVE A COCO 1/2 OR 004 REM COCO 3 AND IF YOU HAVE A COCO 3, YOU HAVE A CHOICE 005 REM OF WHICH SCREEN SIZE (32X16, 40X24, 0R 80X24). 010 CLS 012 PRINT "ARE YOU USING A COCO 3 (Y OR N)" 014 A$=INKEY$ 016 IF A$<>"N" OR A$<>"Y" THEN GOTO 14 018 IF A$="Y" THEN GOSUB 100 020 CLS 022 FOR B = 99 TO 3 STEP -1 024 PRINT 026 PRINT B;"BOTTLES OF BEER ON THE WALL," 028 PRINT B;"BOTTLES OF BEER." 030 PRINT " TAKE ONE DOWN AND PASS IT AROUND," 032 PRINT B-1;"BOTTLES OF BEER ON THE WALL." 034 NEXT 036 PRINT 038 PRINT " 2 BOTTLES OF BEER ON THE WALL," 040 PRINT " 2 BOTTLES OF BEER." 042 PRINT " TAKE ONE DOWN AND PASS IT AROUND," 044 PRINT " 1 BOTTLE OF BEER ON THE WALL." 046 PRINT 048 PRINT " 1 BOTTLE OF BEER ON THE WALL," 050 PRINT " 1 BOTTLE OF BEER." 052 PRINT " TAKE ONE DOWN AND PASS IT AROUND," 054 PRINT " NO MORE BOTTLES OF BEER ON THE WALL." 056 PRINT 058 PRINT " NO MORE BOTTLES OF BEER ON THE WALL 060 PRINT " NO MORE BOTTLES OF BEER." 062 PRINT " GO TO THE STORE AND BUY SOME MORE. 064 PRINT " 99 BOTTLES OF BEER." 066 PRINT "PRESS R TO RESTART OR E TO END" 098 END 099 STOP 100 REM THIS IS FOR COCO 3 ONLY 102 PRINT "PRESS 1 FOR 32X16" 104 PRINT "PRESS 2 FOR 40X24" 106 PRINT "PRESS 3 FOR 80X24" 108 A$=INKEY$ 110 IF A$<>"1" OR A$<>"2" OR A$<>"3" THEN GOTO 108 112 IF A$="1" THEN WIDTH 32 114 IF A$="2" THEN WIDTH 40 116 IF A$="3" THEN WIDTH 80 118 RETURN
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
barrym said on 09/19/10 06:28:03
This program disappoints me. It goes through the trouble of asking me what screen
size I want (good!), but then makes no attempt to format the text for the selected
width (bad!). It looks good at 40 columns, and like crap otherwise!