Execute HQ9+: Difference between revisions
Content added Content deleted
No edit summary |
(Applesoft BASIC) |
||
| Line 4: | Line 4: | ||
see [[Execute HQ9+/Ada]] |
see [[Execute HQ9+/Ada]] |
||
=={{header|Applesoft BASIC}}== |
|||
<lang ApplesoftBasic> 10 DIM F(127) |
|||
20 LET F(ASC("H")) = 1 |
|||
30 LET F(ASC("Q")) = 2 |
|||
40 LET F(ASC("9")) = 3 |
|||
50 LET F(ASC("+")) = 4 |
|||
60 LET B$ = " BOTTLES OF BEER" |
|||
70 LET O$ = " ON THE WALL" |
|||
80 INPUT "HQ9+ : "; I$ |
|||
90 LET L = LEN(I$) |
|||
100 IF L THEN GOSUB 120 |
|||
110 END |
|||
120 FOR I = 1 TO L |
|||
130 LET C$ = MID$(I$, I, 1) |
|||
140 LET F = F(ASC(C$)) |
|||
150 ON F GOSUB 180, 200, 220, 310 |
|||
160 NEXT I |
|||
170 RETURN |
|||
180 PRINT "HELLO, WORLD!" |
|||
190 RETURN |
|||
200 PRINT I$ |
|||
210 RETURN |
|||
220 FOR B = 99 TO 1 STEP -1 |
|||
230 PRINT STR$(B) B$ O$ |
|||
240 PRINT STR$(B) B$ |
|||
250 PRINT "TAKE ONE DOWN, "; |
|||
260 PRINT "PASS IT AROUND" |
|||
270 PRINT STR$(B - 1) B$ O$ |
|||
280 PRINT |
|||
290 NEXT B |
|||
300 RETURN |
|||
310 LET A = A + 1 |
|||
320 RETURN</lang> |
|||
=={{header|x86 Assembly}}== |
=={{header|x86 Assembly}}== |
||