Rebuilt, refit, and repurposed. Ah, I was getting excited there, even broke out my old tape drive. How far we have come in 25+ years!
To think I went to collage to learn this:
10 FOR B=99 TO 1 STEP -1
20 GOSUB 100
30 T$=T$+" OF BEER ON THE WALL"
40 PRINT T$;", ";T$
50 PRINT "TAKE ONE DOWN AND PASS IT AROUND, "
60 IF B-1<=0 THEN PRINT "NO MORE BOTTLES OF BEER ON THE WALL":GOTO 80
70 GOSUB 200
RINT " OF BEER ON THE WALL"
80 PRINT:NEXT
91 PRINT "GO TO THE STORE AND BUY SOME MORE, 99 BOTTLES OF BEER ON THE WALL"
92 END
100 T$=STR$(B)+" BOTTLE":IF B>1 THEN T$=T$+"S"
110 RETURN
200 A=B-1
RINT STR$(A)+" BOTTLE";
210 IF A>1 THEN PRINT "S";
220 RETURN
<Taken from the web too lazy to write one out for this post>
I must be ancient.