Execute HQ9+: Difference between revisions
Content added Content deleted
| Line 62: | Line 62: | ||
50 LET F(ASC("+")) = 4 |
50 LET F(ASC("+")) = 4 |
||
60 LET B$ = " BOTTLES OF BEER" |
60 LET B$ = " BOTTLES OF BEER" |
||
70 LET |
70 LET W$ = " ON THE WALL" |
||
80 LET W$ = W$ + CHR$(13) |
|||
90 INPUT "HQ9+ : "; I$ |
|||
100 LET L = LEN(I$) |
|||
110 IF L THEN GOSUB 130 |
|||
120 END |
|||
130 FOR I = 1 TO L |
|||
140 LET C$ = MID$(I$, I, 1) |
|||
150 LET F = F(ASC(C$)) |
|||
160 ON F GOSUB 190, 210, 230, 300 |
|||
170 NEXT I |
|||
180 RETURN |
|||
190 PRINT "HELLO, WORLD!" |
|||
200 RETURN |
|||
210 PRINT I$ |
|||
220 RETURN |
|||
230 FOR B = 99 TO 1 STEP -1 |
|||
240 PRINT B; B$ W$; B; B$ |
|||
240 PRINT STR$(B) B$ |
|||
250 PRINT "TAKE ONE DOWN, "; |
250 PRINT "TAKE ONE DOWN, "; |
||
260 PRINT "PASS IT AROUND" |
260 PRINT "PASS IT AROUND" |
||
270 PRINT |
270 PRINT B - 1; B$ W$ |
||
280 |
280 NEXT B |
||
290 |
290 RETURN |
||
300 RETURN |
|||
300 LET A = A + 1 |
|||
310 RETURN</lang> |
|||
=={{header|x86 Assembly}}== |
=={{header|x86 Assembly}}== |
||