Ocean West Posted December 28, 2004 Share Posted December 28, 2004 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 Link to comment Share on other sites More sharing options...
Recommended Posts
This topic is 7065 days old. Please don't post here. Open a new topic instead.
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now