home *** CD-ROM | disk | FTP | other *** search
/ Vandalism News 38 / Vandalism_News_38_2002-05-31_Onslaught_Wrath_Designs_Side_C.d64 / prime.bf < prev    next >
Text File  |  2023-02-26  |  4KB  |  222 lines
  1. ===================================================================
  2.  
  3. ======================== output string ============================
  4.  
  5. ===================================================================
  6.  
  7. >++++++++[<++++++++>-]<++++++++++++++++.[-]
  8.  
  9. >++++++++++[<++++++++++>-]<++++++++++++++.[-]
  10.  
  11. >++++++++++[<++++++++++>-]<+++++.[-]
  12.  
  13. >++++++++++[<++++++++++>-]<+++++++++.[-]
  14.  
  15. >++++++++++[<++++++++++>-]<+.[-]
  16.  
  17. >++++++++++[<++++++++++>-]<+++++++++++++++.[-]
  18.  
  19. >+++++[<+++++>-]<+++++++.[-]
  20.  
  21. >++++++++++[<++++++++++>-]<+++++++++++++++++.[-]
  22.  
  23. >++++++++++[<++++++++++>-]<++++++++++++.[-]
  24.  
  25. >+++++[<+++++>-]<+++++++.[-]
  26.  
  27. >++++++++++[<++++++++++>-]<++++++++++++++++.[-]
  28.  
  29. >++++++++++[<++++++++++>-]<+++++++++++.[-]
  30.  
  31. >+++++++[<+++++++>-]<+++++++++.[-]
  32.  
  33. >+++++[<+++++>-]<+++++++.[-]
  34.  
  35.  
  36.  
  37. ===================================================================
  38.  
  39. ======================== input number  ============================
  40.  
  41. ===================================================================
  42.  
  43. +                          CONT=1
  44.  
  45. [
  46.  
  47.  -                         CONT=0
  48.  
  49.  >,
  50.  
  51.  ======sub10======
  52.  
  53.  ----------
  54.  
  55.  
  56.  
  57.  [                         NOT 10
  58.  
  59.   <+>                      CONT=1
  60.  
  61.   =====sub38======
  62.  
  63.   ----------
  64.  
  65.   ----------
  66.  
  67.   ----------
  68.  
  69.   --------
  70.  
  71.  
  72.  
  73.   >
  74.  
  75.   =====mul10=======
  76.  
  77.   [>+>+<<-]>>[<<+>>-]<     DUP
  78.  
  79.  
  80.  
  81.   >>>+++++++++
  82.  
  83.   [
  84.  
  85.    <<<
  86.  
  87.    [>+>+<<-]>>[<<+>>-]<    DUP
  88.  
  89.    [<<+>>-]
  90.  
  91.    >>-
  92.  
  93.   ]
  94.  
  95.   <<<[-]<
  96.  
  97.   ======rmove1======
  98.  
  99.   <
  100.  
  101.   [>+<-]
  102.  
  103.  ]
  104.  
  105.  <
  106.  
  107. ]
  108.  
  109. >>[<<+>>-]<<
  110.  
  111.  
  112.  
  113. ===================================================================
  114.  
  115. ======================= process number  ===========================
  116.  
  117. ===================================================================
  118.  
  119.  
  120.  
  121. ==== ==== ==== ====
  122.  
  123. NUMD NUMU TEID TEIU
  124.  
  125. ==== ==== ==== ====
  126.  
  127.  
  128.  
  129. >+<-
  130.  
  131. [
  132.  
  133.  >+
  134.  
  135.  ======dup======
  136.  
  137.  [>+>+<<-]>>[<<+>>-]<
  138.  
  139.  
  140.  
  141.  >+<--
  142.  
  143.  
  144.  
  145.  >>>>>>>>+<<<<<<<<   ISPRIME=1
  146.  
  147.  
  148.  
  149.  [
  150.  
  151.   >+
  152.  
  153.  
  154.  
  155.   <-
  156.  
  157.  
  158.  
  159.   =====dup3=====
  160.  
  161.   <[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<<<
  162.  
  163.  
  164.  
  165.   =====dup2=====
  166.  
  167.   >[>>+>+<<<-]>>>[<<<+>>>-]<<< <
  168.  
  169.  
  170.  
  171.  
  172.  
  173.   >>>
  174.  
  175.  
  176.  
  177.  
  178.  
  179.   ====divides=======
  180.  
  181.   [>+>+<<-]>>[<<+>>-]<   dup I=DIV
  182.  
  183.   
  184.  
  185.   <<
  186.  
  187.   [
  188.  
  189.     >>>>>+               BOOL=1
  190.  
  191.     <<<
  192.  
  193.     [>+>+<<-]>>[<<+>>-]< dup
  194.  
  195.     [>>[-]<<-]           if I then BOOL=0
  196.  
  197.     >>
  198.  
  199.     [                    if I=0
  200.  
  201.       <<<<
  202.  
  203.       [>+>+<<-]>>[<<+>>-]< I=DIV
  204.  
  205.       >>>
  206.  
  207.       -                  BOOL=0
  208.  
  209.     ]
  210.  
  211.     <<<
  212.  
  213.     -                    dec I
  214.  
  215.     <<
  216.  
  217.     -
  218.  
  219.   ]
  220.  
  221.   
  222.  
  223.   +>>[<<[-]>>-]<<          
  224.  
  225.   >[-]<                  clr DIV
  226.  
  227.   =====end divides====
  228.  
  229.  
  230.  
  231.  
  232.  
  233.   [>>>>>>[-]<<<<<<-]     IF DIVIDES THEN ISPRIME=0
  234.  
  235.  
  236.  
  237.  
  238.  
  239.   <<
  240.  
  241.  
  242.  
  243.   >>[-]>[-]<<<
  244.  
  245.  ]
  246.  
  247.  
  248.  
  249.  >>>>>>>>
  250.  
  251.  [
  252.  
  253.   -
  254.  
  255.   <<<<<<<[-]<<
  256.  
  257.  
  258.  
  259.   [>>+>+<<<-]>>>[<<<+>>>-]<<<
  260.  
  261.  
  262.  
  263.   >>
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.   ===================================================================
  274.  
  275.   ======================== output number  ===========================
  276.  
  277.   ===================================================================
  278.  
  279.   [>+<-]>
  280.  
  281.  
  282.  
  283.   [
  284.  
  285.    ======dup======
  286.  
  287.    [>+>+<<-]>>[<<+>>-]<
  288.  
  289.   
  290.  
  291.   
  292.  
  293.    ======mod10====
  294.  
  295.    >+++++++++<
  296.  
  297.    [
  298.  
  299.     >>>+<<              BOOL= 1
  300.  
  301.     [>+>[-]<<-]         BOOL= TEN==0
  302.  
  303.     >[<+>-]             TEN = TMP
  304.  
  305.     >[<<++++++++++>>-]  IF TEN=0 TEN=10
  306.  
  307.     <<-                 DEC TEN     
  308.  
  309.     <-                  DEC NUM
  310.  
  311.    ]
  312.  
  313.    +++++++++            NUM=9
  314.  
  315.    >[<->-]<             DEC NUM BY TEN
  316.  
  317.   
  318.  
  319.    =======rrot======
  320.  
  321.       [>+<-]
  322.  
  323.    <  [>+<-]
  324.  
  325.    <  [>+<-]
  326.  
  327.    >>>[<<<+>>>-]
  328.  
  329.    <
  330.  
  331.   
  332.  
  333.    =======div10========
  334.  
  335.    >+++++++++<
  336.  
  337.    [
  338.  
  339.     >>>+<<                BOOL= 1
  340.  
  341.     [>+>[-]<<-]           BOOL= TEN==0
  342.  
  343.     >[<+>-]               TEN = TMP
  344.  
  345.     >[<<++++++++++>>>+<-] IF TEN=0 TEN=10  INC DIV
  346.  
  347.     <<-                   DEC TEN     
  348.  
  349.     <-                    DEC NUM
  350.  
  351.    ]
  352.  
  353.    >>>>[<<<<+>>>>-]<<<<   COPY DIV TO NUM
  354.  
  355.    >[-]<                  CLEAR TEN
  356.  
  357.   
  358.  
  359.    =======inc1=========
  360.  
  361.    <+>
  362.  
  363.   ]
  364.  
  365.   
  366.  
  367.   <
  368.  
  369.   [
  370.  
  371.    =======mover=========
  372.  
  373.    [>+<-]
  374.  
  375.   
  376.  
  377.    =======add48========
  378.  
  379.    +++++++[<+++++++>-]<->
  380.  
  381.   
  382.  
  383.    =======putc=======
  384.  
  385.    <.[-]>
  386.  
  387.   
  388.  
  389.    ======movel2========
  390.  
  391.    >[<<+>>-]<
  392.  
  393.   
  394.  
  395.    <-
  396.  
  397.   ]
  398.  
  399.  
  400.  
  401.   >++++[<++++++++>-]<.[-]
  402.  
  403.  
  404.  
  405.   ===================================================================
  406.  
  407.   =========================== end for ===============================
  408.  
  409.   ===================================================================
  410.  
  411.  
  412.  
  413.  
  414.  
  415.   >>>>>>>
  416.  
  417.  ]
  418.  
  419.  <<<<<<<<
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  >[-]<
  428.  
  429.   [-]
  430.  
  431.  <<-
  432.  
  433. ]
  434.  
  435.  
  436.  
  437. ======lf========
  438.  
  439.  
  440.  
  441. ++++++++++.[-]
  442.  
  443.