:PRGM_PRIME
:31->G
:CLRHOME
:"DISP "2<=X=<1000"
:INPUT "NUMBER:",N
:IF N<=62
:N/2->G
:"N/X/"->Y1
:FOR(X,2,G
:IF FPART Y1=0
:GOTO 1
:END
:DISP "PRIME NUMBER"
:""->Y1
:STOP
:LBL 1
:DISP "NO PRIME NUMBER"
:""->Y1


Made by: Mrmats
Description: Type a number between 1 to 1000 and the calculator will
show you in a few seconds if itīs a prime number or not. 
Size: 117 bytes
Copyright (C) 1998 by Mrmats