What is wrong with BASIC256 1.1.4.0, Windows version? (Documentation Bugs and Problems)

by cub256, Tuesday, February 17, 2015, 14:58 (973 days ago) @ Jim

Hi Jim,

trafficNew, with your corrections, works fine! before I post the code of 99bottles, here is my summary:

On one and the same 64bit Notebook:

Windows 8, basic256 1.1.4.0:
* trafficNew, 99 bottles, both ok

Ubuntu 14.04, basic256 9.6.69 (Ubuntu repositories):
* traffic, trafficNew, 99 bottles, all ok

Ubuntu 14.04 basic256 1.0.0.7 on Wine 1.6.2:
trafficNew, 99 bottles, both ok

Ubuntu 14.04: basic256 1.1.2.3 (1.1.2.3-1~ppa1~trusty, maintainer: jim@renejm.com):
* trafficNew ok
* 99bottles negative, i.e., no sound

Siggi
------------------------------------------------------------------------------
Now the code from http://rosettacode.org/wiki/99_Bottles_of_Beer/Basic#BASIC256

#length of querter and eight note in ms
n4 = 1000 * 60 / 80 / 4*2
n8 = n4 / 2

print "hello"

#frequency of musical notes in hz
e = 330
ef = 311
b = 247
bf = 233
f = 349
c = 262
d = 294
ds = 311
a = 220

dim notes(1)
dim lengs(1)

# redim is automatic when using a {} list to assign an array
notes = {ef, ef, ef, bf, bf, bf, ef, ef, ef, ef, f , f , f , c , c , c , f , d , d , d , d , d , d , d , bf, bf, bf, c , c , ef, ef, ef, ef, ef}
lengs = {n8, n8, n8, n8, n8, n8, n8, n8, n8, n4, n8, n8, n8, n8, n8, n8, n4, n4, n8, n8, n8, n8, n8, n4, n8, n8, n8, n8, n8, n8, n8, n8, n8, n4 }

for x = 99 to 1 step -1
print x
for t = 0 to notes[?]-1
if t = 0 then print x + " bottles of beer on the wall"
if t = 11 then print x + " bottles of beer"
if t = 18 then print "Take one down, pass it around"
if t = 25 then print(x-1) + " bottles of beer on the wall"
sound notes[t], lengs[t]
# pause .002
next t
print
next x


Complete thread:

 RSS Feed of thread

powered by my little forum