Execute HQ9+: Difference between revisions
Applesoft BASIC
No edit summary |
(Applesoft BASIC) |
||
Line 4:
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}}==
| |||