99 Bottles of Beer/Basic: Difference between revisions
99 Bottles of Beer/Basic en BBC BASIC
(99 Bottles of Beer/Basic en Yabasic) |
(99 Bottles of Beer/Basic en BBC BASIC) |
||
Line 103:
next x
</lang>
==={{header|BBC BASIC}}===
'''Versión más clásica'''
<lang bbcbasic>
REM 99 bottles of beer song BBC BASIC version
REM original code by Stelio Passaris (stelio.net)
:
a$=" bottle"
s$="s"
b$=" of beer"
c$=" on the wall..."
t$="Take one down and pass it around,"
:
VDU14:REM habilita el modo de paginación; pulsa shift para avanzar página.
FOR i% = 99 TO 1 STEP -1
IF i% = 1 THEN s$=""
IF i% < 99 THEN PRINT;i%;a$;s$;b$;c$;"."'
PRINT;i%;a$;s$;b$;c$;","'i%;a$;s$;b$;"."'t$
NEXT i%
PRINT"no more";a$;"s";b$;c$;"."
PRINT'"No more bottles of beer on the wall,"
PRINT"no more bottles of beer."
PRINT"Go to the store and buy some more,"
PRINT"99 bottles of beer on the wall."
VDU15:REM deshabilita el modo de paginación
</lang>
==={{header|BBC BASIC}}===
| |||