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 >
Wrap
Text File
|
2023-02-26
|
4KB
|
222 lines
===================================================================
======================== output string ============================
===================================================================
>++++++++[<++++++++>-]<++++++++++++++++.[-]
>++++++++++[<++++++++++>-]<++++++++++++++.[-]
>++++++++++[<++++++++++>-]<+++++.[-]
>++++++++++[<++++++++++>-]<+++++++++.[-]
>++++++++++[<++++++++++>-]<+.[-]
>++++++++++[<++++++++++>-]<+++++++++++++++.[-]
>+++++[<+++++>-]<+++++++.[-]
>++++++++++[<++++++++++>-]<+++++++++++++++++.[-]
>++++++++++[<++++++++++>-]<++++++++++++.[-]
>+++++[<+++++>-]<+++++++.[-]
>++++++++++[<++++++++++>-]<++++++++++++++++.[-]
>++++++++++[<++++++++++>-]<+++++++++++.[-]
>+++++++[<+++++++>-]<+++++++++.[-]
>+++++[<+++++>-]<+++++++.[-]
===================================================================
======================== input number ============================
===================================================================
+ CONT=1
[
- CONT=0
>,
======sub10======
----------
[ NOT 10
<+> CONT=1
=====sub38======
----------
----------
----------
--------
>
=====mul10=======
[>+>+<<-]>>[<<+>>-]< DUP
>>>+++++++++
[
<<<
[>+>+<<-]>>[<<+>>-]< DUP
[<<+>>-]
>>-
]
<<<[-]<
======rmove1======
<
[>+<-]
]
<
]
>>[<<+>>-]<<
===================================================================
======================= process number ===========================
===================================================================
==== ==== ==== ====
NUMD NUMU TEID TEIU
==== ==== ==== ====
>+<-
[
>+
======dup======
[>+>+<<-]>>[<<+>>-]<
>+<--
>>>>>>>>+<<<<<<<< ISPRIME=1
[
>+
<-
=====dup3=====
<[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<<<
=====dup2=====
>[>>+>+<<<-]>>>[<<<+>>>-]<<< <
>>>
====divides=======
[>+>+<<-]>>[<<+>>-]< dup I=DIV
<<
[
>>>>>+ BOOL=1
<<<
[>+>+<<-]>>[<<+>>-]< dup
[>>[-]<<-] if I then BOOL=0
>>
[ if I=0
<<<<
[>+>+<<-]>>[<<+>>-]< I=DIV
>>>
- BOOL=0
]
<<<
- dec I
<<
-
]
+>>[<<[-]>>-]<<
>[-]< clr DIV
=====end divides====
[>>>>>>[-]<<<<<<-] IF DIVIDES THEN ISPRIME=0
<<
>>[-]>[-]<<<
]
>>>>>>>>
[
-
<<<<<<<[-]<<
[>>+>+<<<-]>>>[<<<+>>>-]<<<
>>
===================================================================
======================== output number ===========================
===================================================================
[>+<-]>
[
======dup======
[>+>+<<-]>>[<<+>>-]<
======mod10====
>+++++++++<
[
>>>+<< BOOL= 1
[>+>[-]<<-] BOOL= TEN==0
>[<+>-] TEN = TMP
>[<<++++++++++>>-] IF TEN=0 TEN=10
<<- DEC TEN
<- DEC NUM
]
+++++++++ NUM=9
>[<->-]< DEC NUM BY TEN
=======rrot======
[>+<-]
< [>+<-]
< [>+<-]
>>>[<<<+>>>-]
<
=======div10========
>+++++++++<
[
>>>+<< BOOL= 1
[>+>[-]<<-] BOOL= TEN==0
>[<+>-] TEN = TMP
>[<<++++++++++>>>+<-] IF TEN=0 TEN=10 INC DIV
<<- DEC TEN
<- DEC NUM
]
>>>>[<<<<+>>>>-]<<<< COPY DIV TO NUM
>[-]< CLEAR TEN
=======inc1=========
<+>
]
<
[
=======mover=========
[>+<-]
=======add48========
+++++++[<+++++++>-]<->
=======putc=======
<.[-]>
======movel2========
>[<<+>>-]<
<-
]
>++++[<++++++++>-]<.[-]
===================================================================
=========================== end for ===============================
===================================================================
>>>>>>>
]
<<<<<<<<
>[-]<
[-]
<<-
]
======lf========
++++++++++.[-]