Kagi Custom Function?

[Ocean West]

Has any one turned KAGI basic algorithm in to a custom function?

310 LET A$ = ACGPurchaserName$ 

315 let csum = 0 

320 let strlength = len(a$) 

330 for i = 1 to strlength  

340 let char$ = mid$(a$,i,1) 

345 debugprint char$ 

347 print (rnd * 10)*(val(asc$(char$))) 

350 csum = csum+ (rnd(1000) * 10)*(val(asc$(char$))) 

360 next 

370 debugprint int(csum) 

380 PRINT "STATUS=GOOD,seed=" A$ ",key=" int(csum) 

Instructions are attached...

BASICACGHowTo.pdf