Microsoft Small Basic

Program Listing:

Embed this in your website

MaxX=40' width of the gameboardMaxY=30'heigth of the gameboard

InitialSpeed=5'initial speed. how many steps per secondsppedinc=50'how often speed increasesAllowManyFood="False"'do worm needs to eat before new food arrives?FoodProbability=100'0=never 1000=every step

MinFood=1'minimum food valueMaxFood=10'maximum food value

GraphicsWindow.Show()GraphicsWindow.Title="Worm by GT"GraphicsWindow.Height=MaxY*10GraphicsWindow.Width=MaxX*10Fori=1ToMaxXForj=1ToMaxYArr[i][j]=0EndForEndFor