Advertisement
imk0tter

Untitled

Apr 5th, 2011
197
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. v1,
  2. v1,
  3. buff,
  4. v2,
  5. v2,
  6. buff,
  7. blank,
  8. 1,
  9. blank,
  10. v1c,
  11. v2c,
  12. blank,
  13. divbuff,
  14. basebuff,
  15. baseflag,
  16. basebuffr,
  17. basebuffr2,
  18. v1neg,
  19. r1,
  20. r2,
  21. r3,
  22. r4,
  23. r5,
  24. r6,
  25. 1,
  26. 1,
  27. 1,
  28. {ref},
  29. 6
  30.  
  31. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  32. [->+>+<<]>>[<<+>>-]>
  33. ++++++++++[>++++++++++[>++++++++++[>++++++++++[>++++++++++<-]<-]<-]<-]>>>>[<<<<+>>>>-]<<<<
  34. [->+>+<<]>>[<<+>>-]>>+>>>>>>>>>>
  35. >>>+>+>+>+>+>+>+>>++++++
  36. [
  37.     <<<<<<<<<<<<<<[-]+                  ;Set base flag to 1
  38.     [
  39.         <<<<<<<<<<<<<                  
  40.         [->>>>>>>>+<<<<<<<<]            ;Copy v1{2} to v1c
  41.         >>>                
  42.         [->>>>>>+<<<<<<]                ;Copy v2{2} to v2c
  43.         <[->+>+<<]>>[<<+>>-]            ;Copy v2{1} to v2{2}
  44.         >>>>
  45.         [>[-<->>>+<]<<]<[>]             ;Clever Subtract v1c from v2c
  46.         >>>>>+<                         ;Add 1 to basebuff
  47.         [-<<<<<<<<->>>>>>>>]            ;Subtract divbuff from v2{2}
  48.         <<<<<<<
  49.         [[-]>>>>>>>>>->-<<<<<<<<<<]     ;if v2{2} isn't empty subtract 1 from basebuff and clear v2{2} and set baseflag to 0
  50.         <[->+>+<<]>>[<<+>>-]            ;copy v2{1} to v2{2}
  51.         >>>>>>>>>                       ;if base flag is 0 end loop
  52.     ]
  53.     <[->>+>+<<<]>>                      ;copy basebuff to basebuffr and basebuffr2
  54.     +[->>>>>>>>>>>[<]<+>>               ;clever byte fill from basebuffr to rx
  55.     [>]<<<<<<<<<<<<]>>>>>>>>>>>        
  56.     [<]>[-]>[>]<<<<<<<<<<<                     
  57.     [-<<<<<<<<<<<<[-]                   ;if basebuffr2 isnt empty copy v2 and multiply basebuffr2 by v2{2}
  58.     <[->+>+<<]>>[<<+>>-]<
  59.     [->>>>>>>>>>>>>+<<<<<<<<<<<<<]
  60.     >>>>>>>>>>>>]>
  61.     [-<<<<<<<<<<<<<<<<<-                ;subtract v1neg from v1{1}
  62.     >>>>>>>>>>>>>>>>>]
  63.     <<<<<<<<<<<<<<<<[-]                 ;clear v1{2}
  64.     <[->+>+<<]>>[<<+>>-]>>              ;copy v1
  65.     [-]<[>>++++++++++[-<<->>]<+<]>      ;divide v2 by 10 and re-set v2{1} and v2{2}
  66.     [->+<<+>]>[-<+>]                   
  67.     >>>>>>>>>>>>>>>>>>>>>>>-            ;subtract 1 from 6
  68. ]
  69. <<<<<<<<<<<
  70. +++++++++++++++++++++++++++++++++++++++++++++++
  71. [->+>+>+>+>+>+<<<<<<]
  72. >.>.>.>.>.>.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement