it fails of course for more than 255 chrs
Code:BalBuffer VAR BYTE[300] BalCount VAR word latb.7=1 clear for BalCount= 0 to 59 BalBuffer[BalCount]=BalCount+"0" next for BalCount= 1 to 59 BalBuffer[BalCount+60]=BalCount+"0" next for BalCount= 1 to 59 BalBuffer[BalCount+120]=BalCount+"0" next for BalCount= 1 to 59 BalBuffer[BalCount+180]=BalCount+"0" next for BalCount= 1 to 59 BalBuffer[BalCount+240]=BalCount+"0" next BalBuffer[0]=13 BalBuffer[60]=13 BalBuffer[120]=13 BalBuffer[180]=13 BalBuffer[240]=13 pause 2000 debug "ready",13,10 BalCount = 40 HSEROUT ["40 ",STR BalBuffer\BalCount,13,10] debug "40 ",STR BalBuffer\BalCount,13,10 debug "full load " debug STR BalBuffer,13,10 HSEROUT ["full load ",STR BalBuffer,13,10] BalCount = 255 HSEROUT ["255 ",STR BalBuffer\BalCount,13,10] HSEROUT [13,10] HSEROUT ["260"] BalCount = 260 HSEROUT [STR BalBuffer\BalCount,13,10] end




Bookmarks