8 lines
256 B
Text
8 lines
256 B
Text
for i = 99L, 0, -1 do begin
|
|
|
|
print, i, format="(I0, 1X, 'bottles of beer on the wall,')"
|
|
print, i, format="(I0, 1X, 'bottles of beer.')"
|
|
print, 'Take one down, pass it around,'
|
|
print, i, format="(I0, 1X, 'bottles of beer on the wall.', /)"
|
|
|
|
endfor
|