omschrijven naar proton basic

Wie kan mij helpen om programma omschrijven naar proton basic

CPU = 16F628
MHZ = 4
CONFIG 16216

Flic var word 'Variable to hold random number needs to be word
Flick var nib 'Variable to hold random number narrowed down to a number between 1 and 12
Flicker var byte 'Variable to hold random number converted to a number between 21 and 255 in 12 steps
Lenght var byte
Flic = 38

Main

Flic = random Flic
lookdown Flic,<,[0,5461,10922,16383,21844,27305,32766,38227,43688,49149,54610,60071,65535],Flick 'narrows the random number down to a number between 1 and 12

Lookup Flick, [0,21,42,63,84,105,126,147,168,189,210,231,255], Flicker 'convert number from 1 to 12 to a number between 21 and 255 in 12 steps
Lenght = Flick * 10 'use the number between 1 and 12 to set the legnth of time the pin outputs pwm

pwm B2, Flicker, Lenght
GoTo Main

Groetjes Lowa1