99 Bottles of Beer/Basic: Difference between revisions
Content added Content deleted
(99 Bottles of Beer/Basic en Yabasic) |
(99 Bottles of Beer/Basic en BBC BASIC) |
||
Line 103: | Line 103: | ||
next x |
next x |
||
</lang> |
</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}}=== |
==={{header|BBC BASIC}}=== |