Advertisement
imk0tter

Untitled

Apr 5th, 2011
210
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  2. [->+>+<<]>>[<<+>>-]>
  3. ++++++++++[>++++++++++[>++++++++++[>++++++++++[>++++++++++<-]<-]<-]<-]>>>>[<<<<+>>>>-]<<<<
  4. [->+>+<<]>>[<<+>>-]>>+>>>>>>>>>>
  5. >>>+>+>+>+>+>+>+>>++++++
  6. [
  7.     <<<<<<<<<<<<<<[-]+                  ;Set base flag to 1
  8.     [
  9.         <<<<<<<<<<<<<                  
  10.         [->>>>>>>>+<<<<<<<<]            ;Copy v1{2} to v1c
  11.         >>>                
  12.         [->>>>>>+<<<<<<]                ;Copy v2{2} to v2c
  13.         <[->+>+<<]>>[<<+>>-]            ;Copy v2{1} to v2{2}
  14.         >>>>
  15.         [>[-<->>>+<]<<]<[>]             ;Clever Subtract v1c from v2c
  16.         >>>>>+<                         ;Add 1 to basebuff
  17.         [-<<<<<<<<->>>>>>>>]            ;Subtract divbuff from v2{2}
  18.         <<<<<<<
  19.         [[-]>>>>>>>>>->-<<<<<<<<<<]     ;if v2{2} isn't empty subtract 1 from basebuff and clear v2{2} and set baseflag to 0
  20.         <[->+>+<<]>>[<<+>>-]            ;copy v2{1} to v2{2}
  21.         >>>>>>>>>+-                     ;if basebuff is 0 end loop
  22.     ]
  23.     <[->>+>+<<<]>>                      ;copy basebuff to basebuffr and basebuffr2
  24.     +[->>>>>>>>>>>[<]<+>>               ;clever byte fill from basebuffr to rx
  25.     [>]<<<<<<<<<<<<]>>>>>>>>>>>        
  26.     [<]>[-]>[>]<<<<<<<<<<<                     
  27.     [-<<<<<<<<<<<<[-]                   ;if basebuffr2 isnt empty copy v2 and multiply basebuffr2 by v2{2}
  28.     <[->+>+<<]>>[<<+>>-]<
  29.     [->>>>>>>>>>>>>+<<<<<<<<<<<<<]
  30.     >>>>>>>>>>>>]>
  31.     [-<<<<<<<<<<<<<<<<<-                ;subtract v1neg from v1{1}
  32.     >>>>>>>>>>>>>>>>>]
  33.     <<<<<<<<<<<<<<<<[-]                 ;clear v1{2}
  34.     <[->+>+<<]>>[<<+>>-]>>              ;copy v1
  35.     [-]<[>>++++++++++[-<<->>]<+<]>      ;divide v2 by 10 and re-set v2{1} and v2{2}
  36.     [->+<<+>]>[-<+>]                   
  37.     >>>>>>>>>>>>>>>>>>>>>>>-            ;subtract 1 from 6
  38. ]
  39. <<<<<<<<<<<
  40. +++++++++++++++++++++++++++++++++++++++++++++++
  41. [->+>+>+>+>+>+<<<<<<]
  42. >.>.>.>.>.>.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement