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