20 lines
485 B
Text
20 lines
485 B
Text
10 INPUT "INPUT HQ9+ CODE: ",I$
|
|
20 B$="S"
|
|
30 W$=" ON THE WALL"
|
|
40 FOR I=1 TO LEN(I$)
|
|
50 C$=MID$(I$,I,1)
|
|
60 IF C$="H" THEN PRINT "HELLO, WORLD!"
|
|
70 IF C$="Q" THEN PRINT I$
|
|
80 A=A+(C$="+")
|
|
90 IF C$<>"9" GOTO 200
|
|
100 FOR B=99 TO 1 STEP -1
|
|
110 IF B=1 THEN B$=""
|
|
120 PRINT B " BOTTLE"B$" OF BEER" W$
|
|
130 PRINT B " BOTTLE"B$" OF BEER"
|
|
140 PRINT "TAKE ONE DOWN,"
|
|
150 PRINT "PASS IT AROUND"
|
|
160 IF B=2 THEN B$=""
|
|
170 IF B=1 THEN B$="S"
|
|
180 PRINT B-1 " BOTTLE"B$" OF BEER" W$
|
|
190 NEXT
|
|
200 NEXT
|