Execute HQ9+: Difference between revisions

m
→‎{{header|NS-HUBASIC}}: The NS-HUBASIC code has been optimized to be smaller.
(Add Factor example)
m (→‎{{header|NS-HUBASIC}}: The NS-HUBASIC code has been optimized to be smaller.)
Line 1,329:
<lang NS-HUBASIC>10 INPUT "INPUT HQ9+ CODE: ",I$
20 J$=I$+CHR$(13)
30 B$=" BOTTLES OF BEER"
40 W$=" ON THE WALL"
50 W$=W$+CHR$(13)
Line 1,339:
110 IF C$<>"9" GOTO 190
120 FOR B=99 TO 1 STEP -1
130 PRINT B" "B$ W$
140 PRINT B" "B$
150 PRINT "TAKE ONE DOWN,"
160 PRINT "PASS IT AROUND"
441

edits