(With Console mode and create a new startup class.)

STATIC PUBLIC SUB Main()
DIM X AS Integer
DIM ProcStr AS String
FOR X=99 TO 0 STEP -1
ProcStr=X & " bottles of beer"
IF X=1 THEN ProcStr="1 bottle of beer"
IF X=0 THEN ProcStr="No more bottles of beer"
IF X<>99 THEN PRINT "Take on