December 28, 200421 yr 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
Create an account or sign in to comment