Jump to content

Execute HQ9+: Difference between revisions

m
→‎{{header|NS-HUBASIC}}: The grammar of 99 Bottles of Beer has been improved.
No edit summary
m (→‎{{header|NS-HUBASIC}}: The grammar of 99 Bottles of Beer has been improved.)
Line 1,565:
90 IF C$<>"9" GOTO 170
100 FOR B=99 TO 1 STEP -1
110 PRINTIF B=1 THEN B$=" W$BOTTLE OF BEER"
120 PRINT B B$ W$
130 PRINT "TAKEB ONE DOWN,"B$
140 PRINT "PASSTAKE ITONE AROUNDDOWN,"
150 PRINT B-1"PASS B$IT W$AROUND"
160 IF B=2 THEN B$=" BOTTLE OF BEER"
160 NEXT
170 IF B=1 THEN B$=" BOTTLES OF BEER"
170 NEXT</lang>
180 PRINT B-1 B$ W$
160190 NEXT
170200 NEXT</lang>
 
=={{header|OCaml}}==
441

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.