Execute HQ9+: Difference between revisions

Content added Content deleted

Inline

@@ Line 56: / Line 56: @@
 =={{header|Applesoft BASIC}}==
-<lang ApplesoftBasic> 10 DIM F(127)
+<lang ApplesoftBasic>100 INPUT "HQ9+ : "; I$
-LET F(ASC("H")) = 1
+LET J$ = I$ + CHR$(13)
-LET F(ASC("Q")) = 2
+LET H$ = "HELLO, WORLD!"
-LET F(ASC("9")) = 3
+LET B$ = "BOTTLES OF BEER"
-LET F(ASC("+")) = 4
+LET W$ = " ON THE WALL"
-LET B$ = " BOTTLES OF BEER"
+LET W$ = W$ + CHR$(13)
-LET W$ = " ON THE WALL"
+FOR I = 1 TO LEN(I$)
-LET W$ = W$ + CHR$(13)
+LET C$ = MID$(J$, I, 1)
+IF C$ = "H" THEN PRINT H$
+IF C$ = "Q" THEN PRINT I$
-INPUT "HQ9+ : "; I$
+LET A = A + (C$ = "+")
+IF C$ <> "9" THEN 280
-LET L = LEN(I$)
+FOR B = 99 TO 1 STEP -1
-IF L THEN GOSUB 130
+PRINT B; " "B$ W$; B; " "B$
-END
+PRINT "TAKE ONE DOWN, ";
+PRINT "PASS IT AROUND"
-FOR I = 1 TO L
-LET C$ = MID$(I$, I, 1)
+PRINT B - 1; " "B$ W$
-LET F = F(ASC(C$))
+NEXT B
+NEXT I</lang>
-ON F GOSUB 190, 210, 230, 300
-NEXT I
-RETURN
-PRINT "HELLO, WORLD!"
-RETURN
-PRINT I$
-RETURN
-FOR B = 99 TO 1 STEP -1
-PRINT B; B$ W$; B; B$
-PRINT "TAKE ONE DOWN, ";
-PRINT "PASS IT AROUND"
-PRINT B - 1; B$ W$
-NEXT B
-RETURN
-LET A = A + 1
-RETURN</lang>
-INPUT"HQ9+: ";I$:N$=CHR$(13):DIMS$(127):S$(ASC("H"))="HELLO, WORLD!"+N$:S$(ASC("Q"))=I$+N$:B$=" BOTTLES OF BEER":W$=" ON THE WALL"+N$:FORI=1TOLEN(I$):C$=MID$(S$(ASC("Q")),I,1):PRINTS$(ASC(C$));:A=A+(C$="+"):IFC$<>"9"THENNEXTI:END
-FORB=99TO1STEP-1:PRINTB;B$W$B;B$N$"TAKE ONE DOWN, PASS IT AROUND"N$B-1;B$W$:NEXTB,I
 =={{header|x86 Assembly}}==