Rosetta Code

Execute HQ9+: Difference between revisions

Page Discussion

Execute HQ9+ (view source)

Revision as of 18:18, 19 December 2015

13 bytes removed ,  8 years ago
m
→‎{{header|Applesoft BASIC}}
Line 62:
50 LET F(ASC("+")) = 4
60 LET B$ = " BOTTLES OF BEER"
70 LET OW$ = " ON THE WALL"
80 LET W$ = W$ + CHR$(13)
 
8090 INPUT "HQ9+ : "; I$
 
90100 LET L = LEN(I$)
100110 IF L THEN GOSUB 120130
110120 END
 
120130 FOR I = 1 TO L
130140 LET C$ = MID$(I$, I, 1)
140150 LET F = F(ASC(C$))
150160 ON F GOSUB 180190, 200210, 220230, 310300
160170 NEXT I
170180 RETURN
 
180190 PRINT "HELLO, WORLD!"
190200 RETURN
 
200210 PRINT I$
210220 RETURN
 
220230 FOR B = 99 TO 1 STEP -1
230240 PRINT STR$(B); B$ OW$; B; B$
240 PRINT STR$(B) B$
250 PRINT "TAKE ONE DOWN, ";
260 PRINT "PASS IT AROUND"
270 PRINT STR$(B - 1); B$ OW$
280 NEXT PRINTB
290 NEXT BRETURN
300 RETURN
 
310300 LET A = A + 1
320310 RETURN</lang>
 
=={{header|x86 Assembly}}==
Mmphosis
413

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/120931"